modsystem.bas

来自「传销工资管理 请验证一下哈」· BAS 代码 · 共 14 行

Attribute VB_Name = "modSystem"
Public LoginName As String
Public PaymentDay As String
Public fMainForm As frmMain
Public varSelect As Integer

'Sub DatabasePath()
'  If Right((App.Path), 1) = "\" Then
'     DatabasePath = App.Path + "database" + system.mdb
'  Elsexxxx
'     DatabasePath = App.Path + "\" + "database" + "\" + system.mdb
'  End If
'End Sub