Описание и обоснование входных и выходных данных
Описание и обоснование выбора состава технических и программных средств
Описание функциональных точек
Procedure TSerNom.FormShow – Процедура слежения за количеством товара на складе, и количеством выбранного товара
Procedure TProdat11.BitBtn9Click – Процедура отказа от продажи и удаления всей временной информации
Procedure TProdat11.BitBtn21Click – отмена добавления записи в таблицу "товар"
Procedure TProdat11.Button9Click – Поиск по базе данных
Выполнение программы
Краткое описание программного продукта и области его применения
Амортизация основных средств
Навигация
Procedure TSerNom.FormShow – Процедура слежения за количеством товара на складе, и количеством выбранного товара
Справочная система продавца–консультанта компьютерного салона
75624
знака
8
таблиц
23
изображения
7. 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;
8. 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;
9. 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;
10. 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;
Похожие работы
... *100% Результаты анализа динамики рентабельности позволяют сделать вывод о том, что к 2006 году предприятие повысило уровень рентабельности бизнеса. 2.2 Анализ системы управления персоналом в ООО «Евросеть-Санкт-Петербург» Проанализируем кадровую политику салона. Штатное расписание представлено в таблице 21. Таблица 21 - Штатное расписание салона «Евросеть» на Садовой ул.,33 ...
... я хотела бы посвятить именно приемному отделению ТК «Жуковка». Я считаю, что будет вполне целесообразно разработать и внедрить на данном предприятии автоматизированную информационную систему планирования сбыта, что в свою очередь ускорит и существенно облегчит работу приемного отделения ТК «Жуковка». План-схема приемного отделения и структура работы службы приема и размещения ТК «Жуковка» ...
... анализ его производственной деятельности отсутствуют. Оценка экономического состояния проводится по фактическим данным, когда повлиять на них уже нельзя. 2.3 Проблемы организации управленческого учета в ГК “Салоны связи” и возможные пути их решения Руководитель предприятия, желающий иметь полную и достоверную финансовую информацию о своём бизнесе, а также экономист, обеспечивающий своего ...
... с потребителями в контактной зоне. Контактная зона (зона видимости) – общая сфера, окружающая заказчиков (клиентов) в период нахождения их на предприятии сервиса. Особенностью сервисной деятельности является коммуникативное взаимодействие, общение с потребителями. К числу основных составляющих феномена общения относят три взаимосвязанные стороны общения: коммуникативную, интерактивную и ...
0 комментариев