unit7.~pas

来自「用delphi编写的学生学籍管理系统」· ~PAS 代码 · 共 93 行

unit Unit7;

interface

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

type
  TF_dialog = class(TForm)
    Label1: TLabel;
    username: TEdit;
    Label2: TLabel;
    password: TEdit;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_dialog: TF_dialog;
   times:integer;

implementation
uses unit1,unit9;

{$R *.dfm}

procedure TF_dialog.FormCreate(Sender: TObject);
begin
   username.Text:='';
   password.Text:='';
   times:=0;
end;


procedure TF_dialog.BitBtn2Click(Sender: TObject);
begin
  times:=times+1;
  ADOquery1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
  ADOquery1.SQL.Add('select LoginPass from login where loginname='+''''+username.Text+'''');
  ADOquery1.Open;
  if ADOquery1.Fields[0].value<>null then
  begin
  if ADOquery1.Fields[0].value=password.Text then
  begin
  Application.CreateForm(TForm1, Form1);
  ADOquery1.close;
  ADOquery1.ConnectionString:='';
  F_dialog.Hide;
  Form1.ShowModal;
  end
  else
  if MessageDlg('密码输入错误。是否退出？',mtConfirmation,[mbYes,mbNo],0)
   = mrYes then Close
  else if times<3 then password.SetFocus
  else
  begin
  MessageDlg('对不起，密码输入严重错误！请退出。',mtInformation,[mbOk], 0);
  application.Terminate ;
  end
  end
  else
  begin
  Application.MessageBox('请确认用户名是否正确！','用户名错误！',mb_ok);
  close;
  end;
end;
procedure TF_dialog.BitBtn1Click(Sender: TObject);
begin
  username.Text:='';
  password.Text:='';
  username.SetFocus;
end;

procedure TF_dialog.Button1Click(Sender: TObject);
begin
   APPLICATION.CreateForm(TForm9,form9);
   Form9.ShowModal;
end;

end.