clogin.pas

学生管理系统

unit cLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
type
  TFrmLogin = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    BtnOK: TSpeedButton;

    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BtnOKClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    FileName :String;
         N:integer;
       uID:string;
      pass:string;
  public
//    property fuID :string read uID ;
    { Public declarations }
  end;
var
  FrmLogin: TFrmLogin;
implementation
uses maind,UTIL;
 {$R *.dfm}

procedure TFrmLogin.BtnOKClick(Sender: TObject);
begin
if Edit1.Text = '' then
begin
  Edit1.SelectAll;
  EDit1.SetFocus;
  exit;
end;

if Edit2.Text = '' then
begin
  Edit2.SelectAll;
  EDit2.SetFocus;
  exit;
end;

 uID     := Edit1.Text;
 pass    := trim(edit2.text);
 if  not maindFrm.CheckUser(uID,pass) then
 begin
   MessageBox(Handle,PChar('您输入的密码有误! '+#10#13+'已输入 '+INTTOSTR(N)+' 次'),
    '警告!',mb_ICONWarning+mb_OK);
   INC(N);
   if N > 3 then
   begin
     MessageBox(0,'您没有权限使用此软件','警告',mb_ICONWarning+mb_OK);
     close;
   end;
   exit;
 end else begin
  INI_Save_Str(FileName,'LOG',Edit1.text);
  UserID  := uID;
  UserPass:= pass;
  UserName:= MainDFrm.FeedUuser(uID);
  edit2.Text := '********';
  close;
 end;
end;

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

procedure TFrmLogin.FormCreate(Sender: TObject);
begin
INC(N);
  FileName := ExtractFilePath(Application.ExeName)
            + '\INI\main.ini';
  if TEST_OpenFile(FileName) then File_Create(FileName);
  Edit1.Text := INI_Load_Str(FileName,'LOG','admin');
    LogTime :=TimetoStr(Time);
end;

procedure TFrmLogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Edit2.Text ='' then exit;
if key = #13 then BtnOk.Click;
end;


procedure TFrmLogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Edit1.Text = '' then exit;
if (key = #13) then Edit2.SetFocus;
end;

end.