cwa160_01.pas.svn-base

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

unit Cwa160_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_06, dxExEdtr, DB, ADODB, 
  ActnList, Menus, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ComCtrls, ToolWin,
  ExtCtrls;

type
  TCwa160_01Form = class(TBas200_06Form)
    ADOQuery1C160_001: TAutoIncField;
    ADOQuery1C160_002: TStringField;
    ADOQuery1C160_003: TStringField;
    ADOQuery1C160_004: TIntegerField;
    ADOQuery1C160_005: TFloatField;
    dxDBGrid1C160_002: TdxDBGridColumn;
    dxDBGrid1C160_003: TdxDBGridColumn;
    dxDBGrid1C160_005: 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
  Cwa160_01Form: TCwa160_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TCwa160_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('CWA16001001');  //事务原因维护
  ADOQuery1C160_002.DisplayLabel:=GetDBString('CWA16001002');  //原因编号
  ADOQuery1C160_003.DisplayLabel:=GetDBString('CWA16001003');  //原因说明
  ADOQuery1C160_005.DisplayLabel:=GetDBString('CWA16001004');  //金额
end;

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

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

procedure TCwa160_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='C160_002' then ParValue:=GetDBString('CWA16001002')  //原因编号
  else if ParName='C160_003' then ParValue:=GetDBString('CWA16001003')  //原因说明
  else if ParName='C160_005' then ParValue:=GetDBString('CWA16001004')  //金额
end;

initialization
  RegisterClass(TCwa160_01Form);

finalization
  UnRegisterClass(TCwa160_01Form);

end.