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

       dm1.avto.FieldByName('marka').Value:=DBLookupComboBox2.KeyValue;

       dm1.avto.FieldByName('model').value:=edit9.Text ;

       dm1.avto.FieldByName('cvet').value:=edit11.text;

       dm1.avto.FieldByName('gos_nom').value:=edit10.text ;

       dm1.avto.fieldByName('tip_kuz').value:=ComboBox1.Text;

       dm1.avto.FieldByName('v').value:=edit12.text;

       dm1.avto.FieldByName('cena').value:=edit13.text;

 

             st1:='';

             q1:='';

             for i:=length(pic1) downto 1 do

             if pic1[i]<>'.' then insert(pic1[i],q1,0) else break;

             st1:=ExtractFilePath(Application.Exename);

             ForceDirectories(st1+'FOTO');

             if dm1.avto.FieldByName('foto_1').AsString<>'' then

               DeleteFile(st1+'FOTO\'+dm1.avto.FieldByName('foto_1').AsString);

             if copyfileto(pchar(pic1),pchar(st1+'FOTO\'+inttostr(k2)+'kuz' + '.'+q1)) then

             else begin

                MessageBox(Handle,'Невозможно скопировать файл!','Внимание',MB_OK);

                exit;

             end;

             dm1.avto.FieldByName('foto_1').AsString:=inttostr(k2)+'kuz' + '.'+q1;

 

             st2:='';

             q2:='';

             for u:=length(pic2) downto 1 do

             if pic2[u]<>'.' then insert(pic2[u],q2,0) else break;

             st2:=ExtractFilePath(Application.Exename);

             ForceDirectories(st2+'FOTO');

             if dm1.avto.FieldByName('foto_2').AsString<>'' then

               DeleteFile(st2+'FOTO\'+dm1.avto.FieldByName('foto_2').AsString);

             if copyfileto(pchar(pic2),pchar(st2+'FOTO\'+inttostr(k2)+'sal' + '.'+q2)) then

             else begin

                MessageBox(Handle,'Невозможно скопировать файл!','Внимание',MB_OK);

                exit;

             end;

             dm1.avto.FieldByName('foto_2').AsString:=inttostr(k2)+'sal' + '.'+q2;

 

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

       if CheckBox1.Checked=true then dm1.komplect.FieldByName('zapaska').Value:='true'

       else dm1.komplect.FieldByName('zapaska').Value:='false';

 

       if CheckBox2.Checked=true then dm1.komplect.FieldByName('instrument').Value:='true'

       else dm1.komplect.FieldByName('instrument').Value:='false';

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

 

       if CheckBox3.Checked=true then dm1.komplect.FieldByName('music').Value:='true'

       else dm1.komplect.FieldByName('music').Value:='false';

 

       if CheckBox4.Checked=true then dm1.komplect.FieldByName('medic').Value:='true'

       else dm1.komplect.FieldByName('medic').Value:='false';

 

       if CheckBox5.Checked=true then dm1.komplect.FieldByName('elect_pak').Value:='true'

       else dm1.komplect.FieldByName('elect_pak').Value:='false';

 

       if CheckBox6.Checked=true then dm1.komplect.FieldByName('abs').Value:='true'

       else dm1.komplect.FieldByName('abs').Value:='false';

 

       if CheckBox7.Checked=true then dm1.komplect.FieldByName('gur').Value:='true'

       else dm1.komplect.FieldByName('gur').Value:='false';

 

       if CheckBox8.Checked=true then dm1.komplect.FieldByName('kondic').Value:='true'

       else dm1.komplect.FieldByName('kondic').Value:='false';

       dm1.komplect.FieldByName('koleso').Value:=ComboBox2.Text;

       dm1.komplect.FieldByName('korobka').Value:=ComboBox3.Text;

       dm1.komplect.FieldByName('privod').Value:=ComboBox4.Text;

       dm1.komplect.FieldByName('info').Value:=Memo1.Text;

       dm1.komplect.FieldByName('defekt').Value:=Memo2.Text;

 
 

       a_i:='KOD_avto';

       k3:=gen_id(dm1.avto,a_i);

 

       dm1.avto_in.FieldByName('KOD_in').Value:=k3;

       dm1.avto_in.FieldByName('akt_nom').Value:=Edit14.Text;

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

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

       dm1.avto_in.FieldByName('KOD_sot').Value:=DBLookupComboBox1.KeyValue;

       dm1.avto_in.FieldByName('data').Value:=DateEdit1.Date;

 

          //   dm1.vlad.Post;

           //    dm1.avto.Post;

               dm1.komplect.Post;

               dm1.avto_in.Post;

 

       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;

 

     end;

 

     procedure TFadd.OpenPictureDialog1CanClose(Sender: TObject;

       var CanClose: Boolean);

     begin

     MessageBox(Handle,'Вы не выбрали машину!','Внимание',MB_OK);

     end;

 

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

     begin

       case key of

       '0'..'9',#8: key:=key

         else key:=#0;

       end;

     end;

 

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

     begin

       case key of

       '0'..'9',#8: key:=key

         else key:=#0;

       end;

     end;

 

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

     begin

       case key of

       '0'..'9',#8: key:=key

         else key:=#0;

       end;

     end;

 

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

     begin

       case key of

       '0'..'9',#8: key:=key

         else key:=#0;

       end;

     end;

 

     procedure TFadd.DBLookupComboBox2Click(Sender: TObject);

     begin

     //  Edit8.Text:=DBLookupComboBox2.KeyValue;

     end;

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

     end.

     А.3 Модуль формы «Удалить автомобиль»

     unit del;

 

     interface

 

     uses

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

       Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, LMDControl, LMDBaseControl,

       LMDBaseGraphicButton,ActiveX,ComObj, ComCtrls, LMDCustomSpeedButton, LMDSpeedButton,DB;

 

     type

       TFdel = class(TForm)

         Panel1: TPanel;

         DBGrid1: TDBGrid;

         Panel5: TPanel;

         Panel2: TPanel;

         Image1: TImage;

         LMDSpeedButton1: TLMDSpeedButton;

         Edit1: TEdit;

         RadioGroup1: TRadioGroup;

         Panel3: TPanel;

         LMDSpeedButton2: TLMDSpeedButton;

         Image2: TImage;

         RadioGroup2: TRadioGroup;

         Panel4: TPanel;

         Image3: TImage;

         LMDSpeedButton3: TLMDSpeedButton;

         LMDSpeedButton4: TLMDSpeedButton;

         procedure LMDSpeedButton1Click(Sender: TObject);

         procedure LMDSpeedButton2Click(Sender: TObject);

         procedure LMDSpeedButton4Click(Sender: TObject);

         procedure LMDSpeedButton3Click(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end;

 

     var

       Fdel: TFdel;

       App, Ke, Abc     : Variant;

       ExelOtch         : String;

       Result           : HResult;

       AppProgID        : string;

       ServerIsRunning  :boolean;

       Unknown          :IUnknown;

       i:integer;

 

     implementation

 

     uses dm;

 

     {$R *.dfm}

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

     procedure TFdel.LMDSpeedButton1Click(Sender: TObject);

     begin

     if edit1.Text<>'' then begin

       if RadioGroup1.ItemIndex=0 then

       if dm1.avto_out.Locate('marka_out',edit1.Text,[loCaseInsensitive]) then

       else MessageBox(Handle,'Нет автомобиля такой марки...','',MB_OK);

 

       if RadioGroup1.ItemIndex=1 then

       if dm1.avto_out.Locate('model_out',edit1.Text,[loCaseInsensitive]) then

       else MessageBox(Handle,'Нет автомобиля такой модели...','',MB_OK);

     end

     else MessageBox(Handle,'Введите значение для поиска!','',MB_OK);

     end;

 

     procedure TFdel.LMDSpeedButton2Click(Sender: TObject);

     begin

       if RadioGroup2.ItemIndex=0 then

       dm1.avto_out.IndexName:='marka_out';

 

       if RadioGroup2.ItemIndex=1 then

       dm1.avto_out.IndexName:='V_out';

 

       if RadioGroup2.ItemIndex=2 then

       dm1.avto_out.IndexName:='tipkuz_out';

     end;

 

     procedure TFdel.LMDSpeedButton4Click(Sender: TObject);

     begin

     close;

     end;

 

     procedure TFdel.LMDSpeedButton3Click(Sender: TObject);

     begin

       AppProgID := 'Excel.Application';

       ServerIsRunning := False;

       Result:=GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);

     try

       if (Result = MK_E_UNAVAILABLE) then

             App := CreateOleObject(AppProgID)

        else

         begin

         App := GetActiveOleObject(AppProgID);