enter.~pas

实现图书馆数据库管理功能

unit enter;

interface

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

type
  Tinter = class(TForm)
    Button2: TButton;
    CB1: TComboBox;
    Edit1: TEdit;
    ADOConnection1: TADOConnection;
    ADS1: TADODataSet;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    Image2: TImage;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
   
    procedure FormCreate(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inter: Tinter;

implementation

uses Unit2;

{$R *.dfm}

procedure Tinter.Button1Click(Sender: TObject);
var boll:boolean;
begin
ads1.Close;
ads1.Open;
boll:=ads1.Locate('口令;密码',vararrayof([cb1.text,edit1.text]),[locaseinsensitive]);
   if boll=false then
    begin
     ads1.Locate('口令',cb1.Text,[locaseinsensitive]);
     if (length(ads1.fieldbyname('密码').AsString)=0) and (edit1.Text='')then
       begin
          form2.SpeedButton9.Enabled:=ads1.FieldByName('书库管理').Value;
          form2.SpeedButton11.Enabled:=ads1.FieldByName('读者管理').Value;
          form2.SpeedButton14.Enabled:=ads1.FieldByName('图书类型').Value;
          form2.SpeedButton17.Enabled:=ads1.FieldByName('读者类型').Value;
          form2.PageControl1.Enabled:=ads1.FieldByName('借/还书').Value;
          form2.N21.Enabled:=form2.SpeedButton17.Enabled;
          form2.N20.Enabled:=form2.SpeedButton14.Enabled;

          form2.Show;
          self.Hide;
       end
     else
        begin
           messagedlg('口令或密码错误！',mterror,[mbok],0);
           exit;
        end;
    end;
      ads1.Locate('口令',cb1.Text,[locaseinsensitive]);

        form2.SpeedButton9.Enabled:=ads1.FieldByName('书库管理').Value;
        form2.SpeedButton11.Enabled:=ads1.FieldByName('读者管理').Value;
        form2.SpeedButton14.Enabled:=ads1.FieldByName('图书类型').Value;
        form2.SpeedButton17.Enabled:=ads1.FieldByName('读者类型').Value;
        form2.PageControl1.Enabled:=ads1.FieldByName('借/还书').Value;
          form2.N21.Enabled:=form2.SpeedButton17.Enabled;
          form2.N20.Enabled:=form2.SpeedButton14.Enabled;
        form2.Show;
        
end;

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



procedure Tinter.FormCreate(Sender: TObject);
begin
 ads1.Active:=false;
ads1.CommandText:='select * from 管理员';
ads1.Active:=true;
ads1.First;
while not ads1.Eof do
 begin
   cb1.Items.add(ads1.FieldValues['口令']);
   ads1.Next;
 end;
 cb1.ItemIndex:=0;
end;

procedure Tinter.Image4Click(Sender: TObject);
begin
button1.Click;
end;

procedure Tinter.Image3Click(Sender: TObject);
begin
button2.Click;
end;

procedure Tinter.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
     Button1Click(Sender);
end;

end.