Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand4_Click()
IfNotIsNull(DataGrid1.Bookmark)Then
DataGrid1.Refresh
EndIf
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
MsgBox"操作成功!",vbOKOnly+vbExclamation,""
EndSub
PrivateSubCommand5_Click()
DataGrid1.Refresh
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
Command2.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
窗体名:Form7
代码:
PrivateSubCommand1_Click()
Dimrs_findreaderAsNewADODB.Recordset
DimsqlAsString
IfCheck1.Value=vbCheckedThen
sql="读者编号='"&Trim(Text1.Text&"")&"'"
EndIf
IfCheck2.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="读者姓名='"&Trim(Text2.Text&"")&"'"
Else
sql=sql&"and读者姓名='"&Trim(Text2.Text&"")&"'"
EndIf
EndIf
IfCheck3.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="读者类别='"&Trim(Combo1.Text&"")&"'"
Else
sql=sql&"and读者类别='"&Trim(Combo1.Text&"")&"'"
EndIf
EndIf
IfTrim(sql)=""Then
MsgBox"请选择查询方式!",vbOKOnly+vbExclamation
ExitSub
EndIf
Adodc1.RecordSource="select*fromdzxxwhere"&sql
Adodc1.Refresh
DataGrid1.ReBind
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
DimiAsInteger
DimsqlAsString
Combo1.Clear
Adodc2.Recordset.MoveFirst
Fori=0ToAdodc2.Recordset.RecordCount-1
Combo1.AddItemAdodc2.Recordset.Fields(0).Value
Adodc2.Recordset.MoveNext
Next
Combo1.ListIndex=0
EndSub
窗体名:Form8
代码:
PrivateSubCombo1_Change()
Combo2.ListIndex=Combo1.ListIndex
EndSub
PrivateSubCombo2_Change()
Combo1.ListIndex=Combo2.ListIndex
EndSub
OptionExplicit
DimleibieAsString
DimqixianAsInteger
DimshumnAsInteger
DimmaxnumAsInteger
PrivateSubCommand1_Click()
Dimrs_borrowbookAsNewADODB.Recordset
DimsqlAsString
Adodc1.RecordSource="select*from读者信息where读者编号='"&Combo1.Text&","
Adodc1.Refresh
leibie=Adodc1.Recordset.Fields(3)
shumu=Adodc1.Recordset.Fields(8)
Adodc1.RecordSource="select*from读者类别where种类名称='"&leibie&"'"
Adodc1.Refresh
qixian=Adodc1.Recordset.Fields(2)
maxnum=Adodc1.Recordset.Fields(1)
Ifshumu>=maxnumThen
MsgBox"该读者借书数额已满!",vbOKOnly+vbExclamation
ExitSub
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
DimiAsInteger
Adodc2.RecordSource="select*from书籍信息where书籍编号='"&book_num&"'"
Adodc2.Refresh
Label8.Caption=Adodc2.Recordset.Fields(0)
Label9.Caption=Adodc2.Recordset.Fields(1)
Label10.Caption=Adodc2.Recordset.Fields(2)
Label11.Caption=Adodc2.Recordset.Fields(3)
Label12.Caption=Adodc2.Recordset.Fields(4)
Label13.Caption=Adodc2.Recordset.Fields(5)
Label14.Caption=Adodc2.Recordset.Fields(6)
Combo1.Clear
Combo2.Clear
Adodc1.RecordSource="select*from读者信息"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Fori=0ToAdodc1.Recordset.RecordCount-1
Combo1.AddItemAdodc1.Recordset.Fields(1).Value
Combo2.AddItemAdodc1.Recordset.Fields(0).Value
Adodc1.Recordset.MoveNext
Next
Combo1.ListIndex=0
Combo2.ListIndex=0
EndSub
PrivateSubForm_Unload(CancelAsInteger)
UnloadMe
EndSub
窗体名:form9
代码:
PrivateSubCommand1_Click()
DimsqlAsString
IfOption1.Value=TrueThen
sql="是否被借出='是'"
EndIf
IfOption2.Value=TrueThen
sql="是否被借出='否'"
EndIf
Adodc1.RecordSource="select*fromsjxxwhere"&sql
Adodc1.Refresh
DataGrid1.ReBind
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
模块名:Module1
代码:
OptionExplicit
PublicconnAsNewADODB.Connection
Publicselect_menuAsString
PublicuserIDAsString
PublicuserpowAsString
Publicbook_numAsString
九、用户界面设计报告
9.1系统窗体汇总
窗体名称
窗体类型
简要说明
FrmLogIn
启动窗体
系统登陆
Form1
MDI主窗体
系统主窗体
Form2
模式窗体
图书类别管理窗体
Form3
模式窗体
图书信息管理窗体
Form4
模式窗体
查询图书信息窗体
Form5
模式窗体
读者类别管理窗体
Form6
模式窗体
读者信息管理窗体
Form7
模式窗体
查询读者信息窗体
Form8
模式窗体
借书窗体
Form9
模式窗体
查询借书信息窗体
Form10
模式窗体
还书窗体
9.3主界面设计
主界面如下图所示:
图14.系统主界面设计样式
9.4子界面设计
除系统中主要的、基本的功能之外,子系统或非共享功能的实现均采用子界面的设计来实现,如图书管理、读者管理、图书借阅管理、系统管理等。
图书类别管理如下图所示:
图书信息管理如下图所示:
查询图书信息管理如下图所示:
读者类别管理如下图所示:
读者信息管理如下图所示:
查询读者信息管理如下图所示:
添加图书信息如下图:
查询借书信息如下图:
添加还书信息如下图:
十、软件测试分析报告
10.1测试范围与主要内容
测试范围
主要内容
简要说明
系统登陆验证
验证用户身份
功能性测试
信息检索功能测试
测试数据库检索代码的健壮性
功能性测试
图书管理功能测试
测试系统实用性、方便性
功能性测试
统计分析测试
测试按时段统计的准确性
功能性测试
数据完整性测试
测试登记失败时的数据完整性控制
功能性测试
核心代码复检
检验核心代码的质量
逻辑检错性测试
10.2测试方法
功能性测试:黑盒测试逻辑检错性测试:白盒测试
参考资料:
1.《计算机软件产品开发文件编制指南》
2.《管理信息系统与开发技术》陈承欢彭勇主编.人民邮电出版社.2006.1
3.《工程应用软件开发技术》唐任仲编著.化学工业出版社.1999.5
4.《VisualBasic6.0中文版参考详解》李怀明等著.清华大学出版社.1999.11
5.《VisualBasic6.0高级编程技巧》李善茂等著.电子工业出版社.1999.5
6.《VisualBasic6.0中文版提高与应用》谭浩强主编.电子工业出版社.1999.11
??
??
??
??
2
上一篇:
vb图书管理系统vb+access版论文+源代码+开题报告+外文翻译+答辩ppt(论文和程序)
下一篇:
"夜"