引用&声明.txt

用VB编写的家庭理财程序

 ** 引用 Microshoft ActivX Data Object 2.5 Library    


    Set RstMy0 = New Recordset
    StrSQL = "Select Dm From " & StrT1 & " Order By Dm"
    RstMy0.Open StrSQL, cnnAce, adOpenKeyset, adLockOptimistic
    If RstMy0.RecordCount > 0 Then
       RstMy0.MoveLast                               

    StrSQL = "Delete from A_ky Where Xh='" & Xhp & "'"
    cnnAce.Execute StrSQL, , adCmdText



 ** 引用 Microshoft ActivX Data Object 2.1 Library    

    Set MyDb1 = OpenDatabase(App.Path & SjxDb)         ' 打开 Access 库
    strT0 = "A_tm"
    StrSQL = "Select * From " & strT0 & _
             " Where Left(Dm,2)='Mc' Order By Dm"
    Set RstMy0 = MyDb1.OpenRecordset(StrSQL, dbOpenSnapshot)
    Set RstMy0 = MyDb1.OpenRecordset(StrSQL, dbOpenDynaset)
    If RstMy0.RecordCount > 0 Then         
       RstMy0.MoveLast
       N0 = RstMy0.RecordCount
       RstMy0.MoveFirst
       For i = 1 To N0
           If i = 1 Then StrMc1 = Trim(RstMy0![Mc])
           If i = 2 Then StrMc3 = Trim(RstMy0![Mc])
           If i = 3 Then StrMc2 = Trim(RstMy0![Mc])
           RstMy0.MoveNext
       Next
       RstMy0.Close

   StrSQL = "Delete from A_ky Where Xh='" & Xhp & "'" 
   MyDb2.Execute strSQL                                            

 引用

   Visual Basic For Applications
   Visual Basic romtime object and procedures
   Visual Basic object and procedures
   OLE Automation 
   Microsoft DAO 3.6 Object Library                 ' 建 Access 库
   Microsoft Data Formating Object Library

引用  Atest.vbp  SQL Server 

    Microsoft ActiveX Data Object 2.5 Library 
    Microsoft Data Formatting Object 6.0 (sp4)
    Microsoft DAO 3.51 Object Library
    Microsoft Data Binding Collection VB 6.0 (sp4)
    Microsoft Remote Data Services 2.6 Library     
    Microsoft Remote Data Services Server 2.6 Library     
    Microsoft Jet  and Rejplication Object 2.6 Library 

声明 API 函数
                          
    Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Const swp_hidewindow As Long = &H80
    Private Const swp_showwindow As Long = &H40
    Dim rtn As Long

    rtn = FindWindow("shell_traywnd", vbNullString)        ' get the window = 308
    Call SetWindowPos(rtn, 0, 0, 0, 0, 0, swp_hidewindow)  ' 隐藏任务栏

    rtn = FindWindow("shell_traywnd", vbNullString)                  '
    Call SetWindowPos(rtn, 0, 0, 0, 0, 0, swp_showwindow)  ' 恢复任务栏

实例:

    Call SetWindowPos(FindWindow("shell_traywnd", ""), 0, 0, 0, 0, 0, &H80)            ' 隐藏任务栏 
    Call SetWindowPos(FindWindow("shell_traywnd", ""), 0, 0, 0, 0, 0, &H40)            ' 恢复任务栏 



引用 MicroSoft Data Binding Colletion

     Date() 有效


在 Acssess 中

引用 Microsoft DAO 3.51 Object Library  则定义 DateBass 有效