АРМ менеджера в автосалоне "A-Motors"

       FAbout: TFAbout;

 

     implementation

 

     {$R *.dfm}

 

     procedure TFAbout.FormClose(Sender: TObject; var Action: TCloseAction);

     begin

       Action:=caFree;

     end;

 

     end.

     А.2 Модуль формы окна «Зарегистрировать автомобиль»

     unit add;

 

     interface

 

     uses

       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

       Dialogs, Buttons, glLabel, DBTables,ExtCtrls, glBevel, StdCtrls, RxGIF,

       DBCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicButton,

       LMDCustomSpeedButton, LMDSpeedButton, ExtDlgs,IDGlobal, ToolEdit, Mask,

       LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,

       LMDBaseEdit, LMDCustomEdit, LMDCustomBrowseEdit, LMDCustomFileEdit,

       LMDFileOpenEdit, jpeg;

 

     type

       TFadd = class(TForm)

         Panel1: TPanel;

         glLabel1: TglLabel;

 

      Продолжение приложения А

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         Label6: TLabel;

         Label7: TLabel;

         Edit1: TEdit;

         Edit2: TEdit;

         Edit3: TEdit;

         Edit4: TEdit;

         Edit5: TEdit;

         Edit6: TEdit;

         Edit7: TEdit;

         Panel2: TPanel;

         Panel3: TPanel;

         glLabel2: TglLabel;

         glLabel3: TglLabel;

         Label8: TLabel;

         Label9: TLabel;

         Label10: TLabel;

         Label11: TLabel;

         Label12: TLabel;

         Label13: TLabel;

         Label14: TLabel;

         Edit8: TEdit;

         Edit9: TEdit;

         Edit10: TEdit;

         Edit11: TEdit;

         ComboBox1: TComboBox;

         Edit12: TEdit;

         CheckBox1: TCheckBox;

         CheckBox2: TCheckBox;

         CheckBox3: TCheckBox;

         CheckBox4: TCheckBox;

         CheckBox5: TCheckBox;

         CheckBox6: TCheckBox;

         CheckBox7: TCheckBox;

         CheckBox8: TCheckBox;

         Edit13: TEdit;

         ComboBox2: TComboBox;

         Label15: TLabel;

         ComboBox3: TComboBox;

         ComboBox4: TComboBox;

         Label16: TLabel;

         Label17: TLabel;

         Memo1: TMemo;

         Label18: TLabel;

         Label19: TLabel;

         Memo2: TMemo;

         Image2: TImage;

         Panel4: TPanel;

         Panel5: TPanel;

         LMDSpeedButton1: TLMDSpeedButton;

         LMDSpeedButton2: TLMDSpeedButton;

         LMDSpeedButton3: TLMDSpeedButton;

         Label20: TLabel;

         DBLookupComboBox1: TDBLookupComboBox;

         Image3: TImage;

     Продолжение приложения А

         glLabel4: TglLabel;

         LMDSpeedButton4: TLMDSpeedButton;

         LMDSpeedButton5: TLMDSpeedButton;

         OpenPictureDialog2: TOpenPictureDialog;

         Image4: TImage;

         Image5: TImage;

         glLabel5: TglLabel;

         Label21: TLabel;

         Label22: TLabel;

         Edit14: TEdit;

         DateEdit1: TDateEdit;

         OpenPictureDialog1: TOpenPictureDialog;

         Image1: TImage;

         DBLookupComboBox2: TDBLookupComboBox;

         procedure LMDSpeedButton4Click(Sender: TObject);

         procedure LMDSpeedButton5Click(Sender: TObject);

         procedure LMDSpeedButton2Click(Sender: TObject);

         procedure FormCreate(Sender: TObject);

         procedure LMDSpeedButton3Click(Sender: TObject);

         procedure FormClose(Sender: TObject; var Action: TCloseAction);

         procedure LMDSpeedButton1Click(Sender: TObject);

         procedure OpenPictureDialog1CanClose(Sender: TObject;

           var CanClose: Boolean);

         procedure Edit6KeyPress(Sender: TObject; var Key: Char);

         procedure Edit7KeyPress(Sender: TObject; var Key: Char);

         procedure Edit13KeyPress(Sender: TObject; var Key: Char);

         procedure Edit14KeyPress(Sender: TObject; var Key: Char);

         procedure DBLookupComboBox2Click(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end;

 

     var

       Fadd: TFadd;

       pic1,pic2:string;

     implementation

 

     uses dm;

 

     {$R *.dfm}

 

     function gen_id(table:TTable; var name:string):integer;

     var n:integer;

     begin

     table.First;

     n:=table.FieldByName(name).asinteger;

     while not table.Eof do begin

       if table.FieldByName(name).Value>n then

         n:=table.FieldByName(name).Value;

         table.Next;

         end;

       gen_id:=n+1;

     end;

 

     procedure TFadd.LMDSpeedButton4Click(Sender: TObject);

     begin

     OpenPictureDialog1.Execute;

     Продолжение приложения А

     pic1:=OpenPictureDialog1.FileName;

     if pic1<>'' then Image4.Picture.LoadFromFile(pic1)

     else  begin

     MessageBox(Handle,'Фотография кузова не выбрана!','',MB_OK);

     exit;

     end;

     end;

 

     procedure TFadd.LMDSpeedButton5Click(Sender: TObject);

     begin

     OpenPictureDialog1.Execute;

     pic2:=OpenPictureDialog1.FileName;

     if pic2<>'' then Image5.Picture.LoadFromFile(pic2)

     else  begin

     MessageBox(Handle,'Фотография салона не выбрана!','',MB_OK);

     exit;

     end;

     end;

 

     procedure TFadd.LMDSpeedButton2Click(Sender: TObject);

     begin

       edit1.Text:='';

       edit2.Text:='';

       edit3.Text:='';

       edit4.Text:='';

       edit5.Text:='';

       edit6.Text:='';

       edit7.Text:='';

       edit8.Text:='';

       edit9.Text:='';

       edit10.Text:='';

       edit11.Text:='';

       edit12.Text:='';

       edit13.Text:='';

       edit14.Text:='';

       CheckBox1.Checked:=false;

       CheckBox2.Checked:=false;

       CheckBox3.Checked:=false;

       CheckBox4.Checked:=false;

       CheckBox5.Checked:=false;

       CheckBox6.Checked:=false;

       CheckBox7.Checked:=false;

       CheckBox8.Checked:=false;

       Memo1.Clear;

       Memo2.Clear;

     end;

 

     procedure TFadd.FormCreate(Sender: TObject);

     begin

     //  dm1.vlad.Close;

      // dm1.vlad.Open;

       Memo1.Clear;

       Memo2.Clear;

     end;

 

     procedure TFadd.LMDSpeedButton3Click(Sender: TObject);

     begin

     close;

     end;

     Продолжение приложения А

 

     procedure TFadd.FormClose(Sender: TObject; var Action: TCloseAction);

     begin

       edit1.Text:='';

       edit2.Text:='';

       edit3.Text:='';

       edit4.Text:='';

       edit5.Text:='';

       edit6.Text:='';

       edit7.Text:='';

       edit8.Text:='';

       edit9.Text:='';

       edit10.Text:='';

       edit11.Text:='';

       edit12.Text:='';

       edit13.Text:='';

       edit14.Text:='';

       CheckBox1.Checked:=false;

       CheckBox2.Checked:=false;

       CheckBox3.Checked:=false;

       CheckBox4.Checked:=false;

       CheckBox5.Checked:=false;

       CheckBox6.Checked:=false;

       CheckBox7.Checked:=false;

       CheckBox8.Checked:=false;

       Memo1.Clear;

       Memo2.Clear;

     end;

 

     procedure TFadd.LMDSpeedButton1Click(Sender: TObject);

     var k1,k2,k3:integer;

         st1,q1,st2,q2,v,a,a_i:string;

         i,u:integer;

     begin

     if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='')

     or (DBLookupComboBox2.KeyValue=Null) or (edit9.Text='') or (edit10.Text='') or (edit11.Text='')

     or (edit12.Text='') or (edit13.Text='') or (edit14.Text='') or (pic1='')

     or (pic2='') then begin

     MessageBox(Handle,'Возможно некоторые поля не заполнены!','Внимание',MB_OK);

     exit;

     end

     else begin

 

             dm1.komplect.Append;

             dm1.avto_in.Append;

 

     v:='KOD_vlad';

     k1:=gen_id(dm1.vlad,v);

             dm1.vlad.Append;

       dm1.vlad.FieldByName('KOD_vlad').Value:=k1;

       dm1.vlad.FieldByName('FAM').Value:=edit1.text;

       dm1.vlad.FieldByName('NAME').value:=edit2.Text;

       dm1.vlad.FieldByName('OTH').value:=edit3.text;

       dm1.vlad.FieldByName('adres').value:=edit4.text;

       dm1.vlad.fieldByName('mail').value:=edit5.Text;

       dm1.vlad.FieldByName('tel').value:=edit6.text;

       dm1.vlad.FieldByName('sot').value:=edit7.text;

     Продолжение приложения А

     a:='KOD_avto';

     k2:=gen_id(dm1.avto,a);

             dm1.avto.Append;

 

       dm1.avto.FieldByName('KOD_avto').Value:=k2;

       dm1.avto.FieldByName('KOD_vlad').Value:=k1;