数据库原理电子教案：项目实训.doc

项目应用分析
课题：基于VB开发工具的学生管理信息系统设计
目的要求：
掌握管理信息系统中数据库的设计方法
掌握软件的一般开发过程
掌握开发平台与数据库的接口设计方法
了解VB开发工具的使用方法
重点难点：
开发平台与数据库的接口设计方法
课外作业布置：
复习前面内容，理解本项目思想
综合应用举例-项目应用分析
1.SQL主要代码：
Public Function QuerySQL(ByVal SQL _
As String, Msg As String) _
As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ss() As String
On Error GoTo QuerySQL_Error
ss = Split(SQL)
Set cn = New ADODB.Connection
ConnectString="DRIVER=SQL serve;
SERVER=ZCJ;UID=Sa;PWD=sa;DATABASE=student"
cn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(ss(0))) Then
cn.Execute SQL
Msg = ss(0) & _
" 查询成功"
Else
Set rs = New ADODB.Recordset
rs.Open Trim$(SQL), cn, _
adOpenKeyset,adLockOptimistic
Set QuerySQL = rs
Msg = "查询到" & rs.RecordCount & _
" 条记录 "
End If
QuerySQL_Exit:
Set rs = Nothing
Set cn = Nothing
Exit Function
QuerySQL_Error:
Msg = "查询错误: " & _
Err.Description
Resume QuerySQL_Exit
End Function
2.module.bas模块
Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public UserName As String
Sub Main()
Dim fLogin As New frmLogin
fLogin.Show vbModal
If Not fLogin.OK Then
'登录失败，退出应用程序
End
End If
Unload fLogin
Set fMainForm = New frmMain
fMainForm.Show
End Sub

Public Function QuerySQL(ByVal SQL _
As String, Msg As String) _
As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rS As ADODB.Recordset
Dim ss() As String
On Error GoTo QuerySQL_Error
ss = Split(SQL)
Set cn = New ADODB.Connection
ConnectString = "Driver=SQL Server;Server=zcj;UID=sa;PWD=sa;Database=Student"
cn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(ss(0))) Then
cn.Execute SQL
Msg = ss(0) & _
" 查询成功"
Else
Set rS = New ADODB.Recordset
rS.Open Trim$(SQL), cn, _
adOpenKeyset, adLockOptimistic
Set QuerySQL = rS
Msg = "查询到" & rS.RecordCount & _
" 条记录 "
End If
QuerySQL_Exit:
Set rS = Nothing
Set cn = Nothing
Exit Function
QuerySQL_Error:
Msg = "查询错误: " & _
Err.Description
Resume QuerySQL_Exit
End Function

Public Function Testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
Testtxt = False
Else
Testtxt = True
End If
End Function
3.运行界面

4.数据库设计