ygxxll.pas

实现人力资源的管理

unit ygxxll;

interface

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

type
  Tygxxllfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    TreeView1: TTreeView;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure pdtj;
    procedure editvalue;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure FormClose(Sender: TObject;var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    tj:string;
  end;

var
  ygxxllfrm: Tygxxllfrm;

implementation

uses dbdata, xygdj, yonghudenglu, main;

{$R *.dfm}

procedure Tygxxllfrm.FormShow(Sender: TObject);
var
a,b:string;
subt:TTreenode;
begin
with data.ADOQuery1 do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事表');
      open;
   end;
   data.ADOQuery1.Active:=true;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 单位名称 from 单位信息表');
      open;
   end;
   a:=data.ADOpublic.FieldByName('单位名称').Value;
   subt:=Treeview1.Items.Add(nil,a);
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 部门名称 from 部门表');
      open;
   end;
   while Not Data.ADOpublic.Eof do
   begin
     b:=Data.ADOpublic.FieldByName('部门名称').Value;
     Data.ADOpublic.Next;
     Treeview1.Items.AddChild(subt,b);
  end;
TreeView1.FullExpand;
end;

procedure Tygxxllfrm.pdtj;
begin
   if combobox1.Text='编号' then
      tj:='编号'
   else
   if combobox1.Text='姓名' then
      tj:='姓名'
   else
   if combobox1.Text='性别' then
      tj:='性别'
   else
   if combobox1.Text='民族' then
      tj:='民族'
   else
   if combobox1.Text='籍贯' then
      tj:='籍贯'
   else
   if combobox1.Text='文化程度' then
      tj:='文化程度';
end;

procedure Tygxxllfrm.editvalue;
begin
xygdjfrm.Edit1.Text:=data.ADOQuery1.FieldByName('编号').Value;
xygdjfrm.Edit2.Text:=data.ADOQuery1.FieldByName('姓名').Value;
xygdjfrm.ComboBox1.Text:=data.ADOQuery1.FieldByName('性别').Value;
xygdjfrm.ComboBox4.Text:=data.ADOQuery1.FieldByName('民族').Value;
xygdjfrm.MaskEdit1.Text:=data.ADOQuery1.FieldByName('出生日期').Value;
xygdjfrm.ComboBox3.Text:=data.ADOQuery1.FieldByName('婚姻状况').Value;
xygdjfrm.ComboBox4.Text:=data.ADOQuery1.FieldByName('文化程度').Value;
xygdjfrm.ComboBox5.Text:=data.ADOQuery1.FieldByName('政治面貌').Value;
xygdjfrm.Edit3.Text:=data.ADOQuery1.FieldByName('毕业学校').Value;
xygdjfrm.Edit4.Text:=data.ADOQuery1.FieldByName('专业').Value;
xygdjfrm.Edit5.Text:=data.ADOQuery1.FieldByName('特长').Value;
xygdjfrm.Edit6.Text:=data.ADOQuery1.FieldByName('电子邮箱').Value;
xygdjfrm.MaskEdit2.Text:=data.ADOQuery1.FieldByName('联系电话').Value;
xygdjfrm.Edit7.Text:=data.ADOQuery1.FieldByName('手机号码').Value;
xygdjfrm.Edit8.Text:=data.ADOQuery1.FieldByName('籍贯').Value;
xygdjfrm.Edit9.Text:=data.ADOQuery1.FieldByName('身份证号').Value;
xygdjfrm.Edit10.Text:=data.ADOQuery1.FieldByName('家庭地址').Value;
xygdjfrm.MaskEdit3.Text:=data.ADOQuery1.FieldByName('参加工作时间').Value;
xygdjfrm.ComboBox6.Text:=data.ADOQuery1.FieldByName('工种').Value;
xygdjfrm.Edit11.Text:=data.ADOQuery1.FieldByName('工龄').Value;
xygdjfrm.ComboBox7.Text:=data.ADOQuery1.FieldByName('所属部门').Value;
xygdjfrm.ComboBox8.Text:=data.ADOQuery1.FieldByName('职务').Value;
xygdjfrm.ComboBox9.Text:=data.ADOQuery1.FieldByName('职称').Value;
xygdjfrm.MaskEdit5.Text:=data.ADOQuery1.FieldByName('登记日期').Value;
xygdjfrm.Edit12.Text:=data.ADOQuery1.FieldByName('登记人').Value;
xygdjfrm.MaskEdit4.Text:=data.ADOQuery1.FieldByName('调入时间').Value;
xygdjfrm.Memo1.Text:=data.ADOQuery1.FieldByName('简历').Value;
xygdjfrm.Image1.Picture.Assign(data.ADOQuery1.FieldByName('照片'));
end;

procedure Tygxxllfrm.SpeedButton1Click(Sender: TObject);
begin
if combobox1.Text='' then
application.MessageBox('请设置查询条件','提示',64)
else if edit1.Text='' then
application.MessageBox('请输入要查询的内容','提示',64)
else
pdtj;
with data.ADOQuery1 do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事表 where ');
      sql.Add(tj);
      sql.Add('=:a');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      open;
   end;
end;

procedure Tygxxllfrm.SpeedButton2Click(Sender: TObject);
begin
if combobox1.Text='' then
application.MessageBox('请设置查询条件','提示',64)
else if edit1.Text='' then
application.MessageBox('请输入要查询的内容','提示',64)
else
pdtj;
with data.ADOQuery1 do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事表 where');
      sql.Add(tj);
      sql.Add('like ');
      sql.Add(':b');
      parameters.ParamByName('b').Value:=trim(edit1.Text)+'%';
      open;
   end;
end;

procedure Tygxxllfrm.SpeedButton3Click(Sender: TObject);
begin
mainfrm.log:=1;
application.CreateForm(Txygdjfrm,xygdjfrm);
ygxxllfrm.editvalue;
xygdjfrm.ShowModal;
xygdjfrm.Free;
end;

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

procedure Tygxxllfrm.SpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure Tygxxllfrm.TreeView1Click(Sender: TObject);
var
s,d:string;
begin
with data.ADOQYdwxx do
begin
   close;
   sql.Clear;
   sql.Add('select distinct 单位名称 from 单位信息表');
   open;
end;
d:=data.ADOQYdwxx.FieldByName('单位名称').Value;
s:=treeview1.Selected.Text;
IF Treeview1.Selected<>nil then
   if Treeview1.Selected.Text=d then
   begin
      with data.ADOQuery1 do
         begin
            close;
            sql.Clear;
            sql.Add('select * from 人事表 ');
            open;
         end;
   end
   else
      begin
         with data.ADOQuery1 do
            begin
               close;
               sql.Clear;
               sql.Add('select * from 人事表 where 所属部门 = :a');
               parameters.ParamByName('a').Value:=s;
               open;
            end;
         end;
end;

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




end.