Вход

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

Дипломная работа*
Код 101773
Дата создания 2011
Страниц 92
Источников 22
По техническим причина покупка готовых работ временно недоступна.
7 680руб.

Содержание

СОДЕРЖАНИЕ
СПИСОК УСЛОВНЫХ ОБОЗНАЧЕНИЙ И СОКРАЩЕНИЙ
ВВЕДЕНИЕ
ГЛАВА 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

Список литературы

ЛИТЕРАТУРА
1.Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
2.Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
3.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
4.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
5.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
6.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
7.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
8.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
9.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
10.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.
11.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Де¬ло, 1995. – 450с.
12.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
13.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
14.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.
15.Дайан А. и др. Маркетинг. М., Экономика, 1993.
16.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.
17.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.
18.Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
19.Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
20.Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
21.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
22.Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала, который не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, но может использоваться в качестве источника для подготовки работы указанной тематики.
Сколько стоит
консультация по подготовке материалов?
1
Заполните заявку - это бесплатно и ни к чему вас не обязывает. Окончательное решение вы принимаете после ознакомления с условиями выполнения работы.
2
Менеджер оценивает работу и сообщает вам стоимость и сроки.
3
Вы вносите предоплату 25% и мы приступаем к работе.
4
Менеджер найдёт лучшего автора по вашей теме, проконтролирует выполнение работы и сделает всё, чтобы вы остались довольны.
5
Автор примет во внимание все ваши пожелания и требования вуза, оформит работу согласно ГОСТ, произведёт необходимые доработки БЕСПЛАТНО.
6
Контроль качества проверит работу на уникальность.
7
Готово! Осталось внести доплату и работу можно скачать в личном кабинете.
После нажатия кнопки "Узнать стоимость" вы будете перенаправлены на сайт нашего официального партнёра Zaochnik.com
© Рефератбанк, 2002 - 2018