csh160_01.pas.svn-base

开源的网站整站程序,功能强大带采集系统.

unit Csh160_01;

interface

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

type
  TCsh160_01Form = class(TBas200_01Form)
    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
  Csh160_01Form: TCsh160_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TCsh160_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('');  //债权债务设置
end;

procedure TCsh160_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
end;

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

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

end;

initialization
  RegisterClass(TCsh160_01Form);

finalization
  UnRegisterClass(TCsh160_01Form);

end.