vb+SQL排课系统论文报告+算法+源码+答辩PPT 第3页
图3-1 数据库关联表3.6.2数据信息表表3-1 数据信息一烙彭
编号 表名 关键字 用途
1 班级信息表 班级名称 保存班级基本信息
2 课程信息表 班级课程 保存课程的基本信息
3 班级课程信息表 分配ID 保存班级课程的基本信息
4 教师信息表 教师编号 保存教师的基本信息
5 时间段信息表 节号 保存时间段的基本信息
6 排课信息表 排课ID 保存排课基本信息
7 用户信息表 用户ID 保存用户的基本信息
3.6.3数据字典1班级信息表表3-2 班级信息表
2课程信息表表3-3 课程信息表
3班级课程信息表表3-4 班级课程信息表
4教师信息表表3-5 教师信息表
5时间段信息表表3-6 时间段信息表
6排课信息表表3-7 排课信息表
7用户信息表表3-8 用户信息表
4系统实现
4.1公用模块设计
在学生排课系统程序中，创建了公用模块（Module1）。此模块包括用户定义的数据类型、全局变量、API函数、数据库连接函数等。
1．添加全局变量
代码如下：
Public LoginSucceeded As Boolean '用户登录标志
Public UserID As String '用户ID
Public User_Type As String '保存用户类型
Public ConnectionString As String '数据库连接字符串
2．共享数据库连接
为了减少重复的数据连接和为日后修改程序提供接口，在公用模块（Module1）中建立了数据库连接函数。具体代码如下：
Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)
'执行SQL本文来自优文论文网原文请找QQ752018766语句
Dim Conn As ADODB.Connection
Dim sTokens() As String
'出错处理
On Error GoTo ErrorHandle
'判断SQL语句
sTokens = Split(SQL)
If InStr("INSERT,DELETE,UPDATE", UCase((sTokens(0)))) Then
'打开数据库连接
If OpenConn(Conn) Then
Conn.Execute SQL
msg = sTokens(0) & "操作执行成功！"
End If
Else
msg = "SQL语句有误：" & SQL
End If
Finally_Exit:
Set rst = N毕业论文
http://www.youerw.comothing
Set Conn = Nothing
Exit Sub
ErrorHandle:
msg = "执行错误: " & Err.Description
Resume Finally_Exit
End Sub
4.2数据库连接和用户登陆模块设计
1数据库连接根据安装SQL数据库用户ID、登录密码、数据库名和服务器名4个参数进行连接。
图4-1 登陆信息图
主要代码：
Private Sub CmdOK_Click()
'确定操作
ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;"
ConnectionString = ConnectionString & "User ID=" & Trim(txtUserId.Text) & ";Password=" & Trim(txtPwd.Text) & ";"
ConnectionString = ConnectionString & "Initial Catalog=" & Trim(txtDatabase.Text) & ";Data Source=" & Trim(txtServer.Text)
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
vb+SQL排课系统论文报告+算法+源码+答辩PPT 第3页下载如图片无法显示或论文不完整，请联系qq752018766
