图书馆管理系统1.信息描述图书馆中有各种类型的图书，图书信息包括：图书编号、图书名称、作者、出版社、种类、价格、出版时间等；读者信息包括：姓名、性别、单位、出生日期等。
2.预计功能描述1. 基础数据维护。
2. 图书的插入。
（数量>1）3. 图书的删除与修改。
4. 图书查询。
5. 图书借阅与归还。
（可以查询图书当前被谁借走及剩余数量。
每人能同时最多能借5本书，超过5本不能再借阅。
）6. 读者查询。
可以查询读者目前已借的图书信息及借阅时间与归还时间7. 权限设置。
8. 帮助等。
3.功能的实现3.1主界面设置主界面中仅有一个MainMenu控件，如图所示：在“管理员登录”中输入以下代码：procedure TMain.AdLoginClick(Sender: TObject);beginFrmLogin.Caption:='管理员登陆'; //把登陆界面标题改为“管理员登陆”FrmLogin.ShowModal; //显示登陆界面end;在“用户登录”中输入以下代码：procedure TMain.CoLoginClick(Sender: TObject);beginFrmLogin.Caption:='用户登陆'; //把登陆界面标题改为“用户登录”FrmLogin.ShowModal; //显示登陆界面end;在“退出”中输入以下代码（为简便起见，下文中未注明的“退出”与“取消”按钮与此操作相同，不予以再次注明）：procedure TMain.ExitClick(Sender: TObject);beginclose;end;3.2登录界面的设置登录界面的主要控件：2个Lable、2个Edit、2个BitButton、ADOQuery、DataSourse。
如图：在确定按钮中输入以下代码：procedure TFrmLogin.BtnOKClick(Sender: TObject);VarCmdStr: String; //CmdStr存放查询语句UsrType: integer; //UsrType存放用户类型beginADOQryUser.SQL.Clear;CmdStr:='select* From 用户（管理员）Where 用户名='+QuotedStr(EdtUserName.Text)+'and 口令='+QuotedStr(EdtPass.Text);AdoQryUser.SQL.Add(CmdStr);AdoQryUser.Open;if AdoQryUser.RecordCount<>0 then //确认该用户存在beginUsrType:=ADOQryUser.FieldList[2].AsInteger;if UsrType=0 then //0为普通用户if FrmLogin.Caption='管理员登陆' then //如果用户点了管理员登陆，提醒其换登陆beginmessagedlg('此账号不是管理员，请使用用户登录',mtinformation,[mbyes,mbno],0);close;end//登陆成功elsebeginFrmWork.Caption:='用户使用'; //主界面标题改为“用户使用”FrmWork.BkManage.Enabled:=false; //图书管理按钮不可用FrmWork.BkRdManage.Enabled:=false; //用户管理按钮不可用FrmWork.BkBorL.Enabled:=False; //图书借阅及归还按钮不可用FrmWork.BkReader.Enabled:=true; //读者服务按钮可用FrmWork.BkSearch.Enabled:=true; //图书查询按钮可用FrmWork.BkExit.Enabled:=true; //退出登录按钮可用FrmWork.ShowModal; //显示主界面 endelse if UsrType=1 then //1为普通管理员if FrmLogin.Caption='用户登录' thenbeginmessagedlg('此账号不是用户，请使用管理员登录',mtinformation,[mbyes,mbno],0);close;endelsebeginFrmWork.Caption:='管理员使用';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 //其他的是顶级管理员if FrmLogin.Caption='用户登录' thenbeginmessagedlg('此账号不是用户，请使用管理员登录',mtinformation,[mbyes,mbno],0);close;endelsebeginFrmWork.Caption:='管理员使用';FrmWork.BkManage.Enabled:=true;FrmWork.BkRdManage.Enabled:=true; //顶级管理员可以使用用户管理FrmWork.BkBorL.Enabled:=true;FrmWork.BkReader.Enabled:=true;FrmWork.BkSearch.Enabled:=true;FrmWork.BkExit.Enabled:=true;FrmWork.ShowModal;endendelseif(messagedlg('输入的用户名与口令不对！是否要重输？',mtinformation,[mbyes,mbno],0)<>mryes) thenClose;end;3.3工作主界面工作主界面的主要控件为：6个Button、2个Lable。
如图：此界面的主要代码如下：procedure TFrmWork.BkExitClick(Sender: TObject); beginclose;end;procedure TFrmWork.BkSearchClick(Sender: TObject); beginFrmBkSearch.ShowModal; //显示图书查询界面end;procedure TFrmWork.BkRdManageClick(Sender: TObject); beginFrmRdManage.ShowModal; //显示用户管理界面end;procedure TFrmWork.BkManageClick(Sender: TObject); beginFrmBkManage.ShowModal; //显示图书管理界面end;procedure TFrmWork.BkReaderClick(Sender: TObject); beginFrmReader.ShowModal; //显示读者服务界面end;procedure TFrmWork.BkBorLClick(Sender: TObject); beginFrmBkBandL.showModal; //显示图书借阅与归还界面end;3.4图书查询界面图书查询界面的主要控件为：Lable、DBEdit、Button、BitButton、RadioGroup、DBGrid、DataSourse和ADOQurey。
如图：选择查询条件的代码为：procedure TFrmBkSearch.rdgClick(Sender: TObject); //查询条件的改变beginADOQryCondtion.Close;ADOQryConDtion.SQL.Clear;Case rdg.ItemIndex of0:beginADOQryCondtion.SQL.Add('select 图书名称 from 图书');DBEditBook.DataField:='图书名称';end;1:beginADOQryCondtion.SQL.Add('select 作者 from 图书');DBEditBook.DataField:='作者';end;2:beginADOQryCondtion.SQL.Add('select 出版社 from 图书');DBEditBook.DataField:='出版社';end;3:beginADOQryCondtion.SQL.Add('select 种类 from 图书');DBEditBook.DataField:='种类';end;4:beginADOQryCondtion.SQL.Add('select * from 图书');ADOQryCondtion.Active:=true;end;end;ADOQryCondtion.Active:=true;end;点击搜索的代码为：procedure TFrmBkSearch.Button1Click(Sender: TObject); //确认查询var CID:String; //CID中存放查询语句beginADOQryXx.Close;ADOQryXx.SQL.Clear;case rdg.ItemIndex of0:CID:='select* from 图书 where 图书名称 LIKE'+QuotedStr('%'+DBEditBook.Text+'%');1:CID:='select* from 图书 where 作者 LIKE'+QuotedStr('%'+DBEditBook.Text+'%');2:CID:='select* from 图书 where 出版社 LIKE'+QuotedStr('%'+DBEditBook.Text+'%');3:CID:='select* from 图书 where 种类 LIKE'+QuotedStr('%'+DBEditBook.Text+'%');4:CID:='select* from 图书';end;ADOQryXx.SQL.Add(CID); //写入SQL语句ADOQryXx.Active:=true; //显示查询结果end;3.5读者服务界面读者服务界面的主要控件为：DataSourse、ADOQuery、Edit、Table、PageControl、bitbutton、DBGrid等。