《Visual Basic 管理信息开发案例 教学课件 ppt 作者 武新华 第1－4章 第2章 图书 期刊管理信息系统》由会员分享，可在线阅读，更多相关《Visual Basic 管理信息开发案例 教学课件 ppt 作者 武新华 第1－4章 第2章 图书 期刊管理信息系统（246页珍藏版）》请在金锄头文库上搜索。
1、第2章 图书/期刊管理信息系统,2.1 系统开发的功能分析 2.2 设计好自己的数据库 2.3 系统开发过程的实现 2.4 应用程序的打包和发布 2.5 相关开发技术介绍 2.6 最终运行结果的查看,2.1 系统开发的功能分析,2.1.1 设计目标 本章要开发的图书管理系统用来实现对图书文档的管理、发函、收文等信息处理功能。其总体设计目标是实现图书/期刊管理的系统化和自动化，帮助图书管理人员更好、更高效地完成图书/期刊的管理工作。,2.1.2 需要实现的系统功能 本系统需要实现的系统功能主要有如下几点： (1) 为本图书/期刊管理单位内部的各个业务部门提供数据查询功能。 (2) 管理图书/期刊
2、的各种文档信息。 (3) 为本图书/期刊管理层提供直观、及时、方便的信息，提高迅速反应能力，提供有效的决策支持。,2.1.3 开发和运行环境 开发工具：开发语言采用Visual Basic 6.0中文版，后台数据库系统为Access 2000。 运行环境：Windows 9x、Windows NT、Windows 2000或Windows XP/2003操作系统。,2.1.4 系统功能模块的设计 根据本系统所要实现的主要功能，对系统进行分析并充分利用网络环境来提高管理效率。通过分析我们知道，需要在本系统中设计如下几个主要的系统模块： 1对图书室中图书/期刊资料的管理 本部分实现对图书/期刊的信
3、息管理和类别管理，其功能是实现对各部分数据内容的添加、修改和删除等操作。,2对借阅者进行管理 对借阅者进行的管理主要包括借阅者的信息管理和类别管理，其功能是实现对各部分数据内容的添加、修改和删除等操作。 3对借阅部分进行的管理 对借阅部分进行的管理主要包括借书管理和还书管理，其功能是实现对各部分数据内容的添加和查询操作。,4系统安全与可用性设计 系统安全要求：应按照用户不同身份和权利，控制系统各项功能的使用者身份和数据的访问权限。系统设置用户的身份以便控制各文件的处理权限和处理方法。对于外部用户，则通过防火墙等安全措施和系统账户安全来防止恶意攻击和信息窃取。,这就要求系统能够严格设置系统操作人
4、员。系统初始设置一个超级用户名和密码，操作人员可以利用这个超级用户名和密码登录。之后，可以设置其他的超级用户名称，也可以设置权限用户，同时还设置了这个用户可以使用的权限。 此外，在系统登录界面中若输入密码与用户名3次不符，则系统自动退出登录。 综上所述，我们就可以得出本图书/期刊管理系统的功能结构图了，如图2-1-1所示。,图2-1-1 图书/期刊管理系统功能结构图,2.2 设计好自己的数据库,本例采用Access 2000作为后台数据库。根据上面分析的系统的各种功能要求，系统所需的数据库应该按照如下思路设计：书刊类别、书刊信息、读者类别、读者信息和图书借阅部分等应该各自作为一个表存在，此外，
5、系统管理员的信息单独使用一个表来记录。可以考虑，图书/期刊信息部分设计的表如图2-2-1所示。这样，整个数据库设计后的结果如图2-2-2所示。,图2-2-1 书刊信息部分,图2-2-2 图书管理系统数据库,对于读者类别表，字段名称应该为种类名称、借书数量、借书期限、有限期限等，具体设置如图2-2-3所示。 对于读者信息表，字段名称应该为读者姓名、读者编号、性别、读者类别、工作单位、家庭地址、电话号码、登记日期和已借书数量等，具体设置如图2-2-4所示。,图2-2-3 读者类别表,图2-2-4 读者信息表,图2-2-5 书刊类别表,对于书刊类别表，字段名称应该为类别名称和类别编号，具体设置如图2
6、-2-5所示。 对于书刊信息表，字段名称应该为书籍编号、书名、类别、作者、出版社、出版日期、登记日期以及是否被借出，具体设置如图2-2-1所示。 对于借阅信息表，字段名称应该为借阅编号、读者编号、读者姓名、书籍编号、书籍名称、出借日期和还书日期，具体设置如图2-2-6所示。,图2-2-6 借阅信息表,对于系统管理表，其字段名称应该为用户名、密码和权限，具体设置如图2-2-7所示。,图2-2-7 系统管理表,2.3 系统开发过程的实现,本系统实现了图书/期刊管理的过程。其系统主窗体的创建，则需要先打开Visual Basic 6.0，这时候系统将自动建立一个Form窗体，我们就利用这个窗体来建立
7、系统的主窗体。该窗体界面的设计视图如图2-3-1所示。 通过使用【工具】【菜单编辑器】可以编辑系统主菜单，如图2-3-2所示。,图2-3-1 系统主窗体界面的设计视图,图2-3-2 主系统菜单结构,接下来就是为主窗体添加相应的程序代码了，不过要添加的代码并不多，基本上都是实现单击某个菜单选项即弹出相应窗体的语句，这些语句将分别在各个窗体中介绍。如单击【系统管理】【退出系统】菜单，其关闭系统的设计代码如下： Private Sub exit_sys_Click( ) End End Sub,2.3.1 认识Module1标准模块 在设计完系统主窗体中的内容之后，需要来看一下系统标准模块Modul
8、e1中的内容。我们知道，标准模块(文件扩展名为.BAS)是应用程序内其他模块访问的过程和声明的容器，它们可以包含变量、常数、类型、外部过程和全局过程的全局(在整个应用程序范围内有效)声明或模块级声明。,写入标准模块的代码不必绑在特定的应用程序上。如果不小心使用名称引用了窗体和控件，则在许多不同的应用程序中可以重用标准模块。 在该模块中我们需要完成本管理信息系统中与打印设置相关的许多设定操作，以便于我们在以后的操作中直接调用该项功能。该模块的程序源代码如下所示：,Option Explicit Public conn As New ADODB.Connection 标记连接对象 Public s
9、elect_menu As String 标记所选择的菜单 Public userID As String 标记当前用户ID Public userpow As String 标记用户权限 Public book_num As String 要借的书刊的编号,2.3.2 Login系统注册程序的实现 作为一个管理系统，不仅要求它具有实用性和可操作性，系统安全性也是必不可少的部分之一。一个管理信息系统应该不是任何人都可以随便使用的，即便可以使用，也应该具有不同的权限。为了区分这一不同点，登录窗体就显得必不可少了。,为了让使用者有一个能轻松操作的界面环境，对系统的界面设计就要求界面友好、功能分块明
10、确，美观大方。下面我们就来创建一个名称为Login的文档，用以实现系统的数据库登录功能。 该Login系统注册程序可以按照以下步骤进行创建： (1) 在菜单中点选【文件】【新建工程】命令选项来打开【新建工程】对话框，如图2-3-3所示。,图2-3-3 打开的【新建工程】对话框,(2) 双击其中的“ActiveX EXE”图标，这时候，Visual Basic自动往工程中添加一个UserDocument设计器，如图2-3-4所示。如果该设计器没有显示出来，可在【工程资源管理器】窗口中用鼠标右键单击设计器的缺省名“UserDocument1”，然后单击【查看对象】。当设计器显示出来时，其缺省名称将
11、出现在标题栏中。,图2-3-4 UserDocument设计器,(3) 在【属性】窗口中双击“名称”属性，然后把缺省名“UserDocument1”改为“Login”。这个新名字将会在设计器的标题及【工程资源管理器】窗口中显示出来，如图2-3-5所示。,图2-3-5 把缺省名“UserDocument1”改为“Login”,(4) 当其中的各项设计好之后，该Login程序页面设计的代码如下所示： Option Explicit Private Sub cmdOK_Click( ) Dim strUserName As String Dim strPassword As String Dim s
12、trTargetAsp As String Dim conn As ADODB.Connection Dim rsLogin As ADODB.Recordset Dim strSQL As String,If Trim(txtUserName.Text) = “ “ Then MsgBox “用户名”不能为空！“ Exit Sub Else strUserName = Trim(txtUserName.Text) End If If Trim(txtPassword.Text) = “ “ Then MsgBox “口令”不能为空！“ Exit Sub Else strPassword =
13、Trim(txtPassword.Text) End If,检查口令、用户身份 Set conn = New ADODB.Connection conn.ConnectionString = pConn conn.Open strUserName = Replace(strUserName, “ “, “ “) strSQL=“select*from 职员 where username= “& strUserName &“ and 口令= “& strPassword & “,Set rsLogin = conn.Execute(strSQL) If rsLogin.EOF Or rsLogi
14、n.BOF Then MsgBox “用户名或口令错误，请检查！“ txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) txtPassword.SetFocus Else Select Case rsLogin(“权限“) Case “领导“,strTargetAsp = “LeadersMain.asp“ Case “主任“ strTargetAsp = “ZHURENMAIN.asp“ Case “秘书“ strTargetAsp = “MiShuMain.asp“ Case “图书管理员“ strT
15、argetAsp = “TuShuManagerMain.asp“ Case Else strTargetAsp = “OthersMain.asp“,End Select SaveSetting “JGYOA“, “Login“, “UserName“, strUserName Hyperlink.NavigateTo “HTTP:/“ & pIP & “/oa/“ & strTargetAsp End If 释放变量 Set rsLogin = Nothing Set conn = Nothing End Sub,2.3.3 设计添加图书类别的窗体 当用户在单击【图书管理】【图书类别管理】
16、【添加图书类别】菜单时，将会弹出图书类别窗体。添加图书类别的窗体可由2个Text控件、2个Label控件、2个CommandButton控件组成。其中，2个Label控件作为标识，2个Text控件用来接收用户输入，2个CommandButton控件作为【确定】和【取消】按钮，读者可以参照如图2-3-6所示来添加这些控件并设置这些控件的属性。,图2-3-6 添加图书类别窗体,在主窗体中点选【添加图书类别】菜单时需要添加的代码如下： Private Sub add_book_style_Click( ) frmaddbookstyle.Show End Sub,需要提醒的一点是：在编写代码之前，应该先打开菜单栏中的【工程】【引用】选项，来找到并在“Microsoft ActiveX Data Objects 2.0 Library”选项前面的方格内进行打勾，如图2-3-7所示。同时，在打开数据表之前应该先使用在公共模块中定义的Connectio
