ypxxll.pas

实现人力资源的管理

unit ypxxll;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, ComCtrls, RpCon, RpConDS, RpDefine, RpRave,
  Buttons, StdCtrls, ExtCtrls;

type
  Typxxllfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure editvalue;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ypxxllfrm: Typxxllfrm;

implementation

uses dbdata, ypdj, main;

{$R *.dfm}

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

procedure Typxxllfrm.editvalue;
begin
   mainfrm.log:=1;
   Application.CreateForm(Typdjfrm,ypdjfrm);
ypdjfrm.Edit1.Text:=data.ypdj.FieldByName('编号').Value;
ypdjfrm.Edit2.Text:=data.ypdj.FieldByName('姓名').Value;
ypdjfrm.combobox1.Text:=data.ypdj.FieldByName('性别').Value;
ypdjfrm.combobox2.Text:=data.ypdj.FieldByName('民族').Value;
ypdjfrm.MaskEdit1.Text:=data.ypdj.FieldByName('出生日期').Value;
ypdjfrm.Edit3.Text:=data.ypdj.FieldByName('联系电话').Value;
ypdjfrm.Edit4.Text:=data.ypdj.FieldByName('电子信箱').Value;
ypdjfrm.Edit5.Text:=data.ypdj.FieldByName('特长').Value;
ypdjfrm.Edit6.Text:=data.ypdj.FieldByName('兴趣爱好').Value;
ypdjfrm.Edit7.Text:=data.ypdj.FieldByName('通信地址').Value;
ypdjfrm.Edit8.Text:=data.ypdj.FieldByName('毕业学校').Value;
ypdjfrm.Edit9.Text:=data.ypdj.FieldByName('专业').Value;
ypdjfrm.combobox3.Text:=data.ypdj.FieldByName('文化程度').Value;
ypdjfrm.memo1.Text:=data.ypdj.FieldByName('专业技能').Value;
ypdjfrm.memo2.Text:=data.ypdj.FieldByName('工作经历').Value;
ypdjfrm.ShowModal;
ypdjfrm.Free;
end;

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

procedure Typxxllfrm.SpeedButton2Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
   data.ypdj.Delete;
end;

procedure Typxxllfrm.SpeedButton3Click(Sender: TObject);
begin
close;
end;

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


procedure Typxxllfrm.SpeedButton1Click(Sender: TObject);
begin
mainfrm.log:=1;
application.CreateForm(Typdjfrm,ypdjfrm);
ypxxllfrm.editvalue;
end;

end.