modmain.bas

超市销售管理系统 4) 文档里面有完整的需求说明书

Attribute VB_Name = "modMain"
'超市销售系统
'程序开发：lc_mtt
'CSDN博客：http://blog.csdn.net/lc_mtt/
'个人主页：http://www.3lsoft.com
'邮箱：[e-mail]
'注：此代码禁止用于商业用途。有修改者发我一份，谢谢！
'---------------- 开源世界，你我更进步 ----------------

Public GetApp As String '本地路径
Public curUserName As String    '当前用户名
Public curUserStyle As Long    '当前用户类型


'程序入口
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服务器配置信息
    
    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中整数值
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