modwinapi.bas

饲料生产控制系统

    'DB_OPERATION_INFO
    strSectName = "DBOPERATION"
    strKeyName = "DAILYPATH1"
    gDBDAILYPATH1 = ReadStr(strFileIni, strSectName, strKeyName)
    
     'DB_OPERATION_INFO
    strSectName = "DBOPERATION"
    strKeyName = "DAILYPATH2"
    gDBDAILYPATH2 = ReadStr(strFileIni, strSectName, strKeyName)
   
     'DB_OPERATION_INFO
    strSectName = "DBOPERATION"
    strKeyName = "PortableHDD"
    gPortableHDD = ReadStr(strFileIni, strSectName, strKeyName)
      
   'DB_OPERATION_INFO
    strSectName = "DBOPERATION"
    strKeyName = "RESTORE_CON"
    gRESTORE_CON = ReadStr(strFileIni, strSectName, strKeyName)
    
   'SHUTDOWN
    strSectName = "SHUTDOWN"
    strKeyName = "ISSHUTDOWN"
    gISSHUTDOWN = ReadStr(strFileIni, strSectName, strKeyName)
    
    ReadINIFILE = True

Resume_Err:
    Exit Function

Err:
    ReadINIFILE = False
    Resume Resume_Err

End Function

'Public Function ReadMainCon(stgMName As String) As String
'    Dim NextLine As String
'    '儊僀儞僐儞僺儏乕僞傪専抦 */
'    Open "HControl.TXT" For Input As #1
'    Line Input #1, NextLine
'    Input #1, stgMName
'    Close #1
'    ReadMainCon = stgMName
'
'End Function
'
'Public Sub ReadMainUrl(ByRef url1 As String, ByRef url2 As String, _
'                       ByRef url3 As String, ByRef url4 As String)
'    Dim NextLine As String
'    '儊僀儞僐儞僺儏乕僞傪専抦 */
'    Open "HControl.TXT" For Input As #1
'    Line Input #1, NextLine
'    Line Input #1, NextLine
'    Input #1, url1
'    Input #1, url2
'    Input #1, url3
'    Input #1, url4
'    Close #1
'End Sub
'
'Public Sub ReadMainBack(ByRef url1 As String, ByRef url2 As String)
'    Dim NextLine As String
'    '儊僀儞僐儞僺儏乕僞傪専抦 */
'    Open "HControl.TXT" For Input As #1
'    Line Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, url1
'    Input #1, url2
'    Close #1
'End Sub
'
'Public Sub ReadMainResert(ByRef url1 As String, ByRef url2 As String, ByRef url3 As String)
'    Dim NextLine As String
'    '儊僀儞僐儞僺儏乕僞傪専抦 */
'    Open "HControl.TXT" For Input As #1
'    Line Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, NextLine
'    Input #1, url1
'    Input #1, url2
'    Input #1, url3
'    Close #1
'End Sub

Public Function DelTemp1() As Boolean
    Dim strTmpPath As String

    strTmpPath = App.Path & "\*.tmp"

On Error GoTo Err
    Kill (strTmpPath)
    
Resume_Err:
    Exit Function
    
Err:
    Resume Resume_Err

End Function

Public Function DelTemp2() As Boolean
    Dim strTmpPath As String
    Dim strTmpRoot As String

    strTmpPath = App.Path & "\*.tmp"
    strTmpRoot = Mid(App.Path, 1, 2) & "\*.tmp"

On Error GoTo Err
    Kill (strTmpRoot)
    
Resume_Err:
    Exit Function
    
Err:
    Resume Resume_Err

End Function

Public Function DelTemp() As Boolean
    Call DelTemp1
    Call DelTemp2
End Function

Public Function HiddenClose(ByVal b_form As Form) As Boolean
    Dim mHandle As Long
    Dim mHandle2 As Long
    
On Error GoTo Err                ' 僄儔乕偺応崌
    HiddenClose = False
    
    mHandle = GetSystemMenu(b_form.hwnd, 0)
    RemoveMenu mHandle, &HF060, MF_BYCOMMAND
    
    HiddenClose = True

Resume_Err:
    Exit Function

Err:
    Resume Resume_Err
End Function
'api忢悢
'  '   Virtual   Keys,   Standard   Set
'  Const VK_LBUTTON = &H1
'  Const VK_RBUTTON = &H2
'  Const VK_CANCEL = &H3
'  Const VK_MBUTTON = &H4                                 '     NOT   contiguous   with   L   RBUTTON
'
'  Const VK_BACK = &H8
'  Const VK_TAB = &H9
'
'  Const VK_CLEAR = &HC
'  Const VK_RETURN = &HD
'
'  Const VK_SHIFT = &H10
'  Const VK_CONTROL = &H11
'  Const VK_MENU = &H12
'  Const VK_PAUSE = &H13
'  Const VK_CAPITAL = &H14
'
'  Const VK_ESCAPE = &H1B
'
'  Const VK_SPACE = &H20
'  Const VK_PRIOR = &H21
'  Const VK_NEXT = &H22
'  Const VK_END = &H23
'  Const VK_HOME = &H24
'  Const VK_LEFT = &H25
'  Const VK_UP = &H26
'  Const VK_RIGHT = &H27
'  Const VK_DOWN = &H28
'  Const VK_SELECT = &H29
'  Const VK_PRINT = &H2A
'  Const VK_EXECUTE = &H2B
'  Const VK_SNAPSHOT = &H2C
'  Const VK_INSERT = &H2D
'  Const VK_DELETE = &H2E
'  Const VK_HELP = &H2F
'
'  '   VK_A   thru   VK_Z   are   the   same   as   their   ASCII   equivalents:   'A'   thru   'Z'
'  '   VK_0   thru   VK_9   are   the   same   as   their   ASCII   equivalents:   '0'   thru   '9'
'
'  Const VK_NUMPAD0 = &H60
'  Const VK_NUMPAD1 = &H61
'  Const VK_NUMPAD2 = &H62
'  Const VK_NUMPAD3 = &H63
'  Const VK_NUMPAD4 = &H64
'  Const VK_NUMPAD5 = &H65
'  Const VK_NUMPAD6 = &H66
'  Const VK_NUMPAD7 = &H67
'  Const VK_NUMPAD8 = &H68
'  Const VK_NUMPAD9 = &H69
'  Const VK_MULTIPLY = &H6A
'  Const VK_ADD = &H6B
'  Const VK_SEPARATOR = &H6C
'  Const VK_SUBTRACT = &H6D
'  Const VK_DECIMAL = &H6E
'  Const VK_DIVIDE = &H6F
'  Const VK_F1 = &H70
'  Const VK_F2 = &H71
'  Const VK_F3 = &H72
'  Const VK_F4 = &H73
'  Const VK_F5 = &H74
'  Const VK_F6 = &H75
'  Const VK_F7 = &H76
'  Const VK_F8 = &H77
'  Const VK_F9 = &H78
'  Const VK_F10 = &H79
'  Const VK_F11 = &H7A
'  Const VK_F12 = &H7B
'  Const VK_F13 = &H7C
'  Const VK_F14 = &H7D
'  Const VK_F15 = &H7E
'  Const VK_F16 = &H7F
'  Const VK_F17 = &H80
'  Const VK_F18 = &H81
'  Const VK_F19 = &H82
'  Const VK_F20 = &H83
'  Const VK_F21 = &H84
'  Const VK_F22 = &H85
'  Const VK_F23 = &H86
'  Const VK_F24 = &H87
'
'  Const VK_NUMLOCK = &H90
'  Const VK_SCROLL = &H91
'
'  '
'  '       VK_L   VK_R   -   left   and   right   Alt,   Ctrl   and   Shift   virtual   keys.
'  '       Used   only   as   parameters   to   GetAsyncKeyState()   and   GetKeyState().
'  '       No   other   API   or   message   will   distinguish   left   and   right   keys   in   this   way.
'  '     /
'  Const VK_LSHIFT = &HA0
'  Const VK_RSHIFT = &HA1
'  Const VK_LCONTROL = &HA2
'  Const VK_RCONTROL = &HA3
'  Const VK_LMENU = &HA4
'  Const VK_RMENU = &HA5
'
'  Const VK_ATTN = &HF6
'  Const VK_CRSEL = &HF7
'  Const VK_EXSEL = &HF8
'  Const VK_EREOF = &HF9
'  Const VK_PLAY = &HFA
'  Const VK_ZOOM = &HFB
'  Const VK_NONAME = &HFC
'  Const VK_PA1 = &HFD
'  Const VK_OEM_CLEAR = &HFE
'
'  埪??嶌忢悢
'  Public Const WM_KEYDOWN = &H100
'
'  Public Const WM_KEYFIRST = &H100
'
'  Public Const WM_KEYLAST = &H108
'
'  Public Const WM_KEYUP = &H101