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

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

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;

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

LMDSpeedButton7: TLMDSpeedButton;

LMDSpeedButton8: TLMDSpeedButton;

LMDSpeedButton9: TLMDSpeedButton;

Image3: TImage;

Image4: TImage;

procedure LMDSpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure LMDSpeedButton4Click(Sender: TObject);

procedure LMDSpeedButton5Click(Sender: TObject);

procedure LMDSpeedButton2Click(Sender: TObject);

procedure LMDSpeedButton7Click(Sender: TObject);

procedure LMDSpeedButton9Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure LMDSpeedButton8Click(Sender: TObject);

procedure LMDSpeedButton6Click(Sender: TObject);

procedure LMDSpeedButton3Click(Sender: TObject);

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

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

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

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

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Fsotr: TFsotr;

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 TFsotr.LMDSpeedButton1Click(Sender: TObject);

begin

if edit1.Text<>'' then begin

if RadioGroup1.ItemIndex=0 then

if dm1.sot.Locate('FAM',edit1.Text,[loCaseInsensitive]) then

else MessageBox(Handle,'Нет записи с такой фамилией...','',MB_OK);

if RadioGroup1.ItemIndex=1 then

if dm1.sot.Locate('NAME',edit1.Text,[loCaseInsensitive]) then

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

else MessageBox(Handle,'Нет записи с таким именем...','',MB_OK);

end

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

end;

procedure TFsotr.FormCreate(Sender: TObject);

begin

dm1.sot.IndexName:='FAM';

RadioGroup1.ItemIndex:=-1;

end;

procedure TFsotr.LMDSpeedButton4Click(Sender: TObject);

begin

if messagedlg('Удалить?!',mtconfirmation, [mbYes, mbNo],0)=mrYes then begin

if dm1.sot.State=dsbrowse then dm1.sot.delete;

end;

end;

procedure TFsotr.LMDSpeedButton5Click(Sender: TObject);

begin

//dm1.sot.Edit;

//dm1.sot.Append;

pedit.Visible:=true;

Edit7.Text:=dm1.sot.fieldbyname('fam').Value;

Edit6.Text:=dm1.sot.fieldbyname('name').Value;

Edit5.Text:=dm1.sot.fieldbyname('oth').Value;

end;

procedure TFsotr.LMDSpeedButton2Click(Sender: TObject);

begin

pnew.Visible:=true;

end;

procedure TFsotr.LMDSpeedButton7Click(Sender: TObject);

begin

pedit.Visible:=false;

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

dm1.sot.Cancel;

end;

procedure TFsotr.LMDSpeedButton9Click(Sender: TObject);

begin

pnew.Visible:=false;

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

dm1.sot.Cancel;

end;

procedure TFsotr.FormActivate(Sender: TObject);

begin

pedit.Visible:=true;

pnew.Visible:=true;

pedit.Visible:=false;

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