49108 (Справочная система продавца–консультанта компьютерного салона), страница 4

2016-07-30СтудИзба

Описание файла

Документ из архива "Справочная система продавца–консультанта компьютерного салона", который расположен в категории "". Всё это находится в предмете "информатика" из 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;

  1. 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;

  1. 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;

  1. 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;

  1. 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;

  1. 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;//Скрытие кнопки

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4123
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее