hrm250_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Hrm250_01;

interface

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

type
  THrm250_01Form = class(TBas200_03Form)
    lblMonth: TLabel;
    lblDay: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    Edit2: TEdit;
    UpDown2: TUpDown;
    Edit3: TEdit;
    UpDown3: TUpDown;
    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 sbSearchClick(Sender: TObject);
    procedure ADOQuery1FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Hrm250_01Form: THrm250_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure THrm250_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('HRM25001001');  //寿星员工统计
  lblMonth.Caption:=GetDBString('HRM25001002');  //月份
  lblDay.Caption:=GetDBString('HRM25001003');  //日
  sbSearch.Caption:=GetDBString('HRM25001004');  //确定
  ADOQuery1H150_002.DisplayLabel:=GetDBString('HRM25001005');  //员工编号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('HRM25001006');  //员工姓名
  ADOQuery1H150_004.DisplayLabel:=GetDBString('HRM25001007');  //英文名
  ADOQuery1H100_002.DisplayLabel:=GetDBString('HRM25001008');  //部门名称
  ADOQuery1H150_007.DisplayLabel:=GetDBString('HRM25001009');  //性别
  ADOQuery1H120_003.DisplayLabel:=GetDBString('HRM25001010');  //职务名称
  ADOQuery1H150_009.DisplayLabel:=GetDBString('HRM25001011');  //籍贯
  ADOQuery1H150_010.DisplayLabel:=GetDBString('HRM25001012');  //身份字号
  ADOQuery1H150_011.DisplayLabel:=GetDBString('HRM25001013');  //到职日期
  ADOQuery1H130_003.DisplayLabel:=GetDBString('HRM25001014');  //员工状态
  ADOQuery1H150_013.DisplayLabel:=GetDBString('HRM25001015');  //出生日期
  ADOQuery1H150_014.DisplayLabel:=GetDBString('HRM25001016');  //档案编号
  ADOQuery1H150_015.DisplayLabel:=GetDBString('HRM25001017');  //住址
  ADOQuery1H150_016.DisplayLabel:=GetDBString('HRM25001018');  //婚姻状况
  ADOQuery1H150_017.DisplayLabel:=GetDBString('HRM25001019');  //电话号码
  ADOQuery1H150_022.DisplayLabel:=GetDBString('HRM25001020');  //学历
  ADOQuery1H150_023.DisplayLabel:=GetDBString('HRM25001021');  //备注
end;

procedure THrm250_01Form.FormCreate(Sender: TObject);
var
  y,m,d:word;
begin
  inherited;
  DecodeDate(Date,y,m,d);
  UpDown1.Position:=m;
  Edit1.Text:=IntToStr(m);
  UpDown2.Position:=1;
  Edit2.Text:='1';
  DecodeDate(GetMonthEndDate(Date),y,m,d);
  UpDown3.Position:=d;
  Edit3.Text:=IntToStr(d);
  sbSearch.Click;
  //设置界面信息
  SetInterface;
end;

procedure THrm250_01Form.sbSearchClick(Sender: TObject);
begin
  inherited;
  if StrToInt(Edit2.Text)>StrToInt(Edit3.Text) then
  begin
    ShowMsg('UMS10000044');  //起始日期不能大于结束日期
    Abort;
  end;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from HRM150 A, HRM100 B, HRM120 C, HRM130 D');
  ADOQuery1.SQL.Add('where A.H150_005=B.H100_001 and A.H150_008=C.H120_001 and A.H150_012=D.H130_001 and');
  ADOQuery1.SQL.Add('  A.H150_012=1 and '+GetDatePart('m','A.H150_013')+'='+Edit1.Text+' and');
  ADOQuery1.SQL.Add('  '+GetDatePart('d','A.H150_013')+'>='+Edit2.Text+' and');
  ADOQuery1.SQL.Add('  '+getDatePart('d','A.H150_013')+'<='+Edit3.Text);
  ADOQuery1.SQL.Add('order by A.H150_002');
  ADOQuery1.Open; 
end;

procedure THrm250_01Form.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  y,m,d:Word;
begin
  inherited;
  DecodeDate(ADOQuery1.FieldByName('H150_013').Value,y,m,d);
  Accept:=(m=StrToInt(Edit1.Text)) and (d>=StrToInt(Edit2.Text)) and (d<=StrToInt(Edit3.Text));
end;

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

end;

initialization
  RegisterClass(THrm250_01Form);

finalization
  UnRegisterClass(THrm250_01Form);

end.