wmcostommainform.~pas

管理

unit WMCostomMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, Menus, ActnList, ExtCtrls;

type
  TWMCostomMainForm = class(TForm)
  private
    FUSerID: Integer;
    FAEnterTime: String;
    FEnterTime: String;
    FUSerName: String;
    FNumber: Integer;
    FANumber: String;
    FISYesNo: Boolean;
    procedure SetAEnterTime(const Value: String);
    procedure SetEnterTime(const Value: String);
    procedure SetUSerID(const Value: Integer);
    procedure SetUSerName(const Value: String);
    procedure SetANumber(const Value: String);
    procedure SetNumber(const Value: Integer);
    procedure SetISYesNo(const Value: Boolean);
    { Private declarations }
  public
    { Public declarations }
    property USerID    : Integer read FUSerID write SetUSerID;
    Property USerName  :String read FUSerName write SetUSerName;
    Property AEnterTime:String read FAEnterTime write SetAEnterTime;
    Property EnterTime :String read FEnterTime write SetEnterTime;
    Property Number    :Integer read FNumber write SetNumber;
    Property ANumber   :String read FANumber write SetANumber;
    Property ISYesNo   :Boolean read FISYesNo write SetISYesNo;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure AIniWindows;Virtual;
    Procedure AWriteLogs;
  end;
  
implementation

{ TWMCostomMainForm }

procedure TWMCostomMainForm.AIniWindows;
begin
  //没有在顶层实现
end;

procedure TWMCostomMainForm.AWriteLogs;
Const
  ALogs = '%s <S> %s <E> %s';
Var
  LogFile:TextFile;
  LogName:String;
  AWrite :String;
begin
  EnterTime := Formatdatetime('yyyy-mm-dd hh:mm:ss dddd',now);
  LogName := ExtractFilePath(Application.ExeName);
  AssignFile(LogFile,LogName);
  if FileExists(LogName) then
    Append(LogFile)
  else
    Write(LogFile);
  Try
    AWrite := Format(ALogs,[ANumber,AEnterTime,EnterTime]);
    Writeln(AWrite);
  Finally
    CloseFile(LogFile);
  end;

end;

constructor TWMCostomMainForm.Create(AOwner: TComponent);
begin
  inherited;
  AIniWindows;

  if ISYesNo then
    AEnterTime := Formatdatetime('yyyy-mm-dd hh:mm:ss dddd',now);
end;

destructor TWMCostomMainForm.Destroy;
begin
  if ISYesNo then
    AWriteLogs;
  inherited;
end;

procedure TWMCostomMainForm.SetAEnterTime(const Value: String);
begin
  FAEnterTime := Value;
end;

procedure TWMCostomMainForm.SetANumber(const Value: String);
begin
  FANumber := Value;
end;

procedure TWMCostomMainForm.SetEnterTime(const Value: String);
begin
  FEnterTime := Value;
end;

procedure TWMCostomMainForm.SetISYesNo(const Value: Boolean);
begin
  FISYesNo := Value;
end;

procedure TWMCostomMainForm.SetNumber(const Value: Integer);
begin
  FNumber := Value;
  if Number<>-1 then
    ANumber := InttoStr(Value);
end;

procedure TWMCostomMainForm.SetUSerID(const Value: Integer);
begin
  FUSerID := Value;
end;

procedure TWMCostomMainForm.SetUSerName(const Value: String);
begin
  FUSerName := Value;
end;

end.