frmhwdbd.frm

制造业产供销与往来系统源码,包括进销存及全部控件！

            Caption         =   "前移"
            Key             =   "PRE_SYSTABLE"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "后移"
            Key             =   "NEX_SYSTABLE"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "最后"
            Key             =   "LAS_SYSTABLE"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查找"
            Key             =   "FIN_SYSTABLE"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "PRN_SYSTABLE"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "HLP_SYSTABLE"
            ImageIndex      =   10
         EndProperty
         BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "EXI_SYSTABLE"
            ImageIndex      =   11
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin MSComctlLib.ImageList Img 
      Index           =   0
      Left            =   0
      Top             =   300
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   21
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":0542
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":0A84
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":0FC6
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":10D8
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":162A
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":1B7C
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":20CE
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2620
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2732
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2844
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2956
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2A68
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2B7A
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2C8C
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2D9E
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":2EB0
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":31CA
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":32DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":33F0
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmHwdbd.frx":3504
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu mFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu muFile 
         Caption         =   ""
         Index           =   0
      End
   End
   Begin VB.Menu mEdit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu muEdit 
         Caption         =   ""
         Index           =   0
      End
   End
   Begin VB.Menu mView 
      Caption         =   "查看(&V)"
      Begin VB.Menu muView 
         Caption         =   ""
         Index           =   0
      End
   End
   Begin VB.Menu mHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu muHelp 
         Caption         =   ""
         Index           =   0
      End
   End
End
Attribute VB_Name = "frmHwdbd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Const TlbHwDbd = 0
Const ImgHwDbd = 0
Const SbarHwDbd = 0

Const FrmHwDbdh = 0

Const FlexHwDbdh = 1
Const FlexHwDbd = 0

Const TxtHwDbdhDocno = 0
Const TxtHwDbdhDat = 6
Const TxtHwDbdh_CwqjCode = 5

Const CBxHwDbdh_HwDbRcCode = 0

Const TxtTotalQty = 1
Const TxtTotalAmt = 2

Dim mCurColOldValue As String

Dim oHwDbdhs As Hwdbdhs
Dim oHwDbdh As Hwdbdh
Dim oHwDbd As Hwdbd

Public Sub LetDocno(vDocno As String)
On Error GoTo Errorhandle

   Text(TxtHwDbdhDocno).Text = vDocno
   Text_LostFocus TxtHwDbdhDocno

Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

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

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

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Flex_AfterEdit(Index As Integer, ByVal Row As Long, ByVal Col As Long)
On Error GoTo Errorhandle

   SetControlToFlex

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Flex_BeforeEdit(Index As Integer, ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
On Error GoTo Errorhandle
   
   If Tlbaction(TlbHwDbd).Tag = "" Then
      Cancel = True
   End If
   
   If oHwDbdh Is Nothing Then
      Cancel = True
   End If

   mCurColOldValue = Trim(Flex(FlexHwDbd).TextMatrix(Flex(FlexHwDbd).Row, Flex(FlexHwDbd).Col))

   Select Case Flex(FlexHwDbd).ColKey(Col)
   Case "HWBMCODE"
         
   Case "HWDBD_FROMHWCKMC|HWCKMC", "HWDBD_TOHWCKMC|HWCKMC", "HWDBD_HWDWCONV", "HWDBDQTY", "HWDBDPRICE", "HWDBDAMT", "HWDBDBZ"
         If oHwDbd Is Nothing Then
            Cancel = True
         End If
         
   Case "HWDWCODE"
         If oHwDbd Is Nothing Then
            Cancel = True
         End If
         
   Case Else
         Cancel = True
   End Select

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

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

gPublicFunction.FlexKeyDown Flex(Index), KeyCode

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Flex_KeyDownEdit(Index As Integer, ByVal Row As Long, ByVal Col As Long, KeyCode As Integer, ByVal Shift As Integer)
On Error GoTo Errorhandle

   gPublicFunction.FlexKeyDown Flex(Index), KeyCode

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Flex_KeyPressEdit(Index As Integer, ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
On Error GoTo Errorhandle

   gPublicFunction.FlexInputCheck Me, Flex(Index), KeyAscii

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Form_Activate()
On Error GoTo Errorhandle
  
  Text(TxtHwDbdhDocno).SetFocus
  
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Form_Load()
On Error GoTo Errorhandle
  
   Flex(FlexHwDbd).Editable = flexEDKbdMouse
   
   Flex(FlexHwDbd).ColKey(1) = "HWBMCODE"
   Flex(FlexHwDbd).ColKey(2) = "HWBMMC"
   Flex(FlexHwDbd).ColKey(3) = "HWDWCODE"
   Flex(FlexHwDbd).ColKey(4) = "HWDBD_HWDWCONV"
   Flex(FlexHwDbd).ColKey(5) = "HWDBD_FROMHWCKMC|HWCKMC"
   Flex(FlexHwDbd).ColKey(6) = "HWDBD_TOHWCKMC|HWCKMC"
   Flex(FlexHwDbd).ColKey(7) = "HWDBDQTY"
   Flex(FlexHwDbd).ColKey(8) = "HWDBDPRICE"
   Flex(FlexHwDbd).ColKey(9) = "HWDBDAMT"
   Flex(FlexHwDbd).ColKey(10) = "HWDBDBZ"
      
   gPublicFunction.LoadFormSet Me, Tlbaction(TlbHwDbd), Img(ImgHwDbd), SBar(SbarHwDbd)
   gPublicCommon.gForms(UCase(Me.Name)).ControlBegEnds.Add "HwDbd", "TXTHwDbdHDOCNO", "CBXHWDBRCCODE"
   
   gPublicCommon.gForms(UCase(Me.Name)).ControlStatus.Add "", Flex(FlexHwDbd), Text(TxtHwDbdhDocno)
   gPublicCommon.gForms(UCase(Me.Name)).ControlStatus.Add "ADD", Text(TxtTotalQty), Text(TxtTotalAmt)
   gPublicCommon.gForms(UCase(Me.Name)).ControlStatus.Add "CHG", Text(TxtTotalQty), Text(TxtTotalAmt)
   
   gPublicCommon.PublicFunction.EnableControl Me, ""
   
   gPublicFunction.FillComboWithSql Me, Combo(CBxHwDbdh_HwDbRcCode), "SELECT HwDbRcCODE,HwDbRcNO FROM HwDbRcREC ORDER BY HwDbRcCODE", "HwDbRCNO", 0
  
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub LoadDataIntoGrid()
   Dim ItemStr As String
   Dim mHwDbdh As Hwdbdh
   Dim mHwDbd As Hwdbd
On Error GoTo Errorhandle
   
   Flex(FlexHwDbd).Rows = 1
   Flex(FlexHwDbd).AddItem ""
   
   oHwDbdh.Hwdbds.FillbyDb oHwDbdh
   
   For Each mHwDbd In oHwDbdh.Hwdbds
      ItemStr = vbTab & mHwDbd.Hwdbd_HwBmCode & vbTab & mHwDbd.Hwdbd_HwBmMc
      ItemStr = ItemStr & vbTab & mHwDbd.Hwdbd_HwDwCode & vbTab & mHwDbd.Hwdbd_HwDwConv & vbTab & mHwDbd.Hwdbd_FromHwCkMc & vbTab & mHwDbd.Hwdbd_ToHwCkMc
      ItemStr = ItemStr & vbTab & mHwDbd.HwdbdQty & vbTab & mHwDbd.HwdbdPrice & vbTab & mHwDbd.HwdbdAmt & vbTab & mHwDbd.HwdbdBz
      Flex(FlexHwDbd).AddItem ItemStr, Flex(FlexHwDbd).Rows - 1
      Flex(FlexHwDbd).RowData(Flex(FlexHwDbd).Rows - 2) = mHwDbd.HwdbdKey
   Next
   If Flex(FlexHwDbd).Rows > 2 Then
      Flex(FlexHwDbd).Row = 1
      Set oHwDbd = oHwDbdh.Hwdbds(CStr(Flex(FlexHwDbd).RowData(1)))
   Else
      Set oHwDbd = Nothing
   End If
   
   gPublicFunction.SumFlexQtyAmt Flex(FlexHwDbd), "HWDBDQTY,HWDBDAMT", Text(TxtTotalQty), Text(TxtTotalAmt)


Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub AddRecord(RecordName As String)
On Error GoTo Errorhandle

   Set oHwDbdh = New Hwdbdh
   Set oHwDbd = Nothing
   Clearcontrol
   Text(TxtHwDbdhDocno).SetFocus
   
   If Text(TxtHwDbdhDat).Text = "" Then
      Text(TxtHwDbdhDat).Text = gPublicCommon.PublicSysDatas("SYSTEMDATE").SysDataValue
   End If
   
   oHwDbdh.HwdbdhDat = Trim(Text(TxtHwDbdhDat).Text)
   Text(TxtHwDbdh_CwqjCode).Text = oHwDbdh.Hwdbdh_CwQjCode
   
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbHwDbd), RecordName
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub ChgRecord(RecordName As String)
On Error GoTo Errorhandle
    
   If oHwDbdh Is Nothing Then
      Exit Sub
   End If

   Text(TxtHwDbdhDocno).SetFocus
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbHwDbd), RecordName
    
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub CancelRecord(RecordName As String)
On Error GoTo Errorhandle

   If oHwDbdh.HwdbdhId = -1 Then
      Clearcontrol
      Set oHwDbd = Nothing
      Set oHwDbdh = Nothing
   Else
      oHwDbdh.Requery oHwDbdh.HwdbdhDocno
      SetValueToControl
   End If
   
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbHwDbd), RecordName
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub