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

ВВЕДЕНИЕ 9
1.АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ И ПОСТАНОВКА ЗАДАЧИ 11
1.1.ОРГАНИЗАЦИОННАЯ СТРУКТУРА МАЛОГО ТОРГОВОГО ИНТЕРНЕТ-ПРЕДПРИЯТИЯ 11
1.2.ПОСТАНОВКА ЗАДАЧИ 12
1.3.ЦЕЛИ РАЗРАБОТКИ 12
1.4. ОСНОВНЫЕ ТРЕБОВАНИЯ К СИСТЕМЕ 13
1.4.1. ТРЕБОВАНИЯ К АППАРАТНОМУ ОБЕСПЕЧЕНИЮ 13
1.4.2. ТРЕБОВАНИЯ К ПРОГРАММНОМУ ОБЕСПЕЧЕНИЮ 14
1.4.3. ХАРАКТЕРИСТИКА ИНФОРМАЦИОННОЙ СИСТЕМЫ ПРЕДПРИЯТИЯ 14
2.ПРОЕКТИРОВАНИЕ АРМА 23
2.1. ФУНКЦИОНАЛЬНАЯ МОДЕЛЬ СИСТЕМЫ 23
2.2. ПРОЕКТИРОВАНИЕ СТРУКТУРЫ ДАННЫХ 31
3.РЕАЛИЗАЦИЯ СИСТЕМЫ 48
3.1. ОБОСНОВАНИЕ ВЫБОРА СРЕДЫ РАЗРАБОТКИ 48
3.2. РЕАЛИЗАЦИЯ БАЗЫ ДАННЫХ 50
3.3. РЕАЛИЗАЦИЯ КЛИЕНТСКОГО ПРИЛОЖЕНИЯ 53
4.ТЕСТИРОВАНИЕ СИСТЕМЫ 67
5. ЭКОНОМИКО-ОРГАНИЗАЦИОННАЯ ЧАСТЬ 74
5.1. ПЛАНИРОВАНИЕ И КОНТРОЛЬ ВЫПОЛНЕНИЯ РАБОТ 74
5.2. ФИНАНСОВЫЕ РЕЗУЛЬТАТЫ 77
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 84
ПРИЛОЖЕНИЯ 87
ПРИЛОЖЕНИЕ 1 88
ПРИЛОЖЕНИЕ 2 90
ПРИЛОЖЕНИЕ 3 188

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:\crm\files\price.xls') then TIdAttachment.Create(IDMessage1.MessageParts, 'c:\crm\files\price.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:\crm\files\price.xls') then TIdAttachment.Create(IDMessage1.MessageParts, 'c:\crm\files\price.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:\crm\xlt\schet.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:\crm\xlt\postav.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:\sklad\xlt\otgr.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:\crm\xlt\ost.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:\crm\xlt\vib.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. Слайд «Заключение»
82
84
(Фамилия И.О.)
(Фамилия И.О.)
(Фамилия И.О.)
(Фамилия И.О.)
(Фамилия И.О.)
(подпись)
(подпись)
(подпись)
(подпись)
(подпись)
(фамилия, имя, отчество, должность, место работы)
(фамилия, имя, отчество, должность, место работы)
(фамилия, имя, отчество, должность, место работы)
(подпись, фамилия, имя, отчество)
(фамилия, имя, отчество)
(подпись)