128
СПИСОК
oн
ИСПОЛЬЗОВАННОЙ
oн
ЛИТЕРАТУРЫ
1. Абрамов,
oн
В.Г.;
oн
Трифонов,
oн
Н.П.
oн
и
oн
др.
oн
Введение
oн
в
oн
язык
oн
Паскаль;
oн
Наука
oн
-
oн
,
oн
2012.
oн
-
oн
320
oн
c.
2. Автоматизированные
oн
информационные
oн
технологии
oн
в
oн
экономике:
oн
Учебник/
oн
под
oн
общ.ред.
oн
И.Т.
oн
Трубилина.
oн
–
oн
М.:
oн
Финансы
oн
и
oн
статистика,
oн
2013
oн
г.
oн
–
oн
416с.;
3. Алехин,
oн
В.А.
oн
Микроконтроллеры
oн
PIC:
oн
основы
oн
программирования
oн
и
oн
моделирования
oн
в
oн
интерактивных
oн
средах
oн
MPLAB
oн
IDE,
oн
mikroC,
oн
TINA,
oн
Proteus.
oн
Практикум
oн
/
oн
В.А.
oн
Алехин.
oн
-
oн
М.:
oн
ГЛТ
oн
,
oн
2016.
oн
-
oн
248
oн
c.
4. Архангельский,
oн
А.Я.
oн
Язык
oн
Pascal
oн
и
oн
основы
oн
программирования
oн
в
oн
Delphi
oн
/
oн
А.Я.
oн
Архангельский.
oн
-
oн
М.:
oн
Бином-Пресс,
oн
2008.
oн
-
oн
496
oн
c.
5. Ашарина,
oн
И.В.
oн
Основы
oн
программирования
oн
на
oн
языках
oн
С
oн
и
oн
С++:
oн
Курс
oн
лекций
oн
для
oн
высших
oн
учебных
oн
заведений
oн
/
oн
И.В.
oн
Ашарина.
oн
-
oн
М.:
oн
ГЛТ,
oн
2012.
oн
-
oн
208
oн
c.
6. Биллиг,
oн
В.А.
oн
Основы
oн
программирования
oн
на
oн
С#:
oн
Учебное
oн
пособие
oн
/
oн
В.А.
oн
Биллиг.
oн
-
oн
М.:
oн
Бином,
oн
2012.
oн
-
oн
483
oн
c.
7. Богачев,
oн
К.Ю.
oн
Основы
oн
параллельного
oн
программирования
oн
/
oн
К.Ю.
oн
Богачев.
oн
-
oн
М.:
oн
Бином,
oн
2015.
oн
-
oн
342
oн
c.
8. Гулиа,
oн
Н.В.
oн
Основы
oн
вычислений
oн
и
oн
программирования
oн
в
oн
пакете
oн
MathCAD
oн
PRIME:
oн
Учебное
oн
пособие
oн
/
oн
Н.В.
oн
Гулиа,
oн
В.Г.
oн
Клоков,
oн
С.А.
oн
Юрков.
oн
-
oн
СПб.:
oн
Лань,
oн
2016.
oн
-
oн
224
oн
c.
9. Жук
oн
А.П.,
oн
Жук
oн
Е.П.,
oн
Лепешкин
oн
О.М.,
oн
Тимошкин
oн
А.И.
oн
Защита
oн
информации:
oн
Учебное
oн
пособие
oн
/
oн
-
oн
2-e
oн
изд.
oн
–
oн
М.:
oн
РИОР:
oн
ИНФРА-М,
oн
2015.
oн
–
oн
392
oн
с.
10. Зыков,
oн
С.В.
oн
Основы
oн
современного
oн
программирования:
oн
Учебное
oн
пособие
oн
для
oн
вузов
oн
/
oн
С.В.
oн
Зыков.
oн
-
oн
М.:
oн
ГЛТ
oн
,
oн
2012.
oн
-
oн
444
oн
c.
11. Карпов,
oн
Ю.Г.
oн
Теория
oн
и
oн
технология
oн
программирования.
oн
Основы
oн
построения
oн
трансляторов
oн
/
oн
Ю.Г.
oн
Карпов.
oн
-
oн
СПб.:
oн
БХВ-Петербург,
oн
2012.
oн
-
oн
272
oн
c.
12. Козырев
oн
А.А.
oн
Информационные
oн
технологии
oн
в
oн
экономике
oн
и
oн
управлении:
oн
Учебник.
oн
–
oн
СПб.:
oн
Изд-во
oн
Михайлова
oн
В.А.,
oн
2014
oн
г.
oн
–
oн
360с.;
13. Колдаев,
oн
В.Д.
oн
Основы
oн
алгоритмизации
oн
и
oн
программирования:
oн
Учебное
oн
пособие
oн
/
oн
В.Д.
oн
Колдаев;
oн
Под
oн
ред.
oн
Л.Г.
oн
Гагарина.
oн
-
oн
М.:
oн
ИД
oн
ФОРУМ,
oн
ИНФРА-М,
oн
2012.
oн
-
oн
416
oн
c.
129
14. Культин,
oн
Н.Б.
oн
Основы
oн
программирования
oн
в
oн
Turbo
oн
Delphi
oн
/
oн
Н.Б.
oн
Культин.
oн
-
oн
СПб.:
oн
BHV,
oн
2012.
oн
-
oн
384
oн
c.
15. Культин,
oн
Н.Б.
oн
Основы
oн
программирования
oн
в
oн
Turbo
oн
C++
oн
/
oн
Н.Б.
oн
Культин.
oн
-
oн
СПб.:
oн
BHV,
oн
2013.
oн
-
oн
464
oн
c.
16. Кундиус,
oн
В.А.
oн
Теоретические
oн
основы
oн
разработки
oн
и
oн
реализации
oн
языков
oн
программирования
oн
/
oн
В.А.
oн
Кундиус.
oн
-
oн
М.:
oн
КноРус,
oн
2013.
oн
-
oн
184
oн
c.
17. Маркин,
oн
А.В.
oн
Основы
oн
web-программирования
oн
на
oн
PHP
oн
/
oн
А.В.
oн
Маркин,
oн
С.С.
oн
Шкарин.
oн
-
oн
М.:
oн
Диалог-МИФИ,
oн
2012.
oн
-
oн
252
oн
c.
18. Окулов,
oн
С.М.
oн
Основы
oн
программирования,
oн
перераб
oн
/
oн
С.М.
oн
Окулов.
oн
-
oн
М.:
oн
Бином,
oн
2015.
oн
-
oн
336
oн
c.
19. Окулов,
oн
С.М.
oн
Основы
oн
программирования
oн
/
oн
С.М.
oн
Окулов.
oн
-
oн
М.:
oн
Бином.
oн
Лаборатория
oн
знаний,
oн
2012.
oн
-
oн
336
oн
c.
20. Семакин,
oн
И.Г.
oн
Основы
oн
алгоритмизации
oн
и
oн
программирования:
oн
Учебник
oн
для
oн
студ.
oн
учреждений
oн
сред.
oн
проф.
oн
образования
oн
/
oн
И.Г.
oн
Семакин,
oн
А.П.
oн
Шестаков.
oн
-
oн
М.:
oн
ИЦ
oн
Академия,
oн
2012.
oн
-
oн
400
oн
c.
21. Фридман,
oн
А.
oн
Основы
oн
объектно-ориентированного
oн
программирования
oн
на
oн
языке
oн
СИ++
oн
/
oн
А.
oн
Фридман.
oн
-
oн
М.:
oн
Горячая
oн
линия
oн
-Телеком,
oн
2012.
oн
-
oн
234
oн
c.
22. Хендерсон
oн
Руководство
oн
разработчика
oн
баз
oн
данных
oн
в
oн
Delphi
oн
2
oн
/
oн
Хендерсон,
oн
Кен.
oн
-
oн
М.:
oн
Диалектика,
oн
2012.
oн
-
oн
544
oн
c.
23. Черпаков,
oн
И.В.
oн
Основы
oн
программирования:
oн
Учебник
oн
и
oн
практикум
oн
для
oн
СПО
oн
/
oн
И.В.
oн
Черпаков.
oн
-
oн
Люберцы:
oн
Юрайт,
oн
2016.
oн
-
oн
219
oн
c.
130
ПРИЛОЖЕНИЯ
Листинг
oн
разработанной
oн
программы.
Главный
oн
модуль
oн
приложения
unit
oн
MainClients;
interface
uses
oн
oн
Windows,
oн
Messages,
oн
SysUtils,
oн
Variants,
oн
Classes,
oн
Graphics,
oн
Controls,
oн
Forms,
oн
oн
Dialogs,
oн
Menus,
oн
DB,
oн
ADODB,
oн
IniFiles,
oн
Grids,
oн
DBGrids,DBDirectoryTemplate,
oн
oн
addsorce,
oн
DateUtils,
oн
parampoisk,
oн
jpeg,
oн
ExtCtrls,
oн
ToolWin,
oн
ComCtrls,
oн
StdCtrls,
oн
oн
Buttons;
type
oн
oн
TMainClientsForm
oн
=
oн
class(TForm)
oн
oн
oн
oн
ADOConnection1:
oн
TADOConnection;
oн
oн
oн
oн
ADOTable1:
oн
TADOTable;
oн
oн
oн
oн
MainMenu1:
oн
TMainMenu;
oн
oн
oн
oн
N1:
oн
TMenuItem;
oн
oн
oн
oн
N2:
oн
TMenuItem;
oн
oн
oн
oн
N3:
oн
TMenuItem;
oн
oн
oн
oн
N4:
oн
TMenuItem;
oн
oн
oн
oн
N5:
oн
TMenuItem;
oн
oн
oн
oн
N6:
oн
TMenuItem;
oн
oн
oн
oн
N7:
oн
TMenuItem;
oн
oн
oн
oн
N8:
oн
TMenuItem;
oн
oн
oн
oн
N9:
oн
TMenuItem;
oн
oн
oн
oн
N10:
oн
TMenuItem;
oн
oн
oн
oн
N11:
oн
TMenuItem;
oн
oн
oн
oн
N12:
oн
TMenuItem;
oн
oн
oн
oн
N13:
oн
TMenuItem;
oн
oн
oн
oн
N14:
oн
TMenuItem;
oн
oн
oн
oн
N15:
oн
TMenuItem;
oн
oн
oн
oн
N16:
oн
TMenuItem;
oн
oн
oн
oн
N17:
oн
TMenuItem;
oн
oн
oн
oн
N19:
oн
TMenuItem;
oн
oн
oн
oн
DataSource1:
oн
TDataSource;
oн
oн
oн
oн
ADOTable2:
oн
TADOTable;
oн
oн
oн
oн
ADOTable3:
oн
TADOTable;
oн
oн
oн
oн
ADOTable4:
oн
TADOTable;
oн
oн
oн
oн
ADOTable5:
oн
TADOTable;
oн
oн
oн
oн
ADOTable6:
oн
TADOTable;
131
oн
oн
oн
oн
ADOTable7:
oн
TADOTable;
oн
oн
oн
oн
N20:
oн
TMenuItem;
oн
oн
oн
oн
N21:
oн
TMenuItem;
oн
oн
oн
oн
N22:
oн
TMenuItem;
oн
oн
oн
oн
ADOQuery1:
oн
TADOQuery;
oн
oн
oн
oн
ADOQuery2:
oн
TADOQuery;
oн
oн
oн
oн
N18:
oн
TMenuItem;
oн
oн
oн
oн
ADOTable8:
oн
TADOTable;
oн
oн
oн
oн
Image1:
oн
TImage;
oн
oн
oн
oн
N23:
oн
TMenuItem;
oн
oн
oн
oн
ToolBar1:
oн
TToolBar;
oн
oн
oн
oн
ComboBox1:
oн
TComboBox;
oн
oн
oн
oн
SpeedButton1:
oн
TSpeedButton;
oн
oн
oн
oн
SpeedButton2:
oн
TSpeedButton;
oн
oн
oн
oн
SpeedButton3:
oн
TSpeedButton;
oн
oн
oн
oн
SpeedButton4:
oн
TSpeedButton;
oн
oн
oн
oн
SpeedButton5:
oн
TSpeedButton;
oн
oн
oн
oн
SpeedButton6:
oн
TSpeedButton;
oн
oн
oн
oн
Label1:
oн
TLabel;
oн
oн
oн
oн
procedure
oн
N23Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
SpeedButton6Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
SpeedButton5Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
SpeedButton4Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
SpeedButton3Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
SpeedButton2Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
SpeedButton1Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
ComboBox1Change(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N12Click(Sender:
oн
TObject);
oн
oн
oн
oн
oн
function
oн
IsMDIChildOpen(const
oн
AFormName:
oн
TForm;
oн
const
oн
AMDIChildName
oн
:
oн
string):
oн
Boolean;
oн
oн
oн
oн
oн
function
oн
IsFormOpen(const
oн
FormName
oн
:
oн
string):
oн
Boolean;
oн
oн
oн
oн
procedure
oн
N6Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N7Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N8Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N9Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N10Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N20Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N21Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N22Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
FormCreate(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N3Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
DataSource1DataChange(Sender:
oн
TObject;
oн
Field:
oн
TField);
oн
oн
oн
oн
procedure
oн
N4Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N14Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N15Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N16Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N17Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N11Click(Sender:
oн
TObject);
132
oн
oн
oн
oн
procedure
oн
N19Click(Sender:
oн
TObject);
oн
oн
oн
oн
procedure
oн
N18Click(Sender:
oн
TObject);
oн
oн
private
oн
oн
oн
oн
{
oн
Private
oн
declarations
oн
}
oн
oн
oн
oн
oн
procedure
oн
BuildGridDatabaseDirectoryItem(sCaption:String;
oн
ds:TDataSource);
oн
oн
public
oн
oн
oн
oн
{
oн
Public
oн
declarations
oн
}
oн
oн
end;
var
oн
oн
MainClientsForm:
oн
TMainClientsForm;
oн
oн
nastr:tinifile;
oн
oн
DirectoryForm
oн
oн
:
oн
TDBDirectoryTemplateForm;
oн
oн
prosmForm:
oн
Taddform;
oн
oн
mainflag:boolean;
oн
oн
nomer_poisk:word;
oн
oн
oн
oн
idLocation,
oн
idAddional,
oн
idZapas,
oн
idPartiya:integer;
implementation
{$R
oн
*.dfm}
function
oн
TMainClientsForm.IsMDIChildOpen(const
oн
AFormName:
oн
TForm;
oн
const
oн
AMDIChildName
oн
:
oн
string):
oн
Boolean;
oн
var
oн
oн
oн
i:
oн
Integer;
oн
begin
oн
oн
oн
Result
oн
:=
oн
False;
oн
oн
oн
for
oн
i
oн
:=
oн
Pred(AFormName.MDIChildCount)
oн
DownTo
oн
0
oн
do
oн
oн
oн
oн
oн
if
oн
(AFormName.MDIChildren[i].Name
oн
=
oн
AMDIChildName)
oн
then
oн
oн
oн
oн
oн
begin
oн
oн
oн
oн
oн
oн
oн
Result
oн
:=
oн
True;
oн
oн
oн
oн
oн
oн
oн
AFormName.MDIChildren[i].Free;
oн
oн
oн
oн
oн
oн
//
oн
Break;
oн
oн
oн
oн
oн
end;
oн
end;
oн
function
oн
TMainClientsForm.IsFormOpen(const
oн
FormName
oн
:
oн
string):
oн
Boolean;
oн
var
oн
oн
oн
i:
oн
Integer;
oн
begin
oн
oн
oн
Result
oн
:=
oн
False;
oн
oн
oн
for
oн
i
oн
:=
oн
Screen.FormCount
oн
-
oн
1
oн
DownTo
oн
0
oн
do
oн
oн
oн
oн
oн
if
oн
(Screen.Forms[i].Name
oн
=
oн
FormName)
oн
then
oн
oн
oн
oн
oн
begin
oн
oн
oн
oн
oн
oн
oн
Result
oн
:=
oн
True;
oн
oн
oн
oн
oн
oн
oн
Break;
oн
oн
oн
oн
oн
end;
133
oн
oн
end;
oн
oн
oн
procedure
oн
TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String;
oн
ds:TDataSource);
oн
oн
oн
oн
begin
oн
oн
oн
oн
oн
oн
oн
oн
//создаем
oн
форму
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner);
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
DirectoryForm.TableDBGrid.DataSource:=ds;
oн
oн
oн
DirectoryForm.Top:=0;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
DirectoryForm.Left:=0;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
DirectoryForm.Caption:=sCaption;
oн
oн
oн
oн
end;
procedure
oн
TMainClientsForm.N12Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
MainClientsForm.Close;
end;
procedure
oн
TMainClientsForm.N6Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
oн
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;
mainclientsform.ADOTable1.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('товары',
oн
mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД.№
oн
товар';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Наименование';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ид.размещения';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ид.дополн.
oн
информации';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ид.
oн
запасов';
end;
procedure
oн
TMainClientsForm.N7Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;
mainclientsform.ADOTable2.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('план
oн
доставки',
oн
mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='дата';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ид.
oн
товара';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='откуда';
134
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='цель';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='количество';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='стоимость';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='лицо';
DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='№
oн
заказа';
DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='статус';
DirectoryForm.TableDBGrid.Fields[10].DisplayLabel:='№
oн
покупателя';
DirectoryForm.TableDBGrid.Fields[11].DisplayLabel:='№
oн
курьера';
end;
procedure
oн
TMainClientsForm.N8Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;
mainclientsform.ADOTable3.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('запасы
oн
товара',
oн
mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№
oн
записи';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='ед.
oн
измерения';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='количество';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='стоимость';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='резерв.
oн
кол.';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='кто
oн
резерв.';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='дата
oн
резерв.';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='примечание';
end;
procedure
oн
TMainClientsForm.N9Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;
mainclientsform.ADOTable4.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('заказы
oн
на
oн
товар',
oн
mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№
oн
заказа';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='дата';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='заказчик';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='№
oн
товара';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='количество';
end;
procedure
oн
TMainClientsForm.SpeedButton1Click(Sender:
oн
TObject);
135
begin
oн
oн
oн
oн
mainClientsForm.N18.Click;
end;
procedure
oн
TMainClientsForm.SpeedButton2Click(Sender:
oн
TObject);
begin
oн
oн
oн
mainClientsForm.N6.Click;
end;
procedure
oн
TMainClientsForm.SpeedButton3Click(Sender:
oн
TObject);
begin
oн
mainClientsForm.N21.Click;
end;
procedure
oн
TMainClientsForm.SpeedButton4Click(Sender:
oн
TObject);
begin
oн
mainClientsForm.N19.Click;
end;
procedure
oн
TMainClientsForm.SpeedButton5Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
oн
mainClientsForm.N7.Click;
end;
procedure
oн
TMainClientsForm.SpeedButton6Click(Sender:
oн
TObject);
begin
oн
oн
oн
mainClientsForm.N22.Click;
end;
procedure
oн
TMainClientsForm.N10Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
oн
oн
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;
mainclientsform.ADOTable5.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Размещение
oн
товаров',
oн
mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№
oн
записи';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='место
oн
на
oн
складе';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='уточнение
oн
размещение';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='примечание';
end;
procedure
oн
TMainClientsForm.N20Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
136
oн
oн
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;
mainclientsform.ADOTable6.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Дополнительные
oн
сведения
oн
о
oн
товарах',
oн
mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№
oн
записи';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='серийный
oн
номер';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='характеристика';
end;
procedure
oн
TMainClientsForm.N21Click(Sender:
oн
TObject);
begin
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;
mainclientsform.ADOTable7.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Сведения
oн
о
oн
курьерах',
oн
mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№
oн
';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='фамилия';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='имя';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='статус';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='телефон';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='примечание';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='район';
end;
procedure
oн
TMainClientsForm.N22Click(Sender:
oн
TObject);
oн
oн
begin
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
oн
oн
oн
oн
oн
oн
oн
MainClientsForm.N6Click(sender);
oн
oн
oн
oн
oн
prosmForm:=Taddform.Create(Owner);
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.Top:=230;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.Left:=0;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.Width:=500;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.Height:=200;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.Caption:='просмотр
oн
записей';
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.DBNavigator1.Visible:=true;
oн
oн
oн
oн
oн
oн
mainflag:=true;
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.Show;
oн
oн
oн
oн
oн
oн
oн
prosmForm.Button1.Visible:=false;
137
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.GroupBox3.Visible:=false;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.GroupBox4.Visible:=false;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
prosmForm.GroupBox5.Visible:=false;
oн
oн
oн
oн
oн
oн
MainClientsForm.DataSource1.DataSet.last
oн
oн
oн
oн
oн
oн
end;
procedure
oн
TMainClientsForm.N23Click(Sender:
oн
TObject);
var
oн
oн
oн
oн
oн
oн
dobForm:
oн
Taddform;
begin
oн
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
dobForm:=Taddform.Create(Owner);
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.Top:=240;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.Left:=3;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.Caption:='добавление
oн
записи';
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.Show;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.Button1.Visible:=true;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.GroupBox1.Visible:=false;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.GroupBox3.Visible:=false;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.GroupBox4.Visible:=false;
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.GroupBox2.Visible:=false;
end;
procedure
oн
TMainClientsForm.FormCreate(Sender:
oн
TObject);
oн
oн
oн
oн
var
oн
NewConnection:
oн
Widestring;
begin
NewConnection
oн
:=
oн
PromptDataSource(Handle,
oн
MainClientsForm.ADOConnection1.Connectionstring);
MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;
MainClientsForm.ADOConnection1.Connected:=true;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable6.Active:=true;
MainClientsForm.ADOTable7.Active:=true;
oн
oн
MainClientsForm.ADOTable8.Active:=true;
end;
procedure
oн
TMainClientsForm.N3Click(Sender:
oн
TObject);
var
oн
oн
oн
oн
oн
oн
dobForm:
oн
Taddform;
begin
oн
oн
oн
oн
oн
oн
oн
oн
mainflag:=false;
oн
oн
oн
oн
oн
oн
oн
IsMDIChildOpen(MainClientsForm,'addForm');
oн
oн
oн
oн
oн
dobForm:=Taddform.Create(Owner);
oн
oн
oн
oн
oн
oн
oн
oн
oн
oн
dobForm.Top:=240;