modsystem.bas

vb编出的关于传销工资结算系统

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