u_weihu.pas

简单的人事工资管理系统.... 我是想下载源码菜拿来换的...呵呵~~ 版主给点面子哦~~

unit U_WeiHu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, RzButton, ExtCtrls, RzPanel, Grids, DBGrids, ActnList,
  StdCtrls, RzLabel, Mask, RzEdit, RzRadChk, RzCmboBx, DB, ADODB;

type
  TWeiHu = class(TForm)
    RzpgCtrlz: TRzPageControl;
    rztbshtTabSheet1: TRzTabSheet;
    rztbshtTabSheet2: TRzTabSheet;
    rztbshtTabSheet3: TRzTabSheet;
    rztbshtTabSheet4: TRzTabSheet;
    rztbshtTabSheet5: TRzTabSheet;
    RzPanel3: TRzPanel;
    RzBitBtn11: TRzBitBtn;
    RzBitBtn12: TRzBitBtn;
    RzBitBtn13: TRzBitBtn;
    RzBitBtn14: TRzBitBtn;
    RzBitBtn15: TRzBitBtn;
    rzpnl2: TRzPanel;
    rzpnl3: TRzPanel;
    rzpnl1: TRzPanel;
    rzbtbtn1: TRzBitBtn;
    rzbtbtn2: TRzBitBtn;
    rzbtbtn3: TRzBitBtn;
    rzbtbtn4: TRzBitBtn;
    rzbtbtn5: TRzBitBtn;
    dbgrdWeiHu: TDBGrid;
    rzpnl4: TRzPanel;
    RzGpbx1: TRzGroupBox;
    lbl1: TRzLabel;
    lbl2: TRzLabel;
    lbl3: TRzLabel;
    lbl5: TRzLabel;
    edtKQName: TRzEdit;
    RzRdbtnMan: TRzRadioButton;
    RzRdbtnGirl: TRzRadioButton;
    edtKQChushen: TRzDateTimeEdit;
    rzpnl5: TRzPanel;
    rzpnl6: TRzPanel;
    rzpnl7: TRzPanel;
    dbgrdHCWeiHu: TDBGrid;
    RzPanel1: TRzPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzGroupBox1: TRzGroupBox;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzEdit1: TRzEdit;
    RzEdit3: TRzEdit;
    RzRadioButton1: TRzRadioButton;
    RzRadioButton2: TRzRadioButton;
    RzDateTimeEdit1: TRzDateTimeEdit;
    rzpnl8: TRzPanel;
    rzpnl9: TRzPanel;
    rzpnl10: TRzPanel;
    dbgrd2: TDBGrid;
    RzPanel2: TRzPanel;
    RzBitBtn6: TRzBitBtn;
    RzBitBtn7: TRzBitBtn;
    RzBitBtn8: TRzBitBtn;
    RzBitBtn9: TRzBitBtn;
    RzBitBtn10: TRzBitBtn;
    RzGroupBox2: TRzGroupBox;
    RzLabel6: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    edtLLCurZhiWu: TRzEdit;
    edtLLEmployeeNo: TRzEdit;
    edtKQBM: TRzEdit;
    cbb1: TRzComboBox;
    rzbtbtn6: TRzBitBtn;
    edtLLYuanShiZhiWu: TRzEdit;
    qryLvLi: TADOQuery;
    dsLvLi123: TDataSource;
    rzbtbtn7: TRzBitBtn;
    rzbtbtnbtn1: TRzBitBtn;
    edtLLZhiWuTime: TRzDateTimeEdit;
    rzpnl11: TRzPanel;
    rzpnl12: TRzPanel;
    RzGroupBox3: TRzGroupBox;
    RzLabel11: TRzLabel;
    RzLabel14: TRzLabel;
    lbl4: TRzLabel;
    lbl6: TRzLabel;
    RzEdit2: TRzEdit;
    RzEdit7: TRzEdit;
    edt1: TRzEdit;
    edt2: TRzEdit;
    rzpnl13: TRzPanel;
    dbgrd3: TDBGrid;
    rzpnl14: TRzPanel;
    rzpnl15: TRzPanel;
    rzpnl16: TRzPanel;
    RzPanel4: TRzPanel;
    RzBitBtn16: TRzBitBtn;
    RzBitBtn17: TRzBitBtn;
    RzBitBtn18: TRzBitBtn;
    RzBitBtn19: TRzBitBtn;
    RzBitBtn20: TRzBitBtn;
    dbgrd4: TDBGrid;
    lbl7: TRzLabel;
    lbl8: TRzLabel;
    lbl9: TRzLabel;
    lbl10: TRzLabel;
    lbl11: TRzLabel;
    edtGZName: TRzEdit;
    edtGZDepartment: TRzEdit;
    edtGZMM: TRzEdit;
    rzbtbtn8: TRzBitBtn;
    qry1: TADOQuery;
    ds1: TDataSource;
    ADOQuery1: TADOQuery;
    RzRdbtnGZMan: TRzRadioButton;
    RzRdbtn2: TRzRadioButton;
    edtGZRiQi: TRzDateTimeEdit;
    procedure rzbtbtn5Click(Sender: TObject);
    procedure rzbtbtn2Click(Sender: TObject);
    procedure rzbtbtn3Click(Sender: TObject);
    procedure rzbtbtn4Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn7Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn8Click(Sender: TObject);
    procedure RzBitBtn9Click(Sender: TObject);
    procedure RzBitBtn12Click(Sender: TObject);
    procedure RzBitBtn13Click(Sender: TObject);
    procedure RzBitBtn14Click(Sender: TObject);
    procedure rzbtbtn6Click(Sender: TObject);
    procedure rzbtbtn1Click(Sender: TObject);
    //procedure btn1Click(Sender: TObject);
    procedure cbb1KeyPress(Sender: TObject; var Key: Char);
    procedure cbb1DropDown(Sender: TObject);
    procedure rzbtbtn7Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure rzbtbtnbtn1Click(Sender: TObject);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
    procedure edtLLEmployeeNoKeyPress(Sender: TObject; var Key: Char);
    procedure edtLLZhiWuTimeKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure rzbtbtn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  WeiHu: TWeiHu;

implementation

uses DataModule,U_Common;

{$R *.dfm}

procedure TWeiHu.rzbtbtn5Click(Sender: TObject);
begin
   Close; 
end;

procedure TWeiHu.rzbtbtn2Click(Sender: TObject);
begin
    if Application.MessageBox('是否删除记录','确定',1)=1 then
     DM.atblKaoQin.Delete;
end;

procedure TWeiHu.rzbtbtn3Click(Sender: TObject);
begin
     DM.atblKaoQin.Prior;
end;

procedure TWeiHu.rzbtbtn4Click(Sender: TObject);
begin
     DM.atblKaoQin.Next;
end;

procedure TWeiHu.RzBitBtn2Click(Sender: TObject);
begin
     if Application.MessageBox('是否删除记录','确定',0)=1 then
     DM.atblJiangChen.Delete;
end;

procedure TWeiHu.RzBitBtn7Click(Sender: TObject);
begin
     if Application.MessageBox('是否删除记录','确定',0)=1 then
        DM.atblLuli.Delete;
end;

procedure TWeiHu.RzBitBtn3Click(Sender: TObject);
begin
     DM.atblJiangChen.Prior;
end;

procedure TWeiHu.RzBitBtn4Click(Sender: TObject);
begin
     DM.atblJiangChen.Next;
end;

procedure TWeiHu.RzBitBtn8Click(Sender: TObject);
begin
     DM.atblLuli.Prior;
end;

procedure TWeiHu.RzBitBtn9Click(Sender: TObject);
begin
     DM.atblLuli.Next;
end;

procedure TWeiHu.RzBitBtn12Click(Sender: TObject);
begin
     if Application.MessageBox('是否删除记录','确定',1)=1 then
        DM.atblZhiChen.Delete;
end;

procedure TWeiHu.RzBitBtn13Click(Sender: TObject);
begin
     DM.atblZhiChen.Prior;
end;

procedure TWeiHu.RzBitBtn14Click(Sender: TObject);
begin
      DM.atblZhiChen.Next;
end;

procedure TWeiHu.rzbtbtn6Click(Sender: TObject);
var
    SQL:string;
    EmployeeNo,I:Integer;
begin
    if Trim(Trim(edtKQName.Text))='' then
    begin
       ShowErrorMsgBox('请填写员工姓名!');
    end;

    //查找员工是否存在于employee表
    SQL:='select * from employee where 姓名='+QuotedStr(Trim(edtKQName.Text));
    if RzRdbtnMan.Checked then
       SQl:=SQL+' and 性别='+BoolToStr(True)
    else
       SQl:=SQL+' and 性别='+BoolToStr(False);

    if  Trim(edtKQBM.Text)<>'' then
       SQL:=SQL+' and 部门='+QuotedStr(Trim(edtKQBM.Text));

   { if  Trim(edtCJZhenZhi.Text)<>'' then
       SQL:=SQL+' and 政治面貌='+QuotedStr(Trim(edtCJZhenZhi.Text)); }

    if  Trim(edtKQChushen.Text)<>'' then
       SQL:=SQL+' and 出生日期='+Trim(edtKQChushen.Text);

   if not OpenQuery(DM.qryCommon,SQL,qmOpen) then
   begin
     DM.qryCommon.Close;
     ShowErrorMsgBox('根据你填写的员工资料没有找到这个员工!');
     Exit;
   end else
   begin
     if (DM.qryCommon.RecordCount>1) then
     begin
       DM.qryCommon.Close;
       ShowErrorMsgBox('根据你填写的员工资料,系统查询到多个员工,'+#13#10+'请添写更详细的员工信息!');

       Exit;
     end;
   end;
   EmployeeNo:=DM.qryCommon.fieldbyName('编号').Value;

   //再考勤表查找员工的信息
   SQL:='select 姓名,性别,部门,出生日期,出勤天数,迟到天数,加班时间,出差天数 from KaoQin,Employee where KaoQin.员工编号=Employee.编号 and KaoQin.员工编号='+inttostr(EmployeeNo);
   if not OpenQuery(DM.qryKaoQinWeiHu,SQL,qmOpen) then
   begin
      ShowTipMsgBox('没有该员工的考勤资料!');
      Exit;
   end else
   begin
      for I:=0 to 3 do                          //员工数据不能在这里修改
          dbgrdWeiHu.Columns[I].ReadOnly:=True;

      for I:=0 to dbgrdWeiHu.Columns.Count-1 do         //凡是’编号‘字段都不能让用户修改
         if pos('编号', dbgrdWeiHu.Columns[I].FieldName)>0 then
            dbgrdWeiHu.Columns[I].ReadOnly:=true;