workagefind.pas.~1~

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

unit workagefind;

interface

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

type
  Tworkagefindfrm = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    worker_idedit: TEdit;
    worker_nameedit: TEdit;
    unit_nameedit: TEdit;
    work_timeedit: TEdit;
    level1edit: TEdit;
    dutyedit: TEdit;
    remarkedit: TEdit;
    begin_datepicker: TDateTimePicker;
    over_datepicker: TDateTimePicker;
    Label1: TLabel;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    agefind_ds1: TDataSource;
    all_btn: TButton;
    one_btn: TButton;
    cancel_btn: TButton;
    agefind_cds1: TClientDataSet;
    procedure cancel_btnClick(Sender: TObject);
    procedure one_btnClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure all_btnClick(Sender: TObject);
  private
    workage:Tworkage;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  workagefindfrm: Tworkagefindfrm;

implementation

{$R *.dfm}

procedure Tworkagefindfrm.cancel_btnClick(Sender: TObject);
begin
worker_idedit.Text :='';worker_nameedit.Text :='';
unit_nameedit.Text :='';begin_datepicker.Date :=strtodate(formatdatetime('yyyy-mm-dd',now));
over_datepicker.Date :=strtodate(formatdatetime('yyyy-mm-dd',now));
work_timeedit.Text :='';dutyedit.Text :='';
level1edit.Text :='';remarkedit.Text :='';
workagefindfrm.Close;
end;

procedure Tworkagefindfrm.one_btnClick(Sender: TObject);
var
  sql:string;
begin
//创建类的实例
workage:=Tworkage.create ;
//查询时必须输入的项
if  (worker_idedit.Text='') or (unit_nameedit.Text='')  then
begin
showmessage('请根据员工编号和工作单位查询！');
exit;
end;
//判断查询的记录是否存在
if workage.WorkAgeRec(worker_idedit.Text,unit_nameedit.Text)=false then
begin
showmessage('对不起，该记录不存在！');
exit;
end;
//赋值查询语句
sql:='select worker_id 员工编号,worker_name 员工姓名,'
+'unit_name 工作单位,begin_date 起始日期,over_date 结束日期,'
+'work_time 折算工龄,duty 担任职务,level1 级别,remark  备注'
+' from work_age where worker_id='''+worker_idedit.Text+''' '
+' and unit_name='''+unit_nameedit.Text+'''';
//将查询结果在列表中显示出来
agefind_cds1.Data :=workage.WorkAgeRecs(sql);
//取出对应字段在文本框中显示出来
worker_idedit.Text :=DBGrid1.Fields[0].AsString ;
worker_nameedit.Text :=DBGrid1.Fields[1].AsString ;
begin_datepicker.Date :=strtodate(DBGrid1.Fields[3].AsString );
over_datepicker.Date :=strtodate(DBGrid1.Fields[4].AsString ) ;
unit_nameedit.Text :=DBGrid1.Fields[2].AsString ;
work_timeedit.Text :=DBGrid1.Fields[5].AsString ;
dutyedit.Text :=DBGrid1.Fields[6].AsString;
level1edit.Text :=DBGrid1.Fields[7].AsString ;
remarkedit.Text :=DBGrid1.Fields[8].AsString ;
end;

procedure Tworkagefindfrm.DBGrid1CellClick(Column: TColumn);
begin
try
worker_idedit.Text :=DBGrid1.Fields[0].AsString ;
worker_nameedit.Text :=DBGrid1.Fields[1].AsString ;
begin_datepicker.Date :=strtodate(DBGrid1.Fields[3].AsString );
over_datepicker.Date :=strtodate(DBGrid1.Fields[4].AsString ) ;
unit_nameedit.Text :=DBGrid1.Fields[2].AsString ;
work_timeedit.Text :=DBGrid1.Fields[5].AsString ;
dutyedit.Text :=DBGrid1.Fields[6].AsString;
level1edit.Text :=DBGrid1.Fields[7].AsString ;
remarkedit.Text :=DBGrid1.Fields[8].AsString ;
  except
  showmessage('没有查询结果可以显示！');
  exit;
  end;
end;

procedure Tworkagefindfrm.all_btnClick(Sender: TObject);
var
  sql:string;
begin
//创建类的实例
workage:=Tworkage.create ;
//赋值查询语句
sql:='select *  from work_age ';
//判断查询记录是否存在
if workage.WorkAgeRec1(sql)=false  then
begin
showmessage('数据库中没有记录存在！');
exit;
end;
//赋值查询语句
sql:='select worker_id 员工编号,'
+'worker_name 员工姓名,unit_name 工作单位,'
+'begin_date 起始日期,over_date 结束日期,'
+'work_time 折算工龄,duty 担任职务,level1 级别,remark  备注'
+' from work_age ';
//在列表中显示出来
agefind_cds1.Data :=workage.WorkAgeRecs(sql);
//释放实例
workage.Free;
end;

end.