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

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

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;

pnew.Visible:=false;

end;

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


procedure TFsotr.LMDSpeedButton8Click(Sender: TObject);

var v:string;

    k:integer;

begin

if (Edit2.Text='') or (Edit3.Text='') or (Edit4.Text='') then begin

MessageBox(Handle,'Возможно некоторые поля не заполнены!','Внимание',MB_OK);

exit;

end

else begin

v:='KOD_sot';

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

  dm1.sot.Insert;

  dm1.sot.FieldByName('KOD_sot').Value:=k;

  dm1.sot.FieldByName('FAM').Value:=edit2.text;

  dm1.sot.FieldByName('NAME').value:=edit3.Text;

  dm1.sot.FieldByName('OTH').value:=edit4.text;

  dm1.sot.Post;

  pnew.Visible:=false;

  Edit2.Text:='';

  Edit3.Text:='';

  Edit4.Text:='';

end;

end;


procedure TFsotr.LMDSpeedButton6Click(Sender: TObject);

begin

if (Edit5.Text='') or (Edit6.Text='') or (Edit7.Text='') then begin

MessageBox(Handle,'Возможно некоторые поля не заполнены!','Внимание',MB_OK);

exit;

end

else begin

  dm1.sot.Edit;

  dm1.sot.FieldByName('FAM').Value:=edit7.text;

  dm1.sot.FieldByName('NAME').value:=edit6.Text;

  dm1.sot.FieldByName('OTH').value:=edit5.text;

  dm1.sot.Post;

  pedit.Visible:=false;

  Edit5.Text:='';

  Edit6.Text:='';

  Edit7.Text:='';

end;

end;


procedure TFsotr.LMDSpeedButton3Click(Sender: TObject);

begin

  edit1.Text:='';

  edit2.Text:='';

  edit3.Text:='';

  edit4.Text:='';

  edit5.Text:='';

  edit6.Text:='';

  edit7.Text:='';

  close;

end;


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

begin

  case key of

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

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


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

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


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

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


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

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


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

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


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

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


end.

А.10 Модуль формы о владельцах

unit vladel;


interface


uses

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

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

  LMDBaseGraphicButton, LMDCustomSpeedButton, DB, LMDSpeedButton, Buttons;


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

type

  TFvlad = class(TForm)

    Panel1: TPanel;

    DBGrid1: TDBGrid;

    Panel2: TPanel;

    Panel3: TPanel;

    RadioGroup1: TRadioGroup;

    Edit1: TEdit;

    LMDSpeedButton1: TLMDSpeedButton;

    Image1: TImage;

    RadioGroup2: TRadioGroup;

    LMDSpeedButton2: TLMDSpeedButton;

    Panel4: TPanel;

    Image2: TImage;

    Image3: TImage;

    LMDSpeedButton4: TLMDSpeedButton;

    pedit: TPanel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    LMDSpeedButton8: TLMDSpeedButton;

    LMDSpeedButton9: TLMDSpeedButton;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label7: TLabel;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Image4: TImage;

    procedure FormCreate(Sender: TObject);

    procedure LMDSpeedButton1Click(Sender: TObject);

    procedure LMDSpeedButton2Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure LMDSpeedButton8Click(Sender: TObject);

    procedure LMDSpeedButton4Click(Sender: TObject);

    procedure LMDSpeedButton9Click(Sender: TObject);

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

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

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

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

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

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

  private

    { Private declarations }

  public

    { Public declarations }

  end;


var

  Fvlad: TFvlad;


implementation


uses dm;

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


{$R *.dfm}


procedure TFvlad.FormCreate(Sender: TObject);

begin

dm1.vlad.IndexName:='FAM';

RadioGroup1.ItemIndex:=-1;

RadioGroup2.ItemIndex:=-1;

end;


procedure TFvlad.LMDSpeedButton1Click(Sender: TObject);

begin

if edit1.Text<>'' then begin

  if RadioGroup1.ItemIndex=0 then

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

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


  if RadioGroup1.ItemIndex=1 then

  if dm1.vlad.Locate('TEL',edit1.Text,[loCaseInsensitive]) then

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

end

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

end;


procedure TFvlad.LMDSpeedButton2Click(Sender: TObject);

begin

  if RadioGroup2.ItemIndex=0 then

  dm1.vlad.IndexName:='FAM';


  if RadioGroup2.ItemIndex=1 then

  dm1.vlad.IndexName:='NAME';


  if RadioGroup2.ItemIndex=2 then

  dm1.vlad.IndexName:='TEL';

end;


procedure TFvlad.FormActivate(Sender: TObject);

begin

pedit.Visible:=true;

pedit.Visible:=false;

end;


procedure TFvlad.LMDSpeedButton8Click(Sender: TObject);

begin

if (Edit5.Text='') or (Edit6.Text='') or (Edit7.Text='')or (Edit8.Text='')

or (Edit2.Text='')or (Edit3.Text='') or (Edit4.Text='')then begin

MessageBox(Handle,'Возможно некоторые поля не заполнены!','Внимание',MB_OK);

exit;

end

else begin

  dm1.vlad.Edit;

  dm1.vlad.FieldByName('FAM').Value:=edit2.text;

  dm1.vlad.FieldByName('NAME').value:=edit3.Text;

  dm1.vlad.FieldByName('OTH').value:=edit4.text;

  dm1.vlad.FieldByName('ADRES').value:=edit5.text;

  dm1.vlad.FieldByName('MAIL').value:=edit6.text;

  dm1.vlad.FieldByName('TEL').value:=edit7.text;

  dm1.vlad.FieldByName('SOT').value:=edit8.text;

  dm1.vlad.Post;

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

  pedit.Visible:=false;

  Edit2.Text:='';

  Edit3.Text:='';

  Edit4.Text:='';

  Edit5.Text:='';

  Edit6.Text:='';

  Edit7.Text:='';

  Edit8.Text:='';

end;

end;


procedure TFvlad.LMDSpeedButton4Click(Sender: TObject);

begin

pedit.Visible:=true;

  edit2.text:=dm1.vlad.FieldByName('FAM').Value;

  edit3.Text:=dm1.vlad.FieldByName('NAME').value;

  edit4.text:=dm1.vlad.FieldByName('OTH').value;

  edit5.text:=dm1.vlad.FieldByName('ADRES').value;

  edit6.text:=dm1.vlad.FieldByName('MAIL').value;

  edit7.text:=dm1.vlad.FieldByName('TEL').value;

  edit8.text:=dm1.vlad.FieldByName('SOT').value;

end;


procedure TFvlad.LMDSpeedButton9Click(Sender: TObject);

begin

pedit.Visible:=false;

  Edit2.Text:='';

  Edit3.Text:='';

  Edit4.Text:='';

  Edit5.Text:='';

  Edit6.Text:='';

  Edit7.Text:='';

  Edit8.Text:='';

dm1.vlad.Cancel;

end;


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

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


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

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;


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

begin

  case key of

  'A'..'Z','a'..'z','а'..'я','А'..'Я',#8: key:=key

    else key:=#0;

  end;

end;

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

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

begin

  case key of

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

    else key:=#0;

  end;

end;


procedure TFvlad.Edit8KeyPress(Sender: TObject; var Key: Char);

begin

  case key of

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

    else key:=#0;

  end;

end;


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

begin

Edit1.Text:='';

RadioGroup1.ItemIndex:=-1;

RadioGroup2.ItemIndex:=-1;

close;

end;


end.


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