publicvar.bas

vb加sql

Attribute VB_Name = "PublicVar"
Public LoginSucceeded As Boolean '用户登录标志
Public UserID As String  '用户ID
Public ConnectionString As String   '数据库连接字符串
Public UserName As String '用户名称
Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long