研究生管理信息系统的开发流程二(组图)_Oracle教程

　　VB工程总体框架
　　
　　开发完成的研究生治理信息系统的总体框架如表10.7所示。
　　
　　【参见光盘文件】：第10章\研究生治理信息系统.vbp。
　　　研究生治理信息系统的开发流程二(组图)（图一）

点击查看大图
　　　

点击查看大图
　　系统是如何运行的
　　
　　（1）启动VB，打开配套光盘的工程文件。
　　
　　（2）如图10.48所示。
　　　研究生治理信息系统的开发流程二(组图)（图三）

　　（3）出现如图10.49所示的工程属性的【通用】选项卡。
　　
　　（4）打开模块Module1，查看名为Main的过程的代码如下。说明Main过程将启动名为frmMain的主窗体。
　　　研究生治理信息系统的开发流程二(组图)（图四）

点击查看大图
　　　

　　（5）编辑名为frmMain的主窗体，如图10.50所示。
　　　研究生治理信息系统的开发流程二(组图)（图六）

　　（6）出现如图10.51所示的【菜单编辑器】界面，可以查看主窗体的菜单设计。
　　　研究生治理信息系统的开发流程二(组图)（图七）

　　工程中设计的菜单如表10.8所示。
　　　研究生治理信息系统的开发流程二(组图)（图八）

点击查看大图
　　　

点击查看大图
　　（7）为什么这些菜单可以调用这些子窗体或者执行退出主窗体的操作呢？在图10.50的主窗体中用鼠标双击，在出现的代码窗口中的主要代码如下。
　　―――――――――――――――――――――――――――――――――――――
　　‘选择菜单项DirectorInsertMenu后将显示子窗体FormInsertDirector
　　Private Sub DirectorInsertMenu_Click()
　　FormInsertDirector.Show
　　End Sub
　　‘选择菜单项DirectorSelectMenu 后将显示子窗体FormSelectDirector
　　Private Sub DirectorSelectMenu_Click()
　　FormSelectDirector.Show
　　End Sub
　　‘选择菜单项DirectorUpdateMenu后将显示子窗体FormUpdateDirector
　　 Private Sub DirectorUpdateMenu_Click()
　　FormUpdateDirector.Show
　　End Sub
　　‘选择菜单项GraduateInsertMenu后将显示子窗体FormInsertGraduate
　　Private Sub GraduateInsertMenu_Click()
　　FormInsertGraduate.Show
　　End Sub
　　‘选择菜单项GraduateSelectMenu后将显示子窗体FormSelectGraduate
　　Private Sub GraduateSelectMenu_Click()
　　FormSelectGraduate.Show
　　End Sub
　　‘选择菜单项GraduateUpdateMenu后将显示子窗体FormUpdateGraduate
　　Private Sub GraduateUpdateMenu_Click()
　　FormUpdateGraduate.Show
　　End Sub
　　‘选择菜单项MajorInsertMenu后将显示子窗体FormInsertMajor
　　Private Sub MajorInsertMenu_Click()
　　FormInsertMajor.Show
　　End Sub
　　‘选择菜单项MajorUpdateMenu后将显示子窗体FormUpdateMajor
　　Private Sub MajorUpdateMenu_Click()
　　FormUpdateMajor.Show
　　End Sub
　　‘选择菜单项ExitMenu后将显示退出主窗体
　　Private Sub ExitMenu_Click()
　　End
　　End Sub
　　―――――――――――――――――――――――――――――――――――――
　　
　　模块的设计
　　
　　模块Module1的其他主要代码如下。

　　―――――――――――――――――――――――――――――――――――――
　　‘定义了名为ConnectString的无参数函数，连接数据库
　　Public Function ConnectString() As String
　　ConnectString = "DSN=graduateDB;UID=graduateuser;PWD=12345678"
　　End Function
　　‘定义了名为ExecuteSQL的带参数函数，参数SQL和MsgString都为字符串型。该函数用于执行SQL语句。
　　Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
　　‘conn为ADODB的connection连接对象
　　Dim conn As ADODB.Connection
　　‘rest为ADODB的记录集对象
　　Dim rest As ADODB.Recordset
　　‘若执行SQL错误转向ExecuteSQL_Error标记处
　　On Error GoTo ExecuteSQL_Error
　　Set conn = New ADODB.Connection
　　‘连接数据库
　　conn.Open ConnectString
　　Set rest = New ADODB.Recordset
　　‘执行SQL字符串语句
　　rest.Open Trim$(SQL), conn, adOpenKeyset, adLockOptimistic
　　Set ExecuteSQL = rest
　　MsgString = "查询到" & rest.RecordCount & " 条记录"
　　‘执行SQL完毕后关闭连接和记录集
　　ExecuteSQL_Exit:
　　Set rest = Nothing
　　Set conn = Nothing
　　Exit Function
　　‘执行SQL错误时的处理方法
　　ExecuteSQL_Error:
　　MsgString = "查询错误: " & _
　　Err.Description
　　Resume ExecuteSQL_Exit
　　End Function
　　‘定义了名为Checktxt的带参数函数，参数txt为字符串型。该函数用于检测txt字符串是否有内容。
　　Public Function Checktxt(txt As String) As Boolean
　　If Trim(txt) = "" Then
　　Checktxt = False
　　Else
　　Checktxt = True
　　End If
　　End Function
　　―――――――――――――――――――――――――――――――――――――
　　各子窗体的设计
　　
　　1.添加信息窗体的设计
　　
　　打开名为FormInsertGraduate的子窗体，如图10.52所示。
　　　研究生治理信息系统的开发流程二(组图)（图十）

　　窗体的设计如表10.8所示。
　　表10.8 子窗体FormInsertGraduate的设计
　　　研究生治理信息系统的开发流程二(组图)（图十）

点击查看大图
　　　

点击查看大图
　　　

点击查看大图
　　窗体的程序代码分析如下。
　　　研究生治理信息系统的开发流程二(组图)（图十四）

点击查看大图
　　　

点击查看大图
　　