unit7.pas

用DELPHI来编写的图书管理系统

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 学生图书馆帐号表 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
end
end;

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

end.