hrm210_01.pas.svn-base

一个用Delphi开发的ERP软件

unit Hrm210_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Db,
  Grids, ExtCtrls, ComCtrls, ToolWin, StdCtrls,
  wwdbdatetimepicker, Buttons, Bas200_03,
  ADODB, dxExEdtr, dxDBTLCl,
  dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, ActnList, FR_Desgn,
  wwfltdlg, wwDialog, Wwlocate, Wwintl;

type
  THrm210_01Form = class(TBas200_03Form)
    lblDate: TLabel;
    lblTo: TLabel;
    dtpStartDate: TwwDBDateTimePicker;
    dtpEndDate: TwwDBDateTimePicker;
    dxDBGrid1H150_002: TdxDBGridColumn;
    dxDBGrid1H150_003: TdxDBGridColumn;
    dxDBGrid1H150_004: TdxDBGridColumn;
    dxDBGrid1H100_002: TdxDBGridColumn;
    dxDBGrid1H150_007: TdxDBGridColumn;
    dxDBGrid1H120_003: TdxDBGridColumn;
    dxDBGrid1H150_009: TdxDBGridColumn;
    dxDBGrid1H150_010: TdxDBGridColumn;
    dxDBGrid1H150_011: TdxDBGridDateColumn;
    dxDBGrid1H130_003: TdxDBGridColumn;
    dxDBGrid1H150_013: TdxDBGridDateColumn;
    dxDBGrid1H150_014: TdxDBGridColumn;
    dxDBGrid1H150_015: TdxDBGridColumn;
    dxDBGrid1H150_016: TdxDBGridColumn;
    dxDBGrid1H150_017: TdxDBGridColumn;
    dxDBGrid1H150_022: TdxDBGridColumn;
    dxDBGrid1H150_023: TdxDBGridColumn;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_003: TStringField;
    ADOQuery1H150_004: TStringField;
    ADOQuery1H100_002: TStringField;
    ADOQuery1H150_007: TStringField;
    ADOQuery1H120_003: TStringField;
    ADOQuery1H150_009: TStringField;
    ADOQuery1H150_010: TStringField;
    ADOQuery1H150_011: TDateTimeField;
    ADOQuery1H130_003: TStringField;
    ADOQuery1H150_013: TDateTimeField;
    ADOQuery1H150_014: TStringField;
    ADOQuery1H150_015: TStringField;
    ADOQuery1H150_016: TStringField;
    ADOQuery1H150_017: TStringField;
    ADOQuery1H150_022: TStringField;
    ADOQuery1H150_023: TStringField;
    ADOQuery1H150_001: TAutoIncField;
    ADOQuery1H150_005: TIntegerField;
    ADOQuery1H150_006: TIntegerField;
    ADOQuery1H150_008: TIntegerField;
    ADOQuery1H150_012: TIntegerField;
    ADOQuery1H150_018: TDateTimeField;
    ADOQuery1H150_019: TIntegerField;
    ADOQuery1H150_020: TBooleanField;
    ADOQuery1H150_021: TStringField;
    ADOQuery1H150_024: TIntegerField;
    sbSearch: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Hrm210_01Form: THrm210_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure THrm210_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('HRM21001001');  //新进员工查询
  lblDate.Caption:=GetDBString('HRM21001002');  //日期范围
  lblTo.Caption:=GetDBString('HRM21001003');  //至
  sbSearch.Caption:=GetDBString('HRM21001004');  //确定
  ADOQuery1H150_002.DisplayLabel:=GetDBString('HRM21001005');  //员工编号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('HRM21001006');  //员工姓名
  ADOQuery1H150_004.DisplayLabel:=GetDBString('HRM21001007');  //英文名
  ADOQuery1H100_002.DisplayLabel:=GetDBString('HRM21001008');  //部门名称
  ADOQuery1H150_007.DisplayLabel:=GetDBString('HRM21001009');  //性别
  ADOQuery1H120_003.DisplayLabel:=GetDBString('HRM21001010');  //职务名称
  ADOQuery1H150_009.DisplayLabel:=GetDBString('HRM21001011');  //籍贯
  ADOQuery1H150_010.DisplayLabel:=GetDBString('HRM21001012');  //身份字号
  ADOQuery1H150_011.DisplayLabel:=GetDBString('HRM21001013');  //到职日期
  ADOQuery1H130_003.DisplayLabel:=GetDBString('HRM21001014');  //员工状态
  ADOQuery1H150_013.DisplayLabel:=GetDBString('HRM21001015');  //出生日期
  ADOQuery1H150_014.DisplayLabel:=GetDBString('HRM21001016');  //档案编号
  ADOQuery1H150_015.DisplayLabel:=GetDBString('HRM21001017');  //住址
  ADOQuery1H150_016.DisplayLabel:=GetDBString('HRM21001018');  //婚姻状况
  ADOQuery1H150_017.DisplayLabel:=GetDBString('HRM21001019');  //电话号码
  ADOQuery1H150_022.DisplayLabel:=GetDBString('HRM21001020');  //学历
  ADOQuery1H150_023.DisplayLabel:=GetDBString('HRM21001021');  //备注
end;

procedure THrm210_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  dtpStartDate.Date:=GetMonthFirstDate(GetServerDate);
  dtpEndDate.Date:=GetMonthEndDate(GetServerDate);
  sbSearch.Click;
  SetInterface;
end;

procedure THrm210_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure THrm210_01Form.sbSearchClick(Sender: TObject);
begin
  inherited;
  if dtpStartDate.Date>dtpEndDate.Date then
  begin
    ShowMsg('UMS10000044');  //起始日期不能大于结束日期
    Abort;
  end;
  ADOQuery1.Close;
  ADOQuery1.Parameters.ParamByName('Date1').Value:=dtpStartDate.Date;
  ADOQuery1.Parameters.ParamByName('Date2').Value:=dtpEndDate.Date;
  ADOQuery1.Open;
end;

procedure THrm210_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

initialization
  RegisterClass(THrm210_01Form);

finalization
  UnRegisterClass(THrm210_01Form);

end.