mainfuncbas.bas

报警信息查询系统VB+ACESS 根据某啤酒厂出现故障不同（如系统错误、负亟接地、操作错误等）计算机系统进行报警

Attribute VB_Name = "MainFuncBas"

Option Explicit

Public NowSelectTzCode As String
Public NowQueryForm As String
Public NowSelectForm As String

Sub HelpFunction(lhWnd As Long, HelpCmd As Integer, HelpKey As String)
   
Dim lRtn As Long 'declare the needed variables
   
If HelpCmd = HELP_PARTIALKEY Then
   lRtn = WinHelp(lhWnd, App.HelpFile, HelpCmd, HelpKey)
Else
   lRtn = WinHelp(lhWnd, App.HelpFile, HelpCmd, 0&)
End If
   
End Sub


'*=====================================================*
'*Writes a string to an INI file. To use, call the     *
'*function and pass it the sAppname, sKeyName, the New *
'*String and the INI File Name,                        *
'*[R=WriteINI(App1,Key1,sReg,INIFile)]. Returns a 1 if *
'*there were no errors and a 0 if there were errors.   *
'*******************************************************
Sub WriteINI(sAppname$, sKeyName$, sNewString$, sFileName As String)
Dim r As Integer
    
  r = WritePrivateProfileString(sAppname$, sKeyName$, sNewString$, sFileName$)

End Sub


Function GetFromINI(SectionHeader$, VarName$, FileName$) As String
   Dim RetString As String
   RetString = String(255, Chr(0))
  'Get Requested Information
   GetFromINI = Left(RetString, GetPrivateProfileString(SectionHeader$, ByVal VarName$, "", RetString, Len(RetString), FileName$))

End Function