基于VB6.0学生管理系统设计
Public UserName As String
Sub Main()
Dim newlogin As New Login '声明
newlogin.Show 1
If Not newlogin.Okf Then
End
End If
Unload newlogin
Set newMain = New MainForm '创建对象
newMain.Show
End Sub
Public Function ConnectStr() As String '自定义连接函数
Dim SPath As String
SPath = App.Path
1