adddriver.pas

管理车队用车记录

unit adddriver;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons;

type
  TForm_adddriver = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_adddriver: TForm_adddriver;

implementation

uses DM;

{$R *.dfm}

procedure TForm_adddriver.BitBtn2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
datetimepicker1.Datetime:=now;
edit1.SetFocus;
end;

procedure TForm_adddriver.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm_adddriver.BitBtn1Click(Sender: TObject);
begin
 if (edit1.Text='')  then
begin
messagedlg('姓名不能为空！',mtwarning,[mbok],0);
abort;
end;
if (edit2.Text='')  then
begin
messagedlg('档案号不能为空！',mtwarning,[mbok],0);
activecontrol:=edit2;
abort;
end;

form_dm.ADOTable_driver.Open;
if form_dm.ADOTable_driver.Locate('name',edit1.Text,[]) then
begin
messagedlg('驾驶员已经存在！',mtwarning,[mbok],0);
abort;
end;
if messagedlg(' 确定要增加该驾驶员？',mtwarning,[mbyes,mbno],0)=mryes then
begin
try
with form_dm.ADOTable_driver do
begin
open;
append;
fieldbyname('name').asstring:=trim(edit1.Text);
fieldbyname('file').AsString:=trim(edit2.Text);
fieldbyname('tel').Asstring:=trim(edit3.Text);
fieldbyname('licence').Asstring:=trim(edit4.Text);
fieldbyname('examine').Asstring:=formatdatetime('yyyy-mm-dd',datetimepicker1.Datetime);
post;
end;
except
showmessage('车辆登记失败');
abort;
end;
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
datetimepicker1.DateTime:=now;

end;
end;

end.