checkhold.pas.~1~

本系统是结合行业管理中实际的人力资源、工资制度

unit checkhold;

interface

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

type
  Tcheckfindfrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    all_btn: TButton;
    cancel_btn: TButton;
    one_btn: TButton;
    checkfind_ds1: TDataSource;
    DBGrid1: TDBGrid;
    checkfind_cds1: TClientDataSet;
    procedure cancel_btnClick(Sender: TObject);
    procedure all_btnClick(Sender: TObject);
    procedure one_btnClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    checkinfo:Tcheckinfo;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkfindfrm: Tcheckfindfrm;

implementation

{$R *.dfm}

procedure Tcheckfindfrm.cancel_btnClick(Sender: TObject);
begin
edit1.Text :='';  edit2.Text :='';edit3.Text :='';edit4.Text :='';
edit5.Text :='';edit6.Text :='';edit7.Text :='';edit8.Text :='';
edit9.Text :='';edit10.Text :='';edit11.Text :='';edit12.Text :='';
edit13.Text :='';edit14.Text :='';memo1.Text :='';
checkfindfrm.Close;
end;

procedure Tcheckfindfrm.all_btnClick(Sender: TObject);
var
  allsql:string;
begin
//创建类的实例
checkinfo:=Tcheckinfo.create ;
//赋值查询语句
allsql:='select WORKER_ID 员工编号,WORKER_NAME 员工姓名,'
+'MONTHS 月份,MONTH_DAYS 本月天数,BUSINESS_DAYS 出差天数,'
+'ABSENT_DAYS 旷工天数,HOLIDAYS 公休假天数,REAL_WORK_DAYS '
+'应出勤天数,WORK_DAYS 出勤天数,LEAVE_TIMES 请假次数,LATE_TIMES'
+' 迟到次数,LEAVE_EARLY_TIMES 早退次数,HOLIDAY_OVERTIME '
+'节假日加班时间,OTHER_OVERTIME 其它加班时间,'
+'REMARK  备注 from CHECK_INFO';
//显示所有查询记录
checkfind_cds1.Data :=checkinfo.CheckInfoRecs(allsql);
end;

procedure Tcheckfindfrm.one_btnClick(Sender: TObject);
var
  sql:string;
begin
//创建类的实例
checkinfo:=Tcheckinfo.create ;
//判断是否输入关键字
if (edit1.Text ='') or (edit3.Text='') then
begin
showmessage('请输入员工编号和月份编号进行查询！');
edit1.SetFocus ;
exit;
end;
//调用类中查询方法判断考勤记录是否存在
if checkinfo.CheckInfoRec(edit1.Text,edit3.Text)=false  then
begin
showmessage('该考勤记录不存在！');
edit1.SetFocus ;
exit;
end;
//赋值查询语句
sql:='select WORKER_ID 员工编号,WORKER_NAME 员工姓名,'
+'MONTHS 月份,MONTH_DAYS 本月天数,BUSINESS_DAYS 出差天数,'
+'ABSENT_DAYS 旷工天数,HOLIDAYS 公休假天数,REAL_WORK_DAYS '
+'应出勤天数,WORK_DAYS 出勤天数,LEAVE_TIMES 请假次数,'
+'LATE_TIMES 迟到次数,LEAVE_EARLY_TIMES 早退次数,'
+'HOLIDAY_OVERTIME 节假日加班时间,OTHER_OVERTIME 其它加班时间,'
+'REMARK 备注 from CHECK_INFO where WORKER_ID='''+edit1.Text+''' '
+'and months='''+edit3.Text+'''';
//调用查询方法将记录在列表中显示出来
checkfind_cds1.Data :=checkinfo.CheckInfoRecs(sql);
//同时将对应字段在文本框中显示出来
edit1.Text :=DBGrid1.Fields[0].AsString;
edit2.Text :=DBGrid1.Fields[1].AsString ;
edit3.Text :=DBGrid1.Fields[2].AsString ;
edit4.Text :=DBGrid1.Fields[3].AsString ;
edit5.Text :=DBGrid1.Fields[4].AsString ;
edit6.Text :=DBGrid1.Fields[5].AsString ;
edit7.Text :=DBGrid1.Fields[6].AsString ;
edit8.Text :=DBGrid1.Fields[7].AsString ;
edit9.Text :=DBGrid1.Fields[8].AsString ;
edit10.Text :=DBGrid1.Fields[9].AsString ;
edit11.Text :=DBGrid1.Fields[10].AsString;
edit12.Text :=DBGrid1.Fields[11].AsString ;
edit13.Text :=DBGrid1.Fields[12].AsString ;
edit14.Text :=DBGrid1.Fields[13].AsString ;
memo1.Text  :=DBGrid1.Fields[14].AsString ;
end;

procedure Tcheckfindfrm.DBGrid1CellClick(Column: TColumn);
begin
try
edit1.Text :=DBGrid1.Fields[0].AsString;
edit2.Text :=DBGrid1.Fields[1].AsString ;
edit3.Text :=DBGrid1.Fields[2].AsString ;
edit4.Text :=DBGrid1.Fields[3].AsString ;
edit5.Text :=DBGrid1.Fields[4].AsString ;
edit6.Text :=DBGrid1.Fields[5].AsString ;
edit7.Text :=DBGrid1.Fields[6].AsString ;
edit8.Text :=DBGrid1.Fields[7].AsString ;
edit9.Text :=DBGrid1.Fields[8].AsString ;
edit10.Text :=DBGrid1.Fields[9].AsString ;
edit11.Text :=DBGrid1.Fields[10].AsString;
edit12.Text :=DBGrid1.Fields[11].AsString ;
edit13.Text :=DBGrid1.Fields[12].AsString ;
edit14.Text :=DBGrid1.Fields[13].AsString ;
memo1.Text  :=DBGrid1.Fields[14].AsString ;
except
 showmessage('没有可显示的查询结果！');
 exit;
 end;
end;

end.