modmain.bas

驾驶员考试系统界面不错在98下运行C/S模式

Attribute VB_Name = "modMain"
Public Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_THICKFRAME = &H40000
Public Const WS_SIZEBOX = WS_THICKFRAME
'以上是取消最大化的API函数
Public GetApp As String '本地路径
Public curUserName As String    '当前用户名
Public curUserStyle As Long    '当前用户类型
Public Conn As ADODB.Connection
Public Res As ADODB.Recordset
Public Sstr As String

'程序入口
Public Sub Main()
On Error Resume Next
    If App.PrevInstance Then
        End
        Exit Sub
    End If
    '获得本地路径
    GetApp = App.Path: If Right$(GetApp, 1) <> "\" Then GetApp = GetApp & "\"
    '打开数据库
    Set Conn = New ADODB.Connection
    Sstr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\lq.mdb;Jet OLEDB:Database Password=junminlu18#"
    Conn.Open Sstr
    'frmLogin.Show 1
    frmMain.Show
End Sub

Public Sub SetSB(ByVal i&, ByVal strText$)
    frmMain.LBSB(i).Caption = strText
End Sub

Public Function GetINI(ByVal s1 As String, s2 As String)
On Error Resume Next
    GetINI = GetSetting("kaos", s1, s2)
End Function

Public Function GetLongINI(ByVal s1 As String, s2 As String, Optional Def As Long = 0) As Long  '获取INI中整数值
On Error GoTo aaaa
    Dim str As String
    str = GetINI(s1, s2)
    If str = "" Then
        GetLongINI = Def
    Else
        GetLongINI = CLng(str)
    End If
    Exit Function
aaaa:
    GetLongINI = Def
End Function

Public Sub SaveINI(ByVal s1 As String, s2 As String, s3 As String)
On Error Resume Next
    SaveSetting "kaos", s1, s2, s3
End Sub