frmyfhzquery.frm

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

VERSION 5.00
Begin VB.Form frmYfHzQuery 
   Caption         =   "应付汇总表"
   ClientHeight    =   3465
   ClientLeft      =   4020
   ClientTop       =   3015
   ClientWidth     =   7065
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3465
   ScaleWidth      =   7065
   Begin VB.Frame Frame 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3255
      Index           =   0
      Left            =   30
      TabIndex        =   5
      Top             =   30
      Width           =   6915
      Begin VB.ComboBox Combo 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Index           =   0
         Left            =   1830
         TabIndex        =   2
         Tag             =   "CBXKHCODE"
         Top             =   1740
         Width           =   3075
      End
      Begin VB.TextBox Text 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Index           =   5
         Left            =   1830
         TabIndex        =   0
         Tag             =   "TXTCWQJCODE"
         Top             =   585
         Width           =   2145
      End
      Begin VB.CommandButton Command 
         Caption         =   "查询(&R)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   0
         Left            =   5100
         TabIndex        =   3
         Top             =   600
         Width           =   1365
      End
      Begin VB.CommandButton Command 
         Caption         =   "退出(&X)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   1
         Left            =   5100
         TabIndex        =   4
         Top             =   1080
         Width           =   1365
      End
      Begin VB.TextBox Text 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Index           =   1
         Left            =   1830
         TabIndex        =   1
         Tag             =   "TXTENDCWQJCODE|CWQJCODE"
         Top             =   1170
         Width           =   2145
      End
      Begin VB.Label Label 
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Caption         =   "财务月份"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   8
         Left            =   510
         TabIndex        =   7
         Top             =   600
         Width           =   1215
      End
      Begin VB.Label Label 
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Caption         =   "供应商"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Index           =   2
         Left            =   510
         TabIndex        =   6
         Top             =   1740
         Width           =   1215
      End
   End
End
Attribute VB_Name = "frmYfHzQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Const TxtBegCwQjCode = 5
Const TxtEndCwQjCode = 1

Const CbxKhCode = 0

Const CmdOk = 0
Const CmdExit = 1

Dim m_RfdCode As String
Dim oRfd As Rfd

Public Property Let RfdCode(vRfdCode As String)
   m_RfdCode = vRfdCode
End Property

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 Command_Click(Index As Integer)
On Error GoTo Errorhandle

   Select Case Index
   Case CmdOk
         ShowRfdData
   Case CmdExit
         Unload Me
   End Select

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Form_Load()
On Error GoTo Errorhandle
  
   gPublicFunction.LoadFormSet Me
   gPublicCommon.gForms(UCase(Me.Name)).ControlBegEnds.Add "YSHZQUERY", "TXTCWQJCODE", "CBXKHCODE"

   gPublicCommon.gForms(UCase(Me.Name)).ControlStatus.Add "", Frame(0)
   gPublicCommon.PublicFunction.EnableControl Me, ""
   
   gPublicCommon.PublicFunction.FillComboWithSql Me, Combo(CbxKhCode), "SELECT KHCODE,KHNO FROM KHREC WHERE KHTYPE=2 ORDER BY KHCODE", "KHNO"
   
   Text(TxtBegCwQjCode).Text = gPublicCommon.PublicSysDatas("SYSCPCW_CCWQJCODE").SysDataValue
   Text(TxtEndCwQjCode).Text = gPublicCommon.PublicSysDatas("SYSCPCW_CCWQJCODE").SysDataValue

   Set oRfd = New Rfd
   oRfd.Requery UCase("PRINT_FRMYSHZQUERY")
   
Exit Sub
Errorhandle:
    MsgBox Err.Description
End Sub

Private Function GetSqlStr() As String
   Dim mWhereStr As String
On Error GoTo Errorhandle

   If Trim(Text(TxtBegCwQjCode).Text) <> "" Then
      mWhereStr = mWhereStr & " AND CWQJCODE>='" & Trim(Text(TxtBegCwQjCode).Text) & "'"
   End If

   If Trim(Text(TxtEndCwQjCode).Text) <> "" Then
      mWhereStr = mWhereStr & " AND CWQJCODE<='" & Trim(Text(TxtEndCwQjCode).Text) & "'"
   End If
   
   If Trim(Combo(CbxKhCode).Text) <> "" Then
      mWhereStr = mWhereStr & " AND KHCODE= '" & Trim(Combo(CbxKhCode).Text) & "'"
   End If
   
   If mWhereStr <> "" Then
      mWhereStr = Mid(mWhereStr, 5)
   End If
   
   GetSqlStr = "SELECT YSYFJCM_CWQJCODE=COALESCE((SELECT CWQJCODE FROM CWQJREC WHERE CWQJNO=YSYFJCM_CWQJNO),''),YSYFJCM_KHCODE=COALESCE((SELECT KHCODE FROM KHREC WHERE KHNO=YSYFJCM_KHNO),''),YSYFJCM_KHMC=COALESCE((SELECT KHMC FROM KHREC WHERE KHNO=YSYFJCM_KHNO),''),YSYFJCM_CWBZCODE=COALESCE((SELECT CWBZCODE FROM CWBZREC WHERE CWBZNO=YSYFJCM_CWBZNO),''),YSYFJCMAPLAMT,YSYFJCMAPIAMT,YSYFJCMAPFAMT,YSYFJCMAPAMT FROM YSYFJCMREC,CWQJREC,KHREC "
   GetSqlStr = GetSqlStr & " WHERE CWQJNO=YSYFJCM_CWQJNO AND KHNO=YSYFJCM_KHNO AND KHTYPE=2"
   
   If mWhereStr <> "" Then
      GetSqlStr = GetSqlStr & " AND " & mWhereStr
   End If
   
   GetSqlStr = GetSqlStr & " ORDER BY CWQJCODE,KHCODE"

Exit Function
Errorhandle:

   Err.Raise vbObjectError + 1, , Err.Description
End Function

Private Sub ShowRfdData()
   Dim mfrmYfHzData As frmYfHzData
   Dim mFound As Boolean
   Dim mForm As Form
On Error GoTo Errorhandle

  
   mFound = False
   
   For Each mForm In Forms
      If UCase(mForm.Name) = "frmYfHzData" Then
         mFound = True
         Set mfrmYfHzData = mForm
         Exit For
      End If
   Next
   
   If mFound = False Then
      Set mfrmYfHzData = New frmYfHzData
   End If


   Set mfrmYfHzData.Rfd = oRfd
   mfrmYfHzData.SqlStr = GetSqlStr
   
   mfrmYfHzData.FormatFlexTitle
   mfrmYfHzData.LoadDataIntoGrid
   
   mfrmYfHzData.Show
   
    
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

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

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

   Set oRfd = Nothing
   gPublicFunction.SaveFormSet Me
    
Exit Sub
Errorhandle:
   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