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

СОДЕРЖАНИЕ
СПИСОК УСЛОВНЫХ ОБОЗНАЧЕНИЙ И СОКРАЩЕНИЙ
ВВЕДЕНИЕ
ГЛАВА 1. ПРОЕКТИРОВАНИЕ ИНФОРМАЦИОННЫХ СИСТЕМ
1.1 Основные этапы проектирования информационных систем
1.2. Анализ и проектирование информационных систем в области продаж автомобилей
1.3.Требования к разрабатываемой информационной системе
Выводы
ГЛАВА 2. ПРОЕКТИРОВАНИЕ ИНФОРМАЦИОННОЙ СИСТЕМЫ
АВТОСАЛОНА ООО "АВТОШТАДТ-НЕВА»
2.1. Проектирование технического обеспечения системы
2.2. Проектирование алгоритмического обеспечения системы
2.3. Проектирование базы данных
2.3.1. Концептуальная модель
2.3.2. Логическое проектирование
2.4 Проектирование интерфейса системы
Выводы
ГЛАВА 3. ПРОГРАММНАЯ РЕАЛИЗАЦИЯ ИНФОРМАЦИОННОЙ СИСТЕМЫ АВТОСАЛОНА ООО «АВТОШТАДТНЕВА»
3.1. Выбор инструментальных средств разработки
3.1.1. Анализ и выбор СУБД
3.1.2. Анализ и выбор средств разработки программных средств
3.2. Физическое проектирование базы данных в СУБД MS SQL 2005
3.3. Описание программной реализации системы
3.3.1 Структура разработанного программного проекта
3.3.2 Назначение основных процедур и функций
3.4. Руководство пользователя
Выводы
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ ЛИСТИНГ РАЗРАБОТАННОЙ ПРОГРАММЫ

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