baseinputunit1.pas.~6~

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

unit baseinputUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ExtDlgs, ComCtrls, DB, ADODB,basedata_unit;

type
  Tbaseinputfrm = class(TForm)
    worker_idlb: TLabel;
    worker_namelb: TLabel;
    archives_idlb: TLabel;
    sex_lb: TLabel;
    birthday_lb: TLabel;
    native_placelb: TLabel;
    school_agelb: TLabel;
    graduate_schlb: TLabel;
    politics_ststuslb: TLabel;
    work_timelb: TLabel;
    come_timelb: TLabel;
    address_lb: TLabel;
    link_phonelb: TLabel;
    department_lb: TLabel;
    major_lb: TLabel;
    remark_lb: TLabel;
    Label18: TLabel;
    Bevel1: TBevel;
    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;
    save_btn: TButton;
    cancel_btn: TButton;
    pic_btn: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Label16: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    procedure cancel_btnClick(Sender: TObject);
    procedure pic_btnClick(Sender: TObject);
    procedure save_btnClick(Sender: TObject);
  private
   basedata:Tbasedata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  baseinputfrm: Tbaseinputfrm;

implementation

uses persondatamod_unit;

{$R *.dfm}

procedure Tbaseinputfrm.cancel_btnClick(Sender: TObject);
begin
//image1.Picture.Free ;
baseinputfrm.Close;
end;

procedure Tbaseinputfrm.pic_btnClick(Sender: TObject);
begin
if openpicturedialog1.Execute  then
begin
//在image中显示选中的图片
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;

procedure Tbaseinputfrm.save_btnClick(Sender: TObject);
var
  //picture2:tpicture;
  modsql,path1:string;
   //msTmp1: TMemoryStream;
begin
//实例化类
basedata:=Tbasedata.create ;
//判断是否选择照片
if  openpicturedialog1.FileName='' then
begin
showmessage('请选择照片！');
exit;
end;
//判断员工编号是否已经存在
if basedata.CheckRec(edit1.Text)=true then
begin
showmessage('该员工编号已经存在，插入失败！');
exit;
end;
//获取选中照片的路径
path1:=openpicturedialog1.FileName;


basedata.WorkId1(edit1.Text,path1);
//basedata.WorkId(edit1.Text,msTmp1);
//更改插入记录的其它内容
{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);

end;


end.