图书馆管理系统 1 .信息描述 图书馆中有各种类型的图书，图书信息包括：图书编号、图书名称、作者、出版社、种类、价格、出版时间等；读者信息包括：姓名、性别、单位、出生日期等。 2.预计功能描述 1. 基础数据维护。 2. 图书的插入。（数量>1） 3. 图书的删除与修改。 4. 图书查询。 5. 图书借阅与归还。（可以查询图书当前被谁借走及剩余数量。每人能同时最多能借5本书，超过5 本不能再借阅。） 6. 读者查询。可以查询读者目前已借的图书信息及借阅时间与归还时间 7. 权限设置。 8. 帮助等。 3.功能的实现 3.1 主界面设置 主界面中仅有一个MainMenu 控件，如图所示： 在“管理员登录”中输入以下代码： procedure TMain.AdLoginClick(Sender: TObject); begin FrmLogin.Caption:='管理员登陆'; //把登陆界面标题改为“管理员登陆” FrmLogin.ShowModal; //显示登陆界面 end; 在“用户登录”中输入以下代码： procedure TMain.CoLoginClick(Sender: TObject); begin FrmLogin.Caption:='用户登陆'; //把登陆界面标题改为“用户登录” FrmLogin.ShowModal; //显示登陆界面 end; 在“退出”中输入以下代码（为简便起见，下文中未注明的“退出”与“取消”按钮与此操作相同，不予以再次注明）： procedure TMain.ExitClick(Sender: TObject); begin close; end; 3.2 登录界面的设置 登录界面的主要控件：2 个 Lable、2 个 Edit、2 个 BitButton、ADOQuery、DataSourse。如图： 在确定按钮中输入以下代码： procedure TFrmLogin.BtnOKClick(Sender: TObject); Var CmdStr: String; //CmdStr 存放查询语句 UsrType: integer; //UsrType 存放用户类型 begin ADOQryUser.SQL.Clear; CmdStr:='select* From 用户（管理员） Where 用户名='+QuotedStr(EdtUserName.Text)+'and 口令='+QuotedStr(EdtPass.Text); AdoQryUser.SQL.Add(CmdStr); AdoQryUser.Open; if AdoQryUser.RecordCount<>0 then //确认该用户存在 begin UsrType:=ADOQryUser.FieldList[2].AsInteger; if UsrType=0 then //0 为普通用户 if FrmLogin.Caption='管理员登陆' then //如果用户点了管理员登陆，提醒其换登陆 begin messagedlg(' 此账号不是管理员，请使用用户登录',mtinformation,[mbyes,mbno],0); close; end //登陆成功 else begin FrmWork.Caption:='用户使...
