t.Jet.OLEDB.4.0,由Adodb组件进行数据库的访问,并为其他组件提供数据源。特殊情况、身份验证等由DAO访问数据库。
6.5其他约定
无需数据显示的情况由DAO提供数据库支持,有数据显示的情况由ADODB组件提供数据库支持。
七、数据库分析与设计
7.1数据库环境说明
考虑该系统的定位与现有技术力量,决定采用MicrosoftAccess2000/2002作为系统的后台数据库开发环境。
7.2数据库命名标准与规范
说明:下表所列为数据库及各表的命名方法,具体信息请参阅7.4.1表、视图汇总。
名称
类型
命名办法约定
Db1
系统数据库
字母
表
基本表
汉字或字母
查询
查询
汉字
字段
字段
汉字或字母
7.3数据库逻辑设计
图4.数据库逻辑结构图
7.4数据库物理设计
7.4.1表
视图/表名
类型
说明
dzlb
基本表
读者类别信息
dzxx
基本表
读者信息
jyxx
基本表
借阅信息
sjxx
基本表
书籍信息
tslb
基本表
图书类别信息
7.4.2各表设计详解
[说明]:空缺位置表示无要求,主键在约束栏注明。
基本表:[dzlb]
字段
类型
长度
格式
约束
种类名称
文本
50
主键
借书数量
数字
长整型
借书期限
数字
长整型
有限期限
备注
基本表:[dzxx]
字段
类型
长度
格式
约束
读者姓名
文本
50
主键
读者编号
文本
50
主键
性别
文本
2
读者类别
文本
50
工作单位
文本
50
家庭住址
文本
50
电话号码
文本
12
登记日期
日期/时间
已借书数量
数字
长整型
基本表:[jyxx]
字段
类型
长度
格式
约束
借阅编号
自动编号
长整型
主键
读者编号
文本
50
读者姓名
文本
50
书籍编号
文本
50
书籍名称
文本
50
出借日期
日期/时间
还书日期
日期/时间
基本表:[sjxx]
字段
类型
长度
格式
约束
图书编号
文本
50
主键
书名
文本
50
类别
文本
50
作者
文本
250
出版社
文本
出版日期
日期/时间
登记日期
日期/时间
是否被借出
文本
2
基本表:[tslb]
字段
类型
长度
格式
约束
类别名称
文本
50
主键
类别编号
文本
50
八、软件体系结构设计说明书
8.1系统概述
在单机环境下进行系统安全的考虑,有必要进行用户权限的划分与控制,因而系统在总体上应包含安全子系统之下的各类用户工作环境。用户权限的合理划分与有效控制是本系统体系结构设计的核心。
8.2设计约束
系统将实现人员、物流的全面管理,而物流管理是系统的核心部件,怎样实现二者的共存,互不干扰,是本系统设计的难点。本系统必须实现对用户权限的有效合理控制。
8.3系统概要设计说明书
8.3.1图例说明
1.处理过程:
2.数据流:(单向)
3.数据流:(双向)
8.3.2系统总体结构图
图10.系统总体结构图
8.3.3图书管理流程图
图11.图书管理流程图
8.3.4读者管理流程图
图12.读者管理流程图
8.3.5图书借阅流程图
图13.图书借阅流程图
8.4系统详细设计说明书
8.4.1系统核心模块详解
全局变量定义:
OptionExplicit
PublicconnAsNewADODB.Connection
Publicselect_menuAsString
PublicuserIDAsString
PublicuserpowAsString
Publicbook_numAsString
PrivateSubcmdCancel_Click()
'设置全局变量为false
'不提示失败的登录
LoginSucceeded=False
Me.Hide
EndSub
PrivateSubcmdOK_Click()
'检查正确的密码
IftxtPassword="user"Then
'将代码放在这里传递
'成功到calling函数
'设置全局变量时最容易的
LoginSucceeded=True
Me.Hide
Form1.Show
Else
MsgBox"无效的密码,请重试!",,"登录"
txtPassword.SetFocus
SendKeys"{Home}+{End}"
EndIf
EndSubb
窗体名:Form1
代码:
PrivateSubA11_Click()
Form2.Show
EndSub
PrivateSubA12_Click()
Form3.Show
EndSub
PrivateSubA13_Click()
Form4.Show
EndSub
PrivateSubB11_Click()
Form5.Show
EndSub
PrivateSubB12_Click()
Form6.Show
EndSub
PrivateSubB13_Click()
Form7.Show
EndSub
PrivateSubC12_Click()
Form4.Show
EndSub
PrivateSubC13_Click()
Form9.Show
EndSub
PrivateSubC15_Click()
Form10.Show
EndSub
PrivateSubexit_Click()
End
EndSub
窗体名:Form2
代码:
PrivateSubCommand1_Click()
GoTocommand1error
Command2.Enabled=False
Command3.Enabled=False
Command1.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
DataGrid1.AllowAddNew=True
DataGrid1.AllowUpdate=True
ExitSub
command1error:
MsgBoxErr.Description
EndSub
PrivateSubCommand2_Click()
GoToCommand2
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command1.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
DataGrid1.AllowUpdate=True
Command2:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand3_Click()
DimanswerAsString
GoTocommand3error
answer=MsgBox("确定要删除吗?",vbYesNo,"")
Ifanswer=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
EndIf
DataGrid1.Refresh
MsgBox"删除成功!",vbOKCancel+vbExclamation,""
DataGrid1.AllowDelete=False
Else
ExitSub
command3error:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand4_Click()
IfNotIsNull(DataGrid1.Bookmark)Then
DataGrid1.Refresh
EndIf
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command5.Enabled=False
Command4.Enabled=False
DataGrid1.AllowUpdate=False
DataGrid1.AllowAddNew=False
MsgBox"操作成功!",vbOKCancel+vbExclamation,""
EndSub
PrivateSubCommand5_Click()
DataGrid1.Refresh
DataGrid1.AllowAddNew=False
Command2.Enabled=True
Command1.Enabled=True
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
EndSub
PrivateSubForm_Load()
Command4.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
Ifuserpow="guest"Then
Frame2.Enabled=False
EndIf
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
PrivateSubForm_Unload(CancelAsInteger)
SetDataGrid1.DataSource=Nothing
EndSub
窗体名:Form3
代码:
PrivateSubCommand1_Click()
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
DataGrid1.AllowAddNew=True
DataGrid1.AllowUpdate=True
ExitSub
command1error:
MsgBoxErr.Description
EndSub
PrivateSubCommand2_Click()
OnerrrorGoToCommand2
Command1.Enabled=False
Command3.Enabled=False
Command2.
上一篇:
vb图书管理系统vb+access版论文+源代码+开题报告+外文翻译+答辩ppt(论文和程序)
下一篇:
经济酒店发展:China''s economy hotel market development strategies