?? uvip.pas
字號:
unit uvip;
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;
type
Tfrmvip = class(TfrmBaseinfo)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmvip: Tfrmvip;
implementation
uses Global,uvip_m;
{$R *.dfm}
procedure Tfrmvip.FormCreate(Sender: TObject);
begin
inherited;
Maintable:='tvip';
Mainview:='vvip';
Keyfield:='fid';
ReportName:=gs_appPath+'\prints\frvip.frf';
Modifyform:=Tfrmvip_m;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -