图书馆管理系统的实现功能和实现步骤.doc

图书馆管理系统 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.RecordCount0 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:=用户使用; //主界面标题改为“用户使用” FrmWork.BkManage.Enabled:=false; //图书管理按钮不可用 FrmWork.BkRdManage.Enabled:=false; //用户管理按钮不可用 FrmWork.BkBorL.Enabled:=False; //图书借阅及归还按钮不可用 FrmWork.BkReader.Enabled:=true;