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

         DBText2: TDBText;

         DBText3: TDBText;

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         DBCheckBox1: TDBCheckBox;

         DBCheckBox2: TDBCheckBox;

         DBCheckBox3: TDBCheckBox;

         DBCheckBox4: TDBCheckBox;

         DBCheckBox5: TDBCheckBox;

         DBCheckBox6: TDBCheckBox;

         DBCheckBox7: TDBCheckBox;

         DBCheckBox8: TDBCheckBox;

         DBMemo1: TDBMemo;

         DBMemo2: TDBMemo;

         Panel2: TPanel;

         RadioGroup1: TRadioGroup;

         Panel7: TPanel;

         Panel10: TPanel;

         LMDSpeedButton3: TLMDSpeedButton;

         LMDSpeedButton4: TLMDSpeedButton;

         LMDSpeedButton5: TLMDSpeedButton;

         LMDSpeedButton6: TLMDSpeedButton;

         LMDSpeedButton7: TLMDSpeedButton;

         LMDSpeedButton8: TLMDSpeedButton;

         Edit1: TEdit;

         LMDSpeedButton1: TLMDSpeedButton;

         Label7: TLabel;

         Label6: TLabel;

         N21: TMenuItem;

         N22: TMenuItem;

         N23: TMenuItem;

         procedure FormShow(Sender: TObject);

         procedure N5Click(Sender: TObject);

         procedure N14Click(Sender: TObject);

         procedure N81Click(Sender: TObject);

         procedure N15Click(Sender: TObject);

         procedure N82Click(Sender: TObject);

         procedure N8Click(Sender: TObject);

         procedure N9Click(Sender: TObject);

         procedure N11Click(Sender: TObject);

         procedure DBGrid1CellClick(Column: TColumn);

         procedure N12Click(Sender: TObject);

         procedure LMDSpeedButton1Click(Sender: TObject);

         procedure LMDSpeedButton3Click(Sender: TObject);

         procedure LMDSpeedButton4Click(Sender: TObject);

         procedure LMDSpeedButton5Click(Sender: TObject);

         procedure LMDSpeedButton6Click(Sender: TObject);

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

         procedure LMDSpeedButton9Click(Sender: TObject);

         procedure Timer1Timer(Sender: TObject);

         procedure LMDSpeedButton10Click(Sender: TObject);

         procedure N7Click(Sender: TObject);

         procedure N19Click(Sender: TObject);

         procedure LMDSpeedButton7Click(Sender: TObject);

         procedure N10Click(Sender: TObject);

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

         procedure FormCreate(Sender: TObject);

         procedure DBGrid1TitleClick(Column: TColumn);

         procedure N22Click(Sender: TObject);

         procedure N23Click(Sender: TObject);

         procedure N17Click(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end;

 

     var

       Fmain: TFmain;

       path : string;

 

     implementation

 

     uses logo, dm, vladel, sotr, add, edit, del, query, search, marka, about;

 

     {$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 TFmain.FormShow(Sender: TObject);

     begin

     flogo.showmodal;

     flogo.Free;

     Image3.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_1').AsString);

     Image4.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_2').AsString);

     end;

 

     procedure TFmain.N5Click(Sender: TObject);

     begin

     close;

     end;

 

     procedure TFmain.N14Click(Sender: TObject);

     begin

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

     ColorDialog1.Execute;

     DBGrid1.Font.Color:=ColorDialog1.color;

     end;

 

     procedure TFmain.N81Click(Sender: TObject);

     begin

     DBGrid1.Font.Size:=10;

     end;

 

     procedure TFmain.N15Click(Sender: TObject);

     begin

     DBGrid1.Font.Size:=12;

     end;

 

     procedure TFmain.N82Click(Sender: TObject);

     begin

     DBGrid1.Font.Size:=8;

     end;

 

     procedure TFmain.N8Click(Sender: TObject);

     begin

     fvlad.showmodal;

     end;

 

     procedure TFmain.N9Click(Sender: TObject);

     begin

     fsotr.showmodal;

     end;

 

     procedure TFmain.N11Click(Sender: TObject);

     begin

     fadd.showmodal;

     end;

 

     procedure TFmain.DBGrid1CellClick(Column: TColumn);

     begin

     Image3.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_1').AsString);

     Image4.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_2').AsString);

     end;

 

     procedure TFmain.N12Click(Sender: TObject);

     begin

     Fedit.showmodal;

     end;

 

     procedure TFmain.LMDSpeedButton1Click(Sender: TObject);

     begin

     if edit1.Text<>'' then begin

       if RadioGroup1.ItemIndex=0 then

       if dm1.avto.Locate('marka',edit1.Text,[loCaseInsensitive]) then

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

 

       if RadioGroup1.ItemIndex=1 then

       if dm1.avto.Locate('model',edit1.Text,[loCaseInsensitive]) then

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

 

       if RadioGroup1.ItemIndex=2 then

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

       if dm1.avto.Locate('gos_nom',edit1.Text,[loCaseInsensitive]) then

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

     end

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

     end;

 

     procedure TFmain.LMDSpeedButton3Click(Sender: TObject);

     begin

     fsotr.showmodal;

     end;

 

     procedure TFmain.LMDSpeedButton4Click(Sender: TObject);

     begin

     fvlad.showmodal;

     end;

 

     procedure TFmain.LMDSpeedButton5Click(Sender: TObject);

     begin

     fadd.showmodal;

     end;

 

     procedure TFmain.LMDSpeedButton6Click(Sender: TObject);

     begin

     Fedit.showmodal;

     end;

 

     procedure TFmain.LMDSpeedButton9Click(Sender: TObject);

     begin

     //close;

     Panel9.Visible := not Panel9.Visible;

     end;

 

     procedure TFmain.Timer1Timer(Sender: TObject);

     begin

     Label6.Caption:=TimeToStr(Time);

     end;

 

     procedure TFmain.LMDSpeedButton10Click(Sender: TObject);

     begin

     fquery.showmodal;

     end;

 

     procedure TFmain.N7Click(Sender: TObject);

     begin

     fdel.showmodal;

     end;

 

     procedure TFmain.N19Click(Sender: TObject);

     begin

     fquery.showmodal;

     end;

 

     procedure TFmain.LMDSpeedButton7Click(Sender: TObject);

     var v:string;

         k:integer;

     begin

 

      dm1.komplect.Edit;

      dm1.avto.Edit;

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

       v:='KOD_out';

       k:=gen_id(dm1.avto_out,v);

      dm1.avto_out.Append;

      dm1.avto_out.FieldByName('KOD_out').Value:=k;

      dm1.avto_out.FieldByName('marka_out').Value:=dm1.avto.FieldByName('marka').Value;

      dm1.avto_out.FieldByName('model_out').value:=dm1.avto.FieldByName('model').value;

      dm1.avto_out.FieldByName('V_out').value:=dm1.avto.FieldByName('V').value;

      dm1.avto_out.FieldByName('cvet_out').value:=dm1.avto.FieldByName('cvet').value;

      dm1.avto_out.FieldByName('tipkuz_out').value:=dm1.avto.FieldByName('tip_kuz').value;

      dm1.avto_out.FieldByName('cena_out').value:=dm1.avto.FieldByName('cena').value;

      dm1.avto_out.FieldByName('date').value:=Date;

 

          if messagedlg('Продать?!',mtconfirmation, [mbYes, mbNo],0)=mrYes then

           begin

              while not dm1.komplect.Eof do dm1.komplect.Delete;

              dm1.avto.Delete;

          end;

 

      DeleteFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.FieldByName('foto_1').AsString);

      DeleteFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.FieldByName('foto_2').AsString);

 

      //dm1.avto.Post;

      //dm1.komplect.Post;

      dm1.avto_out.Post;

     end;

 

     procedure TFmain.N10Click(Sender: TObject);

     begin

     LMDSpeedButton7Click(Sender);

     end;

 

     procedure TFmain.DBGrid1KeyPress(Sender: TObject; var Key: Char);

     begin

     Image3.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_1').AsString);

     Image4.Picture.LoadFromFile(ExtractFilePath(Application.Exename)+'FOTO\'+dm1.avto.fieldbyname('FOTO_2').AsString);

     end;

 

     procedure TFmain.FormCreate(Sender: TObject);

     begin

       path:=Application.ExeName;

     end;

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

     procedure TFmain.DBGrid1TitleClick(Column: TColumn);

     begin

      if Column.Title.Caption='Марка' then

       dm1.avto.IndexName:='marka';