modmain.bas

来自「VB 编写的"华成POS管理系统",代码全,没有进行测试,数据库全,有兴趣的朋友」· BAS 代码 · 共 84 行

Attribute VB_Name = "Modmain"
Public GetApp As String '本地路径
Public curUserName As String    '当前用户名
Public curUserStyle As Long    '当前用户类型
Public ptno As Long
Public lip As Integer
Public Declare Function GetHardDiskId Lib "Reg.DLL" (ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function GetMainBoardId Lib "Reg.DLL" (ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function GetMACAddress Lib "Reg.DLL" (ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function BlowFishEncrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function BlowFishDecrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function MD5Encrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal Length As Long, ByVal lpRegisterCode As String) As Long

Public Declare Function SHAEncrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal Length As Long, ByVal lpRegisterCode As String) As Long

Public Declare Function Secret16Encrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function MD5FileCheck Lib "Reg.DLL" (ByVal FileNameStr As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function CRCFileCheck Lib "Reg.DLL" (ByVal FileNameStr As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function EncryptStringFun1 Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function DecryptStringFun1 Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function EncryptStringFun2 Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function DecryptStringFun2 Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpKey As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function FileEncrypt Lib "Reg.DLL" (ByVal lpInputFileName As String, ByVal lpOutputFileName As String, ByVal lpKey As String, ByVal lpRegisterCode As String) As Long

Public Declare Function FileDecrypt Lib "Reg.DLL" (ByVal lpInputFileName As String, ByVal lpOutputFileName As String, ByVal lpKey As String, ByVal lpRegisterCode As String) As Long

Public Declare Function RSAEncrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpDdata As String, ByVal lpNdata As String, ByVal Mode As Long, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function RSADecrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpNdata As String, ByVal Mode As Long, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function Base64Encode Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function Base64Decode Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function CRC32 Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal Length As Long, ByVal lpOutBuffer As String, ByVal lpRegisterCode As String) As Long

Public Declare Function DesEncrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal lpKey As String, ByVal lpRegisterCode As String) As Long

Public Declare Function DesDecrypt Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String, ByVal lpKey As String, ByVal lpRegisterCode As String) As Long

Public Declare Function CharToHex Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String) As Long

Public Declare Function HexToChar Lib "Reg.DLL" (ByVal lpInBuffer As String, ByVal lpOutBuffer As String) As Long

Public Declare Function GetDllVersion Lib "Reg.DLL" (ByVal lpOutBuffer As String) 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服务器配置信息
   

 'sqlConnect cnMain, strSQLServer, strSQLUser, strSQLPW, strSQLDB
 frmLogin.Show

   
    'Exit Sub
    'sqlConnect cnMain, strSQLServer, strSQLUser, strSQLPW, strSQLDB
    'curUserName = "admin"
    'curUserStyle = 4
    'frmMain.Show
End Sub