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

 

       if Column.Title.Caption='Объём' then

       dm1.avto.IndexName:='V';

 

       if Column.Title.Caption='Тип кузова' then

       dm1.avto.IndexName:='tip_kuz';

 

     end;

 

     procedure TFmain.N22Click(Sender: TObject);

     begin

       FSearch.showmodal;

     end;

 

     procedure TFmain.N23Click(Sender: TObject);

     begin

       FMarka.Showmodal;

     end;

 

     procedure TFmain.N17Click(Sender: TObject);

     begin

       Fabout.ShowModal;

     end;

 

     end.

     А.8 Модуль формы поиска

     unit search;

 

     interface

 

     uses

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

       Dialogs, DBCtrls, StdCtrls, Mask, glLabel, ExtCtrls, Grids, DBGrids,

       LMDCustomButton, LMDButton, DB, DBTables, RXDBCtrl;

 

     type

       TFSearch = class(TForm)

         Panel3: TPanel;

         glLabel2: TglLabel;

        Label8: TLabel;

         Label12: TLabel;

         Label13: TLabel;

         Label14: TLabel;

         ComboBox1: TComboBox;

         Panel4: TPanel;

         glLabel3: TglLabel;

         Label15: TLabel;

         Label16: TLabel;

         Label17: TLabel;

         ComboBox2: TComboBox;

         ComboBox3: TComboBox;

         ComboBox4: TComboBox;

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

         CheckBox1: TCheckBox;

         CheckBox2: TCheckBox;

         CheckBox3: TCheckBox;

         Panel1: TPanel;

         DBLookupComboBox1: TDBLookupComboBox;

         CheckBox4: TCheckBox;

         CheckBox5: TCheckBox;

         CheckBox6: TCheckBox;

         CheckBox7: TCheckBox;

         CheckBox8: TCheckBox;

         CheckBox9: TCheckBox;

         CheckBox10: TCheckBox;

         CheckBox11: TCheckBox;

         CheckBox12: TCheckBox;

         Edit1: TEdit;

         Edit2: TEdit;

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         CheckBox13: TCheckBox;

         CheckBox14: TCheckBox;

         CheckBox15: TCheckBox;

         CheckBox16: TCheckBox;

         CheckBox17: TCheckBox;

         Query1: TQuery;

         LMDButton1: TLMDButton;

         DataSource1: TDataSource;

         RxDBGrid1: TRxDBGrid;

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

         procedure CheckBox9Click(Sender: TObject);

         procedure CheckBox10Click(Sender: TObject);

         procedure CheckBox11Click(Sender: TObject);

         procedure CheckBox12Click(Sender: TObject);

         procedure CheckBox4Click(Sender: TObject);

         procedure CheckBox5Click(Sender: TObject);

         procedure CheckBox6Click(Sender: TObject);

         procedure CheckBox7Click(Sender: TObject);

         procedure CheckBox8Click(Sender: TObject);

         procedure CheckBox1Click(Sender: TObject);

         procedure CheckBox2Click(Sender: TObject);

         procedure CheckBox3Click(Sender: TObject);

         procedure LMDButton1Click(Sender: TObject);

         procedure DBGrid1CellClick(Column: TColumn);

       private

         { Private declarations }

       public

         { Public declarations }

       end;

 

     var

       FSearch: TFSearch;

 

     implementation

 

     uses dm, edit;

 

     {$R *.dfm}

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

 

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

     begin

       Action:=caFree;

     end;

 

     procedure TFSearch.CheckBox9Click(Sender: TObject);

     begin

       Label8.Enabled:=not Label8.Enabled;

       DBLookupComboBox1.Enabled:=not DBLookupComboBox1.Enabled;

     end;

 

     procedure TFSearch.CheckBox10Click(Sender: TObject);

     begin

       Label12.Enabled:=not Label12.Enabled;

       ComboBox1.Enabled:=not ComboBox1.Enabled;

     end;

 

     procedure TFSearch.CheckBox11Click(Sender: TObject);

     begin

       Label14.Enabled:=not Label14.Enabled;

       Edit1.Enabled:=not Edit1.Enabled;

     end;

 

     procedure TFSearch.CheckBox12Click(Sender: TObject);

     begin

       Label13.Enabled:=not Label13.Enabled;

       Edit2.Enabled:=not Edit2.Enabled;

     end;

 

     procedure TFSearch.CheckBox4Click(Sender: TObject);

     begin

       Label1.Enabled:=not Label1.Enabled;

       CheckBox17.Enabled:=not CheckBox17.Enabled;

     end;

 

     procedure TFSearch.CheckBox5Click(Sender: TObject);

     begin

       Label2.Enabled:=not Label2.Enabled;

       CheckBox16.Enabled:=not CheckBox16.Enabled;

     end;

 

     procedure TFSearch.CheckBox6Click(Sender: TObject);

     begin

       Label3.Enabled:=not Label3.Enabled;

       CheckBox15.Enabled:=not CheckBox15.Enabled;

     end;

 

     procedure TFSearch.CheckBox7Click(Sender: TObject);

     begin

       Label4.Enabled:=not Label4.Enabled;

       CheckBox14.Enabled:=not CheckBox14.Enabled;

     end;

 

     procedure TFSearch.CheckBox8Click(Sender: TObject);

     begin

       Label5.Enabled:=not Label5.Enabled;

       CheckBox13.Enabled:=not CheckBox13.Enabled;

     end;

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

 

     procedure TFSearch.CheckBox1Click(Sender: TObject);

     begin

       Label15.Enabled:=not Label15.Enabled;

       ComboBox2.Enabled:=not ComboBox2.Enabled;

     end;

 

     procedure TFSearch.CheckBox2Click(Sender: TObject);

     begin

       Label16.Enabled:=not Label16.Enabled;

       ComboBox3.Enabled:=not ComboBox3.Enabled;

     end;

 

     procedure TFSearch.CheckBox3Click(Sender: TObject);

     begin

       Label17.Enabled:=not Label17.Enabled;

       ComboBox4.Enabled:=not ComboBox4.Enabled;

     end;

 

     function BoolToStr(value : boolean):string;

     begin

       if value then result:='true' else result:='false';

     end;

 

     procedure TFSearch.LMDButton1Click(Sender: TObject);

     begin

       Query1.Close;

       Query1.SQL.Clear;

 

       try

         Query1.Sql.Add('select a.kod_avto, m.marka, a.model, a.cvet, a.tip_kuz, a.cena, a.v, k.korobka,k.privod ');

       Query1.SQL.Add('from avto a, komplect k, marka m ');

       Query1.SQL.Add('where ');

       if checkBox9.Checked then Query1.SQL.Add('a.marka = '+ Inttostr(DBLookupComboBox1.keyvalue)+' and');

       if checkBox10.Checked then Query1.SQL.Add('a.tip_kuz="'+ComboBox1.Text+'" and ');

       if checkBox11.Checked then Query1.SQL.Add('a.v<='+Edit1.Text+' and ');

       if checkBox12.Checked then Query1.SQL.Add('a.cena<='+Edit2.Text+' and ');

       if checkBox4.Checked then Query1.SQL.Add('k.elect_pak = '+BoolToStr(CheckBox17.Checked)+' and ');

       if checkBox5.Checked then Query1.SQL.Add('k.kondic = '+BoolToStr(CheckBox16.Checked)+' and ');

       if checkBox6.Checked then Query1.SQL.Add('k.music = '+BoolToStr(CheckBox15.Checked)+' and ');

       if checkBox7.Checked then Query1.SQL.Add('k.gur = '+BoolToStr(CheckBox14.Checked)+' and ');

       if checkBox8.Checked then Query1.SQL.Add('k.abs = '+BoolToStr(CheckBox13.Checked)+' and ');

       if checkBox1.Checked then Query1.SQL.Add('k.koleso = "'+ComboBox2.Text+'" and ');

       if checkBox2.Checked then Query1.SQL.Add('k.korobka = "'+ComboBox3.Text+'" and ');

       if checkBox3.Checked then Query1.SQL.Add('k.privod = "'+ComboBox4.Text+'" and ');

       Query1.SQL.Add('a.marka=m.id_marka and a.kod_avto=k.kod_avto');

          Query1.Open;

       except

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

         MessageDlg('Введены не все данные',mtWarning,[mbOk],0);

       end;

     end;

 

     procedure TFSearch.DBGrid1CellClick(Column: TColumn);

     begin

       if Query1.Active then begin

         if dm1.avto.Locate('kod_avto',Query1.FieldByName('kod_avto').AsInteger,[loCaseInsensitive])

         then fedit.showmodal;

       end;

     end;

 

     end.

     А.9 Модуль формы менеджеров

     unit sotr;

 

     interface

 

     uses

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

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

       LMDBaseGraphicButton, DB, LMDCustomSpeedButton, LMDSpeedButton, StdCtrls,

       Mask, DBTables, DBCtrls, ImgList;

 

     type

       TFsotr = class(TForm)

         Panel1: TPanel;

        DBGrid1: TDBGrid;

         Panel2: TPanel;

         pedit: TPanel;

         Panel4: TPanel;

         RadioGroup1: TRadioGroup;

         Edit1: TEdit;

         LMDSpeedButton1: TLMDSpeedButton;

         Image1: TImage;

         LMDSpeedButton2: TLMDSpeedButton;

         LMDSpeedButton3: TLMDSpeedButton;

         LMDSpeedButton4: TLMDSpeedButton;

         LMDSpeedButton5: TLMDSpeedButton;

         pnew: TPanel;

         Image2: TImage;

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         Label6: TLabel;

         Edit2: TEdit;

         Edit3: TEdit;

         Edit4: TEdit;

         Edit5: TEdit;

         Edit6: TEdit;

         Edit7: TEdit;

         LMDSpeedButton6: TLMDSpeedButton;

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