driverin.~pas

信息管理系统

unit driverin;

interface

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

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

var
  driverinfrm: Tdriverinfrm;

implementation
uses mainfrmUnit2;
{$R *.dfm}

procedure Tdriverinfrm.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 Tdriverinfrm.Image1DblClick(Sender: TObject);
begin
  if openpicturedialog1.Execute  then   //执行路径控件,找到图片的位置
  begin
    image1.Picture.LoadFromFile(openpicturedialog1.FileName); //载入图片并显示
  end;
end;

procedure Tdriverinfrm.Button2Click(Sender: TObject);
begin
  edit1.Text:='';    //就是将各个控件的文本属性清空
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  memo1.Text:='';
end;

procedure Tdriverinfrm.Button1Click(Sender: TObject);
var
  modsql: string;
  path1:  string;  //设置变量
begin
  //实例化类
  driverdata:=Tdriverdata.create ;
  //判断是否选择照片
  if  openpicturedialog1.FileName='' then
  begin
    showmessage('请选择照片！');
    exit;
  end;
  //判断司机编号是否已经存在
  if driverdata.CheckRec(edit7.Text)=true then
  begin
    showmessage('该司机编号已经存在，插入失败！');
    exit;
  end;
  //获取选中照片的路径
  path1:=openpicturedialog1.FileName;
  //调用类中方法先插入司机编号和照片内容
  driverdata.WorkId1(edit7.Text,path1);
  //赋值SQL语句更改插入记录的其它内容
  modsql:='update driver_data set worker_name='''+edit1.Text+''',archives_id='''+edit8.Text+''','
  +'sex='''+combobox1.Text+''',id_card='''+edit3.Text+''',native_place='''+edit2.Text+''','
  +'address='''+edit4.Text+''',driver_card_type='''+combobox2.Text+''','
  +'driver_card_id='''+edit6.Text+''',link_phone='''+edit5.Text+''','
  +'remark='''+memo1.Text+''',birthday='''+datetostr(datetimepicker1.Date)+''','
  +'work_time='''+datetostr(datetimepicker2.Date)+''',last_time='''+datetostr(datetimepicker3.Date)+''' '
  +' where driver_id='''+edit7.Text+'''';
  driverdata.RecUpdate(modsql);
  application.MessageBox('新建成功！','提示：',mb_ok);
  //释放实例
  driverdata.Free;
  //将各个控件的文本属性赋空
  edit1.Text:='';    edit2.Text:='';
  edit3.Text:='';    edit4.Text:='';
  edit5.Text:='';    edit6.Text:='';
  edit7.Text:='';    edit8.Text:='';
  memo1.Text:='';
end;

procedure Tdriverinfrm.Button5Click(Sender: TObject);
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);
  //释放类的实例
  driverdata.Free;
end;


procedure Tdriverinfrm.Button4Click(Sender: TObject);
var SQL:string;                         //图片变量
begin
  if  application.MessageBox('确实要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
  //更改信息的警告
  begin
    //实例化类
    driverdata:=Tdriverdata.create ;
    if driverdata.CheckRec(edit7.text)=false  then
    //如果找不到对应的记录,提示用户出错
    begin
      showmessage('对不起，该司机编号不存在，修改失败！');
      exit;
    end;
    sql:='update driver_data set worker_name='''+edit1.Text+''',archives_id='''+edit8.Text+''','
    +'sex='''+combobox1.Text+''',id_card='''+edit3.Text+''',native_place='''+edit2.Text+''','
    +'address='''+edit4.Text+''',driver_card_type='''+combobox2.Text+''','
    +'driver_card_id='''+edit6.Text+''',link_phone='''+edit5.Text+''','
    +'remark='''+memo1.Text+''',birthday='''+datetostr(datetimepicker1.Date)+''','
    +'work_time='''+datetostr(datetimepicker2.Date)+''',last_time='''+datetostr(datetimepicker3.Date)+''' '
    +' where driver_id='''+edit7.Text+'''';
    driverdata.RecUpdate(sql);
    application.MessageBox('修改成功！','提示：          ',mb_ok);       //成功的提示
    //释放实例类
    driverdata.free;
  end;
end;

procedure Tdriverinfrm.Button6Click(Sender: TObject);
begin
  if  application.MessageBox('确实要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
  //删除信息的警告
  begin
    //实例化类
    driverdata:=Tdriverdata.create ;
    if driverdata.CheckRec(edit7.text)=false  then      //如果找不到对应的记录,提示用户出错
    begin
      showmessage('对不起，该司机编号不存在，删除失败！');
      exit;
    end;
    driverdata.RecDel(edit7.text) ;
    showmessage('该司机基本信息已成功删除！');
    driverdata.free;
  end;
end;


procedure Tdriverinfrm.Button7Click(Sender: TObject);
begin
 close;
end;

procedure Tdriverinfrm.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;

procedure Tdriverinfrm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 //只能录入数字，否则报警
  if not(Key in['0'..'9']) then
  begin
   Key :=#0; //清除Key中的字符
   Beep;
  end;
end;

procedure Tdriverinfrm.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
 //只能录入数字，否则报警
  if not(Key in['0'..'9'])then
  begin
   Key :=#0; //清除Key中的字符
   Beep;
  end;
end;

procedure Tdriverinfrm.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
 //只能录入数字，否则报警
  if not(Key in['0'..'9'])then
  begin
   Key :=#0; //清除Key中的字符
   Beep;
  end;
end;

end.