unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    Image1: TImage;
    StaticText1: TStaticText;
    Edit1: TEdit;
    StaticText2: TStaticText;
    Edit2: TEdit;
    StaticText3: TStaticText;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    StaticText4: TStaticText;
    Edit4: TEdit;
    StaticText5: TStaticText;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;

var
  Form7: TForm7;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);
begin
if form1.ComboBox1.Text='管理員登錄' then
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;  ADOQuery1.SQL.Add('select * from 管理員圖書館帳號表 where 帳號='''+Edit4.Text+''' and 密碼='''+Edit1.Text+'''');  ADOQuery1.Open;  if ADOQuery1.Recordset.RecordCount=0 then
  begin
   edit1.Clear;
   edit2.Clear;
   edit3.Clear;
   application.MessageBox('帳號或密碼出錯，請查正后再輸入!','提示',64)
  end
   else
   begin
    if edit2.Text=edit3.Text then
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;      ADOQuery1.SQL.Add('update 管理員圖書館帳號表 set 密碼='''+edit3.Text+''' where 帳號=(select 帳號 from 管理員圖書館帳號表 where 帳號='''+form1.Edit1.Text+''')');      adoquery1.ExecSQL;
      edit1.Clear;
      edit2.Clear;
      edit3.Clear;
      application.MessageBox('更改密碼成功，請記住!','提示',64)
    end
    else
    begin
     edit1.Clear;
     edit2.Clear;
     edit3.Clear;
     application.MessageBox('兩次密碼不一致，請檢查后再輸入!','提示',64)
    end
   end
end
else
begin
  if form1.RadioButton1.Checked then
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;    ADOQuery1.SQL.Add('select * from 教師圖書館帳號表 where 帳號='''+Edit4.Text+''' and 密碼='''+Edit1.Text+'''');    ADOQuery1.Open;    if ADOQuery1.Recordset.RecordCount=0 then
    begin
      edit1.Clear;
      edit2.Clear;
      edit3.Clear;
      application.MessageBox('帳號或密碼出錯，請查正后再輸入!','提示',64)
    end
    else
    begin
    if edit2.Text=edit3.Text then
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;      ADOQuery1.SQL.Add('update 教師圖書館帳號表 set 密碼='''+edit3.Text+''' where 帳號=(select 帳號 from 管理員圖書館帳號表 where 帳號='''+form1.Edit1.Text+''')');      adoquery1.ExecSQL;
      edit1.Clear;
      edit2.Clear;
      edit3.Clear;
      application.MessageBox('更改密碼成功，請記住!','提示',64)
    end
    else
    begin
     edit1.Clear;
     edit2.Clear;
     edit3.Clear;
     application.MessageBox('兩次密碼不一致，請檢查后再輸入!','提示',64)
    end
   end
  end
  else
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;    ADOQuery1.SQL.Add('select * from 學(xué)生圖書館帳號表 where 帳號='''+Edit4.Text+''' and 密碼='''+Edit1.Text+'''');    ADOQuery1.Open;    if ADOQuery1.Recordset.RecordCount=0 then
    begin
      edit1.Clear;
      edit2.Clear;
      edit3.Clear;
      application.MessageBox('帳號或密碼出錯，請查正后再輸入!','提示',64)
    end
    else
    begin
    if edit2.Text=edit3.Text then
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;      ADOQuery1.SQL.Add('update 學(xué)生圖書館帳號表 set 密碼='''+edit3.Text+''' where 帳號=(select 帳號 from 管理員圖書館帳號表 where 帳號='''+form1.Edit1.Text+''')');      adoquery1.ExecSQL;
      edit1.Clear;
      edit2.Clear;
      edit3.Clear;
      application.MessageBox('更改密碼成功，請記住!','提示',64)
    end
    else
    begin
     edit1.Clear;
     edit2.Clear;
     edit3.Clear;
     application.MessageBox('兩次密碼不一致，請檢查后再輸入!','提示',64)
    end
   end
  end
end
end;

procedure TForm7.BitBtn2Click(Sender: TObject);
begin
form7.Close;
end;

end.