dlk.~pas

使用DELPHI6.0开发的停车场管理信息系统 使用ADO和BDE技术连接SQL数据库 是我计算机双学位的毕业设计

unit dlk;

interface

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

type
  Tdenglu = class(TForm)
    GroupBox1: TGroupBox;
    StaticText1: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    StaticText2: TStaticText;
    Button2: TButton;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  denglu: Tdenglu;
  var1:string;
  var2:string;
  var3:string;
  var4:string;
  var5:string;
  var6:string;
implementation

uses index2;



{$R *.dfm}

procedure Tdenglu.Button3Click(Sender: TObject);
begin
  if ComboBox1.Text = '管理员' then
  begin
          adodataset1.CommandType:=cmdtext;
          Adodataset1.CommandText:='select * from 管理员表 where 用户名=:username and 密码=:password';
          adodataset1.close;
          Adodataset1.Parameters.Clear;
          Adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='username';
          adodataset1.Parameters[0].DataType:=ftstring;
          Adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          Adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[1].name:='password';
          adodataset1.Parameters[1].DataType:=ftstring;
          Adodataset1.Parameters[1].Direction:=pdinput;
          adodataset1.Parameters[1].Value:=edit2.text;
          adodataset1.active:=true;
          if adodataset1.Recordset.RecordCount=1 then
          begin
                application.MessageBox('登录成功','提示信息',MB_OK);
                Form1.N2.Enabled :=true ;
                Form1.N3.Enabled :=true ;
                Form1.N5.Enabled :=true ;
                Form1.N8.Enabled :=true ;
                Form1.N10.Enabled :=true ;
                Form1.N15.Enabled :=true ;
                edit1.Text :='';
                edit2.text:='';
                Form1.Show;
                denglu.Close;
                                
          end
          else
          begin
              Application.MessageBox('您输入的用户名或密码错误，请检查！','提示信息',mb_ok);
          end;
          adodataset1.Active:=false;
  end
  else if ComboBox1.Text = '普通用户' then
  begin
          adodataset1.CommandType:=cmdtext;
          Adodataset1.CommandText:='select * from 密码表 where 用户名=:username and 密码=:password';
          adodataset1.close;
          Adodataset1.Parameters.Clear;
          Adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='username';
          adodataset1.Parameters[0].DataType:=ftstring;
          Adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          Adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[1].name:='password';
          adodataset1.Parameters[1].DataType:=ftstring;
          Adodataset1.Parameters[1].Direction:=pdinput;
          adodataset1.Parameters[1].Value:=edit2.text;
          adodataset1.active:=true;
          if adodataset1.Recordset.RecordCount=1 then
          begin
                application.MessageBox('登录成功','提示信息',MB_OK);
                Form1.N2.Enabled :=true ;
                Form1.N3.Enabled :=true ;
                Form1.N5.Enabled :=true ;
                edit1.Text :='';
                edit2.text:='';
                Form1.Show;
                denglu.Close;
          end
          else
          begin
              Application.MessageBox('您输入的用户名或密码错误，请检查！','提示信息',mb_ok);
          end;
          adodataset1.Active:=false;

  end
  else if ComboBox1.Text = '超级用户' then
  begin
          adodataset1.CommandType:=cmdtext;
          Adodataset1.CommandText:='select * from 超级用户表 where 用户名=:username and 密码=:password';
          adodataset1.close;
          Adodataset1.Parameters.Clear;
          Adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='username';
          adodataset1.Parameters[0].DataType:=ftstring;
          Adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          Adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[1].name:='password';
          adodataset1.Parameters[1].DataType:=ftstring;
          Adodataset1.Parameters[1].Direction:=pdinput;
          adodataset1.Parameters[1].Value:=edit2.text;
          adodataset1.active:=true;
          if adodataset1.Recordset.RecordCount=1 then
          begin
                application.MessageBox('登录成功','提示信息',MB_OK);
                Form1.N11.Enabled :=true ;
                Form1.N18.Enabled :=true ;
                edit1.Text :='';
                edit2.text:='';                
                Form1.Show;
                denglu.Close;                
          end
          else
          begin
              Application.MessageBox('您输入的用户名或密码错误，请检查！','提示信息',mb_ok);
          end;
          adodataset1.Active:=false;

  end;

end;

procedure Tdenglu.Button2Click(Sender: TObject);
begin
        close;
        
end;

end.