u_pass.pas

来自「大学生综合素质及诚信管理系统可以满足管理人员和高级管理员两方面管理学生综合素质及」· PAS 代码 · 共 86 行

unit u_pass;

interface

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

type
  Tf_pass = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  f_pass: Tf_pass;
  flag:string;
implementation

uses u_main;

{$R *.dfm}

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




procedure Tf_pass.BitBtn1Click(Sender: TObject);
var
sqlstr,pass:string;
begin
  if edit1.Text='' then
   begin
    showmessage('用户名为空!');
    edit1.SetFocus;
   end
   else
   begin
     try
       sqlstr:=' select * from users where name='''+edit1.Text+'''';
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add(sqlstr);
       adoquery1.Open;
       if adoquery1.RecordCount=0 then
        begin
          showmessage('该用户名不存在!');
          edit1.SetFocus;
        end
        else
        begin
          pass:=adoquery1.fieldbyname('pass').AsString;
          flag:=adoquery1.fieldbyname('flag').AsString;
          if pass=edit2.Text then
            f_main.Show
          else
          begin
            showmessage('密码错误');
          edit2.SetFocus;
          end;
        end
     except
       showmessage('数据库连接失败!');
     end;
   end
end;

end.