updatedriver.pas

管理车队用车记录

unit updatedriver;

interface

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

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

var
  Form_updatedriver: TForm_updatedriver;

implementation
 uses dm;
{$R *.dfm}

procedure TForm_updatedriver.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:=dbgrid1.Fields[0].Text;
edit2.Text:=dbgrid1.Fields[1].Text;
edit3.Text:=dbgrid1.Fields[2].Text;
edit4.Text:=dbgrid1.Fields[3].Text;
datetimepicker1.Date:=strtodate(dbgrid1.Fields[4].Text);
end;

procedure TForm_updatedriver.BitBtn2Click(Sender: TObject);
begin
  if trim(edit1.text)='' then
begin
  showmessage('请选择你要删除的驾驶员!');
  abort;
end;
if Application.MessageBox('确定要删除该驾驶员','系统提示',MB_YESNO)=idyes then
begin
with form_dm.ADOTable_driver do
begin
  try
    open;
    locate('name',trim(edit1.Text),[]);
    Delete;
  except
    showmessage('删除驾驶员失败!');
    abort;
  end;
end;
form_dm.ADOTable_driver_car.open;
if form_dm.ADOTable_driver_car.Locate('driver_name',trim(edit1.text),[]) then
begin

  form_dm.ADOTable_driver_car.Delete;

end;
  form_dm.ADOTable_driver_car.close;
form_dm.adoquery_driver.Close;

form_dm.adoquery_driver.open;
dbgrid1.Refresh;
showmessage('删除成功!');
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
datetimepicker1.DateTime:=now;
end;
end;

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

procedure TForm_updatedriver.BitBtn1Click(Sender: TObject);
begin
if Application.MessageBox('确定要修改该驾驶员信息吗?','系统提示',MB_YESNO)=idyes then
  begin
    with form_dm.ADOTable_driver do
      begin
        Open;
        try
        Locate('name',trim(edit1.Text),[]);
        except
        showmessage('没有找到要修改的驾驶员!');
        abort;
        end;
        edit;
        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;
        refresh;
      end;
   form_dm.adoquery_driver.Close;
   form_dm.adoquery_driver.open;
   showmessage('修改成功!');
  end;
end;

procedure TForm_updatedriver.FormShow(Sender: TObject);
begin
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
datetimepicker1.DateTime:=now;
form_dm.ADOQuery_driver.SQL.Text:='select * from driver;';
form_dm.ADOQuery_driver.Open;
end;

procedure TForm_updatedriver.DBGrid1TitleClick(Column: TColumn);
var
     i:integer;
     fieldname:string;
begin//排序
     i:=Column.Index;
     if bSort=0 then
     begin
         fieldname:=DBGrid1.Columns[i].FieldName+' ASC';
         bSort:=1;
     end
     else
     begin
         fieldname:=DBGrid1.Columns[i].FieldName+' DESC';
         bSort:=0;
     end;
     form_dm.ADOquery_driver.open;
     form_dm.ADOquery_driver.Sort:=fieldname;
end;

end.