|
1 系统分析1.1 需求分析 通过调查，要求系统需要有以下功能： http://www.paper51.com q 由于操作人员的计算机知识普遍较差，那么就要求有良好的人机界面。 内容来自www.paper51.com
q 由于该系统的使用对象多，要求有较好的权限管理。 paper51.com q 原始数据修改简单方便，支持多条件修改。 copyright paper51.com q 方便的数据查询，支持多条件查询。 内容来自论文无忧网 www.paper51.com q 信息发布与文件传送速度快。 内容来自论文无忧网 www.paper51.com q 通过计算机，能够直接“透视”公司的各项工作及活动安排。 copyright paper51.com q 图表分析活动投票管理。 http://www.paper51.com q 在相应的权限下，删除数据方便简单，数据稳定性好。 内容来自论文无忧网 www.paper51.com 1.2 可行性分析 http://www.paper51.com 开发任何一个基于计算机的系统，都会受到时间和资源上的限制。因此，在接受任何一个项目开发任务之前，必须根据客户可能提供的时间和资源条件进行可行性分析，以减少项目开发风险，避免人力、物力和财力的浪费。 http://www.paper51.com 本系统数据库采用目前比较流行的Microsoft SQL Server，该数据库系统在安全性、准确性、运行速度方面有绝对的优势，并且处理数据库量大，效率高；前台采用Microsoft公司的Visual Basic 6.0作为主要的开发工具，其可与SQL Server 2000数据库无缝链接。 http://www.paper51.com
2 总体设计2.1 项目规划 内容来自www.paper51.com
OA办公自动化系统是一个典型的网络办公开发应用程序，包含通知管理模块、新闻管理模块、文件传送管理模块、交流管理模块、系统维护管理模块5部分组成，规划系统功能模块如下： http://www.paper51.com
q 通知管理模块 paper51.com 该模块主要负责信息的发布、接收等。 paper51.com q 新闻管理模块 内容来自论文无忧网 www.paper51.com 该模块的主要负责新闻的发布、接收等。 内容来自论文无忧网 www.paper51.com q 文件传送管理模块 http://www.paper51.com
该模块主要负责文件的传送与接收等。 copyright paper51.com q 交流管理模块 copyright paper51.com 该模块主要实现意见反馈、活动投票、短消息服务（局域网）。 paper51.com q 系统维护管理模块 paper51.com 部门信息的基础设置、职员信息的基础设置、投票活动管理设置、系统操作员及权限设置。 copyright paper51.com 2.2 系统工作原理网络结构图 http://www.paper51.com 系统工作原理网络结构图如图1所示。 内容来自论文无忧网 www.paper51.com paper51.com 图1 系统工作原理网络结构图 http://www.paper51.com 2.3 系统功能结构图 copyright paper51.com
paper51.com 图2 系统功能结构图 copyright paper51.com 3 详细设计3.1 公共模块设计 内容来自www.paper51.com
为了节省系统资源，实现代码重用，可以在系统中新建一个Modulel模块。就本系统而言，该模块主要实现数据库安装和共享数据库连接。 paper51.com 系统第一次使用时，根据用户设置的DataBase.ini配置文件，将数据库文件（db_OA_Data.MDF）和数据库日志文件（db_OA_Log.LDF）自动安装到指定的SQL Server数据库服务器上。 内容来自论文无忧网 www.paper51.com
为了优化ADO+SQL数据库的连接，在公共模块（Module1）中建立数据库连接共享字符串。在以后的编程中，如果使用对象访问数据库或ADOData控件访问数据库，则可以直接将数据库共享连接字符串（PublicStr）值赋值给相应的ConnectionString属性，从而避免了重复建立数据库连接的麻烦，而失去了ADO+SQL的优越性能。 内容来自www.paper51.com
模块中代码如下： paper51.com Public PublicStr As String 内容来自www.paper51.com Dim con As New ADODB.Connection, rs As New ADODB.Recordset http://www.paper51.com Dim Str As String, Server As String, uid AsString, Dim pwd As String http://www.paper51.com Public Sub main() http://www.paper51.com
'读取数据库配置文件 paper51.com Open(App.Path & "\DataBase.ini") For Input As #1 内容来自论文无忧网 www.paper51.com LineInput #1, Intext 内容来自www.paper51.com Server =Mid(Intext, 10, Len(Trim(Intext)) - 9) paper51.com LineInput #1, Intext 内容来自论文无忧网 www.paper51.com uid = Mid(Intext, 7, Len(Trim(Intext)) - 6) 内容来自www.paper51.com
LineInput #1, Intext 内容来自论文无忧网 www.paper51.com
pwd = Mid(Intext, 7, Len(Trim(Intext)) - 6) http://www.paper51.com Close #1 http://www.paper51.com '附加数据库 内容来自论文无忧网 www.paper51.com
On Error Resume Next copyright paper51.com con.ConnectionString ="Provider=SQLOLEDB.1;Persist SecurityInfo=False;User ID=" & uid & ";PWD=" & pwd &";Initial Catalog=db_OA;Data Source=" & Server & "" copyright paper51.com con.Open '打开数据库连接 http://www.paper51.com
Set rs = NewADODB.Recordset http://www.paper51.com '开始附加数据库 paper51.com
Str= "EXEC sp_attach_db @dbname = N'db_SSS', @filename1 = N'" + App.Path+ "\DataBase\db_OA_Data.MDF" + "', @filename2 = N'" +App.Path + "\DataBase\db_OA_Log.LDF" + "'" 内容来自论文无忧网 www.paper51.com ' rs.Open str, con, 1, adLockOptimistic paper51.com Set rs = con.Execute(Str) 内容来自www.paper51.com
con.Close '关闭数据库连接 内容来自www.paper51.com
'共享连接字符串 内容来自www.paper51.com PublicStr ="Provider=SQLOLEDB.1;Persist SecurityInfo=False;User ID=" & uid & ";PWD=" & pwd &";Initial Catalog=db_OA;Data Source=" & Server & "" paper51.com frm_login.Show copyright paper51.com End Sub 内容来自论文无忧网 www.paper51.com |