Описание и обоснование входных и выходных данных
Описание и обоснование выбора состава технических и программных средств
Описание функциональных точек
Procedure TSerNom.FormShow – Процедура слежения за количеством товара на складе, и количеством выбранного товара
Procedure TProdat11.BitBtn9Click – Процедура отказа от продажи и удаления всей временной информации
Procedure TProdat11.BitBtn21Click – отмена добавления записи в таблицу "товар"
Procedure TProdat11.Button9Click – Поиск по базе данных
Выполнение программы
Краткое описание программного продукта и области его применения
Амортизация основных средств
Навигация
Описание функциональных точек
Справочная система продавца–консультанта компьютерного салона
75624
знака
8
таблиц
23
изображения
1.2.6 Описание функциональных точек
В проекте используется 8 форм, 29 невизуальных компонентов и 20 основных процедур обработки событий, которые в совокупности предназначены для автоматизации обслуживания клиентов компьютерного салона. Все невизуальные компоненты находятся на форме "DM". Форма "DM" представлена на рисунке (Рис. 17).
Каждый из этих компонентов выполняет свою определённую функцию. Например, компоненты с названиями: Tovar1, Prodavez, Klienti, Prodazi, ADOZacaz, ADOGart, FirmIzg, Reg1, ADOQTovar, ADOQSotrydniki, ADOQKlienti, ADOQZaprosProdazi, ADOQZViv, ADOQZacTovar, ADOQGaranti - используются для подключения таблиц из базы данных "Комп салон".
Компоненты: DSTovar1, DSKlienti, DSZacaz, DSProdavez, DSProdazi, DSGart, FirmIzg1, DSTovar, DSSotrydniki, DSQklienti, DSZaprosProdazi, DSViv, DSZacTovar – используются для вывода информации из базы данных в таблицы.
Рисунок 17. Форма "DM"
Reg2.pas
1. procedure Edit1KeyPress – процедура перехода между полями ввода по нажатию Enter
procedure TReg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then //нажатие Enter
edit2.SetFocus;//Переход на следующую строку при нажатии Enter
end;
2. procedure TReg.BitBtn2Click – процедура нажатия на кнопку продолжить
procedure TReg.BitBtn2Click(Sender: TObject);
var f:integer;
begin
if (edit1.text='') or (edit2.text='') or (edit3.text='') or (edit6.text='')then
begin //вывод соответствующего сообщния
messagedlg('ПОЖАЛУЙСТО ЗАПОЛНИТЕ ВСЕ ПОЛЯ!!! ',mterror,[mbok],0);
end else
begin
for f:=1 to DM.Reg1.RecordCount do
begin
if (edit1.text<>DM.Reg1.FieldByName('Фамилия').AsString) or (edit2.text<>DM.Reg1.FieldByName('Имя').AsString) or (edit3.text<>DM.Reg1.FieldByName('Отчество').AsString) or (edit6.text<>DM.Reg1.FieldByName('Пароль').AsString) then
begin
DM.Reg1.Next;//Переход к следующеё строке
Label1.Visible:=False;//Скрытие надписи
Label6.Visible:=True;//Появление надписи
end
else
begin
reg.Hide;//Закрытие формы reg
Prodat11.Show;//Открытие формы Prodat11
end;
3. procedure TReg.Timer1Timer – процедура скрытия заставки
procedure TReg.Timer1Timer(Sender: TObject);
begin
Panel1.Visible:=False;//Скрытие панели
Reg.Caption:='Регистрация';//Задание заголовка формы
Label1.Visible:=True;//Появление надписи
Label2.Visible:=True;//Появление надписи
Label3.Visible:=True;//Появление надписи
Label4.Visible:=True;//Появление надписи
Label5.Visible:=True;//Появление надписи
end;
4. procedure TReg.FormClose – процедура закрытия программы
procedure TReg.FormClose(Sender: TObject; var Action: TCloseAction);
begin //Вывод соответствующего сообщения
if MessageDlg('Вы хотите выйти из программы?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Application.Terminate;//Закрытие приложения
end;
sernom.pas
5. procedure TSerNom.BitBtn2Click – Процедура отказа от продажи товара
procedure TSerNom.BitBtn2Click(Sender: TObject);
begin
Prodat11.Enabled:=True;
Prodat11.Refresh;//Обновление формы Prodat11
sernom1.Edit1.Clear;//Очистка текстового поля
sernom1.Hide;//Закрытие формы sernom1
dm.ADOZacaz.First;//Переход к первой записи в таблице ADOZacaz
Prodat11.Refresh;//Обновление формы Prodat11
begin
if dm.ADOZacaz.FieldByName('№ товара').AsString<>'' then
begin
Prodat11.DBGrid12.Visible:=True;//Появление компонента
Prodat11.DBGrid13.Visible:=True;//Появление компонента
Prodat11.Panel6.Visible:=True;//Появление компонента
End;
Prodat11.Button16.Click;//Нажатие кнопки
end;
Prodat11.Button16.Click;//Нажатие кнопки
end;
6. procedure TSerNom.BitBtn1Click – Процедура сохранения серийного номера, и пересчета скидки на товар
procedure TSerNom.BitBtn1Click(Sender: TObject);
var m1, m2, m3,po,w,p,p2,a,d:Integer;
begin
begin
if Prodat11.Edit24.Text='' then
begin
Prodat11.Edit24.Text:='0';//Занесение информации в текстовое поле
end;
end;
Prodat11.Enabled:=True;
begin
if Edit1.Text='' then
begin//Вывод соответствующего сообщения
ShowMessage('Пожалуйсто введите серийный номер');
end
else
begin
begin
d:=StrToInt(Prodat11.Edit24.Text);//Задание значения переменной
if d>100 then
begin
Prodat11.Edit24.Text:='100';//Занесение информации в текстовое поле
end;
end;
Prodat11.GroupBox7.Enabled:=False;
Prodat11.Button2.Enabled:=False;
Prodat11.Button3.Enabled:=False;
Prodat11.Button4.Enabled:=False;
Prodat11.Button5.Enabled:=False;
Prodat11.Button6.Enabled:=False;
Prodat11.CheckBox2.Checked:=True;//Изменение значения компонента
dm.ADOZacaz.Insert;//Добавление строки в таблицу ADOZacaz
dm.ADOZacaz.FieldByName('№ товара').AsString:=Prodat11.DBEdit1.Text;//Занесение информации в таблицу ADOZacaz
dm.ADOZacaz.FieldByName('Идентифик_номер').AsString:=sernom1.Edit1.Text;//Занесение информации в таблицу ADOZacaz
dm.ADOZacaz.FieldByName('Стоимость').AsString:=Prodat11.DBEdit6.Text;//Занесение информации в таблицу ADOZacaz
dm.ADOZacaz.FieldByName('Льготы').AsString:=Prodat11.Edit24.Text;//Занесение информации в таблицу ADOZacaz
m1:=0;//Обнуление переменной
m1:=StrToInt(dm.ADOZacaz.FieldByName('Стоимость').AsString);
m2:=1;//Задание значения переменной
m3:=0;//Обнуление переменной
m3:=StrToInt(dm.ADOZacaz.FieldByName('Льготы').AsString);//Задание значения переменной
begin
if m3=0 then
begin
po:=m1*m2;//Задание значения переменной
end
else
begin
a:=m1*m2;//Задание значения переменной
po:=a-(a*m3 div 100);//Задание значения переменной
end;
end;
dm.ADOZacaz.FieldByName('Итого').AsString:=IntToStr(po);//Занесение информации в таблицу ADOZacaz
dm.ADOZacaz.Post;//Сохранение занесённой информации в таблице ADOZacaz
Prodat11.colvtov:=Prodat11.colvtov-1;//Задание значения переменной
Prodat11.BitBtn53.Click;//Нажатие кнопки
Prodat11.Button16.Click;//Нажатие кнопки
Prodat11.BitBtn7.Visible:=True;//Появление кнопки
Prodat11.Button16.Click;//Нажатие кнопки
Prodat11.BitBtn9.Visible:=True;//Появление кнопки
Prodat11.SpeedButton1.Visible:=true;//Появление кнопки
Prodat11.SpeedButton2.Visible:=true;//Появление кнопки
Prodat11.SpeedButton3.Visible:=true;//Появление кнопки
Prodat11.SpeedButton4.Visible:=true;//Появление кнопки
Prodat11.GroupBox6.Visible:=True;//Появление компонента
Prodat11.DBGrid12.Visible:=True;//Появление компонента
Prodat11.DBGrid13.Visible:=True;//Появление компонента
Prodat11.GroupBox8.Visible:=True;//Появление компонента
Prodat11.Button16.Click;//Нажатие кнопки
Prodat11.Panel6.Visible:=True;//Появление панели
Prodat11.colpoc:=Prodat11.colpoc+1;//Задание значения переменной
sernom1.Label2.Caption:='Введите Серийный номер '+ IntToStr(Prodat11.colpoc);//Задание надписи
end;
end;
begin
if Prodat11.colvtov<>0 then
begin
sernom1.Edit1.Clear;//Очистка текстового поля
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;
Похожие работы
... *100% Результаты анализа динамики рентабельности позволяют сделать вывод о том, что к 2006 году предприятие повысило уровень рентабельности бизнеса. 2.2 Анализ системы управления персоналом в ООО «Евросеть-Санкт-Петербург» Проанализируем кадровую политику салона. Штатное расписание представлено в таблице 21. Таблица 21 - Штатное расписание салона «Евросеть» на Садовой ул.,33 ...
... я хотела бы посвятить именно приемному отделению ТК «Жуковка». Я считаю, что будет вполне целесообразно разработать и внедрить на данном предприятии автоматизированную информационную систему планирования сбыта, что в свою очередь ускорит и существенно облегчит работу приемного отделения ТК «Жуковка». План-схема приемного отделения и структура работы службы приема и размещения ТК «Жуковка» ...
... анализ его производственной деятельности отсутствуют. Оценка экономического состояния проводится по фактическим данным, когда повлиять на них уже нельзя. 2.3 Проблемы организации управленческого учета в ГК “Салоны связи” и возможные пути их решения Руководитель предприятия, желающий иметь полную и достоверную финансовую информацию о своём бизнесе, а также экономист, обеспечивающий своего ...
... с потребителями в контактной зоне. Контактная зона (зона видимости) – общая сфера, окружающая заказчиков (клиентов) в период нахождения их на предприятии сервиса. Особенностью сервисной деятельности является коммуникативное взаимодействие, общение с потребителями. К числу основных составляющих феномена общения относят три взаимосвязанные стороны общения: коммуникативную, интерактивную и ...
0 комментариев