hrm260_01.pas.svn-base

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

unit Hrm260_01;

interface

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

type
  THrm260_01Form = class(TBas200_03Form)
    Image2: TImage;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_003: TStringField;
    ADOQuery1H150_004: TStringField;
    ADOQuery1H150_025: TStringField;
    ADOQuery1H152_003: TDateTimeField;
    ADOQuery1H152_004: TDateTimeField;
    ADOQuery1H152_005: TFloatField;
    ADOQuery1H152_006: TStringField;
    dxDBGrid1H150_002: TdxDBGridMaskColumn;
    dxDBGrid1H150_003: TdxDBGridMaskColumn;
    dxDBGrid1H150_004: TdxDBGridMaskColumn;
    dxDBGrid1H150_025: TdxDBGridMaskColumn;
    dxDBGrid1H152_003: TdxDBGridDateColumn;
    dxDBGrid1H152_004: TdxDBGridDateColumn;
    dxDBGrid1H152_005: TdxDBGridMaskColumn;
    dxDBGrid1H152_006: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Hrm260_01Form: THrm260_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure THrm260_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('HRM26001001');  //暂住证明细表
  ADOQuery1H150_002.DisplayLabel:=GetDBString('HRM26001002');  //员工编号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('HRM26001003');  //员工姓名
  ADOQuery1H150_004.DisplayLabel:=GetDBString('HRM26001004');  //英文名
  ADOQuery1H150_025.DisplayLabel:=GetDBString('HRM26001005');  //暂住证号
  ADOQuery1H152_003.DisplayLabel:=GetDBString('HRM26001006');  //起始日期
  ADOQuery1H152_004.DisplayLabel:=GetDBString('HRM26001007');  //结束日期
  ADOQuery1H152_005.DisplayLabel:=GetDBString('HRM26001008');  //办证费用
  ADOQuery1H152_006.DisplayLabel:=GetDBString('HRM26001009');  //备注
end;

procedure THrm260_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  //设置界面信息
  SetInterface;
end;

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

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

end;

initialization
  RegisterClass(THrm260_01Form);

finalization
  UnRegisterClass(THrm260_01Form);

end.