unit2.pas

电费管理系统,DELPHI课程设计,需要重新连接数据库

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

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

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
//找出该用户的密码
    adoquery2.Close;
    adoquery2.SQL.Clear;
    adoquery2.sql.add('select 密码 from 帐户登陆 where 帐户='+''''+combobox1.Text+'''');
   adoquery2.Open;
   if(edit2.Text=adoquery2.Fields[0].AsString) then
     begin
    showmessage('欢迎您'+combobox1.text) ;
    form1.Memo1.Lines.LoadFromFile('D:\我的文档\My Delphi Files\电费管理系统\新建文件夹\001.txt');
   if(combobox1.ItemIndex=0) then
    begin
    form1.panel1.Enabled:=true;
    form1.panel2.Enabled:=true;
    form1.panel3.Enabled:=true;
    form1.panel4.Enabled:=true;
    form1.bitbtn1.Enabled:=true;
    form1.button1.Enabled:=true;
    end
    else  form1.panel2.Enabled:=true;
          form1.panel4.Enabled:=true;
          form1.bitbtn1.Enabled:=true;
    close  //密码正确，关闭登录窗口，进入主窗口
    end
   else showmessage('密码错误,请重新输入!!!');//密码错误，重新输入

end;

end.