Банк Рефератов - АРМ мененджер автосалона "А-моторс" - скачать рефераты, бесплатно рефераты

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

begin

Action:=caFree;

end;

end.

А.2 Модуль формы окна «Зарегистрировать автомобиль»

unit add;

interface

uses

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

Dialogs, Buttons, glLabel, DBTables,ExtCtrls, glBevel, StdCtrls, RxGIF,

DBCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicButton,

LMDCustomSpeedButton, LMDSpeedButton, ExtDlgs,IDGlobal, ToolEdit, Mask,

LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,

LMDBaseEdit, LMDCustomEdit, LMDCustomBrowseEdit, LMDCustomFileEdit,

LMDFileOpenEdit, jpeg;

type

TFadd = class(TForm)

Panel1: TPanel;

glLabel1: TglLabel;

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

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Panel2: TPanel;

Panel3: TPanel;

glLabel2: TglLabel;

glLabel3: TglLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

ComboBox1: TComboBox;

Edit12: TEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

Edit13: TEdit;

ComboBox2: TComboBox;

Label15: TLabel;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

Label16: TLabel;

Label17: TLabel;

Memo1: TMemo;

Label18: TLabel;

Label19: TLabel;

Memo2: TMemo;

Image2: TImage;

Panel4: TPanel;

Panel5: TPanel;

LMDSpeedButton1: TLMDSpeedButton;

LMDSpeedButton2: TLMDSpeedButton;

LMDSpeedButton3: TLMDSpeedButton;

Label20: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Image3: TImage;

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

glLabel4: TglLabel;

LMDSpeedButton4: TLMDSpeedButton;

LMDSpeedButton5: TLMDSpeedButton;

OpenPictureDialog2: TOpenPictureDialog;

Image4: TImage;

Image5: TImage;

glLabel5: TglLabel;

Label21: TLabel;

Label22: TLabel;

Edit14: TEdit;

DateEdit1: TDateEdit;

OpenPictureDialog1: TOpenPictureDialog;

Image1: TImage;

DBLookupComboBox2: TDBLookupComboBox;

procedure LMDSpeedButton4Click(Sender: TObject);

procedure LMDSpeedButton5Click(Sender: TObject);

procedure LMDSpeedButton2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure LMDSpeedButton3Click(Sender: TObject);

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

procedure LMDSpeedButton1Click(Sender: TObject);

procedure OpenPictureDialog1CanClose(Sender: TObject;

var CanClose: Boolean);

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

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

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

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

procedure DBLookupComboBox2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Fadd: TFadd;

pic1,pic2:string;

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 TFadd.LMDSpeedButton4Click(Sender: TObject);

begin

OpenPictureDialog1.Execute;

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

pic1:=OpenPictureDialog1.FileName;

if pic1<>'' then Image4.Picture.LoadFromFile(pic1)

else begin

MessageBox(Handle,'Фотография кузова не выбрана!','',MB_OK);

exit;

end;

procedure TFadd.LMDSpeedButton5Click(Sender: TObject);

begin

OpenPictureDialog1.Execute;

pic2:=OpenPictureDialog1.FileName;

if pic2<>'' then Image5.Picture.LoadFromFile(pic2)

else begin

MessageBox(Handle,'Фотография салона не выбрана!','',MB_OK);

exit;

end;

procedure TFadd.LMDSpeedButton2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

edit8.Text:='';

edit9.Text:='';

edit10.Text:='';

edit11.Text:='';

edit12.Text:='';

edit13.Text:='';

edit14.Text:='';

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

CheckBox5.Checked:=false;

CheckBox6.Checked:=false;

CheckBox7.Checked:=false;

CheckBox8.Checked:=false;

Memo1.Clear;

Memo2.Clear;

end;

procedure TFadd.FormCreate(Sender: TObject);

begin

// dm1.vlad.Close;

// dm1.vlad.Open;

Memo1.Clear;

Memo2.Clear;

end;

procedure TFadd.LMDSpeedButton3Click(Sender: TObject);

begin

close;

end;

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

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

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

edit8.Text:='';

edit9.Text:='';

edit10.Text:='';

edit11.Text:='';

edit12.Text:='';

edit13.Text:='';

edit14.Text:='';

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

CheckBox5.Checked:=false;

CheckBox6.Checked:=false;

CheckBox7.Checked:=false;

CheckBox8.Checked:=false;

Memo1.Clear;

Memo2.Clear;

end;

procedure TFadd.LMDSpeedButton1Click(Sender: TObject);

var k1,k2,k3:integer;

st1,q1,st2,q2,v,a,a_i:string;

i,u:integer;

begin

if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='')

or (DBLookupComboBox2.KeyValue=Null) or (edit9.Text='') or (edit10.Text='') or (edit11.Text='')

or (edit12.Text='') or (edit13.Text='') or (edit14.Text='') or (pic1='')

or (pic2='') then begin

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

exit;

end

else begin

dm1.komplect.Append;

dm1.avto_in.Append;

v:='KOD_vlad';

k1:=gen_id(dm1.vlad,v);

dm1.vlad.Append;

dm1.vlad.FieldByName('KOD_vlad').Value:=k1;

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

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18