72
29. Введение в описание бизнес-процессов. Часть 2. [Электронный ресурс].
[Режим доступа]: http://becmology.ru/blog/business/bp02.htm (вход
свободный).
30. Грекул. В.И. Проектирование информационных систем. Учебный курс.
Internet-университет Информационных технологий (ИНТУИТ).
[Электронный ресурс]. [Режим доступа]:
http://www.intuit.ru/department/se/devis/ (вход свободный).
31. Документация по Microsoft SQL Server 2008. [Электронный ресурс].
[Режим доступа]: http://msdn.microsoft.com/ru-ru/library/ms143506.aspx
(вход свободный).
32. Обзор SQL Server 2008. [Электронный ресурс]. [Режим доступа]:
https://www.osp.ru/winitpro/2008/08/5823216 (вход свободный).
33. Обзор существующих систем автоматизации учета оптовых и
розничных продаж. [Электронный ресурс]. [Режим доступа]:
https://novainfo.ru/article/10924 (вход свободный).
34. Описание работы с программой ERwin. [Электронный ресурс]. [Режим
доступа]: http://belieteni.com/subdt4r3part1.html (вход свободный).
35. Основы проектирования реляционных баз данных. [Электронный
ресурс]. [Режим доступа]:
http://www.citforum.ru/database/sql_kg/index.shtml (вход свободный).
36. Официальный сайт продукта ERwin. [Электронный ресурс]. [Режим
доступа]: http://erwin.com/ (вход свободный).
37. Рыбанов А.А., Усмонов М.С.О., Попов Ф.А., Ануфриева Н.Ю., Бубарева
О.А. Информационные системы и технологии / Научный ред. И.А.
Рудакова / Центр научной мысли (г. Таганрог). – Москва, 2017, Ч. 4. –
90С.
38. Свободная энциклопедия «ВикипедиЯ». [Электронный ресурс]. [Режим
доступа]: http://ru.wikipedia.org (вход свободный).
73
39. Учебный комплекс INTUIT.RU (версия 1.0) Интернет университета
Информационных технологий. [Электронный ресурс]. [Режим доступа]:
www.intuit.ru (вход свободный).
40. Что такое BPWin». [Электронный ресурс]. [Режим доступа]:
https://studfiles.net/preview/383532/page:2/ (вход свободный).
74
ПРИЛОЖЕНИЯ
Приложение 1
Листинг программы
//Процедура авторизации пользователя
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DataModule5.Q_AUTORIZATION.Close;
DataModule5.Q_AUTORIZATION.Active := False;
DataModule5.Q_AUTORIZATION.Parameters.ParamByName('NAME').Value :=
Edit1.Text;
DataModule5.Q_AUTORIZATION.Open;
DataModule5.Q_AUTORIZATION.Active := True;
if
DataModule5.Q_AUTORIZATION.FieldByName('Пароль_пользователя').AsStri
ng = Edit2.Text then
begin
Form2.ShowModal;
Form1.Hide;
end
else
ShowMessage('Неправильное имя пользователя и/или пароль. Повторите
попытку!!!');
end;
//Процедура экспорта в Excel
procedure TForm7.BitBtn2Click(Sender: TObject);
75
var
xlsApp, xlsBook, xlsSheet: Variant;
RowCount, NumRow, NumCol: Integer;
begin
try
//создаем объект Excel
xlsApp := CreateOleObject('Excel.Application');
except
ShowMessage('Возможно не установлен MS Excel.');
Exit;
end;
xlsApp.Visible := True;
xlsApp.DisplayAlerts := False;
try
xlsBook := xlsApp.Workbooks.Open('C:\Temp\ASUTP SALE\docs\Журнал
учета договоров');
xlsSheet := xlsBook.Worksheets.Item[1];
DataModule5.T_SALE.First;
while not DataModule5.T_SALE.Eof do
begin
xlsSheet.Cells[DataModule5.T_SALE.RecNo+1,1] :=
IntToStr(DataModule5.T_SALE.FieldByName('Номер_договора').AsInteger);
xlsSheet.Cells[DataModule5.T_SALE.RecNo+1,3] :=
DataModule5.T_SALE.FieldByName('Заказчик').AsString;
xlsSheet.Cells[DataModule5.T_SALE.RecNo+1,4] :=
IntToStr(DataModule5.T_SALE.FieldByName('Номер заявки').AsInteger);
xlsSheet.Cells[DataModule5.T_SALE.RecNo+1,5] :=
DataModule5.T_SALE.FieldByName('Стоимость').AsString;
76
xlsSheet.Cells[DataModule5.T_SALE.RecNo+1,6] :=
DataModule5.T_SALE.FieldByName('Способ оплаты').AsString;
xlsSheet.Cells[DataModule5.T_SALE.RecNo+1,7] :=
DataModule5.T_SALE.FieldByName('Статус оплаты').AsString;
xlsSheet.Cells[DataModule5.T_SALE.RecNo+1,8] :=
DataModule5.T_SALE.FieldByName('Тип договора').AsString;
DataModule5.T_SALE.Next;
end;
except
ShowMessage('Невозможно открыть файл.');
end;
xlsSheet := xlsBook.Worksheets.Item[1];
end;
//Процедуры сортировки данных
procedure TForm7.RadioButton1Click(Sender: TObject);
begin
DataModule5.T_SALE.Sort := '[Номер_договора] ASC';
end;
procedure TForm7.RadioButton2Click(Sender: TObject);
begin
DataModule5.T_SALE.Sort := '[Номер_договора] DESC';
end;
//Процедура открытия формы из главного меню
procedure TForm2.N1Click(Sender: TObject);
begin
DataModule5.T_CLIENT.Active := True;
Form6.ShowModal;
end;
77
//Процедура открытия формы для добавления данных
procedure TForm8.BitBtn4Click(Sender: TObject);
begin
_InsEdit := 0;
Form9.ShowModal;
end;
//Процедура открытия формы для редактирования данных
procedure TForm8.BitBtn5Click(Sender: TObject);
begin
_InsEdit := 1;
_App := DataModule5.T_SALE.FieldByName('Номер_заявки').AsInteger;
_Rec := DataModule5.T_SALE.FieldByName('Номер_заявки').AsInteger;
Form9.ShowModal;
end;
//Процедура активации формы для добавления и редактирования данных
procedure TForm4.FormActivate(Sender: TObject);
begin
if _InsEdit = 0 then
begin
Edit1.Text := '';
Edit3.Text := '';
Edit4.Text := '';
DateTimePicker1.Date := Date();
DBLookupComboBox1.KeyValue := null;
DBLookupComboBox2.KeyValue := null;
DBLookupComboBox3.KeyValue := null;
DBLookupComboBox4.KeyValue := null;
end;
78
if _InsEdit = 1 then
begin
Edit1.Text :=
IntToStr(DataModule5.T_SALE.FieldByName('Номер_договора').AsInteger);
DBLookupComboBox4.KeyValue :=
DataModule5.T_SALE.FieldByName('Код_заказчика').AsInteger;
Edit3.Text :=
IntToStr(DataModule5.T_SALE.FieldByName('Номер_заявки').AsInteger);
Edit4.Text :=
FloatToStr(DataModule5.T_SALE.FieldByName('Стоимость').AsFloat);
DataModule5.Q_DSALE.Active := False;
DataModule5.Q_DSALE.Close;
DataModule5.Q_DSALE.Parameters.ParamValues['ND'] := _Sale;
DataModule5.Q_DSALE.Open;
DataModule5.Q_DSALE.Active := True;
DateTimePicker1.Date :=
StrToDate(DataModule5.Q_DSALE.FieldByName('ДатаДоговора').AsString);
DBLookupComboBox1.KeyValue :=
DataModule5.T_SALE.FieldByName('Код_типа_договора').AsInteger;
DBLookupComboBox2.KeyValue :=
DataModule5.T_SALE.FieldByName('Код_способа_оплаты').AsInteger;
DBLookupComboBox3.KeyValue :=
DataModule5.T_SALE.FieldByName('Код_статуса_оплаты').AsInteger;
end;
end;
//Процедура сохранения записей при добавлении и редактировании данных
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
79
if (DBLookupComboBox1.Text = '') or (DBLookupComboBox2.Text = '') or
(DBLookupComboBox3.Text = '') then
begin
ShowMessage('Не указаны основные данные договора! Сохранение
невозможно');
Exit;
end;
if _InsEdit = 0 then
begin
DataModule5.Q_IUD.SQL.Clear;
DataModule5.Q_IUD.SQL.Add('INSERT INTO Договор
(Дата_договора,Код_заказчика,Номер_заявки,Стоимость,Код_типа_договора,
Код_способа_оплаты,Код_статуса_оплаты)');
DataModule5.Q_IUD.SQL.Add(' VALUES
(:D,:CL,:NA,:M,:TD,:SPO,:STO);');
DataModule5.Q_IUD.Prepared;
//DataModule5.Q_IUD.Parameters.ParamValues['ND'] := Edit1.Text;
DataModule5.Q_IUD.Parameters.ParamValues['D'] :=
StrToDate(FormatDateTime('dd.mm.yyyy',DateTimePicker1.Date));
DataModule5.Q_IUD.Parameters.ParamValues['CL'] :=
DBLookupComboBox4.KeyValue;
DataModule5.Q_IUD.Parameters.ParamValues['NA'] := Edit3.Text;
DataModule5.Q_IUD.Parameters.ParamValues['M'] :=
StrToFloat(Edit4.Text);
DataModule5.Q_IUD.Parameters.ParamValues['TD'] :=
DBLookupComboBox1.KeyValue;
DataModule5.Q_IUD.Parameters.ParamValues['SPO'] :=
DBLookupComboBox2.KeyValue;
80
DataModule5.Q_IUD.Parameters.ParamValues['STO'] :=
DBLookupComboBox3.KeyValue;
try
DataModule5.Q_IUD.ExecSQL;
ShowMessage('Добавление прошло успешно');
except
ShowMessage('Во время выполнения операции произошла ошибка.
Добавление не выполнено.');
end;
end;
if _InsEdit = 1 then
begin
DataModule5.Q_IUD.SQL.Clear;
DataModule5.Q_IUD.SQL.Add('UPDATE Договор SET
Дата_договора=:D,Код_заказчика=:CL,Номер_заявки=:NA,Стоимость:=M,Код
_типа_договора:=TD,Код_способа_оплаты:=SPO,Код_статуса_оплаты:=STO
');
DataModule5.Q_IUD.SQL.Add('WHERE Номер_договора = :ND;');
DataModule5.Q_IUD.Prepared;
DataModule5.Q_IUD.Parameters.ParamValues['D'] :=
StrToDate(FormatDateTime('dd.mm.yyyy',DateTimePicker1.Date));
DataModule5.Q_IUD.Parameters.ParamValues['CL'] :=
DBLookupComboBox4.KeyValue;
DataModule5.Q_IUD.Parameters.ParamValues['NA'] := Edit3.Text;
DataModule5.Q_IUD.Parameters.ParamValues['M'] :=
StrToFloat(Edit4.Text);
DataModule5.Q_IUD.Parameters.ParamValues['TD'] :=
DBLookupComboBox1.KeyValue;
81
DataModule5.Q_IUD.Parameters.ParamValues['SPO'] :=
DBLookupComboBox2.KeyValue;
DataModule5.Q_IUD.Parameters.ParamValues['STO'] :=
DBLookupComboBox3.KeyValue;
DataModule5.Q_IUD.Parameters.ParamValues['ND'] := _Sale;
try
DataModule5.Q_IUD.ExecSQL;
ShowMessage('Редактирование прошло успешно');
except
ShowMessage('Во время выполнения операции произошла ошибка.
Редактирование не выполнено.');
end;
end;
end;