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

《图书馆管理系统的实现功能和实现步骤》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、图书馆管理系统1.信息描述图书馆中有各种类型的图书，图书信息包括：图书编号、图书名称、作者、出版社、种类、价格、出版时间等；读者信息包括：姓名、性别、单位、出生日期等。2.预计功能描述1.基础数据维护。2.图书的插入。（数量>1）3.图书的删除与修改。4.图书查询。5.图书借阅与归还。（可以查询图书当前被谁借走及剩余数量。每人能同时最多能借5本书，超过5本不能再借阅。）6.读者查询。可以查询读者目前已借的图书信息及借阅时间与归还时间7.权限设置。8.帮助等。3.功能的实现3.1主界面设置主界面中仅有一个MainMenu控件，如图所示：在“管理员登录”中输入以下代码：proc

2、edureTMain.AdLoginClick(Sender:TObject);beginFrmLogin.Caption:='管理员登陆';//把登陆界面标题改为“管理员登陆”FrmLogin.ShowModal;//显示登陆界面end;在“用户登录”中输入以下代码：procedureTMain.CoLoginClick(Sender:TObject);beginFrmLogin.Caption:='用户登陆';//把登陆界面标题改为“用户登录”FrmLogin.ShowModal;//显示登陆界面end;在“退出”中输入以下代码（为简便起见，下文中未注明的“退出”与“取

3、消”按钮与此操作相同，不予以再次注明）：procedureTMain.ExitClick(Sender:TObject);beginclose;end;3.2登录界面的设置登录界面的主要控件：2个Lable、2个Edit、2个BitButton、ADOQuery、DataSourse。如图：在确定按钮中输入以下代码：procedureTFrmLogin.BtnOKClick(Sender:TObject);VarCmdStr:String;//CmdStr存放查询语句UsrType:integer;//UsrType存放用户类型beginADOQryUser.SQL.Cle

4、ar;CmdStr:='select*From用户（管理员）Where用户名='+QuotedStr(EdtUserName.Text)+'and口令='+QuotedStr(EdtPass.Text);AdoQryUser.SQL.Add(CmdStr);AdoQryUser.Open;ifAdoQryUser.RecordCount<>0then//确认该用户存在beginUsrType:=ADOQryUser.FieldList[2].AsInteger;ifUsrType=0then//0为普通用户ifFrmLogin.Caption='管理员登陆'then//如果

5、用户点了管理员登陆，提醒其换登陆beginmessagedlg('此账号不是管理员，请使用用户登录',mtinformation,[mbyes,mbno],0);close;end//登陆成功elsebeginFrmWork.Caption:='用户使用';//主界面标题改为“用户使用”FrmWork.BkManage.Enabled:=false;//图书管理按钮不可用FrmWork.BkRdManage.Enabled:=false;//用户管理按钮不可用FrmWork.BkBorL.Enabled:=False;//图书借阅及归还按钮不可用FrmWork.BkRead

6、er.Enabled:=true;//读者服务按钮可用FrmWork.BkSearch.Enabled:=true;//图书查询按钮可用FrmWork.BkExit.Enabled:=true;//退出登录按钮可用FrmWork.ShowModal;//显示主界面endelseifUsrType=1then//1为普通管理员ifFrmLogin.Caption='用户登录'thenbeginmessagedlg('此账号不是用户，请使用管理员登录',mtinformation,[mbyes,mbno],0);close;endelsebeginFrmWork.Caption

7、:='管理员使用';FrmWork.BkManage.Enabled:=true;//普通管理员可以使用图书管理FrmWork.BkRdManage.Enabled:=false;FrmWork.BkBorL.Enabled:=true;//普通管理员可以使用图书借阅及归还FrmWork.BkReader.Enabled:=true;FrmWork.BkSearch.Enabled:=true;FrmWork.BkExit.Enabled:=true;FrmWork.ShowModal;endelse//其他的是顶