086基于VB的学生资料管理系统
1.无需注册登录,支付后按照提示操作即可获取该资料.
2.资料以网页介绍的为准,下载后不会有水印.资料仅供学习参考之用.
密 惠 保
以下代码为“学生资料管理系统”的全部源代码，代码按照系统模块组织分别列出。可以对照源代码配套使用。 [版权所有：http://think58.com]
“学生资料管理系统”程序代码——Module
Option Explicit
Global UserText As String
Global TempArray(5) As String
Global Const DB_PROVIDER = "SQL server"
'Global Const DB_PROVIDER = "SQLOLEDB"
Global Const SQL_SRV = "WUZHE\WUZHE"
Global DBConnString As String
Global CurrentTeam As String
Global classid As String [版权所有：http://think58.com]
Public Sub GetStatus(StatusString As String)
frmMain.StatusBar.Panels.Item(1).Text = StatusString
End Sub
Private Sub Main()
'系统的入口！
If App.PrevInstance = True Then
MsgBox "注意程序已经运行，不能再次装载！", vbOKOnly
Exit Sub
Else
'CheckDataBase
GetInfoFromReg
frmLogin.Show
End If
End Sub
Public Sub CheckDataBase()
'检测数据库路径是否正确！
On Error GoTo errFind
'首先从数据库中读取去数据库路径和文件的设置内容
Dim a, b, c As String
a = GetSetting(App.EXEName, "DataBase", "URL", "WUZHE\WUZHE")
b = GetSetting(App.EXEName, "DataBase", "Username", "sa")
c = GetSetting(App.EXEName, "DataBase", "password", "")
Dim conn As New ADODB.Connection
'DBConnString = "driver={SQL server};server=" & a & ";database=mc;uid=" & b & ";pwd=" & c
'MsgBox DBConnString
[资料来源：www.THINK58.com]