pay550_05.pas.svn-base

来自「一个用Delphi开发的ERP软件」· SVN-BASE 代码 · 共 72 行

unit Pay550_05;

interface

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

type
  TPay550_05Form = class(TBas200_03Form)
    Label2: TLabel;
    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
  Pay550_05Form: TPay550_05Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure TPay550_05Form.SetInterface;
begin
  inherited;
{  Caption:=GetDBString('');  //银行资料制作
  ADOQuery1H150_002.DisplayLabel:=GetDBString('');  //工号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('');  //姓名
  ADOQuery1H150_026.DisplayLabel:=GetDBString('');  //银行帐号
  ADOQuery1P550_006.DisplayLabel:=GetDBString('');  //薪资金额 }
end;

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

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

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

end;

initialization
  RegisterClass(TPay550_05Form);

finalization
  UnRegisterClass(TPay550_05Form);

end.