czrz_form.pas

Access数据库用户权限的管理程序

unit CZRZ_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatMemoUnit, TFlatButtonUnit;

type
  TCZRZ_F = class(TForm)
    CZRZ_FM: TFlatMemo;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CZRZ_F: TCZRZ_F;

implementation

uses share;

{$R *.dfm}
//******************************************************************************
procedure TCZRZ_F.FlatButton1Click(Sender: TObject);
var
  name:string;
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(now, Hour, Min, Sec, MSec);
  name:='.\日志文件\'+datetimetostr(date)+'-'+IntToStr(Hour)+'-'+IntToStr(Min)+'-'+IntToStr(Sec)+'.txt';
  CZRZ_F.CZRZ_FM.Lines.SaveToFile(name);
  showmessage('日志导出成功');
end;
//******************************************************************************
procedure TCZRZ_F.FlatButton2Click(Sender: TObject);
begin
  close;
end;
//******************************************************************************
procedure TCZRZ_F.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
end.