baseholdunit1.pas.~12~

本系统是结合行业管理中实际的人力资源、工资制度

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;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    OpenPictureDialog1: TOpenPictureDialog;
    Button4: TButton;
    Button5: TButton;
    Image1: TImage;
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
     basedata:Tbasedata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  baseholdfrm: Tbaseholdfrm;

implementation

{$R *.dfm}

procedure Tbaseholdfrm.Button5Click(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) ;
edit9.Text :=basedata.GetSex(edit1.Text) ;
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);
// basedata.FindRec(edit1.Text);
//DBimage1.DataSource:=basehold_ds1;
//DBimage1.DataField:='photo';

end;

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.Button1Click(Sender: TObject);
var
  picture1:tpicture;
  modsql:string;
begin
if  application.MessageBox('确实要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
//判断照片是否选择
if   openpicturedialog1.FileName='' then
begin
 showmessage('请重新选择个人照片！');
 exit;
end;
//获取照片信息
picture1:=tpicture.Create ;
picture1.LoadFromFile(extractfilename(openpicturedialog1.FileName));
//判断要修改的记录是否存在
if basedata.CheckRec(edit1.Text)=false  then
begin
showmessage('对不起，该员工编号不存在，修改失败！');
exit;
end;
//首先删除该记录
basedata.RecDel(edit1.Text);
//再插入编号和照片
//basedata.WorkId(edit1.Text,picture1);
//通过更改方法插入记录的其它内容
modsql:='update base_data set worker_name='''+edit2.Text+''',archives_id='''+edit3.Text+''','
+'sex='''+edit9.Text+''',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);
picture1.Free ;
end;
end;

procedure Tbaseholdfrm.Button2Click(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('该员工基本信息已成功删除！');
end;
 end;
end.