Attribute VB_Name = "modMain"

' **********************************************************************
'  描  述：超市銷售系統(tǒng)源代碼
'  Play78.com : 網(wǎng)站導(dǎo)航，源碼之家，絕對(duì)開源
'  海闊天空收集整理
'  主站地址：http://www.play78.com/
'  源碼下載地址：http://www.play78.com/blog
'  圖片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:hglai@eyou.com
'  編寫日期：2005年08月14日
' **********************************************************************

'程序開發(fā)：lc_mtt
'CSDN博客：http://blog.csdn.net/lc_mtt/
'個(gè)人主頁：http://www.3lsoft.com
'郵箱：3lsoft@163.com
'注：此代碼禁止用于商業(yè)用途。有修改者發(fā)我一份，謝謝！
'---------------- 開源世界，你我更進(jìn)步 ----------------

Public GetApp As String '本地路徑
Public curUserName As String    '當(dāng)前用戶名
Public curUserStyle As Long    '當(dāng)前用戶類型


'程序入口
Public Sub Main()
On Error Resume Next
    If App.PrevInstance Then
        End
        Exit Sub
    End If
    '獲得本地路徑
    GetApp = App.Path: If Right$(GetApp, 1) <> "\" Then GetApp = GetApp & "\"
    readServer '讀取SQL服務(wù)器配置信息
    
    frmLogin.Show
    'Exit Sub
    'sqlConnect cnMain, strSQLServer, strSQLUser, strSQLPW, strSQLDB
    'curUserName = "admin"
    'curUserStyle = 4
    'frmMain.Show
End Sub

Public Sub SetSB(ByVal i&, ByVal strText$)
    frmMain.LBSB(i).caption = strText
End Sub

Public Function GetINI(ByVal s1 As String, s2 As String)
On Error Resume Next
    GetINI = GetSetting("MySuperMarket", s1, s2)
End Function

Public Function GetLongINI(ByVal s1 As String, s2 As String, Optional Def As Long = 0) As Long  '獲取INI中整數(shù)值
On Error GoTo aaaa
    Dim str As String
    str = GetINI(s1, s2)
    If str = "" Then
        GetLongINI = Def
    Else
        GetLongINI = CLng(str)
    End If
    Exit Function
aaaa:
    GetLongINI = Def
End Function

Public Sub SaveINI(ByVal s1 As String, s2 As String, s3 As String)
On Error Resume Next
    SaveSetting "MySuperMarket", s1, s2, s3
End Sub