frmiteminitlist.frm

金算盘软件代码

        Select Case vntMessage
            Case 30 + 42        '接收到库存商品期初改变消息
                 ToolRefresh 0
                 mclsMainControl.Messages.Remove CStr(vntMessage) '清除库存商品期初改变消息
            Case 30 + 43
                 ToolRefresh 1
                 mclsMainControl.Messages.Remove CStr(vntMessage)
            Case 30 + 44
                 ToolRefresh 2
                 mclsMainControl.Messages.Remove CStr(vntMessage)
            Case 30 + 45
                 ToolRefresh 3
                 mclsMainControl.Messages.Remove CStr(vntMessage)
            Case 30 + 46
                 ToolRefresh 4
                 mclsMainControl.Messages.Remove CStr(vntMessage)
            Case 30 + 47
                 ToolRefresh 5
                 mclsMainControl.Messages.Remove CStr(vntMessage)
            Case 30 + 52
                 ToolRefresh 6
                 mclsMainControl.Messages.Remove CStr(vntMessage)
        End Select
    Next
    mclsMainControl.Messages.Clear
    UpdateMenuStatus
End Sub

Private Sub mclsMainControl_EditColumn()
    
    With sstItemInit
        If mclsList(.Tab).ListSet.ShowListSet(intViewID(.Tab)) Then
            blnIsLoad(.Tab) = False
            sstIteminit_Click .Tab
        End If
    End With
End Sub

Private Sub mclsMainControl_EditFilter()
    '筛选
    Dim blnFlage(6) As Boolean
    Dim lngViewFieldDateID As Long
        
    With sstItemInit
        If mclsList(.Tab).ListSet.ListID < 1 Then
            mclsList(.Tab).ListSet.SaveList
        End If
        Filter.ShowFilter mclsList(.Tab).ListSet.ListID, 1, , , , , blnFlage(.Tab)
        If Not blnFlage(.Tab) Then Exit Sub
        
        mclsList(.Tab).FlexGrid.Redraw = False
        
        mclsList(.Tab).SaveListSet
        
        mclsList(.Tab).ListSet.ViewId = intViewID(.Tab)
        mclsList(.Tab).FlexGrid.Cols = 0
        Set datItemInit(.Tab).Resultset = GetList(.Tab)
        If Not datItemInit(.Tab).Resultset.EOF Then datItemInit(.Tab).Resultset.MoveLast
        datItemInit(.Tab).Resultset.Close
        
        mclsList(.Tab).SetFlexGrid
'        FormatGridMe
        
        UpdateMenuStatus
        
        '初始化查找复合列表框
        mclsList(.Tab).InitcboFindKind
        If chkShowAll.Value = 0 Then mclsList(.Tab).DoShowAll False
        
        mclsList(.Tab).FlexGrid.Redraw = True
    End With
End Sub


Private Sub mclsMainControl_FilePrintReceipt()
    frmPrintReceipt.ShowfrmPrintReceipt 39 + sstItemInit.Tab
End Sub

Private Sub mclsMainControl_FilePrintSetup()
    Dim MyPrintSet As PrintClass
    
    Set MyPrintSet = New PrintClass
    With sstItemInit
        Select Case .Tab
            Case 0
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 72, " "
            Case 1
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 73, " "
            Case 2
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 74, " "
            Case 3
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 75, " "
            Case 4
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 76, " "
            Case 5
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 77, " "
            Case 6
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 78, " "
        End Select
    End With
    Set MyPrintSet = Nothing
End Sub

Private Sub mclsMainControl_ListReportMenu(ByVal intIndex As Integer)
    Select Case intIndex
        Case 0
        
    End Select
End Sub

Private Sub mclsSubClass_WndProc(Msg As Long, wParam As Long, lParam As Long, Result As Long)
    If mclsList(sstItemInit.Tab) Is Nothing Then Exit Sub
    mclsList(sstItemInit.Tab).HookProc Msg, wParam, lParam, mclsSubClass
End Sub

Private Sub mclsSubClassForm_WndProc(Msg As Long, wParam As Long, lParam As Long, Result As Long)
    Dim MinMax As MINMAXINFO

    If Msg = WM_GETMINMAXINFO Then
        CopyMemory MinMax, ByVal lParam, Len(MinMax)
        
        MinMax.ptMinTrackSize.x = 550
        MinMax.ptMinTrackSize.y = 250
        
        CopyMemory ByVal lParam, MinMax, Len(MinMax)
        Result = 0
    End If
End Sub

Private Sub msgItemInit0_DblClick()
    With msgItemInit0
        If .Row > 0 And .RowHeight(.Row) > 0 And .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 Then
           SetCapture frmStartPeriod.hwnd
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgItemInit0_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     With msgItemInit0
         If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
         End If
    End With
End Sub

Private Sub msgItemInit0_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgItemInit0
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub
Private Sub msgItemInit1_DblClick()
    With msgItemInit1
        If .Row > 0 And .RowHeight(.Row) > 0 And .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 Then
           SetCapture frmStartPeriod.hwnd
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgItemInit1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     With msgItemInit1
         If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
         End If
    End With
End Sub

Private Sub msgItemInit1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgItemInit1
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub

Private Sub msgItemInit2_DblClick()
    With msgItemInit2
        If .Row > 0 And .RowHeight(.Row) > 0 And .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 Then
           SetCapture frmStartPeriod.hwnd
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgItemInit2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     With msgItemInit2
         If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
         End If
    End With
End Sub

Private Sub msgItemInit2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgItemInit2
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub
Private Sub msgItemInit3_DblClick()
    With msgItemInit3
        If .Row > 0 And .RowHeight(.Row) > 0 And .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 Then
           SetCapture frmStartPeriod.hwnd
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgItemInit3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     With msgItemInit3
         If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
         End If
    End With
End Sub

Private Sub msgItemInit3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgItemInit3
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub
Private Sub msgItemInit4_DblClick()
    With msgItemInit4
        If .Row > 0 And .RowHeight(.Row) > 0 And .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 Then
           SetCapture frmStartPeriod.hwnd
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgItemInit4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     With msgItemInit4
         If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
         End If
    End With
End Sub

Private Sub msgItemInit4_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgItemInit4
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub
Private Sub msgItemInit5_DblClick()
    With msgItemInit5
        If .Row > 0 And .RowHeight(.Row) > 0 And .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 Then
           SetCapture frmStartPeriod.hwnd
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgItemInit5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     With msgItemInit5
         If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
         End If
    End With
End Sub

Private Sub msgItemInit5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgItemInit5
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub
Private Sub msgItemInit6_DblClick()
    With msgItemInit6
        If .Row > 0 And .RowHeight(.Row) > 0 And .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 Then
           SetCapture frmStartPeriod.hwnd
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgItemInit6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     With msgItemInit6
         If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
         End If
    End With
End Sub

Private Sub msgItemInit6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgItemInit6
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub


Private Sub sstIteminit_Click(PreviousTab As Integer)
    Dim i As Integer
    
    With sstItemInit
        For i = 0 To 6
            Set mclsList(i).Again = Nothing
            mclsList(i).FlexGrid.TabStop = False
        Next
        mclsList(.Tab).FlexGrid.TabStop = True
        Set mclsList(.Tab).Again = cmdAgain
        mclsList(.Tab).FlexNoChange = True
        mclsList(.Tab).FindNoChange = True
       
         '改变钩子对象的作用窗体
        mclsSubClass.hwnd = mclsList(.Tab).FlexGrid.hwnd
        If Not blnIsLoad(.Tab) Then
            mclsList(.Tab).FlexGrid.Redraw = False
            '得到列表记录集
            mclsList(.Tab).ListSet.ViewId = intViewID(.Tab)
            
            mclsList(.Tab).InitFlexGrid
            
            Set datItemInit(.Tab).Resultset = GetList(.Tab)
            If datItemInit(.Tab).Resultset Is Nothing Then
               Exit Sub
            End If
            
            If Not datItemInit(.Tab).Resultset.EOF Then datItemInit(.Tab).Resultset.MoveLast
            datItemInit(.Tab).Resultset.Close
            mclsList(.Tab).SetFlexGrid