public.bas

这是一个非常 好的一个程序进行体会一下学生管理系统

Attribute VB_Name = "Module1"
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"41FF01EC03D1"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"Module"
Public UserName As String  '当前用户名
Public block_num As Integer '定义变量用来存储已设置的分数段的数量
Public low(10)
Public high(10) As Single  '定义数组用来存储上下界
Public tj_type As Integer      '定义变量用来区分成绩统计种类
Public MsgText As String

Public Function ConnectString() As String
'返回一个数据库连接
   ConnectString = "FileDSN=sample\ld.dsn;UID=sa;PWD=123"
End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
'传递参数：SQL传递查询语句，MsgString传递查询信息
'定义连接
   Dim cnn As ADODB.Connection
'自身以一个数据集对象的形式返回
   Dim rst As ADODB.Recordset
'定义字符串
   Dim sTokens() As String
'异常处理
   On Error GoTo ExecuteSQL_Error
'用Split函数产生一个包含各个子串的数组
   sTokens = Split(SQL)
'创建连接
   Set cnn = New ADODB.Connection
'打开连接
   cnn.Open ConnectString
'判断字符串中是否含有指定内容
   If InStr("INSERT,DELETE,UPDATE,EXECUTE", UCase$(sTokens(0))) Then
      cnn.Execute (SQL)  '执行查询语句
      MsgString = sTokens(0) & " 查询成功"
   Else
      Set rst = New ADODB.Recordset '创建数据集对象
      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
      Set ExecuteSQL = rst '返回记录集对象
      MsgString = "查询到" & rst.RecordCount & " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing  '清空数据集对象
   Set cnn = Nothing  '中断连接
   Exit Function
   
ExecuteSQL_Error:  '错误类型判断
   MsgString = "查询错误: " & Err.Description
   Resume ExecuteSQL_Exit
End Function

Sub Main()
    Dim fLogin As New Form2
    fLogin.Show vbModal
    If Not fLogin.OK Then
        End
    End If
    Unload fLogin

    Set fMainForm = New MDIForm1
    fMainForm.Show
End Sub