unit3.~pas

花了两个多星期写的考勤系统

unit Unit3;

interface

uses
  SysUtils, Classes;

type
  TUser = record
    StrUserName : String;
    StrUserPSD : String;
    StrUserMM : String;
    IntUserLevel : Integer;//权限
  end;

  TDataModule3 = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //定义一个用户
    CurUser : TUser;
  end;

var
  DataModule3: TDataModule3;

implementation

{$R *.dfm}

procedure TDataModule3.DataModuleCreate(Sender: TObject);
begin
  with CurUser do
  begin
    StrUserName := '';
    StrUserPSD := '';
    StrUserMM := '';
    IntUserLevel := -1;
  end;
end;

end.