u_ygxxll.pas

人力资源管理系统是一个典型的数据库应用程序

unit U_ygxxll;

interface

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

type
  Tfrm_ygxill = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    TreeView1: TTreeView;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn4: TBitBtn;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure editvalue;
    procedure pdtj;
    procedure TreeView1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject;var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
    tj:string;
  end;

var
  frm_ygxill: Tfrm_ygxill;

implementation

uses U_data, U_xygdj, U_login, U_main;

{$R *.dfm}
  //log=0;

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

procedure Tfrm_ygxill.pdtj;
begin
   if combobox1.Text='编号' then
      tj:='bh'
   else
   if combobox1.Text='姓名' then
      tj:='xm'
   else
   if combobox1.Text='性别' then
      tj:='xb'
   else
   if combobox1.Text='民族' then
      tj:='mz'
   else
   if combobox1.Text='籍贯' then
      tj:='jg'
   else
   if combobox1.Text='文化程度' then
      tj:='whcd';
end;

procedure Tfrm_ygxill.BitBtn1Click(Sender: TObject);
begin
if combobox1.Text='' then
application.MessageBox('请设置查询条件','提示',64)
else if edit1.Text='' then
application.MessageBox('请输入要查询的内容','提示',64)
else
pdtj;
with data1.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 Tfrm_ygxill.BitBtn2Click(Sender: TObject);
begin
if combobox1.Text='' then
application.MessageBox('请设置查询条件','提示',64)
else if edit1.Text='' then
application.MessageBox('请输入要查询的内容','提示',64)
else
pdtj;
with data1.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 Tfrm_ygxill.BitBtn3Click(Sender: TObject);
begin
close;
end;

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

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

procedure Tfrm_ygxill.editvalue;
begin
frm_xygdj.Edit1.Text:=data1.ADOQuery1.FieldByName('bh').Value;
frm_xygdj.Edit2.Text:=data1.ADOQuery1.FieldByName('xm').Value;
frm_xygdj.ComboBox8.Text:=data1.ADOQuery1.FieldByName('xb').Value;
frm_xygdj.ComboBox1.Text:=data1.ADOQuery1.FieldByName('mz').Value;
frm_xygdj.MaskEdit3.Text:=data1.ADOQuery1.FieldByName('csrq').Value;
frm_xygdj.ComboBox7.Text:=data1.ADOQuery1.FieldByName('hyzk').Value;
frm_xygdj.ComboBox9.Text:=data1.ADOQuery1.FieldByName('whcd').Value;
frm_xygdj.ComboBox2.Text:=data1.ADOQuery1.FieldByName('zzmm').Value;
frm_xygdj.Edit6.Text:=data1.ADOQuery1.FieldByName('byyx').Value;
frm_xygdj.Edit7.Text:=data1.ADOQuery1.FieldByName('zy').Value;
frm_xygdj.Edit8.Text:=data1.ADOQuery1.FieldByName('tc').Value;
frm_xygdj.Edit13.Text:=data1.ADOQuery1.FieldByName('dzyx').Value;
frm_xygdj.MaskEdit4.Text:=data1.ADOQuery1.FieldByName('lxdh').Value;
frm_xygdj.Edit9.Text:=data1.ADOQuery1.FieldByName('sjhm').Value;
frm_xygdj.Edit5.Text:=data1.ADOQuery1.FieldByName('jg').Value;
frm_xygdj.Edit10.Text:=data1.ADOQuery1.FieldByName('sfzh').Value;
frm_xygdj.Edit12.Text:=data1.ADOQuery1.FieldByName('jtdz').Value;
frm_xygdj.MaskEdit5.Text:=data1.ADOQuery1.FieldByName('cjgzsj').Value;
frm_xygdj.ComboBox3.Text:=data1.ADOQuery1.FieldByName('gz').Value;
frm_xygdj.Edit15.Text:=data1.ADOQuery1.FieldByName('gl').Value;
frm_xygdj.ComboBox4.Text:=data1.ADOQuery1.FieldByName('ssbm').Value;
frm_xygdj.ComboBox5.Text:=data1.ADOQuery1.FieldByName('zw').Value;
frm_xygdj.ComboBox6.Text:=data1.ADOQuery1.FieldByName('zc').Value;
frm_xygdj.MaskEdit2.Text:=data1.ADOQuery1.FieldByName('djrq').Value;
frm_xygdj.Edit16.Text:=data1.ADOQuery1.FieldByName('djr').Value;
frm_xygdj.MaskEdit1.Text:=data1.ADOQuery1.FieldByName('drsj').Value;
frm_xygdj.Memo1.Text:=data1.ADOQuery1.FieldByName('jl').Value;
frm_xygdj.Image1.Picture.Assign(data1.ADOQuery1.FieldByName('zp'));
end;

procedure Tfrm_ygxill.BitBtn5Click(Sender: TObject);
begin
frm_main.log:=1;  
application.CreateForm(Tfrm_xygdj,frm_xygdj);
frm_xygdj.ShowModal;
frm_xygdj.Free;
end;

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

procedure Tfrm_ygxill.BitBtn4Click(Sender: TObject);
begin
rvproject1.ProjectFile:=ExtractFilePath(Application.ExeName)+'gzz';
RvProject1.Execute;
end;

end.