unit1.pas

公民户籍管理系统,delphi课程设计,连接数据库的时候需要改连接路径

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.FormShow(Sender: TObject);
begin
adoquery1.Open ;
 adoquery1.First;
 combobox1.Items.Clear;
  combobox1.Text:=' ';

while not adoquery1.Eof   do
   begin
     combobox1.Items.Add(adoquery1.Fields[0].AsString);
     adoquery1.Next;
   end;
   adoquery1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.sql.add('select 密码 from 登入表1 where 帐号='+''''+combobox1.Text+'''');
adoquery2.Open;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.sql.add('select 用户类型 from 登入表1 where 帐号='+''''+combobox1.Text+'''');
adoquery3.Open;
if(edit1.Text=adoquery2.Fields[0].AsString) and (adoquery3.Fields[0].AsString='管理员')then
  begin
form2.Show ;//密码正确，关闭登录窗口，进入主窗口
 form1.Hide;
 end
else if(edit1.Text=adoquery2.Fields[0].AsString) and (adoquery3.Fields[0].AsString='普通用户')then
 begin
form3.Show;
form1.Hide;
end
else
   begin
   messagedlg('密码错误,请重新输入!!!',mterror,[mbcancel],0);//密码错误，重新输入
   edit1.Text:='';
   end;

end;

end.