u_operatelog.pas

来自「这是一个用条码录入的数据的进销存(只对成品）---做童装的」· PAS 代码 · 共 52 行

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.