unitlogin.pas

这是我做的一个大学院系成绩管理系统

unit UnitLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DB, ADODB, Grids, DBGrids;

type
  TFMLogin = class(TForm)
    Image_logbg: TImage;
    user_name: TEdit;
    user_pass: TEdit;
    makesure: TImage;
    exit: TImage;
    ImageClose: TImage;
    ImageMini: TImage;
    procedure makesureClick(Sender: TObject);
    procedure Image_logbgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure ImageCloseClick(Sender: TObject);
    procedure ImageMiniClick(Sender: TObject);
    procedure exitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMLogin: TFMLogin;
  u_VerifyTimes: Smallint;
  u_HasLogin: Boolean;



implementation

uses UnitDBConnect, UnitMain, UnitDefine;

{$R *.dfm}
procedure TFMLogin.FormCreate(Sender: TObject);
begin
   u_VerifyTimes:=0;
   u_HasLogin:=false;
end;


procedure TFMLogin.makesureClick(Sender: TObject);
begin
    if(user_name.Text<>'') AND (user_pass.Text<>'') then
    begin
     try
       with FMDBConnect.UserADOQuery do
       begin
        Close;
        inc(u_VerifyTimes);
        SQL.Clear;
        SQL.Add('select * from Users where UName=:UName');
        Parameters.ParamByName('UName').Value :=user_name.Text;
        Open;
        if RecordCount<>0 then
         begin
            if user_pass.Text= FieldByName('PW').Text then
               begin
                    g_UserType:=FieldByName('UType').Text;
                    g_UserName:=user_name.Text;
                    FMLogin.Hide;
                    FMain.ShowModal;
                    FMLogin.Close;
               end
            else
         begin
            if(u_VerifyTimes>2) then
              begin
               showmessage('验证次数已满');
              end
            else
              showmessage('错误');
         end
        end
        else
        begin
            if(u_VerifyTimes>2) then
            begin
              showmessage('验证次数已满');
            end
            else
             showmessage('用户不存在');
        end ;
        Close;
     end;
     except
      begin
      showmessage('登陆<'+user_name.Text+'>出错');
      end;

    end
    end
    else
      begin
        showmessage('请输入用户名和密码!');
      end;
      
  end;



 procedure TFMLogin.Image_logbgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssleft in shift) then
  begin
    releasecapture;
    perform(wm_syscommand, $f012, 0);
  end;
end;


procedure TFMLogin.ImageCloseClick(Sender: TObject);
begin
application.Terminate;
end;

procedure TFMLogin.ImageMiniClick(Sender: TObject);
begin
application.Minimize;
end;

procedure TFMLogin.exitClick(Sender: TObject);
begin
Application.Terminate;
end;

end.