📄 ser610_01.pas.svn-base
字号:
unit Ser610_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
TSer610_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
Ser610_01Form: TSer610_01Form;
implementation
{$R *.dfm}
procedure TSer610_01Form.BrowseEvent;
begin
inherited;
end;
procedure TSer610_01Form.DeleteEvent;
begin
inherited;
end;
procedure TSer610_01Form.InsertEvent;
begin
inherited;
end;
procedure TSer610_01Form.ReportGetValue(const ParName: String;
var ParValue: Variant);
begin
inherited;
end;
procedure TSer610_01Form.SetInterface;
begin
inherited;
end;
procedure TSer610_01Form.UpdateEvent;
begin
inherited;
end;
initialization
RegisterClass(TSer610_01Form);
finalization
UnRegisterClass(TSer610_01Form);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -