课程设计题目选择系统 - 图文(2)

沈航设计用纸

（3）详细设计：

进入系统 选课 选择

按班级查找 查询已选题目 查询未选题目 退出 查询 查询未选学生 清除当前同学选保存查询结果 打印 清空选择 退出 按姓名查找

三．关键技术

1 ADO与ADODB

ADO(ACTIVEX DATA OBJECTS)是应用层的数据访问接口 。

ADODB是一个数据模型，是封装ADO的VB数据控件，使用的是

第6页，共39页

沈航设计用纸

microsoft.jet.oledb.4.0的数据库引擎

2建立与数据库的连接代码如下

Public mpath$, mlink$

Public cnn As New ADODB.Connection '定义一个ADODB连接 Public rst As ADODB.Recordset '定义Recordset对象

Public cnn2 As New ADODB.Connection '定义一个ADODB连接 Public rst2 As ADODB.Recordset '定义Recordset对象 Public SQL$ ADODB

Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset rst.CursorType = adOpenKeyset ' rst.LockType = adLockOptimistic '

mpath = App.Path ' 获取程序所在的路径

If Right(mpath, 1) <> \' 判断是否为子目录

mlink = \指定提供者

mlink = mlink + \在数据库文件名前插入路径

cnn.ConnectionString = mlink cnn.ConnectionTimeout = 30 cnn.Open

3程序详解

程序运行，出现主窗体，如图一所示

第7页，共39页

沈航设计用纸

图1 Form2:

Private Sub Command1_Click() Form2.Hide Form1.Show End Sub

点击command1,进入系统 Private Sub Command2_Click() End End Sub

点击command2,结束程序

第8页，共39页

沈航设计用纸

主窗体

图2

Form1:

Private Sub Command1_Click() Form1.Hide FormXT.Show End Sub

Private Sub Command2_Click() Form1.Hide FormCX.Show End Sub

点击command1按钮，进入选题窗体，如图3 点击command2按键，进入查询窗体，如图4

第9页，共39页

沈航设计用纸

图4

Private Sub Form_Load() Form2.Show Form1.Hide End Sub

系统运行时自动载入图1所示的窗体

图3

Formxt:

第10页，共39页