kelon.rar MOd02.bas

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