unit3.pas

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

unit Unit3;

interface

uses
  SysUtils, Classes, ADODB, DB;

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

  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //定义一个用户
    CurUser : TUser;
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

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

end.