原创力文档- 1、本文档共26页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
图书馆管理系统
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;
文档评论（0）