page.bas

以前做的移动公司的一个多媒体查询系统,有话费查询

Attribute VB_Name = "Module1"
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public gConnect As ADODB.Connection

Public Function PageDown(ByRef SelObject As Variant)
    Call PostMessage(SelObject, &H100, &H21, &H1490001)
    Call PostMessage(SelObject, &H101, &H21, &HC1490001)
End Function

Public Function PageUp(ByRef SelObject As Variant)
    Call PostMessage(SelObject, &H100, &H22, &H1510001)
    Call PostMessage(SelObject, &H101, &H22, &HC1510001)
End Function

Sub main()
    On Error GoTo ConnectErr
    Set gConnect = New ADODB.Connection
        gConnect.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Media"
        gConnect.CommandTimeout = 60
        gConnect.Open
        Form1.Show
        Exit Sub
ConnectErr:
    MsgBox "数据库连接失败，请检查数据源设置是否正确，以及网络是否正常工作！" & Chr(13) & Err.Description, vbOKOnly + vbExclamation, "警告"
    End
    On Error GoTo 0  '清除错误陷阱
End Sub