addcar.pas

管理车队用车记录

unit addcar;

interface

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

type
  TForm_addcar = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label6: TLabel;
    ComboBox1: TComboBox;
    BitBtn4: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    Label9: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Edit7: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox1Enter(Sender: TObject);
    procedure Edit(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
  Form_addcar: TForm_addcar;
  var client_id:integer;
  var client_str:string;

implementation
 uses dm,md5,adddriver;
{$R *.dfm}

procedure TForm_addcar.BitBtn2Click(Sender: TObject);
begin
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
datetimepicker1.DateTime:=now;
combobox1.ItemIndex:=-1;
end;

procedure TForm_addcar.BitBtn3Click(Sender: TObject);
begin
form_addcar.Close;
end;

procedure TForm_addcar.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;
if (edit7.Text='')  then
begin
messagedlg('公里补贴不能为空！',mtwarning,[mbok],0);
activecontrol:=edit7;
abort;
end;

form_dm.ADOTable_car.Open;
if form_dm.ADOTable_car.Locate('id',edit1.Text,[]) then
begin
messagedlg('车牌号已经存在！',mtwarning,[mbok],0);
abort;
end;
if messagedlg(' 确定要增加该车辆？',mtwarning,[mbyes,mbno],0)=mryes then
begin
try
begin
with form_dm.ADOTable_car do
begin
open;
append;
fieldbyname('id').asstring:=trim(edit1.Text);
fieldbyname('type').AsString:=trim(edit2.Text);
fieldbyname('km').Asfloat:=strtofloat(edit3.Text);
fieldbyname('runid').Asstring:=trim(edit4.Text);
fieldbyname('oilconsume').Asstring:=trim(edit5.Text);
fieldbyname('price').Asfloat:=strtofloat(edit6.Text);
fieldbyname('examine').asstring:=formatdatetime('yyyy-mm-dd',datetimepicker1.datetime);
fieldbyname('glj').Asfloat:=strtofloat(edit7.Text);
post;
end;
if combobox1.Text<>'' then
begin
  with form_dm.ADOTable_driver_car do
  begin
    open;
    if not locate('driver_name',combobox1.Text,[])then
    begin
    append;
    fieldbyname('car_id').asstring:=trim(edit1.Text);
    fieldbyname('driver_name').AsString:=trim(combobox1.Text);
    post;
    end
    else
    begin
      showmessage('车辆增加成功，但是无法为其指定驾驶员，此驾驶员已经被指定为其他车辆！');
    end;
  end;
end;
end;
except
showmessage('车辆登记失败');
abort;
end;
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
datetimepicker1.DateTime:=now;
combobox1.ItemIndex:=-1;
end;
end;
procedure TForm_addcar.Edit4KeyPress(Sender: TObject;
  var Key: Char);
begin
if key = #13 then
edit5.SetFocus;
end;

procedure TForm_addcar.Edit2KeyPress(Sender: TObject;
  var Key: Char);
begin
if key = #13 then
edit3.SetFocus;
end;

procedure TForm_addcar.Edit3KeyPress(Sender: TObject;
  var Key: Char);
begin
if key = #13 then
edit4.SetFocus;
end;

procedure TForm_addcar.DateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key = #13 then
combobox1.SetFocus;
end;

procedure TForm_addcar.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
bitbtn1.SetFocus;
end;

procedure TForm_addcar.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit6.SetFocus;
end;

procedure TForm_addcar.BitBtn4Click(Sender: TObject);
begin
form_adddriver.showmodal;
end;

procedure TForm_addcar.ComboBox1Enter(Sender: TObject);
begin
with form_dm.ADOtable_driver do
        begin
        open;
        Sort:='name';
        first;
        combobox1.Items.Clear;
        repeat
            combobox1.Items.Add(form_dm.ADOtable_driver.fieldbyname('name').AsString);
            form_dm.ADOtable_driver.Next;
        until eof;
        end;
end;

procedure TForm_addcar.Edit(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
datetimepicker1.SetFocus;
end;

procedure TForm_addcar.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit7.SetFocus;
end;

procedure TForm_addcar.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
datetimepicker1.SetFocus;
end;

end.