图书管理系统需求分析.doc

图书管理系统论文
1需求分析
1.1任务概述
经过详细调查，本软件以小型图书馆或者图书室使用。多次与负责图书馆管理的老师进行研讨后，加深了对现行图书管理业务的深刻了解，与此同时，将整个图书管理的业务流程抽象描述如下[1]：
1.新的图书购进后，分门别类地进行归并并汇总，加以编号。
2.新书编号后，上到书架以备学生借阅。
3.如某学生需要借阅图书，则在其本人的借阅登记表上进行登记，记录相关借阅信息与借阅日期。
4.学生借阅图书后，应及时归还图书，并在本人的借阅登记表上注明还书日期和时间。
根据以上调查分析，可以给出其现行业务流程图和组织结构图。如图1.1.1和1.1.2所示。

图1.1.1 现行图书管理业务流程图

图1.1.2 图书馆组织结构图
1.2 数据描述(数据流图+数据字典)
数据流程分析是把数据在组织（或原系统）内部的流动情况抽象的独立出来，舍去了具体组织机构、信息载体、处理工作、物资材料等，单从数据流动过程来考察实际业务的实际业务的数据处理模式，主要包括对信息的流动、传递、处理、存储等的分析。

经过详细的调查，我们已经清楚了解了现行的业务流程[1]，接下来给出系统的逻辑模型。构造系统逻辑模型的工具是数据流图和数据字典。根据现行图书管理的业务流程，首先把数据流图中的源点和终点都选定为学生，因此可以得到图书管理系统的基本系统模型[2]，如图1.2.3所示。

图1.2.3 图书管理系统的基本系统模型
根据基本系统模型，对其逐步细化，得到描述逻辑系统细化后的数据流图，如图1.2.4所示。

借书业务第一层PDF

借书业务第二层PDF
图1.2.4
有了系统的数据流图后，还有相当多的数据信息如图书、借阅、归还等信息需要进一步描述，这就是需要定义数据字典[2]，才能把现有的系统描述清楚。图1.2.5列出了系统的主要数据字典。

1.2.5 系统主要数据字典
1.3 功能需求
经过以上详细的用户调查，在现行业务流程和数据分析的基础上，基本可以确定系统设计必须达到的目标。
以下是图书管理系统必须具备的功能：
1.新图书的登记功能：对于购进的新书，系统必须具备图书信息资料的录入功能。
2.图书的查询修改功能：当图书资料发生变化，如图书丢失或有错误信息输入时，则应能够及时对数据进行修改和补充。
3.借阅的登记，归还的登记功能：系统的主要功能之一，供本校学生借阅图书、归还图书，并进行登记。
4.学生信息的增加、删除和修改功能：系统主要功能之一，建立学生信息，并对其进行维护。
5.系统管理员对管理员的权限设置功能：对管理员设置权限功能。
1.4 性能需求
为了保证系统能够长期、安全、稳定、可靠、高效的运行，图书管理系统应该满足以下的性能需求：
1.系统处理的准确性和及时性
系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足学校对信息处理的需求。
2.系统的开放性和系统的可扩充性
图书管理系统在开发过程中，应该充分考虑以后的可扩充性。例如用户查询的需求也会不断的更新和完善。所有这些，都要求系统提供足够的手段进行功能的调整和扩充。而要实现这一点，应通过系统的开放性来完成，既系统应是一个开放系统，只要符合一定的规范，可以简单的加入和减少系统的模块，配置系统的硬件。通过软件的修补、替换完成系统的升级和更新换代。
3.系统的易用性和易维护性
图书管理系统是直接面对使用人员的，而使用人员往往对计算机并不时非常熟悉。这就要求系统能够提供良好的用户接口，易用的人机交互界面。要实现这一点，就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程。
4.系统的标准性
系统在设计开发使用过程中都要涉及到很多计算机硬件、软件。所有这些都要符合主流国际、国家和行业标准。
5.系统的先进性
目前计算系统的技术发展相当快，做为图书管理系统工程，在系统的生命周期尽量做到系统的先进，充分完成企业信息处理的要求而不至于落后。这一方面通过系统的开放性和可扩充性，不断改善系统的功能完成。另一方面，在系统设计和开发的过程中，应在考虑成本的基础上尽量采用当前主流并先进且有良好发展前途的产品。
6.系统的响应速度
图书管理系统系统在日常处理中的响应速度为秒级，达到实时要求，以及时反馈信息。在进行统计分析时，根据所需数据量的不同而从秒级到分钟级,原则是保证操作人员不会因为速度问题而影响工作效率。
2可行性分析
2.1 开发新系统的必要性
使用计算机软件对图书进行管理，是计算机应用的一部分。以实现图书检索迅速、可靠性高、存储量大、寿命长、成本低等特点，能极大程度地提高图书管理的效率，也是图书管理信息化、正规化管理的必然趋势。
同时还要注下列几点：
1.由于各方面的限制，如人员不够、技术缺乏等原因，开发时应本着循序渐进，逐步完善的原则，不能贪大求全，盲目开发。
2.要注意信息的准确、及时、适用、经济，只有及时、准确的信息才能保证系统开发的质量和效率。
3.从全局出发注意系统开发的整体优化，还要注意系统的可扩展性和可延伸性。
2.2 建立信息管理系统的可行性
可行性分析是在进行初步调查后所进行的对系统开发必要性和可能性的研究，所以也称为可行性研究。信息系统也应从技术可行性，经济可行性和社会可行性三方面来论证。通过长时间的观察与实践，我认为图书馆管理系统的可行性分析如下：
1.经济可行性分析
作为图书馆这样的商业性质较小的场所，其经济成分比重相对较少，主要是支出的费用：其中包括设备购置费、软件开发费用、管理和维护费、人员工资和培训费等。由于各个图书馆实行统一操作，系统共享，其设备购置，人员工资，维护费用相对较少，前期的资金投入主要集中于购置图书上。建立信息中心，可将来自各方面的信息集中管理，提高图书管理的计划性和预见性，快速地反馈市场信息。
2.技术可行性分析
技术上的可行性分析主要分析现有技术条件能否顺利完成开发工作，硬件、软件配置能否满足开发者的需要，各类技术人员的数量，水平，来源等。图书馆管理系统的工作主要是在读者和图书馆之间架起一座桥梁，能相互沟通信息和处理信息。这一特点非常适合计算机特点，通过网络internet技术，发挥计算机的信息传输速度快、准确度高的优势。计算机硬件和软件技术的飞速发展，为系统的建设提供了技术条件。
3.社会可行性分析
社会可行性有时也称为操作可行性，主要论证新系统在企业或机构开发和运行的可能性以及运行后可能一起的对企业或机构的影响，即组织内外是否具备接受和使用新系统的条件。在当前信息技术飞速发展的大环境下，计算机技术和软件技术的更新是图书馆完全有可能也有能力采用这样先进的管理技术。它对图书馆带来的影响可以看到：
1.对传统管理理念的冲击，可能引起管理层的变动和人员的调整。
2.对图书馆工作人员的要求提高，使图书馆在一定的可能下进行机构精简，迫使工作人员继续学习新知识，拓宽图书馆在市场环境下的生存空间。
3.对图书馆与读者之间业务方式的转变和扩充。
4.从各种社会因素可行性分析
从各种社会因素上分析可降低工作人员工作强度，提高效率，会得到学校工作人员的一致同意的。
综上所述通过可行性分析认为新系统的开发方案切实可行，可进行开发。
最后，针对用户对图书资源进行有效利用和管理的功能需求，用建模技术对图书管理资源采用面向对象的描述方式，在具体系统功能实现之前，建立起系统模型是很必要的，这里采用具有可视化、能够柔性实现分析、设计和开发系统的统一建模语言实现系统模型构建。同时，结合最流行的基于浏览器的数据管理模式，建议采用基于组件技术的B/S(brower/server)系统结构。

3功能模块输入/输出设计
系统功能分析
密码设置：每个操作员均有自己的密码，可以防止非本系统人员进入本系统；
又因每个人的权限不一致，故可以防止越权操作。
资料维护：为了存放图书、读者档案的全部数据，本系统将每一本图书和每
位读者的信息进行管理。系统维护包括对各种表记录的修改、删除、添加等操作。
系统查询：可以按图书编号、借阅证编号等相关信息进行查询
系统管理：进行员工管理、数据备份和数据恢复。
报表统计：包括统计图书信息、读者信息、借阅信息和罚款信息等。
其它操作：包括修改密码、添加用户、页面设置等

3.1 输入设计
输入界面是管理信息系统与用户之间交互的纽带，设计的任务是根据具体业务要求，确定适当的输入形式，使管理信息系统获取管理工作中产生的正确的信息。输入设计的目的是提高输入效率，减少输入错误。
输入设计的设计原则：
（1）控制输入量；
（2）减少输入延迟；
（3）减少输入错误；
（4）避免额外步骤；
（5）简化输入过程；
输入设计的要求：
（1）输入界面要明晰、美观、大方；
（2）便于填写，符合工作习惯；
（3）便于操作；
（4）有保证输入数据正确性的校验措施；
3.2 输出设计
内容主要有：
（1）读者留言汇总表
（2）库存图书统计
（3）借阅图书情况统计
（4）读者个人信息
（5）读者所需的图书信息
（6）读者所需电子图书信息
（7）读者所需期刊信息
（8）库存期刊统计
（9）借阅期刊情况统计
3.4 图书管理系统安全
图书馆管理系统的安全措施主要包括规章保护，技术措施，行政管理以及人员教育四个方面，内容主要有：
（1）规章保护
（2）技术措施
（3）行政管理
（4）人员教育
在此，需要提醒的是不同部门的权限是不同的，以下就是不同部门所具有的权限：
图书馆：可以对图书馆管理系统的任何一个子系统进行管理。
图书室：只允许对图书管理系统进行管理。
4 系统实施
4.1 选择的开发平台
硬件平台是开发与运行系统所需要的硬件环境，由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高。我们选择的是1G内存、300G硬盘内存的普通微机。
软件平台是指系统开发与运行的软件环境。我们在开发时选用了稳定性较强的Windows XP中文专业版和Microsoft Office Access 2003作为开发语言用于数据库设计。 由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。Microsoft Office Access 2003具有可视化的开发环境，可以快速完成系统的开发，内部集成的数据库访问通道，使得可以轻松方便的对数据库管理。
4.2 系统测试
实际开发过程中不可避免地会产生差错，系统中通常可能隐藏着错误和缺陷，不经周密测试的系统投入运行，将会造成难以想象的后果，因此系统测试是MIS开发过程中为保证软件质量必须进行的工作。大量统计资料表明，系统测试的工作量往往占MIS开发总工作量的40%以上。因此，我们必须重视测试工作。
我们在开发本系统时，为了使系统能够稳定运行，对本系统进行了有针对性的全面测试，采取的方式是：
（1）分调：在“登陆界面”文本框中输入“用户名”，例002，然后输入密码，该界面从其他相应的文本框中能够显示出相应的信息，系统是可以正常运行的。为了保证每一项菜单能够正确实现系统设计的功能，我们把相关的基础数据，基本上全部输入到本系统中，并对每一个菜单项进行了增加、删除、修改等操作，从而保证了菜单级功能的正确实现。
（2）数据跟踪：我们完成菜单项测试后，又对系统内的每一个数据进行了跟踪。
（3）总调：在以上测试的基础上，我们对系统功能进行了整体的测试，依次来检验系统功能是否符合系统设计的要求。
在具体的测试中，我认为应当遵循以下原则：由程序设计者之外的人进行测试；测试用例应由两部分组成：输入数据和预期输出结果；应选用不合理的输入数据与非法输入测试；不仅要检验程序是否实现预期功能，还应检查程序是否做了不应该做的工作；集中测试容易出错的程序模块；对程序修改以后，必须重新进行测试。
4.3 系统切换方式
我们设计的图书管理系统准备采用并行切换方式，以保证平衡可靠的过度。即一方面使用本系统来进行工作，另一方面又继续沿用老的手工方式，在一定时期内，如果程序存在一些漏洞和错误，用户也提出了修改意见，那么系统还要经过进一步完善才能正式投入使用，终止以前的操作方式。

5 软件设计
5.1 数据库设计
这里的数据库采用Access，用ADO作为连接数据对象。
1、建立Access 数据库
　　启动Access，建立一个空的数据库book.mdb，如图5.1.1所示。使用程序设计器建立系统，需要的表格如下。
　　图书登记表，如图5.1.2所示。

　　5.1.1 建立数据库book.mdb 图 5.1.2 图书登记表

图书借阅表，如图5.1.3所示。

　　 5.1.3 图书借阅表
图书资料表，如图5.1.4所示。系统管理表，如图5.1.5所示。

　 5.1.4图书资料表 5.1.5 系统管理表

2、连接数据
在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图5.1.6所示。

　　 5.1.6 引用ADO连接数据库

在程序设计的公共模块中，先定义ADO连接对象。语句如下:
Public conn As New ADODB.Connection ' 标记连接对象
然后在子程序中，用如下的语句即可打开数据库:
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" &_
　　"data source=book.mdb"
　　conn.Open connectionstring
3、设置ODBC
VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。
打开控制面板中的“管理工具”→“数据源”(ODBC)，出现如图5.1.7所示的对话框。

　　 5.1.7 ODBC对话框
单击“添加”按钮，出现“创建新数据源”对话框，如图5.1.8所示。

5.1.8 “创建新数据源”对话框
选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图5.1.9所示对话框。

5.1.9 设置连接数据源
在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。

5.2 界面设计
1、添加记录中的书籍记录和学生记录如图5.2.1所示。

5.2.1 添加记录

2、删除记录中的书籍记录和学生记录如图5.2.2所示。

5.2.2 删除记录

3、登录界面及相关信息界面如图5.2.3和图5.2.4所示。

5.2.3 登录密码 5.2.4相关信息界面

4、借还操作中的借书、还书和续借如图5.2.5所示。

5.2.5借还书操作界面

5、系统菜单界面如图5.2.6所示。
5.2.6系统菜单界面

6、系统设置中的管理选项、系统选项和数据备份如图5.2.7所示。

5.2.7系统设置界面

5.3 窗体代码
1、主窗体代码
'**************************************************************
'所调用的API函数,自定义过程,类型,常数请参阅相应模块
Option Explicit
' *****************窗体事件********************
'窗体加载
Private Sub Form_Load()
loadmdb Adodc1 '连接数据库
'初始化窗体下方状态栏
StatusBar1.Panels(1).Text = "无记录源"
StatusBar1.Panels(2).Text = "共有记录 0 条"
'从config.ini文件读取窗体及控件的属性
'Formmain.Caption = getinistr("system", "formcaption")
Formmain.Caption = Formmain.Caption & "图书管理系统"
'Formmain.WindowState = GetIniNum("system", "winstate")
Formmain.WindowState = 2
'DataGrid1.BackColor = GetIniNum("system", "dgridcolor")
DataGrid1.BackColor = 16777215
ListView1.BackColor = DataGrid1.BackColor
End Sub

'窗体大小调整
Private Sub Form_Resize()
If WindowState = 1 Then
'最小化时添加到系统栏
addicon Formmain, traymenu
iconshow "MINI图书管理系统"
Else
'正常显示时控件调整
Picture1.Move 0, Picture1.Top, ScaleWidth, Picture1.Height
If ScaleHeight - Toolbar1.Height - Picture1.Height - 20 > 0 Then
DataGrid1.Move 0, Toolbar1.Height + Picture1.Height, ScaleWidth, ScaleHeight - Toolbar1.Height - Picture1.Height - StatusBar1.Height - 20
Else
Exit Sub
End If
If ListView1.Visible = True Then
If ScaleHeight - Toolbar1.Height - Picture1.Height - 20 > 0 Then
ListView1.Move 0, Toolbar1.Height + Picture1.Height, ScaleWidth, ScaleHeight - Toolbar1.Height - Picture1.Height - StatusBar1.Height - 20
Else
Exit Sub
End If
End If
End If
End Sub
************************************************************
'窗体卸载
Private Sub Form_Unload(Cancel As Integer)
'卸载所有可见窗体,加载关闭窗体,
Unload formadd
Unload Formabout
Unload Formdel
Unload Formoption
Unload Formsys
Unload Formupdate
Unload Formsys
Formend.Show
End Sub
'*********************菜单事件***********************
'关于
Private Sub about_Click()
Formabout.Show
End Sub
'添加书籍记录
Private Sub addbook_Click()
formadd.Show
formadd.SSTab1.Tab = 0
End Sub
'添加学生记录
Private Sub addstudent_Click()
formadd.Show
formadd.SSTab1.Tab = 1
End Sub
'管理选项
Private Sub admin_Click()
Formsys.Show
Formsys.SSTab1.Tab = 0
End Sub
'备份和恢复
Private Sub backup_Click()
Formsys.Show
Formsys.SSTab1.Tab = 2
End Sub
'借出书籍
Private Sub bookin_Click()
Formoption.Show
Formoption.SSTab1.Tab = 1
End Sub
'归还书籍
Private Sub bookout_Click()
Formoption.Show
Formoption.SSTab1.Tab = 0
End Sub
'删除书籍记录
Private Sub delbook_Click()
Formdel.Show
Formdel.SSTab1.Tab = 0
End Sub
'删除学生记录
Private Sub delstudent_Click()
Formdel.Show
Formdel.SSTab1.Tab = 1
End Sub
'最小化时还原窗体
Private Sub display_Click()
Formmain.WindowState = 0
Formmain.Show
delicon
End Sub
'最小化时退出
Private Sub exit_Click()
Formend.Show
delicon
Unload Formmain
End Sub
'书籍浏览
Private Sub explorbook_Click()
If ListView1.Visible = True Then ListView1.Visible = False
explorrecord Adodc1, DataGrid1, "书籍总表"
StatusBar1.Panels(1).Text = "书籍总表"
StatusBar1.Panels(2).Text = "共有记录 " & Str(Adodc1.Recordset.RecordCount) & "条"
End Sub
'借阅记录浏览
Private Sub explorerout_Click()
If ListView1.Visible = True Then ListView1.Visible = False
explorrecord Adodc1, DataGrid1, "借阅总表"
StatusBar1.Panels(1).Text = "借阅总表"
StatusBar1.Panels(2).Text = "共有记录 " & Str(Adodc1.Recordset.RecordCount) & "条"
End Sub
'学生记录浏览
Private Sub explorstudent_Click()
If ListView1.Visible = True Then ListView1.Visible = False
explorrecord Adodc1, DataGrid1, "学生总表"
StatusBar1.Panels(1).Text = "学生总表"
StatusBar1.Panels(2).Text = "共有记录 " & Str(Adodc1.Recordset.RecordCount) & "条"
End Sub
'帮助主题
Private Sub helpfile_Click()
Shell "hh.exe " & App.Path & "\readme.txt", vbNormalFocus
End Sub

Private Sub StatusBar2_PanelClick(ByVal Panel As MSComctlLib.Panel)
End Sub

'最小化时归还书籍
Private Sub traybookin_Click()
bookin_Click
End Sub
'最小化时借阅书籍
Private Sub traybookout_Click()
bookout_Click
End Sub
'最小化时续借书籍
Private Sub trayrebookout_Click()
rebookout_Click
End Sub
'更新书籍记录
Private Sub updatebook_Click()
Formupdate.Show
Formupdate.SSTab1.Tab = 0
End Sub
'更新学生记录
Private Sub updatestudent_Click()
Formupdate.Show
Formupdate.SSTab1.Tab = 1
End Sub
'电子邮件
************************************************************
'续借操作
Private Sub rebookout_Click()
Formoption.Show
Formoption.SSTab1.Tab = 2
End Sub
'系统设置
Private Sub system_Click()
Formsys.Show
Formsys.SSTab1.Tab = 1
End Sub
'****************其他控件事件过程************************

'*********搜索********
'根据内容下拉列表设置条件下拉列表的选项
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "学生信息"
With Combo2
.Clear
.AddItem "学号"
.AddItem "姓名"
.AddItem "单位"
.Text = "学号"
.Enabled = True
End With
Case "书籍信息"
With Combo2
.Clear
.AddItem "书号"
.AddItem "书名"
.AddItem "作者"
.AddItem "类别"
.AddItem "简介"
.AddItem "出版社"
.AddItem "是否借出"
.Text = "书号"
.Enabled = True
End With
Case "借阅信息"
With Combo2
.Clear
.AddItem "学号"
.AddItem "书号"
.Text = "学号"
.Enabled = True
End With
End Select

End Sub

'执行搜索
Private Sub Image1_Click()
On Error GoTo wrong
If Text1.Text = "" Or Text1.Text = "输入关键字" Then '判断关键字是否为空
MsgBox "请输入关键字！"
Else '判断列表文本是否合法
If Combo1.Text = "" Then
MsgBox "请选择内容和条件!"
Else
'查询
selectrecord Adodc1, DataGrid1, Left(Combo1.Text, 2) & "总表", Combo2.Text, Text1.Text
If ListView1.Visible = True Then ListView1.Visible = False
'窗体状态栏
StatusBar1.Panels(1).Text = "搜索：" & Combo2.Text & "与“" & Text1.Text & "”接近的" & Combo1.Text
StatusBar1.Panels(2).Text = "共有记录 " & Str(Adodc1.Recordset.RecordCount) & "条"
End If
End If
Exit Sub
wrong: '错误处理
MsgBox "搜索失败，请选择列表框中所列选项!"
End Sub

'按钮显示状态
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 1
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 0
End Sub

'关键字文本框
Private Sub Text1_Click()
If Text1.Text = "输入关键字" Then
Text1.Text = ""
End If
End Sub
'工具条事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
bookout_Click
Case 2
bookin_Click
Case 3
rebookout_Click
Case 4
formadd.Show
Case 5
Formupdate.Show
Case 6
Formdel.Show
Case 7
Formsys.Show
End Select
End Sub
'弹出菜单
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
norecord.Visible = False
linex.Visible = False
Formmain.PopupMenu rightmenu
End If
End Sub
Private Sub datagrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
norecord.Visible = True
linex.Visible = True
Formmain.PopupMenu rightmenu
Else
Text1.SetFocus
End If
End Sub
Private Sub mbookin_Click()
bookin_Click
End Sub
Private Sub mbookout_Click()
bookout_Click
End Sub

Private Sub mrbookout_Click()
rebookout_Click
End Sub
Private Sub ebook_Click()
explorbook_Click
End Sub

Private Sub ebookout_Click()
explorerout_Click
End Sub

Private Sub estudeny_Click()
explorstudent_Click
End Sub
Private Sub norecord_click()
ListView1.Visible = True
StatusBar1.Panels(1).Text = "无记录源"
StatusBar1.Panels(2).Text = "共有记录 0 条"
End Sub
2、添加/删除记录代码

'添加记录窗体
'************************************
'所调用的API函数,自定义过程,类型,常数请参阅相应模块
Option Explicit
'Dim rcdset As Recordset '窗体级变量,存放ADO控件的当前记录
'**************窗体事件*********
'窗体加载
Private Sub Form_Load()
loadmdb Adodc1 '连接数据库
Text1.Text = autobooknum(Adodc1, "书籍总表") '获得书籍自动编号
Text6.Text = autostudentnum(Adodc1, "学生总表") '获得学生自动编号
End Sub
'*************添加数据******************
'书籍记录
Private Sub Command1_Click()
'判断各个字段值是否合法,符合条件添加记录
If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Combo1.Text = "" Then
MsgBox "请完整输入必要字段，简介可以不填。"
Exit Sub
Else
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "书籍总表"
Adodc1.Refresh
Dim rcdset As ADODB.Recordset
Set rcdset = Adodc1.Recordset
rcdset.AddNew
rcdset!书号 = Text1.Text
rcdset!书名 = Text2.Text
rcdset!作者 = Text3.Text
rcdset!类别 = Combo1.Text
rcdset!出版社 = Text4.Text
rcdset!简介 = Text5.Text
rcdset.update
Adodc1.Refresh
Formmain.DataGrid1.Refresh
MsgBox "记录已添加。"
Text1.Text = Right(