?? uform.pas
字號:
unit uform;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseInfo, Menus, ActnList, DB, DBClient, Grids, DBGridEh,
StdCtrls, wwdblook, Buttons, ToolWin, ComCtrls, ExtCtrls, FR_DSet,
FR_DBSet, FR_Class, FR_Desgn, ADODB;
type
Tfrmform = class(TfrmBaseinfo)
CDSbaseinfofid: TAutoIncField;
CDSbaseinfofcode: TWideStringField;
CDSbaseinfofname: TWideStringField;
CDSbaseinfoftype: TWideStringField;
CDSbaseinfofcreateuser: TWideStringField;
CDSbaseinfofcreatedate: TDateTimeField;
CDSbaseinfofnote: TWideStringField;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmform: Tfrmform;
implementation
uses Global, uform_m;
{$R *.dfm}
procedure Tfrmform.FormCreate(Sender: TObject);
begin
inherited;
Maintable:='tform';
Mainview:='vform';
Keyfield:='fid';
ReportName:=gs_appPath+'\prints\frform.frf';
Modifyform:=Tfrmform_m;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -