basmain.bas

服装销售系统,VB开发.没有解压密码

Attribute VB_Name = "basMain"


'*****************************************
'               主模块
'            模块文件代码
'*****************************************

Option Explicit


'以下为全局变量

Public Temp                                    '定义为临时变量
Public ErrNum As Single

Public DecNum As String

Public Conn As New ADODB.Connection            '连接对象
Public RsTemp As New ADODB.Recordset           '定义为记录集临时变量
Public Cmd As New ADODB.Command                '命令对象变量

Public TermName As String

Public sSQL As String                          '通用的SQL语法字符串变量
Public ConnectString As String                 '连接字符串

Public UserCode As String   ''现注册用户代号''
Public UserName As String   ''本系统现注册用户姓名''--MyUnitUser
Public UserPassword As String   ''现注册用户口令''

Public MyUnitUser As String
Public TerminalName As String
Public SysUnit As String

Public AutoGeneratePurcode As String

'部门信息
Public Const GroupInfo As String = "柜组信息"
Public Const GroupCode As String = "编码"
Public Const GroupName As String = "名称"
'职员信息
Public Const ClerkInfo As String = "职员信息"
Public Const ClerkCode As String = "编码"
Public Const ClerkName As String = "姓名"
'供应商信息
Public Const ProviderInfo As String = "供应商主档"
Public Const ProviderCode As String = "供应商编码"
Public Const ProviderName As String = "供应商名称"


'主调程序

Public Sub Main()
    
    
    
    'If (Not IsOK()) And CountCal Then
     If False Then
        MsgBox "软件未注册，请与软件开发者联系!", vbInformation, "提示窗口"
        frmSecret.Show 1
        If Not frmSecret.Register Then
            Exit Sub
        Else
            frmLogin.Show 1
            If frmLogin.OK Then
                Unload frmLogin
            Else
                Exit Sub
            End If
        End If
    Else
        frmLogin.Show 1
        If frmLogin.OK Then
            Unload frmLogin
        Else
            Exit Sub
        End If
    End If
    
    frmSplash.Show
    frmSplash.Refresh
    
    Load frmMain
    Unload frmSplash
    
    If GetSetting("LSDSTAR", "库存设置", "货币小数位数", "1") = "1" Then
        DecNum = "#.0"
    Else
        DecNum = "#.00"
    End If

    
    frmMain.Show

End Sub

Private Function CountCal() As Boolean
       Dim s
       s = GetSetting("Microsoft", "SoftWare", "Count", "0")
       If s = "0" Then
            SaveSetting "Microsoft", "SoftWare", "Count", "1"
            CountCal = False
       Else
            If Val(s) < 200 Then
                SaveSetting "Microsoft", "SoftWare", "Count", CStr(Val(s) + 1)
                CountCal = False
            Else
                CountCal = True
            End If
       End If
End Function