SQL Server数据库应用开发技术第13章.ppt

13.4 系统实现 返回目录 13.4.2 系统功能实现 后台数据库设计实现后，接下来按照前面系统功能设计，使用Visual Basic开发应用程序，为用户提供友好的人机交互界面，实现前面所作的功能设计。 13.4 系统实现 返回目录 13.4.2 系统功能实现 1．建立工程项目 （1）启动VB，选择“文件→新建工程”菜单命令，从弹出的“工程模板”对话框中选择“标准EXE”项，单击“确定”按钮。 （2）选择“工程→工程属性”菜单命令，弹出“工程属性”对话框，在“通用”选项卡中的“启动对象”下拉列表中选择Sub Main项，在工程名称文本框中输入：教务管理系统。单击“确定”按钮。 这一步设置启动对象为Sub Main，当应用程序启动时，先调用名为Main的子过程，子过程Main将包含在工程的模块文件中。 （3）选择“文件→保存工程”菜单命令，保存工程，工程文件命名为jwgl.vbp。 13.4 系统实现 返回目录 13.4.2 系统功能实现 2．建立工程模块 工程模块是公用模块，在这个模块中可以定义整个工程项目公用的全局变量、函数等。 整个工程项目中的任何地方都可以调用公用模块中的变量、函数。 这一模块也可用来启动程序。 13.4 系统实现 返回目录 13.4.2 系统功能实现 2．建立工程模块 （1）选择“工程→添加模块”菜单命令。 （2）在“属性”栏中指定模块名称，如modulel。 （3）选择“工程→引用”菜单命令，在弹出的“引用”对话框中选中“Microsot ActiveX Data Objects 2.5 Library”项，然后单击“确定”按钮。 （4）在“工程浏览器”中双击modulel模块，打开代码设计窗口，在该窗口中可以定义全局变量、函数等。 教务管理系统工程模块： 定义全局变量 Option Explicit 强制声明变量 Public strSrvName As String 用于放服务器名 Public strUserName As String 用于放用户名 Public strUserType As String 用于放用户类型 Public strCnUserName As String 用于放连接用户名 Public strCnPassword As String ‘ 用于放连接口令 main子过程 Sub Main() frmMain.Show frmDl.Show frmDl.txt用户名.SetFocus End Sub 定义数据库连接字符串函数 Public Function ConnectString() As String ConnectString = Provider=SQLOLEDB.1;Persist Security Info=False; Password= strCnPassword ; User ID= strCnUserName ; Initial Catalog=教务管理数据库; Data Source= strSrvName End Function 教务管理系统工程模块： 定义数据库操作函数 Public Function ExecSQL(ByVal sql As String) As ADODB.Recordset On Error GoTo ErrHandler: Dim cn As ADODB.Connection 定义连接对象 Dim rs As ADODB.Recordset 定义记录集对象 Dim strArray() As String Set cn = New ADODB.Connection 创建连接对象cn Set rs = New ADODB.Recordset 创建记录集对象rs strArray = Split(sql) cn.Open ConnectString 与数据库建立连接 If StrComp(UCase(strArray(0)), select, vbTextCompare) = 0 Then rs.Open Trim(sql), cn, adOpenKeyset, adLockOptimistic S