u_ypll.pas

人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实现员工离职、复职操作。支持数据的模糊查询机制。运行环境 操作系统：Windows 2000/NT/XP/ME 开发工

unit U_ypll;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ExtCtrls;

type
  Tfrm_ypll = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure editvalue;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ypll: Tfrm_ypll;

implementation

uses U_data, U_yp, U_main;

{$R *.dfm}

procedure Tfrm_ypll.editvalue;
begin
   frm_main.log:=1;
   Application.CreateForm(Tfrm_yp,frm_yp);
frm_yp.Edit1.Text:=data1.yp.FieldByName('编号').Value;
frm_yp.Edit2.Text:=data1.yp.FieldByName('姓名').Value;
frm_yp.combobox2.Text:=data1.yp.FieldByName('性别').Value;
frm_yp.combobox1.Text:=data1.yp.FieldByName('民族').Value;
frm_yp.MaskEdit1.Text:=data1.yp.FieldByName('出生日期').Value;
frm_yp.Edit6.Text:=data1.yp.FieldByName('联系电话').Value;
frm_yp.Edit7.Text:=data1.yp.FieldByName('电子信箱').Value;
frm_yp.Edit8.Text:=data1.yp.FieldByName('特长').Value;
frm_yp.Edit9.Text:=data1.yp.FieldByName('兴趣爱好').Value;
frm_yp.Edit10.Text:=data1.yp.FieldByName('通信地址').Value;
frm_yp.Edit11.Text:=data1.yp.FieldByName('毕业院校').Value;
frm_yp.Edit12.Text:=data1.yp.FieldByName('专业').Value;
frm_yp.combobox3.Text:=data1.yp.FieldByName('文化程度').Value;
frm_yp.memo1.Text:=data1.yp.FieldByName('专业技能').Value;
frm_yp.memo2.Text:=data1.yp.FieldByName('工作经历').Value;
   frm_yp.ShowModal;
   frm_yp.Free;
end;

procedure Tfrm_ypll.BitBtn1Click(Sender: TObject);
begin
   frm_main.log:=1;
   Application.CreateForm(Tfrm_yp,frm_yp);
   frm_yp.ShowModal;
   frm_yp.Free;
end;

procedure Tfrm_ypll.BitBtn2Click(Sender: TObject);
begin
//if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
   data1.yp.Delete;
end;

procedure Tfrm_ypll.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_ypll.FormShow(Sender: TObject);
begin
with data1.yp do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 应聘信息表');
      open;
   end;
data1.yp.Active:=true;
end;

procedure Tfrm_ypll.DBGrid1DblClick(Sender: TObject);
begin
If DBGrid1.DataSource.DataSet<> Nil then
    if DBGrid1.DataSource.DataSet.RecordCount>0 then
    editvalue;
end;

procedure Tfrm_ypll.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frm_main.log:=0;
end;

end.