📄 frmapivd.frm

📁 制造业产供销与往来系统源码,包括进销存及全部控件！
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
         End If
      
   End Select
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub Flex_RowColChange(Index As Integer)
On Error GoTo Errorhandle

   Select Case Index
   Case FlexApivdh
   
         If Flex(FlexApivdh).Rows > 1 Then
            Set oApivdh = oApivdhs(CStr(Flex(FlexApivdh).RowData(Flex(FlexApivdh).Row)))
            SetValueToControl
         Else
            Set oApivdh = Nothing
            Clearcontrol
         End If
   
   Case FlexApivd
   
         If Flex(FlexApivd).Row <> Flex(FlexApivd).Rows - 1 Then
            Set oApivd = oApivdh.Apivds(CStr(Flex(FlexApivd).RowData(Flex(FlexApivd).Row)))
         Else
            Set oApivd = Nothing
         End If
   
   End Select
   
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub SetValueToControl()
On Error GoTo Errorhandle

   Text(TxtApivdhDocno).Text = oApivdh.ApivdhDocno
   Text(TxtApivdhDat).Text = gPublicFunction.ConvStringToDate(oApivdh.ApivdhDat)
   Text(TxtApivdh_CwqjCode).Text = oApivdh.Apivdh_CwQjCode
   Combo(CBxApivdh_KhCode).Text = oApivdh.Kh.KhCode
   Combo(CBxApivdh_CwBzCode).Text = oApivdh.CwBz.CwBzCode
   LoadDataIntoGrid
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Errorhandle

   Set oApivdhs = Nothing
   Set oApivdh = Nothing
   Set oApivd = Nothing
   
   gPublicFunction.SaveFormSet Me
    
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub muEdit_Click(Index As Integer)
   Dim mFrmApivdGen As frmApivdGen
On Error GoTo Errorhandle

Select Case muEdit(Index).Tag
Case "APIVDGEN"
      If Tlbaction(TlbApivd).Tag <> "" Then
         SetValueToObject
         Set mFrmApivdGen = New frmApivdGen
         Set mFrmApivdGen.Apivdh = oApivdh
         mFrmApivdGen.Show vbModal
         Set mFrmApivdGen = Nothing
         LoadDataIntoGrid
      End If
End Select

Exit Sub
Errorhandle:
   Set mFrmApivdGen = Nothing
   MsgBox Err.Description
End Sub

Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error GoTo Errorhandle

gPublicFunction.FormKeyDown Me, KeyCode, Shift, Text(Index)

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
On Error GoTo Errorhandle

   gPublicFunction.InputCheck Me, Text(Index), KeyAscii

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub SetControlToFlex()
   Dim mCurCol As Integer
   Dim mCurRow As Integer
On Error GoTo Errorhandle
  
   If Tlbaction(TlbApivd).Tag = "" Then
      Exit Sub
   End If

   mCurRow = Flex(FlexApivd).Row
   mCurCol = Flex(FlexApivd).Col
   
   
   'Flex(FlexApivd).TextMatrix(mCurRow, mCurCol) = Trim(Flex(FlexApivd).EditText)
   
   Select Case Flex(FlexApivd).ColKey(Flex(FlexApivd).Col)
   Case "HWBMCODE"
         If oApivd Is Nothing Then
            AddNewRecord
         Else
            oApivd.Apivd_HwBmCode = Trim(Flex(FlexApivd).TextMatrix(mCurRow, mCurCol))
            Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).ColIndex("HWBMMC")) = oApivd.Apivd_HwBmMc
            Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).ColIndex("HWDWCODE")) = oApivd.Apivd_HwDwCode
            Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).ColIndex("Apivd_HWDWCONV")) = oApivd.Apivd_HwDwConv
         End If
   
   Case "HWDWCODE"
         If Not oApivd Is Nothing Then
            oApivd.Apivd_HwDwCode = Trim(Flex(FlexApivd).TextMatrix(mCurRow, mCurCol))
         End If
         
   Case "APIVD_HWDWCONV"
         If Not oApivd Is Nothing Then
            oApivd.Apivd_HwDwConv = Val(Flex(FlexApivd).TextMatrix(mCurRow, mCurCol))
         End If
            
   Case "APIVDQTY"
         If Not oApivd Is Nothing Then
            oApivd.ApivdQty = Val(Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, mCurCol))
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDNTAMT")) = oApivd.ApivdNtAmt
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDTAMT")) = oApivd.ApivdTAmt
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDAMT")) = oApivd.ApivdAmt
         End If
   
   Case "APIVDPRICE"
         If Not oApivd Is Nothing Then
            oApivd.ApivdPrice = Val(Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, mCurCol))
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDNTAMT")) = oApivd.ApivdNtAmt
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDTAMT")) = oApivd.ApivdTAmt
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDAMT")) = oApivd.ApivdAmt
         End If
   
   Case "APIVDNTAMT"
         If Not oApivd Is Nothing Then
            oApivd.ApivdNtAmt = Val(Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, mCurCol))
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDPRICE")) = oApivd.ApivdPrice
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDTAMT")) = oApivd.ApivdTAmt
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDAMT")) = oApivd.ApivdAmt
         End If
   
   Case "APIVDAMT"
         If Not oApivd Is Nothing Then
            oApivd.ApivdAmt = Val(Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, mCurCol))
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDPRICE")) = oApivd.ApivdPrice
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDNTAMT")) = oApivd.ApivdNtAmt
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).ColIndex("APIVDTAMT")) = oApivd.ApivdTAmt
         End If
   
   Case "CWSMCODE"
         If Not oApivd Is Nothing Then
            oApivd.Apivd_CwSmCode = Trim(Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, mCurCol))
         End If
   
   Case "APIVDBZ"
         If Not oApivd Is Nothing Then
            oApivd.ApivdBz = Trim(Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, mCurCol))
         End If
   
   End Select
   
   If UCase(Flex(FlexApivd).ColKey(Flex(FlexApivd).Col)) = "APIVDQTY" Or UCase(Flex(FlexApivd).ColKey(Flex(FlexApivd).Col)) = "APIVDPRICE" Or UCase(Flex(FlexApivd).ColKey(Flex(FlexApivd).Col)) = "APIVDNTAMT" Or UCase(Flex(FlexApivd).ColKey(Flex(FlexApivd).Col)) = "APIVDTAMT" Or UCase(Flex(FlexApivd).ColKey(Flex(FlexApivd).Col)) = "APIVDAMT" Then
      gPublicFunction.SumFlexQtyAmt Flex(FlexApivd), "APIVDQTY,APIVDNTAMT,APIVDTAMT,APIVDAMT", Text(TxtTotalQty), Text(TxtTotalNtAmt), Text(TxtTotalTAmt), Text(TxtTotalAmt)
   End If

Exit Sub
Errorhandle:
   Flex(FlexApivd).TextMatrix(mCurRow, mCurCol) = mCurColOldValue
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub AddNewRecord()
   Dim mCurRow As Integer
On Error GoTo Errorhandle

   mCurRow = Flex(FlexApivd).Row

   If Trim(Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).Col)) <> "" Then
      Set oApivd = New Apivd
      Set oApivd.Apivdh = oApivdh
      oApivd.Apivd_HwBmCode = Trim(Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).Col))
      oApivd.Apivd_CwSmCode = oApivdh.Kh.Kh_CwSmCode
      Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).ColIndex("HWBMMC")) = oApivd.Apivd_HwBmMc
      Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).ColIndex("HWDWCODE")) = oApivd.Apivd_HwDwCode
      Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).ColIndex("APIVD_HWDWCONV")) = oApivd.Apivd_HwDwConv
      Flex(FlexApivd).TextMatrix(mCurRow, Flex(FlexApivd).ColIndex("CWSMCODE")) = oApivdh.Kh.Kh_CwSmCode
      oApivdh.Apivds.Add oApivd, 0
      Flex(FlexApivd).RowData(Flex(FlexApivd).Rows - 1) = oApivd.ApivdKey
      Flex(FlexApivd).AddItem ""
   End If

Exit Sub
Errorhandle:
   Set oApivd = Nothing
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub Form_Resize()
On Error GoTo Errorhandle
   gPublicFunction.ResizeForm Me
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Text_LostFocus(Index As Integer)
On Error GoTo Errorhandle

   Select Case Index
   Case TxtApivdhDat
         
         If Tlbaction(TlbApivd).Tag <> "" And Trim(Text(TxtApivdhDat).Text) <> "" Then
            Text(TxtApivdhDat).Text = gPublicFunction.SetDateFormat(Text(TxtApivdhDat).Text)
            oApivdh.ApivdhDat = gPublicFunction.ConvDateToString(Text(TxtApivdhDat).Text)
            Text(TxtApivdh_CwqjCode).Text = oApivdh.Apivdh_CwQjCode
         End If
         
   Case TxtApivdhDocno
   
           If Tlbaction(TlbApivd).Tag = "" Then
               If Trim(Text(Index).Text) = "" Then
                  Exit Sub
               End If
               
               If Not oApivdh Is Nothing Then
                  If oApivdh.ApivdhDocno = Text(TxtApivdhDocno).Text Then
                     Exit Sub
                  End If
               End If
   
               Set oApivdh = New Apivdh
               If oApivdh.Requery(Text(TxtApivdhDocno).Text) = 1 Then
                   SetValueToControl
               Else
                   Set oApivdh = Nothing
                   Dim vApivddocno As String
                   vApivddocno = Text(TxtApivdhDocno).Text
                   AddRecord "ADD"
                   Text(TxtApivdhDocno).Text = vApivddocno
               End If
        End If

   End Select

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Tlbaction_ButtonClick(Index As Integer, ByVal Button As MSComctlLib.Button)
    Dim Action, RecordName As String
On Error GoTo Errorhandle

   Action = (Mid(Button.Key, 1, 3))
   RecordName = Button.Key

   If Action = "SAV" Then
      Text(TxtApivdhDocno).SetFocus
   End If
   
   Select Case Action
   Case "ADD"
        AddRecord RecordName
   Case "CHG"
        ChgRecord RecordName
   Case "CAN"
        CancelRecord RecordName
   Case "SAV"
        SaveRecord RecordName
   Case "DEL", "DEF"
        DelRecord RecordName
   Case "EXI"
        Unload Me
   Case "FIN"
        ShowBmQuery
   Case Else
   
   End Select

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Dim mButton As Button
On Error GoTo Errorhandle

   Set mButton = gPublicFunction.GetToolBarButton(Me, KeyCode)
   
   If Not mButton Is Nothing Then
      Tlbaction_ButtonClick TlbApivd, mButton
   End If
  
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub ShowBmQuery()
   Dim mCodeType As String
   Dim mQueryValue As String
On Error GoTo Errorhandle

   If Tlbaction(TlbApivd).Tag = "" Then
      Exit Sub
   End If
   
   If Me.ActiveControl Is Nothing Then
      Exit Sub
   End If
   
   If Me.ActiveControl Is Flex(FlexApivd) Then
      Select Case UCase(Flex(FlexApivd).ColKey(Flex(FlexApivd).Col))
      Case "HWBMCODE", "HWDWCODE", "CWSMCODE"
            mCodeType = UCase(Flex(FlexApivd).ColKey(Flex(FlexApivd).Col))
      End Select
   
      If mCodeType <> "" Then
         mQueryValue = gPublicFunction.GetBmQueryValue(Me, mCodeType)
         If mQueryValue <> "" Then
            Flex(FlexApivd).TextMatrix(Flex(FlexApivd).Row, Flex(FlexApivd).Col) = mQueryValue
            Flex(FlexApivd).EditCell
            SetControlToFlex
         End If
      End If
   
   Else
   
      Select Case Mid(UCase(Me.ActiveControl.Tag), 4)
      Case "CWQJCODE", "GYSCODE|KHCODE", "CWBZCODE"
            mCodeType = Mid(UCase(Me.ActiveControl.Tag), 4)
      End Select
   
      If mCodeType <> "" Then
         mQueryValue = gPublicFunction.GetBmQueryValue(Me, mCodeType)
         If mQueryValue <> "" Then
            Me.ActiveControl.Text = mQueryValue
         End If
      End If
   
   End If
   
   
  
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub
上一页 1 2 34
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -