ser600_01.pas.svn-base

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

unit Ser600_01;

interface

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

type
  TSer600_01Form = class(TBas200_10Form)
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Ser600_01Form: TSer600_01Form;

implementation

{$R *.dfm}

{ TSer600_01Form }

procedure TSer600_01Form.BrowseEvent;
begin
  inherited;

end;

procedure TSer600_01Form.DeleteEvent;
begin
  inherited;

end;

procedure TSer600_01Form.InsertEvent;
begin
  inherited;

end;

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

end;

procedure TSer600_01Form.SetInterface;
begin
  inherited;

end;

procedure TSer600_01Form.UpdateEvent;
begin
  inherited;

end;

initialization
  RegisterClass(TSer600_01Form);

finalization
  UnRegisterClass(TSer600_01Form);

end.