login.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 99 行

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, DB, DBTables;

type
  TLoginFrm = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Database1: TDatabase;
    Table1: TTable;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginFrm: TLoginFrm;
  Times:integer;

implementation

Uses LibManage,LibService;

{$R *.dfm}

procedure TLoginFrm.BitBtn1Click(Sender: TObject);
var pwdfile:textfile;
    PwdStr:string;
begin
    if RadioButton1.checked=True then
        assignfile(pwdfile,'.\Administrator.cfg');
    if RadioButton2.checked=True then
        assignfile(pwdfile,'.\student.cfg');
    reset(pwdfile);
    readln(pwdfile,PwdStr);
    closefile(pwdfile);
    Times:=Times+1;
    if edit1.Text=PwdStr then
       begin
          if RadioButton1.checked=True then LibAdmFrm.show;
          if RadioButton2.checked=True then LibSrvFrm.show;
       end
    else
       begin
         if MessageDlg('密码输入错误，是否退出？',mtConfirmation,[mbYes,mbNo],0)=mrYes  then close
         else
           begin
             if times<3 then edit1.SetFocus
             else
              begin
               MessageDlg('对不起，密码输入严重错误，请退出！',mtInformation,[mbOk],0);
               LoginFrm.close;
              end;
           end;
       end;
end;

procedure TLoginFrm.FormCreate(Sender: TObject);
begin
   Times:=0;
   With  Table1 do
     begin
      Open;
      First;
      while not eof do
        begin
          if strtodate(FieldByName('ReturnTime').asstring)<Date then
             begin
              Edit;
              SetFields([nil,nil,nil,nil,nil,True,nil]);
              Post;
             end;
             next;
        end;
    end;
end;

procedure TLoginFrm.BitBtn2Click(Sender: TObject);
begin
  LoginFrm.close;
end;



end.