【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了，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.
    

上一篇：driveron.pas
下一篇：恋沫