АРМ мененджер автосалона "А-моторс"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
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.