frmmain.frm

电子皮带秤计量管理系统.完成电子皮带秤的自动计量工作,和销售管理系统配合使用更佳.

      End
      Begin VB.Menu mnuFilePageSetup 
         Caption         =   "页面设置(&U)"
      End
      Begin VB.Menu mnuFileBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "退出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "查询输出(&P)"
      Begin VB.Menu hetong 
         Caption         =   "合同查询"
      End
      Begin VB.Menu mnuBILL 
         Caption         =   "作业清单(&B)"
         Shortcut        =   ^B
      End
      Begin VB.Menu mnuEditCopy 
         Caption         =   "欠存单据(&C)"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuEditBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditPaste 
         Caption         =   "销售日报(&P)"
         Shortcut        =   ^D
      End
      Begin VB.Menu mnuEditPasteSpecial 
         Caption         =   "发售统计(&S)..."
         Shortcut        =   ^M
      End
      Begin VB.Menu mnuYEAR 
         Caption         =   "年度统计(&Y)"
         Shortcut        =   ^Y
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "视图(&V)"
      Begin VB.Menu mnuViewToolbar 
         Caption         =   "工具栏(&T)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuViewStatusBar 
         Caption         =   "状态栏(&B)"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu mnuWindowTileHorizontal 
         Caption         =   "横向平铺(&H)"
      End
      Begin VB.Menu mnuWindowTileVertical 
         Caption         =   "纵向平铺(&V)"
      End
      Begin VB.Menu mnuWindowArrangeIcons 
         Caption         =   "排列图标(&A)"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuHelpContents 
         Caption         =   "每日提示(&C)"
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "关于作者(&A) "
      End
      Begin VB.Menu mnuHelpBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelpSearchForHelpOn 
         Caption         =   "搜索帮助主题(&S)..."
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
'Const EM_UNDO = &HC7
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function ReleaseCapture Lib "user32" () As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&



Private Sub hetong_Click()

End Sub

'##################################################################
'## 过程名称：Label1_Click
'## 参数： 无
'##################################################################
Private Sub Label1_Click()
    Dim p As Long
    p = SendMessage(frmMain.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub
'##################################################################
'## 过程名称：MDIForm_Load
'## 参数： 无
'##################################################################
Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.TITLE, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.TITLE, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.TITLE, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.TITLE, "Settings", "MainHeight", 6500)
    '    frmLogin.Show vbModal, Me
End Sub
'##################################################################
'## 过程名称：MDIForm_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.TITLE, "Settings", "MainLeft", Me.Left
        SaveSetting App.TITLE, "Settings", "MainTop", Me.Top
        SaveSetting App.TITLE, "Settings", "MainWidth", Me.Width
        SaveSetting App.TITLE, "Settings", "MainHeight", Me.Height
    End If
    End
End Sub
    
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '菜单项定义部分
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
    
'##################################################################
'## 过程名称：mnuBILL_Click
'## 参数： 无
'##################################################################
Private Sub mnuBILL_Click()
    frmBill.Show
End Sub
    
'##################################################################
'## 过程名称：mnuEditCopy_Click
'## 参数： 无
'##################################################################
Private Sub mnuEditCopy_Click()
    frmTab.Show
End Sub
    
'##################################################################
'## 过程名称：mnuHelpAbout_Click
'## 参数： 无
'##################################################################
Private Sub mnuHelpAbout_Click()
    '    frmAbout.Show vbModal, Me
End Sub
    
'##################################################################
'## 过程名称：mnuHelpSearchForHelpOn_Click
'## 参数： 无
'##################################################################
Private Sub mnuHelpSearchForHelpOn_Click()
    Dim nRet As Integer
    
    
    '如果这个工程没有帮助文件，显示消息给用户
    '可以在“工程属性”对话框中为应用程序设置帮助文件
    If Len(App.HelpFile) = 0 Then
        MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
    Else
        
        On Error Resume Next
        nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
        If Err Then
            MsgBox Err.Description
        End If
    End If
    
End Sub
    
'##################################################################
'## 过程名称：mnuHelpContents_Click
'## 参数： 无
'##################################################################
Private Sub mnuHelpContents_Click()
    frmTip.Show
    
End Sub
    
    
    
'##################################################################
'## 过程名称：mnuRUN_Click
'## 参数： 无
'##################################################################
Private Sub mnuRUN_Click()
    FrmCAI.Show
End Sub
    
'##################################################################
'## 过程名称：mnuViewStatusBar_Click
'## 参数： 无
'##################################################################
Private Sub mnuViewStatusBar_Click()
    mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
    sbStatusBar.Visible = mnuViewStatusBar.Checked
End Sub
    
'##################################################################
'## 过程名称：mnuViewToolbar_Click
'## 参数： 无
'##################################################################
Private Sub mnuViewToolbar_Click()
    mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
    Toolbar.Visible = mnuViewToolbar.Checked
End Sub
    
    
    
'##################################################################
'## 过程名称：Toolbar_ButtonClick
'## 参数：ByVal 为ton As MSComctlLib.Button型
'##################################################################
Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "RUN"
            FrmCAI.Show
        Case "HELP"
            frmTip.Show
        Case "TAB"
            frmTab.Show
        Case "ABOUT"
            End
        Case "BILL"
            frmBill.Show
        Case "EXIT"
            QuitSystem
        Case "DAY"
            frmDay.Show
        Case "STAT1"
            frmBuild.Show
        Case "STAT2"
            frmBuild.Show
    End Select
End Sub
'##################################################################
'## 过程名称：QuitSystem
'## 参数： 无
'##################################################################
Sub QuitSystem()
    Dim iFlag As Integer
    Dim RUI As Integer
    RUI = MsgBox("退出系统" + Chr(13) + Chr(13) + "当前的操作导致系统监控异常终止。" + Chr(13) + Chr(13) + _
    "确认退出系统？", vbExclamation + vbDefaultButton1 + vbApplicationModal + vbYesNoCancel, "退出确认")
    If RUI = 6 Then
        Unload Me
        End
    End If
End Sub