unit1.pas

一个可以用于书店的图书信息管理系统

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}





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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if edit1.text<>'' then
begin
if (edit1.text='gan') and (edit2.text='123')
then
begin
application.MessageBox('管理员登陆模式','图书管理系统-提示信息',mb_ok);
form2.Show;
end
else
application.MessageBox('错误的用户名或密码','图书管理系统-提示信息',mb_ok);
edit1.text:='';
edit2.text:='';
end
else
begin
  application.MessageBox('普通读者身份','图书管理系统',mb_ok);
   form2.N2.Visible:=False;
    form2.N5.Visible:=False;
    form2.N9.Visible:=False;
    //form2.N3.Visible:=False;
    form2.N4.Visible:=False;
    //form2.N13.Visible:=False;
    form2.N7.Visible:=False;
    form2.N8.Visible:=False;
    //form2.N18.Visible:=False;
    form2.N17.Visible:=False;
    form2.N19.Visible:=False;
    form2.N12.Visible:=False;
    form2.N11.Visible:=False;
    form2.N22.Visible:=False;
    form2.N27.Visible:=False;
    form2.N28.Visible:=False;
    form2.Show;
    end;
end;

END.