【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了: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=''
上一篇:
driverdata_unit.pas
下一篇:
法律专业开题报告范文