数据库作业电气与电子工程学院

概 需求分 总体需求分 信息需 处理需 数据流图描 数据字 数据 数据结 数据 概念结构设 确定实体集，联 画出局部E-R 合并E-R 逻辑结构设 把E-R图转换为关系模 模式分 完整性与用户子模式设 数据库物理分 数据库的实 建立数据结 数据加 编写和调试程 窗口和报表的设 功能代码编写与程序调 结束 询、借阅，一个好的管理系统是必须的。一个设计良好的数据库系统需要使得

据包括信息、借阅师生信息、外借信息和馆内阅览的信息。其中不同的群体对权限。因此，系统需要提供不同类型的，通过验证来决定权限。息需求为信息，借阅信息。借阅信息，读者信息，信息；读者应能够查询信息，借阅信息。常运行。其中由于权限的显著区别，室管理员界面与读者界面会有较大差别。 2

借阅的生登录帐号，，，，所属表读者借阅归还来源：管理子系统来源：借阅管理子系统 读者（登陆账号，，，，所属）归还（登陆账号，，编号，名称，还书日期，应交罚款）述信息对室管理员都是公开的，但室管理员无法对之进行更改；、录入和更新信息且通过外键与主键取得各表之间的联系，中关系类型参考ER图中联系类型。

PrivateSub登录OnErrorGoToErr_登录DimmypasswordsAsStringDimkAsIntegerk=k+Ifk<10IfIsNull(Me.)=TrueOrIsNull(Me.账号)=TrueThenMsgBox"账号和不能为空!",vbOKOnly,"错误"IfMe.=DLookup("登录","管理员信息","[登陆账号]="&"'"&Me!账号&"'")ThenMe.Visible=Forms!NullForms![登陆界面]![]=NullDoCmd.OpenForm"读者界面",acNormal,,,acFormReadOnly,Forms![登陆界面]![账号]=NullEndIfEndExitSubResumeExit_登录EndPrivateSubOnErrorGoToErr_退出IfMe.DirtyThenMe.Dirty=FalseExitSubResumeExit_退出End息通过调用DLookUp（）函数来在基本数据表中查找，调用格式为：DLookup("[]","管理员","[登陆账号]="&"'"&Me.Text33&对于下半部分窗体，它要实现三个功能，即信息更新、借阅情况的查询、读者信息的查询功能。对于信息更新，管理员具有信息的查询、插入、修改、删除等权限。PrivateSub_Click()DimsqlAsStringDims(2)AsDimi,jAssql=Fori=0To1s(i)=""NextIfIsNull(Me.登陆账号)=FalseThens(0)MeEndIfIfIsNull(Me.)=Falses(1)="读者信息.="""+Me.+"""EndFori=0To1Ifs(i)<>""Forj=i+1To1Ifs(j)<>""s(j)="and"+s(j)EndIfNextjEndIfNextiFori=0To1sql=sql+NextDoCmd.OpenReportac