driverout.pas

信息管理系统

unit driverout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls, DBClient,
  ExtDlgs, ComCtrls,driverdata_unit;

type
  Tdriveroutfrm = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Edit7: TEdit;
    Edit8: TEdit;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel2: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Panel3: TPanel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit6: TEdit;
    ComboBox2: TComboBox;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    Memo1: TMemo;
    Button3: TButton;
    DataSource1: TDataSource;
    basefind_cds1: TClientDataSet;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
  driverdata:Tdriverdata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  driveroutfrm: Tdriveroutfrm;

implementation
uses mainfrmunit2;
{$R *.dfm}

procedure Tdriveroutfrm.Button2Click(Sender: TObject);
begin
driveroutfrm.Close;
end;

procedure Tdriveroutfrm.Button3Click(Sender: TObject);
var sql:string;
begin
//创建类的实例
driverdata:=Tdriverdata.create ;
//赋值查询语句
sql:='select driver_ID 司机编号,WORKER_NAME 司机姓名,'
+'SEX 性别,ARCHIVES_ID 档案编号 ,PHOTO 个人照片,'
+'BIRTHDAY 出生日期,NATIVE_PLACE 籍贯,id_card 身份证,driver_card_type 驾驶证类型,driver_card_id 驾照号 ,'
+'LINK_PHONE 联系电话, '
+'ADDRESS 住址,WORK_TIME 发证时间,'
+'last_TIME 有效期,REMARK 备注   FROM driver_DATA';
//执行查询方法并用列表显示出来
basefind_cds1.Data:=driverdata.AllRec(sql);
//释放实例
driverdata.Free;
end;

procedure Tdriveroutfrm.Button1Click(Sender: TObject);
var sql:string;
begin
//实例化类
driverdata:=Tdriverdata.create ;
if driverdata.CheckRec(edit7.text)=false  then      //如果找不到对应的记录,提示用户出错
begin
showmessage('对不起，该司机编号不存在！');
exit;
end;
//调用类中查询方法返回图片信息并在image中显示出来
Image1.Picture.Bitmap.LoadFromStream(driverdata.GetPhoto(edit7.Text) );
//释放返回的图片信息
driverdata.GetPhoto(edit7.Text).Free;
//将对应的查询结果显示出来
edit1.Text :=driverdata.GetWorkerName(edit7.Text);
edit8.Text :=driverdata.GetArcId(edit7.Text);
edit5.Text :=driverdata.GetLinkPhone(edit7.Text) ;
combobox1.Text :=driverdata.GetSex(edit7.Text) ;
edit3.Text :=driverdata.Getidcard(edit7.Text) ;
edit2.Text :=driverdata.GetNativePlace(edit7.Text) ;
edit4.Text :=driverdata.GetAddress(edit7.Text) ;
combobox2.Text :=driverdata.Getdrivercardtype(edit7.Text);
edit6.Text :=driverdata.Getdrivercardid(edit7.Text);
datetimepicker1.DateTime:=strtodate(driverdata.GetBirth(edit7.Text) );
datetimepicker2.DateTime:=strtodate(driverdata.GetWorkTime(edit7.Text) ) ;
datetimepicker3.DateTime:=strtodate(driverdata.GetlastTime(edit7.Text) ) ;
memo1.Text:=driverdata.GetRemark(edit7.Text);
basefind_cds1.Data:=driverdata.AllRec(sql);
//释放类的实例
driverdata.Free;
end;

procedure Tdriveroutfrm.DBGrid1CellClick(Column: TColumn);
begin  //实例化类
driverdata:=Tdriverdata.create ;
edit7.Text :=DBGrid1.Fields[0].AsString ;
//判断查询记录是否存在
if driverdata.CheckRec(edit7.text)=false  then      //如果找不到对应的记录,提示用户出错
begin
showmessage('对不起，该司机编号不存在，删除失败！');
exit;
end;
//调用类中查询方法返回图片信息并在image中显示出来
Image1.Picture.Bitmap.LoadFromStream(driverdata.GetPhoto(edit7.Text) );
//释放返回的图片信息
driverdata.GetPhoto(edit7.Text).Free;
//将对应的查询结果显示出来
edit1.Text :=driverdata.GetWorkerName(edit7.Text);
edit8.Text :=driverdata.GetArcId(edit7.Text);
edit5.Text :=driverdata.GetLinkPhone(edit7.Text) ;
combobox1.Text :=driverdata.GetSex(edit7.Text) ;
edit3.Text :=driverdata.Getidcard(edit7.Text) ;
edit2.Text :=driverdata.GetNativePlace(edit7.Text) ;
edit4.Text :=driverdata.GetAddress(edit7.Text) ;
combobox2.Text :=driverdata.Getdrivercardtype(edit7.Text);
edit6.Text :=driverdata.Getdrivercardid(edit7.Text);
datetimepicker1.DateTime:=strtodate(driverdata.GetBirth(edit7.Text) );
datetimepicker2.DateTime:=strtodate(driverdata.GetWorkTime(edit7.Text) ) ;
datetimepicker3.DateTime:=strtodate(driverdata.GetlastTime(edit7.Text) ) ;
memo1.Text:=driverdata.GetRemark(edit7.Text);
//释放类的实例
driverdata.Free;

end;

end.