Разработка информационной системы автосалона на примере ООО "АвтоштадтНева"

Create(Owner);
prosmForm.Top:=230;
prosmForm.Left:=0;
prosmForm.Width:=500;
prosmForm.Height:=200;
prosmForm.Caption:='просмотр записей';
prosmForm.DBNavigator2.Visible:=true;
mainflag:=true;
prosmForm.Show;
prosmForm.Button1.Visible:=false;
prosmForm.GroupBox3.Visible:=true;
prosmForm.GroupBox1.Visible:=false;
prosmForm.GroupBox2.Visible:=false;
prosmForm.GroupBox4.Visible:=false;
MainClientsForm.DataSource1.DataSet.last;
end;

procedure TMainClientsForm.FormCreate(Sender: TObject);
var NewConnection: Widestring;
begin
NewConnection := PromptDataSource(Handle, MainClientsForm.ADOConnection1.Connectionstring);
MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;
MainClientsForm.ADOConnection1.Connected:=true;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable6.Active:=true;
MainClientsForm.ADOTable7.Active:=true;
MainClientsForm.ADOTable8.Active:=true;
end;
procedure TMainClientsForm.N3Click(Sender: TObject);
var dobForm: Taddform;
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'addForm');
dobForm:=Taddform.Create(Owner);
dobForm.Top:=240;
dobForm.Left:=3;
dobForm.Caption:='добавление клиента';
dobForm.Show;
dobForm.Button1.Visible:=true;
dobForm.GroupBox1.Visible:=false;
dobForm.GroupBox3.Visible:=false;
dobForm.GroupBox4.Visible:=false;
end;
procedure TMainClientsForm.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
if mainflag then
begin
prosmForm.edit5.text:='';
prosmForm.edit54.text:='';
prosmForm.edit53.text:='';
prosmForm.edit51.text:='';
prosmForm.edit7.text:='';
prosmForm.edit3.text:='';
prosmForm.edit12.text:='';
prosmForm.edit13.text:='';
prosmForm.edit22.text:='';
prosmForm.edit31.text:='';
prosmForm.edit35.text:='';
prosmForm.edit37.text:='';
prosmForm.edit39.text:='';
prosmForm.edit44.text:='';
prosmForm.edit4.text:='';
prosmForm.edit46.text:='';
prosmForm.edit17.text:='';
prosmForm.edit49.text:='';
prosmForm.edit41.text:='';
prosmForm.edit47.text:='';
prosmForm.edit48.text:='';
prosmForm.edit55.text:='';
prosmForm.edit45.text:='';
prosmForm.edit23.text:='';
prosmForm.edit25.text:='';
prosmForm.edit29.text:='';
id_akcia:=MainClientsForm.ADOTable2.FieldByName('id_akcia').AsInteger;
id_proizv:=MainClientsForm.ADOTable2.FieldByName('id_proizv').AsInteger;
id_harakter:=MainClientsForm.ADOTable2.FieldByName('id_harak').AsInteger;
id_complect:=MainClientsForm.ADOTable2.FieldByName('id_complect').AsInteger;
model:=MainClientsForm.ADOTable2.FieldByName('model').AsString;
god:=MainClientsForm.ADOTable2.FieldByName('god').AsInteger;
kolvo:=MainClientsForm.ADOTable2.FieldByName('kolvo').AsInteger;
cena:=MainClientsForm.ADOTable2.FieldByName('cena').AsInteger;
prosmForm.edit54.text:=inttostr(god);
prosmForm.edit53.text:=inttostr(kolvo);
prosmForm.edit7.text:=inttostr(cena);
prosmForm.edit5.text:=model;

sql_str:='SELECT * from harak where id_harakter= :P11';

MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=id_harakter;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
massa:=MainClientsForm.ADOQuery1.FieldByName('massa').asinteger;
prosmForm.Edit3.Text:=inttostr(massa);
razgon:=MainClientsForm.ADOQuery1.FieldByName('razgon').asinteger;
prosmForm.Edit20.Text:=inttostr(razgon);
korobka:=MainClientsForm.ADOQuery1.FieldByName('korobka').asstring;
prosmForm.Edit13.Text:=korobka;
rashod:=MainClientsForm.ADOQuery1.FieldByName('rashod').AsFloat;
prosmForm.Edit22.Text:=floattostr(rashod);


sql_str:='SELECT * from complect where id_complect= :P11';

MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=id_complect;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
dvigat:=MainClientsForm.ADOQuery1.FieldByName('dvigat').asstring;
prosmForm.Edit31.Text:=dvigat;
moshnost:=MainClientsForm.ADOQuery1.FieldByName('moshnost').asstring;
prosmForm.Edit35.Text:=moshnost;
diski:=MainClientsForm.ADOQuery1.FieldByName('diski').asstring;
prosmForm.Edit37.Text:=diski;
shinu:=MainClientsForm.ADOQuery1.FieldByName('shinu').asstring;
prosmForm.Edit39.Text:=shinu;
steklo:=MainClientsForm.ADOQuery1.FieldByName('steklo').asstring;
prosmForm.Edit44.Text:=steklo;
radiola:=MainClientsForm.ADOQuery1.FieldByName('radiola').asstring;
prosmForm.Edit4.Text:=radiola;
svet:=MainClientsForm.ADOQuery1.FieldByName('svet').asstring;
prosmForm.Edit46.Text:=svet;
kuzov:=MainClientsForm.ADOQuery1.FieldByName('kuzov').asstring;
prosmForm.Edit17.Text:=kuzov;
zashita:=MainClientsForm.ADOQuery1.FieldByName('zashita').asstring;
prosmForm.Edit49.Text:=zashita;
podveska:=MainClientsForm.ADOQuery1.FieldByName('podveska').asstring;
prosmForm.Edit41.Text:=podveska;
cvet:=MainClientsForm.ADOQuery1.FieldByName('cvet').asstring;
prosmForm.Edit47.Text:=cvet;

sql_str:='SELECT * from proizv where id_proizv= :P11';

MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=id_proizv;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
firm:=MainClientsForm.ADOQuery1.FieldByName('firm').asstring;
prosmForm.Edit48.Text:=firm;
country:=MainClientsForm.ADOQuery1.FieldByName('country').asstring;
prosmForm.Edit55.Text:=country;
country:=MainClientsForm.ADOQuery1.FieldByName('factory').asstring;
prosmForm.Edit45.Text:=factory;


sql_str:='SELECT * from akcia where id_akcia= :P11';

MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=id_akcia;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
desription:=MainClientsForm.ADOQuery1.FieldByName('desription').asstring;
prosmForm.Edit23.Text:=desription;
srok:=MainClientsForm.ADOQuery1.FieldByName('srok').asstring;
prosmForm.Edit25.Text:=srok;
skidka:=MainClientsForm.ADOQuery1.FieldByName('skidka').asstring;
prosmForm.Edit29.Text:=skidka;
end;
end;

procedure TMainClientsForm.N4Click(Sender: TObject);
var zakForm: Taddform;
begin

mainflag:=false;
IsMDIChildOpen(MainClientsForm,'zakForm');
IsMDIChildOpen(MainClientsForm,'addForm');
zakForm:=Taddform.Create(Owner);

zakForm.Top:=240;
zakForm.Left:=3;
zakForm.Caption:='новый автомобиль';
zakForm.Show;
zakForm.Button1.Visible:=true;
zakForm.GroupBox1.Visible:=false;
zakForm.GroupBox2.Visible:=false;
zakForm.GroupBox4.Visible:=false;
zakForm.GroupBox3.Visible:=true;
zakForm.GroupBox3.Left:=2;
zakForm.GroupBox3.Top:=2;
end;

procedure TMainClientsForm.N14Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='поиск автомобиля';
nomer_poisk:=1;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
end;

procedure TMainClientsForm.N15Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='поиск клиента ';
nomer_poisk:=2;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.Label1.Caption:='Фамилия';
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
end;

procedure TMainClientsForm.N16Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='поиск клиента';
nomer_poisk:=3;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
end;

procedure TMainClientsForm.N17Click(Sender: TObject);
var poisk:Tparampoik;
begin

end;

procedure TMainClientsForm.N11Click(Sender: TObject);
var naklForm: Taddform;
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'naklForm');
IsMDIChildOpen(MainClientsForm,'addForm');
naklForm:=Taddform.Create(Owner);

naklForm.Top:=240;
naklForm.Left:=3;
naklForm.Caption:='Добавление сотрудника';
naklForm.Show;

naklForm.GroupBox1.Visible:=false;
naklForm.GroupBox2.Visible:=false;
naklForm.GroupBox3.Visible:=false;

naklform.GroupBox4.Visible:=true;


end;

procedure TMainClientsForm.N19Click(Sender: TObject);
var poisk:Tparampoik;
begin


end;

procedure TMainClientsForm.N1Click(Sender: TObject);
var dobForm: Taddform;
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'addForm');
dobForm:=Taddform.Create(Owner);
dobForm.Top:=240;
dobForm.Left:=3;
dobForm.Caption:='добавление сделки';
dobForm.Show;
dobForm.Button1.Visible:=false;
dobForm.GroupBox1.Visible:=true;
dobForm.GroupBox3.Visible:=false;
dobForm.GroupBox2.Visible:=false;
dobForm.GroupBox4.Visible:=false;
end;

procedure TMainClientsForm.N18Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;

mainclientsform.ADOTable8.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem(' Клиенты ', mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД.';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Фамилия ';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Имя ';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' Отчество ';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:=' телефон ';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:=' адрес ';
end;

procedure TMainClientsForm.N23Click(Sender: TObject);
begin
{ IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');


//mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable9;

mainclientsform.ADOTable9.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem('Владение языком', mainclientsform.DataSource1);
DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД.';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Язык';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Качество';}
end;

procedure TMainClientsForm.N24Click(Sender: TObject);
begin
end;

procedure TMainClientsForm.Button1Click(Sender: TObject);
begin
MainClientsForm.N22Click(sender);
end;

end.

unit addsorce;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,
StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls, DBCtrls, comobj;


type
TaddForm = class(TForm)
Panel1: TPanel;
GroupBox3: TGroupBox;
GroupBox2: TGroupBox;
Button1: TButton;
Label27: TLabel;
Label23: TLabel;
Label18: TLabel;
Label15: TLabel;
Edit18: TEdit;
Edit21: TEdit;
Edit26: TEdit;
Label25: TLabel;
Edit28: TEdit;
Edit30: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
v: TLabel;
Label42: TLabel;
Label45: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label54: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit17: TEdit;
Edit44: TEdit;
Edit45: TEdit;
Edit46: TEdit;
Edit47: TEdit;
Edit48: TEdit;
Edit49: TEdit;
Edit51: TEdit;
Edit53: TEdit;
Edit54: TEdit;
Edit55: TEdit;
Label55: TLabel;
Button2: TButton;
Label3: TLabel;
Edit3: TEdit;
Label10: TLabel;
Edit7: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label17: TLabel;
Label19: TLabel;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit11: TEdit;
Edit14: TEdit;
GroupBox4: TGroupBox;
Label8: TLabel;
Edit6: TEdit;
Label11: TLabel;
Edit8: TEdit;
Label14: TLabel;
Edit10: TEdit;
Edit15: TEdit;
Label26: TLabel;
Edit16: TEdit;
Button4: TButton;
Label24: TLabel;
DBNavigator2: TDBNavigator;
Button5: TButton;
Label21: TLabel;
Edit24: TEdit;
Label28: TLabel;
Edit20: TEdit;
Label32: TLabel;
Label34: TLabel;
Edit31: TEdit;
Label35: TLabel;
Edit35: TEdit;
Label36: TLabel;
Label41: TLabel;
Edit37: TEdit;
Edit38: TEdit;
Label43: TLabel;
Edit39: TEdit;
Label52: TLabel;
Edit41: TEdit;
Label12: TLabel;
Edit12: TEdit;
Label20: TLabel;
Edit13: TEdit;
Label22: TLabel;
Edit22: TEdit;
Label30: TLabel;
Edit23: TEdit;
Label31: TLabel;
Edit25: TEdit;
Label33: TLabel;
Edit29: TEdit;
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
addForm: TaddForm;
naim:string;
ed_izm:string;
kolvo:integer;

nomerpartiya:string;
sernum:string;
srok_godnost:tdate;
data_postavka:tdate;
postavchik:string;
description:string;
location:string;
location_part:string;
primech:string;
Ayear, amonth,aday:word;
razmer_part,kol:integer;
id_part,idaddional,idlocation,idzapas:integer;
idtov,id_proffesiya:integer;
Familiya, imya, otchestvo, pasportnomer, pasportvudan:string;
dogovor_nomer:string;
data_dog,okonch: tdatetime;
id_operac:integer;


implementation

uses MainClients;

{$R *.dfm}

procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TaddForm.Button1Click(Sender: TObject);
var bank,revizit:string;

begin

Familiya:=edit18.Text;
imya:=edit21.Text;
otchestvo:=edit26.Text;
adres:=edit30.Text;
dom_tel:=edit28.Text;
MainClientsForm.ADOTable8.Active:=true;
MainClientsForm.ADOTable8.Insert;
MainClientsForm.ADOTable8.FieldByName('familya').AsString:=Familiya;
MainClientsForm.ADOTable8.FieldByName('imya').AsString:=imya;
MainClientsForm.ADOTable8.FieldByName('otchestvo').AsString:=otchestvo;
MainClientsForm.ADOTable8.FieldByName('adres').AsString:=adres;
MainClientsForm.ADOTable8.FieldByName('telefon').AsString:=dom_tel;
MainClientsForm.ADOTable8.Post;
id_client:=MainClientsForm.ADOTable8.FieldByName('id_client').AsInteger;
end;

procedure TaddForm.Button2Click(Sender: TObject);

var description, srok, skidka:string;
firm,country,factory:string;
massa,razgon,maxskorost:integer;

begin

description:= edit23.text;
srok:=edit25.text;
skidka:=edit29.text;

MainClientsForm.ADOTable6.Active:=true;
MainClientsForm.ADOTable6.Insert;
MainClientsForm.ADOTable6.FieldByName('desription').AsString:= description;
MainClientsForm.ADOTable6.FieldByName('srok').AsString:= srok;
MainClientsForm.ADOTable6.FieldByName('skidka').AsString:= skidka;
MainClientsForm.ADOTable6.Post;
id_akcia:=MainClientsForm.ADOTable6.FieldByName('id_akcia').AsInteger;


firm:=edit48.Text;
country:=edit55.Text;
factory:=edit45.Text;

MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable4.Insert;
MainClientsForm.ADOTable4.FieldByName('firm').AsString:= firm;
MainClientsForm.ADOTable4.FieldByName('country').AsString:= country;
MainClientsForm.ADOTable4.FieldByName('factory').AsString:=factory;
MainClientsForm.ADOTable4.Post;
id_proizv:= MainClientsForm.ADOTable4.FieldByName('id_proizv').AsInteger;
massa:= strtoint(edit3.Text);
razgon:=strtoint(edit20.Text);
maxskorost:=strtoint(edit12.Text);
korobka:=edit13.Text;
rashod:=strtofloat(edit22.Text);
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable5.Insert;
MainClientsForm.ADOTable5.FieldByName('massa').AsInteger:= massa;
MainClientsForm.ADOTable5.FieldByName('razgon').AsInteger:= razgon;
MainClientsForm.ADOTable5.FieldByName('maxskorost').AsInteger:= maxskorost;
MainClientsForm.ADOTable5.FieldByName('korobka').AsString:= korobka;
MainClientsForm.ADOTable5.FieldByName('rashod').AsFloat:=rashod;
MainClientsForm.ADOTable5.Post;
id_harakter:=MainClientsForm.ADOTable5.FieldByName('id_harakter').AsInteger;
dvigat:=edit31.Text;
moshnost:=edit35.Text;
diski:=edit37.Text;
shinu:=edit39.Text;
steklo:=edit44.Text;
radiola:=edit4.Text;
svet:=edit46.Text;
kuzov:=edit17.Text;
zashita:=edit49.Text;
podveska:=edit41.Text;
cvet:=edit47.Text;

MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable3.Insert;

MainClientsForm.ADOTable3.FieldByName('dvigat').AsString:= dvigat;
MainClientsForm.ADOTable3.FieldByName('moshnost').AsString:= moshnost;
MainClientsForm.ADOTable3.FieldByName('diski').AsString:= diski;
MainClientsForm.ADOTable3.FieldByName('shinu').AsString:= shinu;
MainClientsForm.ADOTable3.FieldByName('steklo').AsString:= steklo;
MainClientsForm.ADOTable3.FieldByName('radiola').AsString:= radiola;
MainClientsForm.ADOTable3.FieldByName('svet').AsString:= svet;
MainClientsForm.ADOTable3.FieldByName('kuzov').AsString:= kuzov;
MainClientsForm.ADOTable3.FieldByName('zashita').AsString:= zashita;
MainClientsForm.ADOTable3.FieldByName('podveska').AsString:= podveska;
MainClientsForm.ADOTable3.FieldByName('cvet').AsString:= cvet;
MainClientsForm.ADOTable3.Post;
id_complect:=MainClientsForm.ADOTable3.FieldByName('id_complect').AsInteger;
model:=edit5.Text;
god:=strtoint(edit54.Text);
kolvo:=strtoint(edit53.Text);
cena:=strtoint(edit7.Text);
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable2.Insert;

MainClientsForm.ADOTable2.FieldByName('model').AsString:= model;
MainClientsForm.ADOTable2.FieldByName('god').AsInteger:= god;
MainClientsForm.ADOTable2.FieldByName('kolvo').AsInteger:= kolvo;
MainClientsForm.ADOTable2.FieldByName('cena').AsInteger:= cena;
MainClientsForm.ADOTable2.FieldByName('id_akcia').AsInteger:= id_akcia;
MainClientsForm.ADOTable2.FieldByName('id_proizv').AsInteger:= id_proizv;
MainClientsForm.ADOTable2.FieldByName('id_harak').AsInteger:= id_harakter;
MainClientsForm.ADOTable2.FieldByName('id_complect').AsInteger:= id_complect;
MainClientsForm.ADOTable2.Post;

end;

procedure TaddForm.Button3Click(Sender: TObject);
var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;
p1:tparameter;
firm1:string;
kontakt,nomer_dog:string;
id_firm:integer;
datad,datak:tdatetime;
id_avto,id_client,id_sotrudnik:integer;
summa:real;
begin
id_avto:=strtoint(edit1.Text);
id_client:=strtoint(edit11.Text);
id_sotrudnik:=strtoint(edit24.Text);
datad:=strtodate(edit14.Text);
summa:=strtofloat(edit2.Text);
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable1.Insert;
MainClientsForm.ADOTable1.FieldByName('id_avto').AsInteger:= id_avto;
MainClientsForm.ADOTable1.FieldByName('id_client').AsInteger:= id_client;
MainClientsForm.ADOTable1.FieldByName('id_sotrudnik').AsInteger:= id_sotrudnik;
MainClientsForm.ADOTable1.FieldByName('date').AsDateTime:= datad;
MainClientsForm.ADOTable1.FieldByName('summa').AsFloat:= summa;
MainClientsForm.ADOTable1.Post;
end;

procedure TaddForm.Button4Click(Sender: TObject);
var data_sd:tdatetime;
id_object:integer;
stoimz:real;
tarif:real;
dog1,dog2:integer;
id_operac:integer;
data_prim:tdatetime;
naimen,edinica,proizvod,notes,rabot:string;
fam,nam,otchestvo,dolg:string;
stag:integer;
begin
fam:=(edit6.text);
nam:=(edit8.text);
otchestvo:=(edit10.text);
dolg:=(edit16.text);
stag:=strtoint(edit15.text);


MainClientsForm.ADOTable7.Active:=true;
MainClientsForm.ADOTable7.Insert;
MainClientsForm.ADOTable7.FieldByName('familiya').AsString:= fam;
MainClientsForm.ADOTable7.FieldByName('imya').AsString:= nam;
MainClientsForm.ADOTable7.FieldByName('otchestvo').AsString:= otchestvo;
MainClientsForm.ADOTable7.FieldByName('dolgnost').AsString:= dolg;
MainClientsForm.ADOTable7.FieldByName('stag').AsInteger:=stag;
MainClientsForm.ADOTable7.Post;


end;

procedure TaddForm.Button5Click(Sender: TObject);
var
XlApplication: OleVariant;
XLWorkSheet: OleVariant;
stoim:real;
begin
end;

procedure TaddForm.FormCreate(Sender: TObject);
begin
end;

end.
unit ChildTemplate;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls;

type
TChildTemplateForm = class(TForm)
DBGrid1: TDBGrid;
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure RzToolbarButton2Click(Sender: TObject);
procedure RzToolbarButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

implementation

{$R *.dfm}
uses mainclients;
procedure TChildTemplateForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TChildTemplateForm.RzToolbarButton1Click(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.Insert;
end;

procedure TChildTemplateForm.RzToolbarButton2Click(Sender: TObject);
begin
dbgrid1.DataSource.DataSet.Edit;
end;

end.
unit parampoisk;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce,
StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls ;


type
Tparampoik = class(TForm)
Button1: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Label7: TLabel;
Edit2: TEdit;
UpDown1: TUpDown;
Edit3: TEdit;
Edit4: TEdit;
UpDown2: TUpDown;
Edit5: TEdit;
UpDown3: TUpDown;
Edit6: TEdit;
UpDown4: TUpDown;
Edit7: TEdit;
Label2: TLabel;
Label3: TLabel;
procedure RzBitBtn4Click(Sender: TObject);
procedure RzBitBtn3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
parampoik: Tparampoik;
ChildTemplateForm1: TChildTemplateForm;
ff:string;
flagpoisk:boolean;
p1,p2:tparameter;
all:boolean;
ahour, aminute, asecond, amillisecond :word;
priznak:string;

stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;
idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;
implementation

uses mainclients;


{$R *.dfm}

procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure Tparampoik.RzBitBtn3Click(Sender: TObject);
var ChildTemplateForm:TChildTemplateform;
all:boolean;

stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;
fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;

begin
MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm');
ChildTemplateForm:=TChildTemplateform.Create(Owner);

ChildTemplateForm.Left:=0;
ChildTemplateForm.Top:=3;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1;

mainclientsform.ADOQuery1.Active:=false;
mainclientsform.ADOQuery1.SQL.Clear;

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
end;

procedure Tparampoik.RzBitBtn4Click(Sender: TObject);
begin
flagpoisk:=false;
MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');

end;

procedure Tparampoik.Button1Click(Sender: TObject);
var ChildTemplateForm:TChildTemplateform;

timenach,timekon:tdatetime;

begin
MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm');
ChildTemplateForm:=TChildTemplateform.Create(Owner);

ChildTemplateForm.Left:=0;
ChildTemplateForm.Top:=3;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;

mainclientsform.ADOQuery2.Active:=false;
mainclientsform.ADOQuery2.SQL.Clear;
if nomer_poisk=1 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;

if edit1.Text<>'' then begin
srtkl := edit1.Text;

end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;
P1.Size:=Length(srtkl);

end;
ChildTemplateForm.Label1.Caption:='Информация об автомобиле : '+edit1.Text;
sqlwhere:= ' where (complect.id_complect = ( select avto.id_complect from avto where avto.model like :P1))';


stroka_SQL:='select * from complect'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);

if stroka_SQL<>'' then begin


mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL;
end;
end;

if nomer_poisk=2 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;


if edit1.Text<>'' then begin
srtkl := edit1.Text;

end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;
P1.Size:=Length(srtkl);

end;
ChildTemplateForm.Label1.Caption:='Информация о клиенте: '+edit1.Text;
sqlwhere:= ' where client.familya like :P1';


stroka_SQL:='select * from client'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);

if stroka_SQL<>'' then begin


mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL;
end;
end;
mainclientsform.ADOTable3.Next;
end;
end;

end;

end
else showmessage('проводка накладной не требуется')
end;
end;
end;

end;

end.

unit DBDirectoryTemplate;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids;

type
TDBDirectoryTemplateForm = class(TForm)
TableDBGrid: TDBGrid;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
DBDirectoryTemplateForm: TDBDirectoryTemplateForm;

implementation

{$R *.dfm}

procedure TDBDirectoryTemplateForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;

end.

Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111
Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.

Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.

Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.

Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.

Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.

Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.

Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.











Проект автосалон

Главная форма приложения MainClients

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas