Диплом: Автоматизация процесса ведения документации в ООО "ЭКСПРЕСС", страницы 132-138

138

oн

dobForm.Left:=3;

oн

dobForm.Caption:='добавление

oн

записи';

oн

dobForm.Show;

oн

dobForm.Button1.Visible:=true;

oн

dobForm.GroupBox1.Visible:=false;

oн

dobForm.GroupBox3.Visible:=false;

oн

dobForm.GroupBox4.Visible:=false;

oн

dobForm.GroupBox5.Visible:=false;

end;

procedure

oн

TMainClientsForm.ComboBox1Change(Sender:

oн

TObject);

begin

if

oн

mainClientsForm.ComboBox1.ItemIndex=0

oн

then

oн

mainClientsForm.N6.Click;

if

oн

mainClientsForm.ComboBox1.ItemIndex=1

oн

then

oн

mainClientsForm.N7.Click;

if

oн

mainClientsForm.ComboBox1.ItemIndex=2

oн

then

oн

mainClientsForm.N8.Click;

if

oн

mainClientsForm.ComboBox1.ItemIndex=3

oн

then

oн

mainClientsForm.N9.Click;

if

oн

mainClientsForm.ComboBox1.ItemIndex=4

oн

then

oн

mainClientsForm.N10.Click;

if

oн

mainClientsForm.ComboBox1.ItemIndex=5

oн

then

oн

mainClientsForm.N20.Click;

if

oн

mainClientsForm.ComboBox1.ItemIndex=6

oн

then

oн

mainClientsForm.N21.Click;

if

oн

mainClientsForm.ComboBox1.ItemIndex=7

oн

then

oн

mainClientsForm.N18.Click;

end;

procedure

oн

TMainClientsForm.DataSource1DataChange(Sender:

oн

TObject;

oн

Field:

oн

TField);

oн

var

oн

sql_str,rez:string;

oн

P11:Tparameter;

oн

rezdate:tdatetime;

oн

rezint:integer;

oн

rezfloat:real;

oн

Ayear,

oн

amonth,aday,ahour,aminute,asecond,amillisecond:word;

begin

if

oн

mainflag

oн

then

begin

oн

prosmForm.edit1.text:='';

oн

prosmForm.edit2.text:='';

oн

prosmForm.edit3.text:='';

oн

prosmForm.edit5.text:='';

oн

prosmForm.edit9.text:='1';

oн

prosmForm.edit10.text:='1';

oн

prosmForm.edit11.text:='2011';

oн

prosmForm.edit14.text:='';

oн

prosmForm.edit15.text:='';

oн

prosmForm.edit16.text:='';

oн

prosmForm.edit18.text:='';

oн

prosmForm.edit19.text:='';

oн

prosmForm.edit20.text:='';

oн

prosmForm.edit21.text:='';

139

oн

prosmForm.edit22.text:='';

oн

prosmForm.edit23.text:='';

oн

//из

oн

таблицы

prosmForm.Edit1.Text:=MainClientsForm.DataSource1.DataSet.FieldByName('nameTo

var').AsString;

idLocation:=MainClientsForm.DataSource1.DataSet.FieldByName('idLocation').AsInteg

er;

oн

;

idAddional:=MainClientsForm.DataSource1.DataSet.FieldByName('idAddional').AsInte

ger;

oн

;

idZapas:=MainClientsForm.DataSource1.DataSet.FieldByName('idZapas').AsInteger;

oн

;

oн

//

oн

размещение

oн

sql_str:='SELECT

oн

*

oн

from

oн

Location

oн

where

oн

idLocation=

oн

:P11';

oн

MainClientsForm.ADOQuery1.Active:=false;

oн

MainClientsForm.ADOQuery1.SQL.Clear;

oн

P11

oн

:=mainclientsform.ADOQuery1.Parameters.AddParameter;

oн

P11.Name:='P11';

oн

p11.DataType

oн

:=

oн

ftinteger;

oн

P11.Value:=idLocation;

oн

P11.Size:=4;

oн

MainClientsForm.ADOQuery1.SQL.Add(sql_str);

oн

MainClientsForm.ADOQuery1.Active:=true;

oн

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName('Location').AsString;

oн

prosmForm.Edit14.Text:=rez;

oн

rez:=MainClientsForm.ADOQuery1.FieldByName('addional_location').AsString;

oн

prosmForm.Edit15.Text:=rez;

oн

rez:=MainClientsForm.ADOQuery1.FieldByName('notes').AsString;

oн

prosmForm.Edit16.Text:=rez;

oн

//

oн

дополнительные

oн

сведения

oн

sql_str:='SELECT

oн

*

oн

from

oн

Addional

oн

where

oн

idAddional=

oн

:P11';

oн

MainClientsForm.ADOQuery1.Active:=false;

oн

MainClientsForm.ADOQuery1.SQL.Clear;

oн

P11

oн

:=mainclientsform.ADOQuery1.Parameters.AddParameter;

oн

P11.Name:='P11';

oн

p11.DataType

oн

:=

oн

ftinteger;

oн

P11.Value:=

oн

idAddional;

oн

P11.Size:=4;

oн

MainClientsForm.ADOQuery1.SQL.Add(sql_str);

oн

MainClientsForm.ADOQuery1.Active:=true;

oн

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName('Ser_num').AsString;

oн

prosmForm.Edit5.Text:=rez;

oн

rez:=MainClientsForm.ADOQuery1.FieldByName('kharakt').AsString;

oн

prosmForm.Edit8.Text:=rez;

oн

//

oн

запасы

oн

sql_str:='SELECT

oн

*

oн

from

oн

zapas

oн

where

oн

idzapas=

oн

:P11';

140

oн

MainClientsForm.ADOQuery1.Active:=false;

oн

MainClientsForm.ADOQuery1.SQL.Clear;

oн

P11

oн

:=mainclientsform.ADOQuery1.Parameters.AddParameter;

oн

P11.Name:='P11';

oн

p11.DataType

oн

:=

oн

ftinteger;

oн

P11.Value:=

oн

idzapas;

oн

P11.Size:=4;

oн

MainClientsForm.ADOQuery1.SQL.Add(sql_str);

oн

MainClientsForm.ADOQuery1.Active:=true;

oн

MainClientsForm.ADOQuery1.ExecSQL;

oн

rez:=MainClientsForm.ADOQuery1.FieldByName('Izmerenie').AsString;

oн

prosmForm.ComboBox1.Text:=rez;

oн

rezint:=

oн

MainClientsForm.ADOQuery1.FieldByName('zapas').AsInteger;

oн

prosmForm.Edit2.Text:=inttostr(

oн

rezint);

oн

rezfloat:=

oн

MainClientsForm.ADOQuery1.FieldByName('stoimost').AsFloat;

oн

prosmForm.Edit3.Text:=floattostr(

oн

rezfloat);

oн

rez:=MainClientsForm.ADOQuery1.FieldByName('rezerv_name').AsString;

oн

prosmForm.Edit19.Text:=rez;

oн

rez:=MainClientsForm.ADOQuery1.FieldByName('rezerv_prim').AsString;

oн

prosmForm.Edit23.Text:=rez;

oн

rezint:=

oн

MainClientsForm.ADOQuery1.FieldByName('rezerv_kol').AsInteger;

oн

prosmForm.Edit18.Text:=inttostr(

oн

rezint);

oн

rezdate:=

oн

MainClientsForm.ADOQuery1.FieldByName('rezerv_date').AsDateTime;

oн

decodedatetime(rezdate,Ayear,

oн

amonth,aday,ahour,aminute,asecond,amillisecond);

oн

aday:=1;

oн

amonth:=1;

oн

Ayear:=0;

oн

if

oн

Ayear>2000

oн

then

oн

begin

oн

prosmForm.Edit20.Text:=inttostr(aday);

oн

prosmForm.Edit21.Text:=inttostr(amonth);

oн

prosmForm.Edit22.Text:=inttostr(Ayear);

oн

end;

procedure

oн

TMainClientsForm.N4Click(Sender:

oн

TObject);

var

oн

zakForm:

oн

Taddform;

begin

oн

mainflag:=false;

oн

IsMDIChildOpen(MainClientsForm,'zakForm');

oн

IsMDIChildOpen(MainClientsForm,'addForm');

oн

zakForm:=Taddform.Create(Owner);

oн

zakForm.Top:=240;

oн

zakForm.Left:=3;

oн

zakForm.Caption:='создание

oн

заказа';

141

oн

zakForm.Show;

oн

zakForm.Button1.Visible:=true;

oн

zakForm.GroupBox1.Visible:=false;

oн

zakForm.GroupBox2.Visible:=false;

oн

zakForm.GroupBox4.Visible:=false;

oн

zakForm.GroupBox5.Visible:=false;

oн

zakForm.GroupBox3.Left:=2;

oн

zakForm.GroupBox3.Top:=2;

end;

procedure

oн

TMainClientsForm.N14Click(Sender:

oн

TObject);

var

oн

poisk:Tparampoik;

begin

oн

IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');

oн

IsMDIChildOpen(MainClientsForm,'addform');

oн

IsMDIChildOpen(MainClientsForm,'parampoik');

oн

poisk:=Tparampoik.Create(Owner);

oн

poisk.Left:=530;

oн

poisk.Top:=3;

oн

poisk.Width:=300;

oн

poisk.Caption:='поиск

oн

наличия

oн

товара';

oн

nomer_poisk:=1;

oн

poisk.Label2.Visible:=false;

oн

poisk.Label3.Visible:=false;

oн

poisk.Label7.Visible:=false;

oн

poisk.Edit2.Visible:=false;

oн

poisk.Edit3.Visible:=false;

oн

poisk.Edit4.Visible:=false;

oн

poisk.Edit5.Visible:=false;

oн

poisk.Edit6.Visible:=false;

oн

poisk.Edit7.Visible:=false;

oн

poisk.UpDown1.Visible:=false;

oн

poisk.UpDown2.Visible:=false;

oн

poisk.UpDown3.Visible:=false;

oн

poisk.UpDown4.Visible:=false;

end;

procedure

oн

TMainClientsForm.N15Click(Sender:

oн

TObject);

var

oн

poisk:Tparampoik;

begin

oн

IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');

oн

IsMDIChildOpen(MainClientsForm,'addform');

oн

IsMDIChildOpen(MainClientsForm,'parampoik');

oн

poisk:=Tparampoik.Create(Owner);

oн

poisk.Left:=530;

oн

poisk.Top:=3;

oн

poisk.Width:=300;

oн

poisk.Caption:='Поиск

oн

свободных

oн

курьеров';

142

oн

nomer_poisk:=2;

oн

poisk.Edit1.Visible:=false;

oн

poisk.Label1.Visible:=false;

poisk.Label3.Visible:=false;

oн

poisk.Label2.Visible:=false;

oн

poisk.Label2.Visible:=false;

oн

poisk.Label3.Visible:=false;

oн

poisk.Label7.Visible:=false;

oн

poisk.Edit2.Visible:=false;

oн

poisk.Edit3.Visible:=false;

oн

poisk.Edit4.Visible:=false;

oн

poisk.Edit5.Visible:=false;

oн

poisk.Edit6.Visible:=false;

oн

poisk.Edit7.Visible:=false;

oн

poisk.UpDown1.Visible:=false;

oн

poisk.UpDown2.Visible:=false;

oн

poisk.UpDown3.Visible:=false;

oн

poisk.UpDown4.Visible:=false;

oн

end;

procedure

oн

TMainClientsForm.N16Click(Sender:

oн

TObject);

var

oн

poisk:Tparampoik;

begin

oн

IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');

oн

IsMDIChildOpen(MainClientsForm,'addform');

oн

IsMDIChildOpen(MainClientsForm,'parampoik');

oн

poisk:=Tparampoik.Create(Owner);

oн

poisk.Left:=530;

oн

poisk.Top:=3;

oн

poisk.Width:=300;

oн

poisk.Caption:='поиск

oн

размещения

oн

товара';

oн

nomer_poisk:=3;

oн

poisk.Label2.Visible:=false;

oн

poisk.Label3.Visible:=false;

oн

poisk.Label7.Visible:=false;

oн

poisk.Edit2.Visible:=false;

oн

poisk.Edit3.Visible:=false;

oн

poisk.Edit4.Visible:=false;

oн

poisk.Edit5.Visible:=false;

oн

poisk.Edit6.Visible:=false;

oн

poisk.Edit7.Visible:=false;

oн

poisk.UpDown1.Visible:=false;

oн

poisk.UpDown2.Visible:=false;

oн

poisk.UpDown3.Visible:=false;

oн

poisk.UpDown4.Visible:=false;

143

oн

end;

procedure

oн

TMainClientsForm.N17Click(Sender:

oн

TObject);

var

oн

poisk:Tparampoik;

begin

oн

IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');

oн

IsMDIChildOpen(MainClientsForm,'addform');

oн

IsMDIChildOpen(MainClientsForm,'parampoik');

oн

poisk:=Tparampoik.Create(Owner);

oн

poisk.Left:=530;

oн

poisk.Top:=3;

oн

poisk.Width:=300;

oн

poisk.Caption:='просмотр

oн

доставок';

oн

nomer_poisk:=4;

oн

poisk.Label1.Visible:=false;

oн

poisk.Edit1.Visible:=false;

oн

poisk.Label7.Caption:='Доставки

oн

в

oн

период'

oн

end;

procedure

oн

TMainClientsForm.N11Click(Sender:

oн

TObject);

var

oн

naklForm:

oн

Taddform;

begin

oн

mainflag:=false;

oн

IsMDIChildOpen(MainClientsForm,'naklForm');

oн

IsMDIChildOpen(MainClientsForm,'addForm');

oн

naklForm:=Taddform.Create(Owner);

oн

naklForm.Top:=240;

oн

naklForm.Left:=3;

oн

naklForm.Caption:='создание

oн

доставки';

oн

naklForm.Show;

oн

naklForm.GroupBox1.Visible:=false;

oн

naklForm.GroupBox2.Visible:=false;

oн

naklForm.GroupBox3.Visible:=false;

oн

naklForm.GroupBox5.Visible:=false;

oн

naklForm.GroupBox4.Left:=2;

oн

naklForm.GroupBox4.Top:=2;

oн

naklForm.GroupBox4.Width:=600;

oн

naklForm.GroupBox4.Height:=250;

end;

procedure

oн

TMainClientsForm.N19Click(Sender:

oн

TObject);

var

oн

poisk:Tparampoik;

begin

oн

IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');

144

oн

IsMDIChildOpen(MainClientsForm,'addform');

oн

IsMDIChildOpen(MainClientsForm,'parampoik');

oн

poisk:=Tparampoik.Create(Owner);

oн

poisk.Left:=530;

oн

poisk.Top:=3;

oн

poisk.Width:=300;

oн

poisk.Caption:='назначение

oн

курьера';

oн

nomer_poisk:=5;

oн

poisk.Label2.Visible:=false;

oн

poisk.Label3.Visible:=false;

oн

poisk.Label7.Visible:=false;

oн

poisk.Edit2.Visible:=false;

oн

poisk.Edit3.Visible:=false;

oн

poisk.Edit4.Visible:=false;

oн

poisk.Edit5.Visible:=false;

oн

poisk.Edit6.Visible:=false;

oн

poisk.Edit7.Visible:=false;

oн

poisk.UpDown1.Visible:=false;

oн

poisk.UpDown2.Visible:=false;

oн

poisk.UpDown3.Visible:=false;

oн

poisk.UpDown4.Visible:=false;

oн

poisk.Label1.Caption:='номер

oн

в

oн

плане

oн

доставки';

oн

poisk.Button1.Caption:='Распределение'

oн

end;

procedure

oн

TMainClientsForm.N18Click(Sender:

oн

TObject);

begin

oн

IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');

oн

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;

mainclientsform.ADOTable8.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem('покупатели',

oн

mainclientsform.DataSource1);

DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД.№

oн

покупателя';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Ф.И.О.

oн

/

oн

Наименование

oн

организации';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Адрес';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Банковские

oн

реквизиты';

{DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ид.

oн

запасов';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='ид.

oн

партии';}

end;

end.

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)