Разработка автоматизированной системы администрирования малого торгового Интернет-предприятия

Clear;

sql.Add ('update contrag set tel='+form1.Rzlbl1.Caption+trim (RZedt3.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update contrag set fio='+form1.Rzlbl1.Caption+trim (RZedt4.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update contrag set email='+form1.Rzlbl1.Caption+trim (RZedt5.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('select * from contrag order by code');

active:=true;

end;

showmessage ('Готово');

end;

end.

unit Unit12;

interface.

uses.

type.

TForm12 = class (TForm).

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Rzlbl1: TRzlbl;

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

Rzlbl4: TRzlbl;

DBText1: TDBText;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Rzlbl5: TRzlbl;

DBText5: TDBText;

Rzlbl6: TRzlbl;

DBText6: TDBText;

Rzlbl7: TRzlbl;

DBText7: TDBText;

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form12: TForm12;

implementation.

uses Unit1, Unit13, Unit14;

{$R *.dfm}.

prcedure TForm12. BitBtn1Click (Sender: TObject);

var i: integer;

begin.

form13.ComboBox1.clear;

with form1. ADQR2 do.

begin.

close;

sql.Clear;

sql.Add ('select * from groups');

open;

end;

for i:=1 to form1. ADQR2.RecordCount do.

begin.

form13.ComboBox1.Items.Add (trim (form1.ADQR2name.AsString));

form1.ADQR2.next;

end;

form13.RZedt1.Clear;

form13.RZedt2.Clear;

form13.Show;

end;

prcedure TForm12. BitBtn2Click (Sender: TObject);

var i: integer;

begin.

form14.ComboBox1.clear;

with form1. ADQR2 do.

begin.

close;

sql.Clear;

sql.Add ('select * from groups');

open;

end;

for i:=1 to form1. ADQR2.RecordCount do.

begin.

form14.ComboBox1.Items.Add (trim (form1.ADQR2name.AsString));

form1.ADQR2.next;

end;

with form1. ADQR2 do.

begin.

close;

sql.Clear;

sql.Add ('select * from groups where code='+form1.ADQR5group.AsString);

open;

end;

form14.ComboBox1.Text:=form1.ADQR2name.AsString;

with form14 do.

begin.

RZedt1.Text:=form1.ADQR5name.AsString;

RZedt2.Text:=form1.ADQR5litr.AsString;

RZedt3.Text:=form1.ADQR5proisv.AsString;

RZedt4.Text:=form1.ADQR5zena1.AsString;

RZedt5.Text:=form1.ADQR5zena2.AsString;

show;

end;

end;

end.

unit Unit13;

interface.

uses.

type.

TForm13 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

ComboBox1: TComboBox;

Rzlbl3: TRzlbl;

RZedt2: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Rzlbl4: TRzlbl;

RZedt3: TRZedt;

Rzlbl5: TRzlbl;

RZedt4: TRZedt;

Rzlbl6: TRzlbl;

RZedt5: TRZedt;

Rzlbl7: TRzlbl;

RZedt6: TRZedt;

prcedure ComboBox1Select (Sender: TObject);

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form13: TForm13;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm13. ComboBox1Select (Sender: TObject);

begin.

with form1. ADQR2 do.

begin.

close;

sql.Clear;

sql.Add ('select * from groups where name='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

end;

prcedure TForm13. BitBtn1Click (Sender: TObject);

var code, i: integer;

begin.

form1.ADQR5.First;

if form1. ADQR5.RecordCount>0 then code:=form1.ADQR5code.AsInteger else code:=0;

for i:=1 to form1. ADQR5.RecordCount do.

begin.

if code<form1.ADQR5code.AsInteger then code:=form1.ADQR5code.AsInteger;

form1.ADQR5.Next;

end;

form1.ADQR5.AppendRecord ([code+1,RZedt1.Text, form1. ADQR2code.AsInteger, RZedt2. Text, RZedt3. Text, RZedt4. Text, RZedt5. Text]);

form1.ADQR10.Open;

form1.ADQR10.AppendRecord ([code+1,0,form1.ADQR2code.AsString]);

showmessage ('Записано');

end;

end.

unit Unit14;

interface.

uses.

type.

TForm14 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

ComboBox1: TComboBox;

Rzlbl3: TRzlbl;

RZedt2: TRZedt;

Rzlbl4: TRzlbl;

RZedt3: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Rzlbl5: TRzlbl;

RZedt4: TRZedt;

Rzlbl6: TRzlbl;

RZedt5: TRZedt;

prcedure BitBtn1Click (Sender: TObject);

prcedure ComboBox1Select (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form14: TForm14;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm14. BitBtn1Click (Sender: TObject);

var code: integer;

begin.

with form1. ADQR2 do.

begin.

close;

sql.Clear;

sql.Add ('select * from groups where name='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

code:=form1.ADQR5code.AsInteger;

with form1. ADQR5 do.

begin.

close;

sql.Clear;

sql.Add ('update goods set name='+form1.Rzlbl1.Caption+trim (RZedt1.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

{ close;

sql.Clear;

sql.Add ('update goods set group='+form1.ADQR2code.AsString+' where code='+inttostr (code));

execsql;

} close;

sql.Clear;

sql.Add ('update goods set litr='+trim (RZedt2.Text)+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update goods set zena1='+trim (RZedt4.Text)+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update goods set zena2='+trim (RZedt5.Text)+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update goods set proisv='+form1.Rzlbl1.Caption+trim (RZedt3.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('select * from goods order by code');

active:=true;

end;

showmessage ('готово');

end;

prcedure TForm14. ComboBox1Select (Sender: TObject);

begin.

with form1. ADQR2 do.

begin.

close;

sql.Clear;

sql.Add ('select * from groups where name='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

end;

end.

unit Unit15;

interface.

uses.

type.

TForm15 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

RZedt2: TRZedt;

Rzlbl3: TRzlbl;

RZedt3: TRZedt;

Rzlbl4: TRzlbl;

RZedt4: TRZedt;

Rzlbl5: TRzlbl;

RZedt5: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form15: TForm15;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm15. BitBtn1Click (Sender: TObject);

begin.

form1.ADQR6.Delete;

form1.ADQR6.AppendRecord ([RZedt1.Text, RZedt2. Text, RZedt3. Text, RZedt4. Text, RZedt5. Text]);

showmessage ('готово');

end;

end.

unit Unit16;

interface.

uses.

type.

TForm16 = class (TForm).

IdMessage1: TIdMessage;

IdSMTP1: TIdSMTP;

Memo1: TMemo;

BitBtn1: TBitBtn;

Rzlbl2: TRzlbl;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Rzlbl1: TRzlbl;

Rzlbl3: TRzlbl;

ComboBox1: TComboBox;

BitBtn2: TBitBtn;

Memo2: TMemo;

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form16: TForm16;

implementation.

uses Unit1, Unit12;

{$R *.dfm}.

prcedure TForm16. BitBtn1Click (Sender: TObject);

var i: integer;

begin.

form1.ADQR6.open;

form1.ADQR1.open;

idSMTP1.Host:=form1.ADQR6pser.AsString; // адрес почтового сервера.

idSMTP1.Port:=form1.ADQR6port.AsInteger; // порт по которому будет осуществляться подключение.

idSMTP1.Username:=form1.ADQR6user.AsString; // логин пользователя.

idSMTP1.Password:=form1.ADQR6passw.AsString; // пароль пользователя.

idSMTP1.AuthenticationType:=atLogin; // тип подключения к серверу — с авторизацией.

idSMTP1.Connect; // соединение с почтовым сервером.

if radiobutton1. Checked=true then.

begin.

with form1. ADQR4 do.

begin.

close;

sql.Clear;

sql.Add ('select * from contrag');

open;

end;

for i:=1 to form1. ADQR4.recordcount do.

begin.

with IdMessage1 do.

begin.

Body.Assign (memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки.

From.Text := form1. ADQR6email.AsString; // майл отправителя письма.

Recipients.EMailAddresses := form1. ADQR4email.AsString; // майл получателя письма.

Subject := 'Информация от '+form1.ADQR1name.AsString;

end;

try.

showmessage ('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу.

if fileexists ('C:crmfilesprice.xls') then TIdAttachment. Create (IDMessage1.MessageParts, 'c:crmfilesprice.xls') ;

idSMTP1.Send (IdMessage1); // отправка письма на сервер

finally.

end;

form1.ADQR4.Next;

end;

end;

if radiobutton2. Checked=true then.

begin.

with form1. ADQR11 do.

begin.

close;

sql.Clear;

sql.Add ('select * from clients');

open;

end;

for i:=1 to form1. ADQR4.recordcount do.

begin.

with IdMessage1 do.

begin.

Body.Assign (memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки.

From.Text := form1. ADQR6email.AsString; // майл отправителя письма.

Recipients.EMailAddresses := form1. ADQR11email.AsString; // майл получателя письма.

Subject := 'Информация от '+form1.ADQR1name.AsString;

end;

try.

showmessage ('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу.

if fileexists ('C:crmfilesprice.xls') then TIdAttachment. Create (IDMessage1.MessageParts, 'c:crmfilesprice.xls') ;

idSMTP1.Send (IdMessage1); // отправка письма на сервер

finally.

end;

form1.ADQR11.Next;

end;

end;

idSMTP1.Disconnect; // разрыв соединения.

showmessage ('Все сообщения отправлены');

end;

prcedure TForm16. BitBtn2Click (Sender: TObject);

begin.

form1.ADQR6.open;

form1.ADQR1.open;

idSMTP1.Host:=form1.ADQR6pser.AsString; // адрес почтового сервера.

idSMTP1.Port:=form1.ADQR6port.AsInteger; // порт по которому будет осуществляться подключение.

idSMTP1.Username:=form1.ADQR6user.AsString; // логин пользователя.

idSMTP1.Password:=form1.ADQR6passw.AsString; // пароль пользователя.

idSMTP1.AuthenticationType:=atLogin; // тип подключения к серверу — с авторизацией.

idSMTP1.Connect; // соединение с почтовым сервером.

with form1. ADQR7 do.

begin.

close;

sql.Clear;

sql.Add ('select * from sotr where fio='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

with IdMessage1 do.

begin.

Body.Assign (memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки.

From.Text := form1. ADQR6email.AsString; // майл отправителя письма.

Recipients.EMailAddresses := form1. ADQR7email.AsString; // майл получателя письма.

Subject := 'Информация от '+form1.ADQR1name.AsString;

end;

try.

showmessage ('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу.

idSMTP1.Send (IdMessage1); // отправка письма на сервер

finally.

end;

idSMTP1.Disconnect; // разрыв соединения.

showmessage ('Все сообщения отправлены');

end;

end.

unit Unit17;

interface.

uses.

type.

TForm17 = class (TForm).

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Rzlbl1: TRzlbl;

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

Rzlbl4: TRzlbl;

Rzlbl5: TRzlbl;

DBText1: TDBText;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

prcedure BitBtn2Click (Sender: TObject);

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn4Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form17: TForm17;

implementation.

{$R *.dfm}.

prcedure TForm17. BitBtn2Click (Sender: TObject);

begin.

with form19 do.

begin.

RZedt1.Text:=form1.ADQR7FIO.AsString;

RZedt2.Text:=form1.ADQR7tel.AsString;

RZedt3.Text:=form1.ADQR7icq.AsString;

RZedt4.Text:=form1.ADQR7email.AsString;

show;

end;

end;

prcedure TForm17. BitBtn1Click (Sender: TObject);

begin.

with form18 do.

begin.

RZedt1.Clear;

RZedt2.Clear;

RZedt3.Clear;

RZedt4.Clear;

show;

end;

end;

prcedure TForm17. BitBtn4Click (Sender: TObject);

begin.

if form1. ADQR7rol.AsString='Администратор' then form37. RadioButton1.Checked:=true;

if form1. ADQR7rol.AsString='Склад' then form37. RadioButton2.Checked:=true;

if form1. ADQR7rol.AsString='Продавец' then form37. RadioButton3.Checked:=true;

with form37 do.

begin.

RZedt1.Text:=form1.ADQR7login.AsString;

RZedt2.Text:=form1.ADQR7passw.AsString;

show;

end;

end;

end.

unit Unit18;

interface.

uses.

type.

TForm18 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

RZedt2: TRZedt;

Rzlbl3: TRzlbl;

RZedt3: TRZedt;

Rzlbl4: TRzlbl;

RZedt4: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form18: TForm18;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm18. BitBtn1Click (Sender: TObject);

var i, code: integer;

begin.

form1.ADQR7.First;

if form1. ADQR7.RecordCount>0 then code:=form1.ADQR7code.AsInteger else code:=0;

for i:=1 to form1. ADQR7.RecordCount do.

begin.

if code<form1.ADQR7code.AsInteger then code:=form1.ADQR7code.AsInteger;

form1.ADQR7.Next;

end;

form1.ADQR7.AppendRecord ([code+1,RZedt1.Text, RZedt2. Text, RZedt3. Text, RZedt4. Text]);

showmessage ('Записано');

end;

end.

unit Unit19;

interface.

uses.

Wnd,.

type.

TForm19 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

RZedt2: TRZedt;

Rzlbl3: TRzlbl;

RZedt3: TRZedt;

Rzlbl4: TRzlbl;

RZedt4: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form19: TForm19;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm19. BitBtn1Click (Sender: TObject);

var code: integer;

begin.

code:=form1.ADQR7code.asinteger;

with form1. ADQR7 do.

begin.

close;

sql.Clear;

sql.Add ('update sotr set fio='+form1.Rzlbl1.Caption+trim (RZedt1.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update sotr set tel='+form1.Rzlbl1.Caption+trim (RZedt2.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update sotr set icq='+form1.Rzlbl1.Caption+trim (RZedt3.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update sotr set email='+form1.Rzlbl1.Caption+trim (RZedt4.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('select * from sotr order by code');

active:=true;

end;

showmessage ('Записано');

end;

end.

unit Unit2;

interface.

uses.

Wnd,.

type.

TForm2 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

RZedt2: TRZedt;

Rzlbl3: TRzlbl;

RZedt3: TRZedt;

ComboBox1: TComboBox;

Rzlbl4: TRzlbl;

RZedt4: TRZedt;

Rzlbl5: TRzlbl;

RZedt5: TRZedt;

Rzlbl6: TRzlbl;

BitBtn1: TBitBtn;

Rzlbl7: TRzlbl;

RZedt6: TRZedt;

Rzlbl8: TRzlbl;

RZedt7: TRZedt;

Rzlbl9: TRzlbl;

RZedt8: TRZedt;

Rzlbl10: TRzlbl;

RZedt9: TRZedt;

Rzlbl11: TRzlbl;

RZedt10: TRZedt;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form2: TForm2;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm2. BitBtn1Click (Sender: TObject);

begin.

form1.ADQR1.Delete;

form1.ADQR1.AppendRecord ([RZedt1.Text, RZedt2. Text, combobox1. Text, RZedt3. Text, RZedt4. Text, RZedt5. Text, RZedt6. Text, RZedt7. Text, RZedt8. Text, RZedt9. Text, RZedt10. Text]);

showmessage ('Записано');

end;

end.

unit Unit20;

interface.

uses.

Wnd,.

type.

TForm20 = class (TForm).

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Rzlbl1: TRzlbl;

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

Rzlbl4: TRzlbl;

Rzlbl5: TRzlbl;

Rzlbl6: TRzlbl;

Rzlbl7: TRzlbl;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

DBText1: TDBText;

DBText2: TDBText;

Rzlbl8: TRzlbl;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

DBText6: TDBText;

DBText7: TDBText;

DBText8: TDBText;

Rzlbl9: TRzlbl;

DBText9: TDBText;

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form20: TForm20;

implementation.

uses Unit1, Unit21, Unit22;

{$R *.dfm}.

prcedure TFr21. BitBtn1Click (Sender: TObject);

var i: integer;

begin.

fr21.Rxcbx1.Clear;

fr21.Rxcbx2.Clear;

fr21.Rxcbx3.Clear;

with fr1. ADQR7 do.

begin.

close;

sql.Clear;

sql.Add ('select * from sotr');

open;

end;

for i:=1 to fr1. ADQR7.RecordCount do.

begin.

fr21.Rxcbx1.Items.Add (fr1.ADQR7fio.AsString);

fr1.ADQR7.next;

end;

with fr1. ADQR32 do.

begin.

close;

sql.Clear;

sql.Add ('select * from cog');

open;

end;

for i:=1 to fr1. ADQR4.RecordCount do.

begin.

fr21.Rxcbx3.Items.Add (fr1.ADQR32name.AsString);

fr1.ADQR4.next;

end;

with fr1. ADQR5 do.

begin.

close;

sql.Clear;

sql.Add ('select * from goods');

open;

end;

for i:=1 to fr1. ADQR5.RecordCount do.

begin.

fr21.Rxcbx2.Items.Add (fr1.ADQR5name.AsString);

fr1.ADQR5.next;

end;

fr21.DateTimePicker1.Date:=now;

fr21.DateTimePicker2.Date:=now;

fr21.show;

end;

prcedure TFr20. BitBtn2Click (Sender: TObject);

var i: integer;

begin.

if fr1. ADQR8isp.AsBoolean=true then showmessage ('Заказ уже исполнен') else.

begin.

with fr1. ADQR7 do.

begin.

close;

sql.Clear;

sql.Add ('select * from sotr');

open;

end;

fr22.rxcbx1.clear;

for i:=1 to fr1. ADQR7.RecordCount do.

begin.

fr22.Rxcbx1.Items.Add (fr1.ADQR7fio.AsString);

fr1.ADQR7.Next;

end;

fr22.Show;

end;

end;

end.

unit Unit21;

interface.

uses.

Wnd,.

type.

TFr21 = class (TFr).

RZlbl1: TRZlbl;

Rxcbx1: TRxcbx;

RZlbl2: TRZlbl;

DateTimePicker1: TDateTimePicker;

RZlbl3: TRZlbl;

DateTimePicker2: TDateTimePicker;

RZlbl4: TRZlbl;

Rxcbx2: TRxcbx;

RZlbl5: TRZlbl;

RZedt1: TRZedt;

RZlbl6: TRZlbl;

Rxcbx3: TRxcbx;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn3Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Fr21: TFr21;

implementation.

uses Unit1, uOOcalc, acedcommon;

{$R *.dfm}.

prcedure TFr21. BitBtn1Click (Sender: TObject);

var i, code: integer;

begin.

code:=0;

if fr1. ADQR8.RecordCount>0 then.

begin.

for i:=1 to form1. ADQR8.RecordCount do.

begin.

if code<form1.ADQR8code.AsInteger then code:=form1.ADQR8code.AsInteger;

form1.ADQR8.Next;

end;

end;

with form1. ADQR7 do.

begin.

close;

sql.Clear;

sql.Add ('select * from sotr where fio='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

with form1. ADQR5 do.

begin.

close;

sql.Clear;

sql.Add ('select * from goods where name='+form1.Rzlbl1.Caption+trim (combobox2.Text)+form1.Rzlbl1.Caption);

open;

end;

with form1. ADQR4 do.

begin.

close;

sql.Clear;

sql.Add ('select * from contrag where name='+form1.Rzlbl1.Caption+trim (combobox3.Text)+form1.Rzlbl1.Caption);

open;

end;

form1.ADQR8.AppendRecord ([code+1,combobox1.Text,'', datetimepicker1. Date, datetimepicker2. Date, form1. ADQR5code.asinteger, RZedt1. Text, false, form1. ADQR4code.AsInteger]);

showmessage ('Записано');

end;

prcedure TForm21. BitBtn3Click (Sender: TObject);

var calc: toocalc;

begin.

calc:=toocalc.Create ('c:crmxltschet.xlt');

form1.ADQR1.open;

calc.Cell[1,2]: ='Счет № '+form1.ADQR8code.AsString+' от '+datetostr (datetimepicker1.Date);

calc.Cell[9,2]: =form1.ADQR1bank.AsString;

calc.Cell[9,23]:=form1.ADQR1bik.AsString;

calc.Cell[10,23]:=form1.ADQR1kchet.AsString;

calc.Cell[12,23]:=form1.ADQR1rchet.AsString;

calc.Cell[12,2]:='ИНН '+form1.ADQR1INN.AsString;

calc.Cell[12,11]: ='КПП '+form1.ADQR1kpp.AsString;

calc.Cell[13,2]: =form1.ADQR1name.AsString;

calc.Cell[16,2]:='За поставку '+form1.ADQR5name.AsString+' по счёту № '+form1.ADQR8code.Asstring;

calc.Cell[22,6]: =form1.ADQR1name.AsString;

calc.Cell[23,6]:=form1.ADQR4name.AsString;

calc.Cell[28,2]:='1';

calc.Cell[28,4]:=form1.ADQR5name.AsString;

calc.Cell[28,15]:=form1.ADQR8kol.AsString;

calc.Cell[28,18]:='шт';

calc.Cell[28,20]:=form1.ADQR5zena2.AsString;

calc.Cell[28,23]:=currtostr (form1.ADQR8kol.Asinteger*form1.ADQR5zena2.AsCurrency);

calc.Cell[49,30]:=currtostr (form1.ADQR8kol.Asinteger*form1.ADQR5zena2.AsCurrency);

calc.Cell[52,2]:=g_numtorub (form1.ADQR8kol.Asinteger*form1.ADQR5zena2.AsCurrency);

calc.Cell[55,2]:=form1.ADQR1name.AsString;

calc.Cell[55,27]:=form1.ADQR8fio.AsString;

calc.Visible:=true;

end;

end.

unit Unit22;

interface.

uses.

Wnd,.

type.

TForm22 = class (TForm).

Rzlbl1: TRzlbl;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form22: TForm22;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm22. BitBtn1Click (Sender: TObject);

var code: integer;

begin.

code:=form1.ADQR8code.AsInteger;

with form1. ADQR8 do.

begin.

close;

sql.clear;

sql.Add ('update zakaz set fio1='+form1.Rzlbl1.Caption+combobox1.Text+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.clear;

sql.Add ('update zakaz set isp=true where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('select * from zakaz');

active:=true;

end;

showmessage ('выполнено');

end;

end.

unit Unit23;

interface.

uses.

Wnd,.

type.

TForm23 = class (TForm).

Rzlbl1: TRzlbl;

ComboBox1: TComboBox;

Rzlbl2: TRzlbl;

RZedt1: TRZedt;

Rzlbl3: TRzlbl;

RZedt2: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Rzlbl4: TRzlbl;

ComboBox2: TComboBox;

Rzlbl5: TRzlbl;

ComboBox3: TComboBox;

BitBtn3: TBitBtn;

prcedure ComboBox1Select (Sender: TObject);

prcedure ComboBox2Select (Sender: TObject);

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn3Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form23: TForm23;

implementation.

uses Unit1, uOOcalc;

{$R *.dfm}.

prcedure TForm23. ComboBox1Select (Sender: TObject);

begin.

with form1. ADQR5 do.

begin.

close;

sql.Clear;

sql.Add ('select * from goods where name='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

RZedt2.Text:=form1.ADQR5zena1.AsString;

end;

prcedure TForm23. ComboBox2Select (Sender: TObject);

begin.

with form1. ADQR4 do.

begin.

close;

sql.Clear;

sql.Add ('select * from contrag where name='+form1.Rzlbl1.Caption+trim (combobox3.Text)+form1.Rzlbl1.Caption);

open;

end;

end;

prcedure TForm23. BitBtn1Click (Sender: TObject);

var kol, code, i: integer;

begin.

if strtoint (RZedt1.Text)<1 then showmessage ('Не указано количество') else.

begin.

with form1. ADQR9 do.

begin.

close;

sql.Clear;

sql.Add ('select * from oper');

open;

end;

code:=0;

for i:=1 to form1. ADQR9.RecordCount do.

begin.

if code<form1.ADQR9code.AsInteger then code:=form1.ADQR9code.AsInteger;

form1.ADQR9.Next;

end;

with form1. ADQR10 do.

begin.

close;

sql.Clear;

sql.Add ('select * from nalich where prod='+form1.ADQR5code.AsString);

open;

end;

kol:=form1.ADQR10kol.AsInteger;

with form1. ADQR10 do.

begin.

close;

sql.Clear;

sql.Add ('update nalich set kol='+inttostr (kol+strtoint (RZedt1.Text))+' where prod='+form1.ADQR5code.asstring);

execsql;

close;

sql.Clear;

sql.Add ('select * from nalich');

open;

end;

form1.ADQR9.AppendRecord ([code+1,'поставка', now, form1. ADQR5code.AsInteger, RZedt1. Text, RZedt2. Text, 0, form1. ADQR4code.AsInteger, combobox2. Text]);

showmessage ('Записано. Код заказ '+inttostr (code+1));

end;

end;

prcedure TForm23. BitBtn3Click (Sender: TObject);

var calc: toocalc;

begin.

calc:=toocalc.Create ('c:crmxltpostav.xlt');

calc.Cell[2,2]: =form1.ADQR9code.AsString;

calc.Cell[3,2]: =form1.ADQR9day.AsString;

calc.Cell[4,3]: =combobox1.Text;

calc.Cell[5,2]: =RZedt1.Text;

calc.Cell[6,2]: =RZedt2.Text;

calc.Cell[7,2]: =combobox2.Text;

calc.Visible:=true;

end;

end.

unit Unit24;

interface.

uses.

Wnd,.

type.

TForm24 = class (TForm).

Rzlbl1: TRzlbl;

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

Rzlbl4: TRzlbl;

ComboBox1: TComboBox;

RZedt1: TRZedt;

RZedt2: TRZedt;

ComboBox2: TComboBox;

Rzlbl5: TRzlbl;

ComboBox3: TComboBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

prcedure ComboBox1Select (Sender: TObject);

prcedure ComboBox3Select (Sender: TObject);

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form24: TForm24;

implementation.

uses Unit1, uoocalc;

{$R *.dfm}.

prcedure TForm24. ComboBox1Select (Sender: TObject);

begin.

with form1. ADQR5 do.

begin.

close;

sql.Clear;

sql.Add ('select * from goods where name='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

RZedt2.Text:=form1.ADQR5zena1.AsString;

with form1. ADQR10 do.

begin.

close;

sql.Clear;

sql.Add ('select * from nalich where prod='+form1.ADQR5code.AsString);

open;

end;

RZedt1.Text:=form1.ADQR10kol.AsString;

end;

prcedure TForm24. ComboBox3Select (Sender: TObject);

begin.

with form1. ADQR4 do.

begin.

close;

sql.Clear;

sql.Add ('select * from contrag where name='+form1.Rzlbl1.Caption+trim (combobox3.Text)+form1.Rzlbl1.Caption);

open;

end;

end;

prcedure TForm24. BitBtn1Click (Sender: TObject);

var kol, code, i: integer;

begin.

if strtoint (RZedt1.Text)> form1. ADQR10kol.AsInteger then showmessage ('Такого количества продукции нет на складе') else.

begin.

with form1. ADQR9 do.

begin.

close;

sql.Clear;

sql.Add ('select * from oper');

open;

end;

code:=0;

for i:=1 to form1. ADQR9.RecordCount do.

begin.

if code<form1.ADQR9code.AsInteger then code:=form1.ADQR9code.AsInteger;

form1.ADQR9.Next;

end;

with form1. ADQR10 do.

begin.

close;

sql.Clear;

sql.Add ('select * from nalich where prod='+form1.ADQR5code.AsString);

open;

end;

kol:=form1.ADQR10kol.AsInteger;

with form1. ADQR10 do.

begin.

close;

sql.Clear;

sql.Add ('update nalich set kol='+inttostr (kol-strtoint (RZedt1.Text))+' where prod='+form1.ADQR5code.asstring);

execsql;

close;

sql.Clear;

sql.Add ('select * from nalich');

open;

end;

form1.ADQR9.AppendRecord ([code+1,'отгрузка', now, form1. ADQR5code.AsInteger, RZedt1. Text, 0, RZedt2. Text, form1. ADQR4code.AsInteger, combobox2. Text]);

showmessage ('Записано. Код операции '+inttostr (code+1));

end;

end;

prcedure TForm24. BitBtn2Click (Sender: TObject);

var calc: toocalc;

begin.

calc:=toocalc.Create ('c:skladxltotgr.xlt');

calc.cell[3,2]: =combobox3.Text;

calc.cell[4,2]: =combobox1.Text;

calc.Cell[5,2]: =RZedt1.Text;

calc.Cell[6,2]: =datetostr (now);

calc.cell[7,2]: =combobox2.Text;

calc.Visible:=true;

end;

end.

unit Unit25;

interface.

uses.

Wnd,.

type.

TForm25 = class (TForm).

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Rzlbl1: TRzlbl;

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

Rzlbl4: TRzlbl;

Rzlbl5: TRzlbl;

Rzlbl6: TRzlbl;

DBText1: TDBText;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

DBText6: TDBText;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form25: TForm25;

implementation.

uses Unit1;

{$R *.dfm}.

end.

unit Unit26;

interface.

uses.

Wnd,.

type.

TForm26 = class (TForm).

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ComboBox1: TComboBox;

prcedure BitBtn1Click (Sender: TObject);

prcedure ComboBox1Select (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form26: TForm26;

implementation.

uses Unit1, uoocalc;

{$R *.dfm}.

prcedure TForm26. BitBtn1Click (Sender: TObject);

var calc: toocalc; i: integer;

begin.

calc:=toocalc.Create ('c:crmxltost.xlt');

if radiobutton1. Checked=true then.

begin.

with form1. ADQR10 do.

begin.

close;

sql.clear;

sql.add ('select * from nalich');

open;

end;

calc.Cell[2,1]: ='по всем группам';

end;

if radiobutton2. Checked=true then.

begin.

with form1. ADQR10 do.

begin.

close;

sql.clear;

sql.add ('select * from nalich where grp='+form1.ADQR2code.AsString);

open;

end;

calc.Cell[2,1]: ='Группа '+combobox1.text;

end;

for i:=1 to form1. ADQR10.RecordCount do.

begin.

calc.Cell[4,1]: =form1.ADQR10.RecordCount-i+1;

with form1. ADQR5 do.

begin.

close;

sql.Clear;

sql.Add ('select * from goods where code='+form1.ADQR10prod.AsString);

open;

end;

calc.Cell[4,2]: = form1. ADQR5name.AsString;

calc.Cell[4,3]: =form1.ADQR10kol.AsInteger;

calc.Cell[4,4]: =form1.ADQR5zena2.AsString;

calc.InsertRow (4,true);

form1.ADQR10.Next;

end;

calc.Visible:=true;

end;

prcedure TForm26. ComboBox1Select (Sender: TObject);

begin.

with form1. ADQR2 do.

begin.

close;

sql.Clear;

sql.Add ('select * from groups where name='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

end;

end.

unit Unit27;

interface.

uses.

Wnd.

type.

TForm27 = class (TForm).

Rzlbl1: TRzlbl;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form27: TForm27;

implementation.

uses Unit1, uoocalc;

{$R *.dfm}.

prcedure TForm27. BitBtn1Click (Sender: TObject);

var i: integer; calc: toocalc;

begin.

calc:=toocalc.Create ('c:crmxltvib.xlt');

with form1. ADQR4 do.

begin.

close;

sql.Clear;

sql.add ('select * from contrag where name='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption);

open;

end;

with form1. ADQR9 do.

begin.

close;

sql.Clear;

sql.Add ('select * from oper where org='+form1.ADQR4code.AsString);

open;

end;

for i:=1 to form1. ADQR9.RecordCount do.

begin.

calc.cell[5,1]: =form1.ADQR9.RecordCount-i+1;

calc.Cell[5,2]: =form1.ADQR9typ.AsString;

with form1. ADQR5 do.

begin.

close;

sql.Clear;

sql.add ('select * from goods where code='+form1.ADQR9prod.AsString);

open;

end;

calc.Cell[5,3]: =form1.ADQR5name.AsString;

calc.Cell[5,4]: =form1.ADQR9kol.AsInteger*(form1.ADQR9zena1.AsCurrency+form1.ADQR9zena2.AsCurrency);

calc.Cell[5,5]: =form1.ADQR9day.AsString;

form1.ADQR9.Next;

calc.InsertRow (5,true);

end;

calc.Visible:=true;

end;

end.

unit Unit28;

interface.

uses.

Wnd,.

type.

TForm28 = class (TForm).

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Rzlbl1: TRzlbl;

Rzlbl2: TRzlbl;

DBText1: TDBText;

DBText2: TDBText;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

DataSource1: TDataSource;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form28: TForm28;

implementation.

uses Unit1, Unit29;

{$R *.dfm}.

prcedure TForm28. BitBtn1Click (Sender: TObject);

begin.

form29.RZedt1.clear;

form29.Show;

end;

end.

unit Unit29;

interface.

uses.

Wnd,.

type.

TForm29 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form29: TForm29;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm29. BitBtn1Click (Sender: TObject);

var i, code: integer;

begin.

code:=0;

for i:=1 to form1. ADQR12.recordcount do.

begin.

if code<form1.ADQR12code.AsInteger then code:=form1.ADQR12code.AsInteger;

form1.ADQR12.next;

end;

form1.ADQR12.AppendRecord ([code+1,RZedt1.Text]);

showmessage ('Записано');

end;

end.

unit Unit3;

interface.

uses.

Wnd,.

type.

TForm3 = class (TForm).

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Rzlbl1: TRzlbl;

DBText1: TDBText;

Rzlbl2: TRzlbl;

DBText2: TDBText;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Rzlbl3: TRzlbl;

DBText3: TDBText;

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form3: TForm3;

implementation.

uses Unit1, Unit4, Unit5;

{$R *.dfm}.

prcedure TForm3. BitBtn1Click (Sender: TObject);

begin.

form4.RZedt1.Clear;

form4.Show;

end;

prcedure TForm3. BitBtn2Click (Sender: TObject);

begin.

form5.RZedt1.Text:=form1.ADQR2name.AsString;

form5.Show;

end;

end.

unit Unit30;

interface.

uses.

Wnd,.

type.

TForm30 = class (TForm).

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Rzlbl1: TRzlbl;

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

DBText1: TDBText;

DBText2: TDBText;

DBText3: TDBText;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form30: TForm30;

implementation.

uses Unit1, Unit31, Unit32;

{$R *.dfm}.

prcedure TForm30. BitBtn1Click (Sender: TObject);

begin.

with form31 do.

begin.

RZedt1.Clear;

RZedt2.Clear;

RZedt3.Clear;

show;

end;

end;

prcedure TForm30. BitBtn2Click (Sender: TObject);

begin.

form32.RZedt1.Text:=form1.ADQR13ident.AsString;

form32.RZedt2.Text:=form1.ADQR13proc.AsString;

form32.RZedt3.Text:=form1.ADQR13limit.AsString;

form32.Show;

end;

end.

unit Unit31;

interface.

uses.

type.

TForm31 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

RZedt2: TRZedt;

Rzlbl3: TRzlbl;

RZedt3: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form31: TForm31;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm31. BitBtn1Click (Sender: TObject);

begin.

form1.ADQR13.AppendRecord ([RZedt1.Text, RZedt2. Text, RZedt3. Text]);

showmessage ('Записано');

end;

end.

unit Unit32;

interface.

uses.

Wnd,.

type.

TForm32 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

RZedt2: TRZedt;

Rzlbl3: TRzlbl;

RZedt3: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form32: TForm32;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm32. BitBtn1Click (Sender: TObject);

begin.

with form1. ADQR13 do.

begin.

close;

sql.Clear;

sql.Add ('update discount set proc='+RZedt2.Text+' where ident='+form1.Rzlbl1.Caption+trim (RZedt1.Text)+form1.Rzlbl1.Caption);

execsql;

close;

sql.Clear;

sql.Add ('update discount set limit='+RZedt3.Text+' where ident='+form1.Rzlbl1.Caption+trim (RZedt1.Text)+form1.Rzlbl1.Caption);

execsql;

end;

showmessage ('Выполнено');

end;

end.

unit Unit33;

interface.

uses.

type.

TForm33 = class (TForm).

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Rzlbl1: TRzlbl;

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

Rzlbl4: TRzlbl;

Rzlbl5: TRzlbl;

Rzlbl6: TRzlbl;

Rzlbl7: TRzlbl;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

DBText1: TDBText;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

DBText6: TDBText;

DBText7: TDBText;

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form33: TForm33;

implementation.

uses Unit1, Unit34, Unit35;

{$R *.dfm}.

prcedure TForm33. BitBtn1Click (Sender: TObject);

var i: integer;

begin.

with form34 do.

begin.

RZedt1.Clear;

RZedt2.Clear;

RZedt3.clear;

RZedt4.Clear;

end;

with form1. ADQR12 do.

begin.

close;

sql.Clear;

sql.Add ('select * from categ_cli');

open;

end;

form34.ComboBox2.Clear;

for i:=1 to form1. ADQR12.RecordCount do.

begin.

form34.ComboBox2.Items.Add (form1.ADQR12name.AsString);

form1.ADQR12.next;

end;

with form1. ADQR13 do.

begin.

close;

sql.Clear;

sql.Add ('select * from discount');

open;

end;

form34.ComboBox1.Clear;

for i:=1 to form1. ADQR13.RecordCount do.

begin.

form34.ComboBox1.Items.Add (form1.ADQR13ident.AsString);

form1.ADQR13.next;

end;

form34.show;

end;

prcedure TForm33. BitBtn2Click (Sender: TObject);

var i: integer;

begin.

with form35 do.

begin.

RZedt1.text:=form1.ADQR11fio.AsString;

RZedt2.text:=form1.ADQR11age.AsString;

RZedt3.text:=form1.ADQR11tel.AsString;

RZedt4.text:=form1.ADQR11email.AsString;

combobox1.Text:=form1.ADQR11dscode.AsString;

end;

with form1. ADQR12 do.

begin.

close;

sql.Clear;

sql.Add ('select * from categ_cli');

open;

end;

form35.ComboBox2.Clear;

for i:=1 to form1. ADQR12.RecordCount do.

begin.

form35.ComboBox2.Items.Add (form1.ADQR12name.AsString);

form1.ADQR12.next;

end;

with form1. ADQR13 do.

begin.

close;

sql.Clear;

sql.Add ('select * from discount');

open;

end;

form35.ComboBox1.Clear;

for i:=1 to form1. ADQR13.RecordCount do.

begin.

form35.ComboBox1.Items.Add (form1.ADQR13ident.AsString);

form1.ADQR13.next;

end;

form35.ComboBox1.Text:=form1.ADQR11dscode.AsString;

form35.show;

end;

end.

unit Unit34;

interface.

uses.

type.

TForm34 = class (TForm).

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

Rzlbl4: TRzlbl;

Rzlbl5: TRzlbl;

Rzlbl6: TRzlbl;

Rzlbl7: TRzlbl;

RZedt1: TRZedt;

RZedt2: TRZedt;

RZedt3: TRZedt;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

RZedt4: TRZedt;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form34: TForm34;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm34. BitBtn1Click (Sender: TObject);

var i, code: integer;

begin.

code:=0;

with form1. ADQR12 do.

begin.

close;

sql.Clear;

sql.Add ('select * from categ_cli where name='+form1.Rzlbl1.Caption+trim (combobox2.Text)+form1.Rzlbl1.Caption);

open;

end;

form1.ADQR11.first;

for i:=1 to form1. ADQR11.RecordCount do.

begin.

if code<form1.ADQR11code.AsInteger then code:=form1.ADQR11code.asinteger;

form1.ADQR11.Next;

end;

form1.ADQR11.AppendRecord ([code+1,RZedt1.Text, RZedt2. Text, RZedt3. Text, combobox1. Text, RZedt4. Text, form1. ADQR12code.AsInteger]);

showmessage ('готово');

end;

end.

unit Unit35;

interface.

uses.

type.

TForm35 = class (TForm).

Rzlbl2: TRzlbl;

Rzlbl3: TRzlbl;

Rzlbl5: TRzlbl;

Rzlbl6: TRzlbl;

Rzlbl7: TRzlbl;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Rzlbl4: TRzlbl;

RZedt1: TRZedt;

RZedt2: TRZedt;

RZedt3: TRZedt;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

RZedt4: TRZedt;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form35: TForm35;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm35. BitBtn1Click (Sender: TObject);

var code: integer;

begin.

code:=form1.ADQR11code.asinteger;

with form1. ADQR11 do.

begin.

close;

sql.Clear;

sql.Add ('update clients set fio='+form1.Rzlbl1.Caption+trim (RZedt1.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update clients set age='+RZedt2.Text+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update clients set tel='+form1.Rzlbl1.Caption+trim (RZedt3.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update clients set dscode='+form1.Rzlbl1.Caption+trim (combobox1.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('update clients set email='+form1.Rzlbl1.Caption+trim (RZedt4.Text)+form1.Rzlbl1.Caption+' where code='+inttostr (code));

execsql;

close;

sql.Clear;

sql.Add ('select * from clients');

active:=true;

end;

showmessage ('записано');

end;

end.

unit Unit36;

interface.

uses.

type.

TForm36 = class (TForm).

Rzlbl1: TRzlbl;

RZedt1: TRZedt;

Rzlbl2: TRzlbl;

RZedt2: TRZedt;

BitBtn1: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form36: TForm36;

implementation.

uses Unit1;

{$R *.dfm}.

prcedure TForm36. BitBtn1Click (Sender: TObject);

;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

prcedure BitBtn1Click (Sender: TObject);

prcedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

ПРИЛОЖЕНИЕ 3.

ПРЕЗЕНТАЦИЯ.

Рис. П.

3.1. Слайд «Титульный лист».

Рис. П.

3.2. Слайд «Цели и задачи».

Рис. П.

3.3. Слайд «Структура предприятия».

Рис. П.

3.4. Слайд «Схема архитектуры предприятия».

Рис. П.

3.5. Слайд «Схема технической архитектуры малого Интернет-предприятия».

Рис. П.

3.6. Слайд «Принципиальная схема организации антивирусной защиты на основе решений от Kaspersky Lab».

Рис. П.

3.7. Слайд «Функциональная модель IDEF0».

Рис. П.

3.8. Слайд «Логическая модель БД».

Рис. П.

3.9. Слайд «Основные экранные формы».

Рис. П.

3.10. Слайд «Схема СУБД в Microsoft Access».

Рис. П.

3.11. Слайд «Основные экранные формы».

Рис. П.

3.12. Слайд «Основные экранные формы».

Рис. П.

3.13. Слайд «Основные экранные формы».

Рис. П.

3.14. Слайд «Вывод документов».

Рис. П.

3.15. Слайд «Оценка экономической эффективности».

Рис. П.

3.16. Слайд «Заключение».

(Фамилия И.О.).

(Фамилия И.О.).

(Фамилия И.О.).

(Фамилия И.О.).

(Фамилия И.О.).

(подпись).

(подпись).

(подпись).

(подпись).

(подпись).

(фамилия, имя, отчество, должность, место работы).

(фамилия, имя, отчество, должность, место работы).

(фамилия, имя, отчество, должность, место работы).

(подпись, фамилия, имя, отчество).

(фамилия, имя, отчество).

(подпись).