www.pudn.com > kelon.rar > MOd02.bas

Attribute VB_Name = "MOd02" 
Option Explicit 
 
Public Const FILENAME = "\lz_kelon.ini" 
Public iniFn As String 
 
Public Type Maintb_ 
    label As String 
    field As String 
End Type 
Public Maintb() As Maintb_ 
 
Public Type MtBase_ 
    MT02 As Long 
    MT11 As Long 
    MT12 As Long 
    MT13 As Long 
    MT14 As Long 
    MT09 As String 
    MT10 As String 
End Type 
Public MtBase As MtBase_ 
 
Public Sub GetIniFileName() 
    If Dir(App.Path + FILENAME) = "" Then 
        iniFn = App.Path + "\res" + FILENAME 
    Else 
        iniFn = App.Path + FILENAME 
    End If 
End Sub