mdul_main.bas

简单的餐厅POS收银软件

Attribute VB_Name = "mdul_Main"

'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/12
'描  述：超强换肤控件
'网  站：http://www.mndsoft.com/
'收  集：http://www.codefans.net/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit
Public Const gStock = "000" '总仓库

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Type TSkin
    SkinName As String
    FormBackColor As Long
    CaptionTop As Integer
    CaptionColor As Long
    SButtonForeColor As Long
    ListForeColor As Long
    ListMouseDownColor As Long
    ListMouseMoveColor As Long
    PdMenuForeColor As Long
    CSubItemTop As Integer
    CMouseDownColor As Long
    CMouseMoveColor As Long
    CSubMouseDownColor As Long
    CSubMouseMoveColor As Long
End Type

Public pSkin As TSkin
Public pIndex As Integer
Public pLastTransparencyPath As String
Dim txtline As String
Sub Main()
    frmLogin.Show
End Sub

Public Sub Initialize()
    Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
    Call frm_Main.ctrl_ListObject.AddItem("菜品设置")
    Call frm_Main.ctrl_ListObject.AddItem("每日营业")
    Call frm_Main.ctrl_ListObject.AddItem("时段营业")
    Call frm_Main.ctrl_ListObject.AddItem("销售排行")
    Call frm_Main.ctrl_ListObject.AddItem("销售统计")
    Call frm_Main.ctrl_ListObject.AddItem("历史帐单")
    Call frm_Main.ctrl_ListObject.AddItem("刷        新")
    Call frm_Main.ctrl_ListObject.AddItem("用户资料")
    Call frm_Main.ctrl_ListObject.AddItem("权限设置")
    Call frm_Main.ctrl_ListObject.AddItem("系统帮助")
    Call frm_Main.ctrl_ListObject.AddItem("修改密码")
    Call frm_Main.ctrl_ListObject.AddItem("重新登录")
    Call frm_Main.ctrl_ListObject.AddItem("退出系统")

    Call ChangeSkinToDefault(frm_Main)
End Sub

Public Sub InitSkinStruct(m_SkinName As String)
    Dim v_lRtn As Long
    Dim v_sString As String
    Dim v_sFilePath As String
    
    v_sFilePath = App.Path & "\Skins\" & m_SkinName & "\Settings.ini"
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("General", "SkinName", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.SkinName = TrimString(v_sString)
        
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("SkinableForm", "BackColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.FormBackColor = Val(TrimString(v_sString))
    
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("SkinableForm", "CaptionTop", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CaptionTop = Val(TrimString(v_sString))
    
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("SkinableForm", "CaptionColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CaptionColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("SkinableButton", "ForeColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.SButtonForeColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("PullDownMenu", "ForeColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.PdMenuForeColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ListObject", "ForeColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.ListForeColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ListObject", "MouseDownColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.ListMouseDownColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ListObject", "MouseMoveColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.ListMouseMoveColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "SubItemTop", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CSubItemTop = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "MouseDownColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CMouseDownColor = Val(TrimString(v_sString))
    
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "MouseMoveColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CMouseMoveColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "SubMouseDownColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CSubMouseDownColor = Val(TrimString(v_sString))
    
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "SubMouseMoveColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CSubMouseMoveColor = Val(TrimString(v_sString))
End Sub

Public Function TrimString(m_Str As String) As String
    m_Str = RTrim$(m_Str)
    m_Str = Left(m_Str, Len(m_Str) - 1)
    TrimString = m_Str
End Function

Public Sub ChangeSkin(m_SkinName As String, m_Form As Form)
    Dim v_oControl As Control

    Call InitSkinStruct(m_SkinName)
    For Each v_oControl In m_Form
        If TypeName(v_oControl) = "ctrl_SkinableForm" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.BackColor = pSkin.FormBackColor
            v_oControl.CaptionTop = pSkin.CaptionTop
            v_oControl.CaptionColor = pSkin.CaptionColor
            Call v_oControl.LoadSkin(frm_Main)
        ElseIf TypeName(v_oControl) = "ctrl_SkinableButton" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.ForeColor = pSkin.SButtonForeColor
            v_oControl.LoadSkin
        ElseIf TypeName(v_oControl) = "ctrl_ListObject" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.ForeColor = pSkin.ListForeColor
            v_oControl.MouseDownColor = pSkin.ListMouseDownColor
            v_oControl.MouseMoveColor = pSkin.ListMouseMoveColor
        ElseIf TypeName(v_oControl) = "ctrl_Toolbar" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.BackColor = pSkin.FormBackColor
            v_oControl.DrawToolbar
        ElseIf TypeName(v_oControl) = "ctrl_Panel" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.DrawPanel
        ElseIf TypeName(v_oControl) = "ctrl_PullDownMenu" Then
            v_oControl.BackColor = pSkin.FormBackColor
            v_oControl.ForeColor = pSkin.PdMenuForeColor
            v_oControl.Refresh
        ElseIf TypeName(v_oControl) = "ctrl_ChannelBar" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.MouseDownColor = pSkin.CMouseDownColor
            v_oControl.MouseMoveColor = pSkin.CMouseMoveColor
            v_oControl.SubMouseDownColor = pSkin.CSubMouseDownColor
            v_oControl.SubMouseMoveColor = pSkin.CSubMouseMoveColor
        ElseIf TypeName(v_oControl) = "ctrl_ProgressBar" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.LoadSkin
        End If
    Next v_oControl
    
    Set v_oControl = Nothing
End Sub

Public Sub ChangeSkinToDefault(m_Form As Form)
    Call InitSkinStruct("Wazoo")
    Call ChangeSkin("Wazoo", m_Form)
    
    With m_Form
        .ctrl_ListObject.DrawMenu
        .Line1.BorderColor = &H0&
        .lbl_Statusbar.ForeColor = &H0&
        
       ' .pic_Viewport.BackColor = &HC6B3B3
        .Refresh
        
        Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
        pLastTransparencyPath = ""
    End With
End Sub