【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了baseholdUnit1.pas相关资料,希望对各位网友有所帮助!
unit baseholdUnit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtDlgs, ComCtrls, ExtCtrls, StdCtrls, DBCtrls,basedata_unit,
DBClient,JPEG;
type
Tbaseholdfrm = class(TForm)
Label1: TLabel;
Bevel1: TBevel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit5: TEdit;
Edit7: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Base_Mod: TButton;
Base_Del: TButton;
Button3: TButton;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
OpenPictureDialog1: TOpenPictureDialog;
Button4: TButton;
Image1: TImage;
edit6: TComboBox;
sexchk1: TRadioButton;
sexchk2: TRadioButton;
Edit10: TComboBox;
Memo1: TMemo;
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Base_ModClick(Sender: TObject);
procedure Base_DelClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
basedata:Tbasedata;
{ Private declarations }
public
{ Public declarations }
end;
var
baseholdfrm: Tbaseholdfrm;
implementation
uses basefindUnit1;
{$R *.dfm}
procedure Tbaseholdfrm.Button4Click(Sender: TObject);
begin
baseholdfrm.Close;
end;
procedure Tbaseholdfrm.Button3Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
begin
//在image中显示选中的图片
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;
procedure Tbaseholdfrm.Base_ModClick(Sender: TObject);
var
modsql,path1,sex:string;
begin
if application.MessageBox('确实要修改吗?','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
//判断要修改的记录是否存在
if basedata.CheckRec(edit1.Text)=false then
begin
showmessage('对不起,该员工编号不存在,修改失败!');
exit;
end;
//判断照片是否修改
if openpicturedialog1.FileName='' then
//读取图片时已经将图片保存到应用程序目录下的临时文件中,这里再获取它的路径
path1:=extractfilepath(application.ExeName) + 'tmpImage.bmp'
else path1:=openpicturedialog1.FileName;
//调用类中方法先修改照片内容
basedata.PhotoUpdate(edit1.Text,path1);
//判断员工性别
if sexchk1.Checked then sex:='男';
if sexchk2.Checked then sex:='女';
//赋值SQL语句更改插入记录的其它内容
modsql:='update base_data set worker_name='''+edit2.Text+''',archives_id='''+edit3.Text+''','
+'sex='''+sex+''',school_age='''+edit10.Text+''',native_place='''+edit11.Text+''','
+'graduate_sch='''+edit5.Text+''',address='''+edit12.Text+''',politic_status='''+edit6.Text+''','
+'major='''+edit13.Text+''',link_phone='''+edit7.Text+''',department_name='''+edit14.Text+''','
+'remark='''+memo1.Text+''',birthday='''+datetostr(datetimepicker1.Date)+''','
+'work_time='''+datetostr(datetimepicker2.Date)+''',come_time='''+datetostr(datetimepicker3.Date)+''' '
+' where worker_id='''+edit1.Text+'''';
basedata.RecUpdate(modsql);
application.MessageBox('修改完成!','提示: ',mb_ok);
end;
//刷新修改后显示界面的显示内容
basefindfrm.FormActivate(Sender);
end;
procedure Tbaseholdfrm.Base_DelClick(Sender: TObject);
begin
if application.MessageBox('确实要删除吗?','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//判断要删除的记录是否存在
if basedata.CheckRec(edit1.Text)=false then
begin
showmessage('对不起,该员工编号不存在,删除失败!');
exit;
end;
//执行删除操作过程将该记录删除
basedata.RecDel(edit1.Text);
showmessage('该员工基本信息已成功删除!');
//清除删除记录内容
edit1.Text :='';edit2.Text:='';edit3.Text:='';edit5.Text:='';
edit7.Text :='';edit11.Text:='';edit12.Text:=''; edit13.Text:='';
edit14.Text:='';memo1.Text:='';
end;
basefindfrm.FormActivate(Sender);
end;
procedure Tbaseholdfrm.FormActivate(Sender: TObject);
begin
//创建类的实例
basedata:=Tbasedata.create ;
//判断要查询的记录是否存在
if basedata.CheckRec(edit1.Text)=false then
begin
showmessage('对不起,该员工编号不存在!');
exit;
end;
//调用类中查询方法返回图片信息并在image中显示出来
Image1.Picture.Bitmap.LoadFromStream(basedata.GetPhoto(edit1.Text) );
//释放返回的图片信息
basedata.GetPhoto(edit1.Text).Free;
//将对应的查询结果显示出来
edit2.Text :=basedata.GetWorkerName(edit1.Text);
edit3.Text :=basedata.GetArcId(edit1.Text);
edit5.Text :=basedata.GetGraSch(edit1.Text) ;
edit6.Text :=basedata.GetPoliSta(edit1.Text) ;
edit7.Text :=basedata.GetLinkPhone(edit1.Text) ;
if basedata.GetSex(edit1.Text)='男' then sexchk1.Checked:=true;
if basedata.GetSex(edit1.Text)='女' then sexchk2.Checked:=true;
edit10.Text :=basedata.GetSchAge(edit1.Text) ;
edit11.Text :=basedata.GetNativePlace(edit1.Text) ;
edit12.Text :=basedata.GetAddress(edit1.Text) ;
edit13.Text :=basedata.GetMajor(edit1.Text);
edit14.Text :=basedata.GetDepartName(edit1.Text);
datetimepicker1.DateTime:=strtodate(basedata.GetBirth(edit1.Text) );
datetimepicker2.DateTime:=strtodate(basedata.GetWorkTime(edit1.Text) ) ;
datetimepicker3.DateTime:=strtodate(basedata.GetComeTime(edit1.Text) ) ;
memo1.Text:=basedata.GetRemark(edit1.Text);
end;
procedure Tbaseholdfrm.FormCreate(Sender: TObject);
begin
//释放类的实例
basedata.Free;
end;
end.
上一篇:
Basefrm.pas
下一篇:
电咖汽车入选2018独角兽企业榜百强 发布“天际”品牌将推高估值