Главная: Рефераты

Рефераты. АРМ мененджер автосалона "А-моторс"

    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';


  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;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.