49108 (Справочная система продавца–консультанта компьютерного салона), страница 4
Описание файла
Документ из архива "Справочная система продавца–консультанта компьютерного салона", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49108"
Текст 4 страницы из документа "49108"
sernom1.Edit1.SetFocus;//перемещение курсора в текстовое поле
BitBtn3.Visible:=False;//Появление кнопки
Prodat11.Enabled:=False;//Форма активна//Форма неактивна
end
else
begin
sernom1.Hide;//Закрытие формы sernom1
Prodat11.Enabled:=True;//Форма неактивна
Prodat11.Panel6.Visible:=True;//Появление панели
Prodat11.GroupBox8.Visible:=True;//Появление компонента
Prodat11.BitBtn9.Visible:=true;//Появление кнопки
Prodat11.BitBtn7.Visible:=true;//Появление кнопки
Prodat11.Panel6.Visible:=True;//Появление панели
Prodat11.Button16.Click;//Нажатие кнопки
end;
Prodat11.Button16.Click;//Нажатие кнопки
end;
Prodat11.Button16.Click;//Нажатие кнопки
end;
-
procedure TSerNom.FormShow – Процедура слежения за количеством товара на складе, и количеством выбранного товара
procedure TSerNom.FormShow(Sender: TObject);
var ng,mk:integer;
begin
sernom1.Label3.Visible:=True;//Появление надписи
sernom1.Label4.Visible:=True;//Появление надписи
Prodat11.Enabled:=False;//Фома активна
sernom1.Edit1.Text:='';//Вывод текста
sernom1.Edit2.Text:='1';//Вывод текста
sernom1.Label2.Caption:='Введите количество товара:';
Prodat11.colpoc:=2;//задание значения переменной
Label3.Caption:='Общее количество товара = '+Prodat11.DBEdit8.Text;//Задание надписи
mk:=0;//Обнуление переменной
begin
for ng:=1 to DM.ADOZacaz.RecordCount do
begin
if dm.ADOZacaz.FieldByName('№ товара').AsString=Prodat11.DBEdit1.Text then
begin
mk:=mk+1;//Увеличение счётчика переменной
end;
dm.ADOZacaz.Next;//Переход на следующую строку в таблице ADOZacaz
end;
kj:=StrToInt(Prodat11.DBEdit8.Text)-mk;//Задание значения переменной
Label4.Caption:='Количество уже выбранного товара = '+IntToStr(mk)+', доступно = '+ IntToStr(kj);//Занесение текста в надпись
end;
end;
-
procedure TSerNom.Edit2KeyPress – Ограничение вводимой информаци
procedure TSerNom.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
#13 : ;//При нажатие Enter перенос курсора
#8 : ;//Стереть символ слева Backspace
#145: ;//Верхний опостроф
'0'..'9': ;//Только англиские булвы
' ' : //Пробел
else key:=chr(0);//Иначе ничего
end;
end;
-
procedure TProdat11.BitBtn6Click – Выбор товара и запрос на применение установленной скидки
procedure TProdat11.BitBtn6Click(Sender: TObject);
var z,z1,a1,a2,v:integer;
begin
begin
if Prodat11.Edit24.Text='' then
begin
Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле
end;
end;
begin
if Prodat11.Edit24.Text<>'0' then
begin //Вывод сообщения
if MessageDlg('Оставить скидку на товар?',
mtConfirmation, [mbYes, mbNo], 0) = mrNo then
Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле
end;
end;
dm.ADOZacaz.First;//Переход к первой записи в таблице ADOZacaz
a1:=0;//Обнуление переменной
a2:=0;//Обнуление переменной
begin
for z1:=1 to DM.ADOZacaz.RecordCount do
begin
if dm.ADOZacaz.FieldByName('№ товара').AsString=Prodat11.DBEdit1.Text then
begin
end;
dm.ADOZacaz.Next;//Переход к следующей записи в таблице ADOZacaz
end;
end;
begin
a2:=StrToInt(Prodat11.DBEdit8.Text);//Присвоение значения переменной
a2:=a2-a1;//Присвоение значения переменной
if a2=0 then
begin
ShowMessage('Тoвара на складе нет');//Вывод сообщения
end
else
begin
begin
sernom1.Show;//Открытие формы sernom1
sernom1.Label1.Visible:=True;//Появление надписи
sernom1.Edit1.Visible:=True;//Появление текстового поля
sernom1.Label2.Visible:=False;//Скрытие надписи
sernom1.Edit2.Visible:=False;//Скрытие текстового поля
sernom1.Edit1.SetFocus;//Курсор в текстовом поле
Prodat11.colvtov:=1;//Присвоение значения переменной
sernom1.BitBtn3.Visible:=True;//Появление кнопки
end;
begin
sernom1.Show;//Открытие формы sernom1
sernom1.Label1.Visible:=False;//Скрытие надписи
sernom1.Edit1.Visible:=False;//Скрытие текстового поля
sernom1.Label2.Visible:=True;//Появление надписи
sernom1.Edit2.Visible:=True;//Появление текстового поля
sernom1.BitBtn1.Enabled:=True;
sernom1.Edit2.SetFocus;//Курсор в текстовом поле
sernom1.BitBtn3.Visible:=True;//Появление кнопки
end;
end;
end;
end;
-
procedure TProdat11.BitBtn5Click – Процедура сохранения информации о осуществленной продаже и вывод гарантийного талона на печать
procedure TProdat11.BitBtn5Click(Sender: TObject);
var q,t,c,v,z,n,d,fghj:integer;
begin
if Edit78.Text='' then
begin
DM.Pokypatel.Last;//Переход к последней записи в базе данных
DM.Pokypatel.Insert;//Добавление строки в базу данных
DM.Pokypatel.FieldByName('Фамилия').AsString:=Prodat11.Edit6.Text;//Занесение информации в базу данных
DM.Pokypatel.FieldByName('Имя').AsString:=Prodat11.Edit7.Text;//Занесение информации в базу данных
DM.Pokypatel.FieldByName('Отчество').AsString:=Prodat11.Edit8.Text;//Занесение информации в базу данных
DM.Pokypatel.FieldByName('Адрес').AsString:=Prodat11.Edit9.Text;//Занесение информации в базу данных
DM.Pokypatel.FieldByName('Телефон').AsString:=Prodat11.Edit10.Text;//Занесение информации в базу данных
DM.Pokypatel.Post;//Сохранение занесённой информации
Edit12.Text:=IntToStr(DM.Pokypatel.FieldValues['№ покупателя']);
DM.Pokypatel.Refresh;//Обновление таблицы
end;
aaa:=aaa+1;
dm.ADOZacaz.First;//Переход к первой записи в таблице ADOZacaz
for q:=1 to dm.ADOZacaz.RecordCount do
begin
DM.Prodazi.Last;//Переход к последней записи в базе данных
DM.Prodazi.Insert;//Добавление строки в базу данных
begin
if Edit78.Text='' then
begin
DM.Pokypatel.Last;//Переход к последней записи в базе данных
DM.Prodazi.FieldByName('№ покупателя').AsString:=DM.Pokypatel.FieldValues['№ покупателя'];//Занесение информации в базу данных
end
else
begin
DM.Prodazi.FieldByName('№ покупателя').AsString:=Edit78.Text;//Занесение информации в базу данных
end;
end;
DM.Prodazi.FieldByName('№ продавца').AsString:=Prodat11.Edit11.Text;//Занесение информации в базу данных
DM.Prodazi.FieldByName('№ товара').AsString:=dm.ADOZacaz.FieldValues['№ товара'];//Занесение информации в базу данных
DM.Prodazi.FieldByName('Дата').AsString:=DateTimeToStr(Date);//Занесение информации в базу данных
DM.Prodazi.FieldByName('Цена покупки').AsString:=dm.ADOZacaz.FieldValues['Стоимость'];//Занесение информации в базу данных
DM.Prodazi.FieldByName('Количество').AsString:='1';
DM.Prodazi.FieldByName('Серийный номер').AsString:=dm.ADOZacaz.FieldValues['Идентифик_номер'];
DM.Prodazi.FieldByName('Скидка%').AsString:=dm.ADOZacaz.FieldValues['Льготы'];
DM.Prodazi.FieldByName('Общая стоимость').AsString:=dm.ADOZacaz.FieldValues['Итого'];//Занесение информации в базу данных
DM.Prodazi.FieldByName('Гарантийный талон').AsString:=IntToStr(aaa);
DM.Prodazi.Post;//Сохранение занесённой информации
dm.ADOZacaz.Next;//Переход на следующую строчку
DM.Tovar1.First;//Переход к первой записи
end;
begin
dm.ADOZacaz.First;//Переход к первой записи
for n:=1 to dm.ADOZacaz.RecordCount do
begin
DM.Tovar1.First;//Переход к первой записи
for d:=1 to DM.Tovar1.RecordCount do
begin
if (dm.ADOZacaz.FieldByName('№ товара').AsString<>dm.Tovar1.FieldByName('№ товара').AsString) then
begin
DM.Tovar1.Next;//Переход к следующеё строке
end
else
begin
DM.Tovar1.Edit;//Редактирование записи в таблице Tovar1
DM.Tovar1.FieldByName('Количество').AsString:=IntToStr(StrToInt(DM.Tovar1.FieldByName('Количество').AsString)-1);
DM.Tovar1.Post;//Сохранение занесённой информации
dm.Tovar1.Next;//Переход к следующеё строке
end;
end;
dm.ADOZacaz.Next;//Переход к следующеё строке
end;
end;
GroupBox2.Visible:=False;//Скрытие компонента
GroupBox1.Visible:=false;//Скрытие компонента
DBGrid1.Visible:=True;//Появление таблицы
BitBtn1.Visible:=True;//Появление кнопки
BitBtn2.Visible:=True;//Появление кнопки
BitBtn3.Visible:=True;//Появление кнопки
BitBtn4.Visible:=True;//Появление кнопки
BitBtn6.Visible:=True;//Появление кнопки
BitBtn7.Visible:=True;//Появление кнопки
Label1.Visible:=True;//Появление текста
Label2.Visible:=True;//Появление текста
Label3.Visible:=True;//Появление текста
Label4.Visible:=True;//Появление текста
Label5.Visible:=True;//Появление текста
Label6.Visible:=True;//Появление текста
Label7.Visible:=True;//Появление текста
Label8.Visible:=True;//Появление текста
DBEdit1.Visible:=True;//Появление текстового поля
DBEdit2.Visible:=True;//Появление текстового поля
DBEdit3.Visible:=True;//Появление текстового поля
DBEdit4.Visible:=True;//Появление текстового поля
DBEdit5.Visible:=True;//Появление текстового поля
DBEdit6.Visible:=True;//Появление текстового поля
DBEdit7.Visible:=True;//Появление текстового поля
DBEdit8.Visible:=True;//Появление текстового поля
ShowMessage('Товар продан!');
Edit24.Text:='0';//Занесение информации в текстовое поле
Panel6.Visible:=False;//Скрытие компонента
BitBtn7.Visible:=False;//Скрытие кнопки
BitBtn9.Visible:=false;//Скрытие кнопки
dm.ADOQGaranti.Parameters[0].Value:=dm.Prodazi.FieldValues['Гарантийный талон'];//Задание значения параметра
dm.ADOQGaranti.Close;//Закрытие таблицы ADOQGaranti
dm.ADOQGaranti.Open;//Открытие таблицы ADOQGaranti
dm.ADOQGaranti.Active:=False;//Обновление информации в таблице ADOQGaranti
dm.ADOQGaranti.Active:=True;//Обновление информации в таблице ADOQGaranti
begin
garanti1.QRLabel3.Caption:=inttostr(aaa);
garanti1.QuickRep1.Refresh;//Обновление компонента
garanti1.QuickRep1.Preview;//Вывод на просмотр
end;
begin
for z:=1 to dm.ADOZacaz.RecordCount do
begin
dm.ADOZacaz.Delete;//Удаление записи в таблице ADOZacaz
dm.ADOZacaz.Next;//Переход к следующей записи в таблице ADOZacaz
end;
end;
GroupBox7.Enabled:=True;
Button2.Enabled:=True;//Запрещение нажатия на кнопку
Button1.Enabled:=True;//Запрещение нажатия на кнопку
Button3.Enabled:=True;//Запрещение нажатия на кнопку
Button4.Enabled:=True;//Запрещение нажатия на кнопку
Button5.Enabled:=True;//Запрещение нажатия на кнопку
Button6.Enabled:=True;//Запрещение нажатия на кнопку
dm.ADOQTovar.Close;//Закрытие таблицы ADOQTovar
dm.ADOQTovar.Open;//Открытие таблицы ADOQTovar
Button10.Click;//Нажатие кнопки
dm.ADOQZaprosProdazi.Close;//Закрытие таблицы ADOQZaprosProdazi
dm.ADOQZaprosProdazi.Open;//Открытие таблицы ADOQZaprosProdazi
Button13.Click;//Нажатие кнопки
GroupBox9.Visible:=True;//Появление компонента
Edit1.Text:='';//Вывод текста
Edit2.Text:='';//Вывод текста
Edit3.Text:='';//Вывод текста
Edit4.Text:=' - - - - - - - - - - - -';//Вывод текста
Edit5.Text:='';//Вывод текста
end;
-
procedure TProdat11.BitBtn9Click – Процедура отказа от продажи и удаления всей временной информации
procedure TProdat11.BitBtn9Click(Sender: TObject);
var i:integer;
begin
Prodat11.GroupBox7.Enabled:=True;
Prodat11.Button2.Enabled:=True;
Prodat11.Button3.Enabled:=True;
Prodat11.Button4.Enabled:=True;
Prodat11.Button5.Enabled:=True;
Prodat11.Button6.Enabled:=True;
Prodat11.Panel6.Visible:=False;//Скрытие компонента
dm.ADOQZViv.SQL.Clear;//Очистка запроса в таблице ADOQZViv
CheckBox2.Checked:=False;//Изменение значения компонента
for i:=1 to dm.ADOZacaz.RecordCount do
begin
dm.ADOZacaz.Delete;//Удаление записи из таблицы ADOZacaz
dm.ADOZacaz.Next;//Переход на следующую строку в таблице ADOZacaz
end;
Prodat11.BitBtn53.Click;//Нажатие кнопки
BitBtn7.Visible:=False;//Скрытие кнопки