?? u_operatelog.pas
字號:
unit U_OperateLog;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, U_Report_Base, DB, ADODB, WinSkinData, Grids, DBGridEh, Buttons,
ExtCtrls, PrnDbgeh, Menus;
type
TF_OperateLog = class(TF_Report_Base)
Ado_queryUserid: TStringField;
Ado_queryUsername: TStringField;
Ado_queryFormname: TStringField;
Ado_queryOperate: TStringField;
Ado_queryOperateDate: TDateTimeField;
procedure btn_cancelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_OperateLog: TF_OperateLog;
implementation
uses U_OperatLog_query, U_DM;
{$R *.dfm}
procedure TF_OperateLog.btn_cancelClick(Sender: TObject);
var F_operatelog_query:TF_operatelog_query;
begin
inherited;
// F_operatelog_query :=F_operatelog_query.Create(self);
Application.CreateForm(TF_operatelog_query,F_operatelog_query);
F_operatelog_query.Show;
end;
procedure TF_OperateLog.FormCreate(Sender: TObject);
begin
inherited;
width:= 625;
height:=432;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -