企业管理

开发平台：
Visual Basic

-：源码内容
							VERSION 5.00
Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form KF_FrmBatchMate 
   Caption         =   "批次物料汇总表"
   ClientHeight    =   8595
   ClientLeft      =   315
   ClientTop       =   390
   ClientWidth     =   11820
   HelpContextID   =   1219005
   Icon            =   "统计分析_批次物料汇总.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8595
   ScaleWidth      =   11820
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   5760
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   18
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":1042
            Key             =   "sz"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":13DC
            Key             =   "dy"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":1776
            Key             =   "yl"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":1B10
            Key             =   "cx"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":1EAA
            Key             =   "dj"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":2244
            Key             =   "sx"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":25DE
            Key             =   "first"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":2978
            Key             =   "prev"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":2D12
            Key             =   "next"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":30AC
            Key             =   "last"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":3446
            Key             =   "bz"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":37E0
            Key             =   "tc"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":3B7A
            Key             =   "bcgs"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":3F14
            Key             =   "mrlk"
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":42AE
            Key             =   "xsxm"
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":4648
            Key             =   "xz"
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":49E2
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "统计分析_批次物料汇总.frx":4D7C
            Key             =   "sc"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar GsToolbar 
      Height          =   525
      Left            =   9195
      TabIndex        =   4
      Top             =   30
      Width           =   2595
      _ExtentX        =   4577
      _ExtentY        =   926
      ButtonWidth     =   1455
      ButtonHeight    =   926
      AllowCustomize  =   0   'False
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   3
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存格式"
            Key             =   "bcgs"
            ImageKey        =   "bcgs"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "默认列宽"
            Key             =   "hfmrgs"
            ImageKey        =   "mrlk"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "显示项目"
            Key             =   "szxsxm"
            ImageKey        =   "xsxm"
         EndProperty
      EndProperty
   End
   Begin VB.PictureBox Pic_Title 
      BackColor       =   &H00FFFFFF&
      Height          =   1065
      Left            =   0
      Picture         =   "统计分析_批次物料汇总.frx":5116
      ScaleHeight     =   1005
      ScaleWidth      =   11715
      TabIndex        =   2
      Top             =   570
      Width           =   11775
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "日期范围:"
         Height          =   195
         Left            =   825
         TabIndex        =   5
         Top             =   705
         Width           =   765
      End
      Begin VB.Label tsLabel 
         AutoSize        =   -1  'True
         BackColor       =   &H80000018&
         BackStyle       =   0  'Transparent
         Caption         =   "批次物料汇总表"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   285
         Index           =   4
         Left            =   495
         TabIndex        =   3
         Top             =   150
         Width           =   2100
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   7620
      Top             =   90
   End
   Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
      Height          =   6975
      Left            =   0
      TabIndex        =   0
      Top             =   1680
      Width           =   11775
      _cx             =   5080
      _cy             =   5080
      Appearance      =   1
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   16777215
      ForeColor       =   -2147483640
      BackColorFixed  =   13826538
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   -2147483636
      BackColorAlternate=   16777215
      GridColor       =   -2147483633
      GridColorFixed  =   -2147483632
      TreeColor       =   -2147483632
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   -1  'True
      AllowBigSelection=   -1  'True
      AllowUserResizing=   0
      SelectionMode   =   0
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   50
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   1
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   ""
      ScrollTrack     =   0   'False
      ScrollBars      =   3
      ScrollTips      =   0   'False
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      AutoSearchDelay =   2
      MultiTotals     =   -1  'True
      SubtotalPosition=   1
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   0
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0
      ShowComboButton =   1
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
      DataMember      =   ""
      ComboSearch     =   3
      AutoSizeMouse   =   -1  'True
      FrozenRows      =   0
      FrozenCols      =   0
      AllowUserFreezing=   0
      BackColorFrozen =   0
      ForeColorFrozen =   0
      WallPaperAlignment=   9
      AccessibleName  =   ""
      AccessibleDescription=   ""
      AccessibleValue =   ""
      AccessibleRole  =   24
   End
   Begin MSComctlLib.Toolbar SzToolbar 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11820
      _ExtentX        =   20849
      _ExtentY        =   979
      ButtonWidth     =   820
      ButtonHeight    =   926
      AllowCustomize  =   0   'False
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "ymsz"
            ImageKey        =   "sz"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "dy"
            ImageKey        =   "dy"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "预览"
            Key             =   "yl"
            ImageKey        =   "yl"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            Key             =   "cx"
            ImageKey        =   "cx"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "刷新"
            Key             =   "sx"
            ImageKey        =   "sx"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "bz"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "fh"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
End
Attribute VB_Name = "KF_FrmBatchMate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'*    模 块 名 称 :批次物料汇总表
'*    功 能 描 述 :
'*    程序员姓名  : 赵宇光
'*    最后修改人  : 赵宇光
'*    最后修改时间:2001/12/17
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'**************************************************************************
Dim ReportTitle As String                '报表主标题
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
Dim GridCode As String                   '显示网格网格代码
Dim GridInf() As Variant                 '整个网格设置信息
Dim Tsxx As String                       '系统提示信息
Dim Qslz As Long                         '网格隐藏(非操作显示)列数
Dim Sjhgd As Double                      '网格数据行高度
Dim Sfxshjwg As Boolean                  '是否显示合计网格
Dim GridBoolean() As Boolean             '网格列信息(布尔型)
Dim GridStr()  As String                 '网格列信息(字符型)
Dim GridInt() As Integer                 '网格列信息(整型)
Dim Szzls As Integer                     '数组总列数(网格列数-1)
Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
    On Error Resume Next
    With CxbbGrid
      .Width = Me.Width - 160
      .Height = Me.Height - .Top - 400
    End With
    With Pic_Title
      .Width = Me.Width - 160
    End With
    
    GsToolbar.Left = Me.Width - GsToolbar.Width - 160
End Sub
Private Sub Form_Load()                                                   '窗体装入
    
     '调入打印页面设置窗体
     
     XtReportCode = "KF_batchmate"
     Load Dyymctbl
     ReportTitle = "批次物料汇总表"
     
    '调整标题栏及网格、格式工具条位置
     Pic_Title.Left = 40
     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
     CxbbGrid.Left = Pic_Title.Left
     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
    
    '调 入 网 格
     GridCode = "KF_batchmate"
     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
     
     Qslz = GridInf(1)
     Sjhgd = GridInf(2)
     Sfxshjwg = GridInf(7)
     Szzls = CxbbGrid.Cols - 1
End Sub
Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
   '卸载条件窗体
    KF_FrmBatchMateQuery.UnloadCheck.Value = 1
    Unload KF_FrmBatchMateQuery
   '卸载打印页面设置窗体
   Unload Dyymctbl
End Sub
Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
    Select Case Button.Key
        Case "bcgs"                                          '保存表格格式
            Call Bcwggs(CxbbGrid, GridCode, GridStr())
        Case "hfmrgs"                                        '恢复默认格式
            Call Hfmrgs(CxbbGrid, GridCode, GridStr())
        Case "szxsxm"                                        '设置显示项目
            Call Szxsxm(CxbbGrid, GridCode)
    End Select
End Sub
Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "ymsz"                                          '页面设置
            Dyymctbl.Show 1
        Case "yl"                                            '预 览
           Call bbyl(True)
        Case "dy"                                            '打 印
          Call bbyl(False)
        Case "cx"                                            '查 询
          KF_FrmBatchMateQuery.Show 1
        Case "sx"                                            '刷 新
          Call Timer1_Timer
        Case "bz"                                            '帮 助
          Call F1bz
        Case "fh"                                            '退 出
         Unload Me
     End Select
End Sub
Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
   Timer1.Enabled = False
   Xt_Wait.Show
   Xt_Wait.Refresh
   
   '加快显示速度
   CxbbGrid.Redraw = False
   '生成查询结果
   Call Sub_Query
   
   CxbbGrid.Redraw = True
    
   Xt_Wait.Hide
End Sub
Public Sub Adjust()
    Dim R As New Recordset
    
    Set R = Cw_DataEnvi.DataConnect.Execute("select colindex,coltitle1 from wm_grid where grid_code='kf_stockin_list' order by colid")
    
    If Not R.EOF Then
        R.MoveNext
        For jsq = 0 To CxbbGrid.Cols - 1
            Do While Not R.EOF
                If Trim(R.Fields("coltitle1")) = Trim(CxbbGrid.TextMatrix(0, jsq)) Then
                    GridStr(jsq, 1) = R.Fields("colindex")
                    Exit Do
                End If
                R.MoveNext
            Loop
            R.MoveFirst
            R.MoveNext
        Next jsq
    End If
    R.Close
    Set R = Nothing
End Sub
Private Sub Sub_Query()                                    '生成查询结果
    Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
    Dim Str_QueryCondi As String                '用户录入查询条件
    Dim Sqlstr As String                        '查询字符串
    Dim Coljsq As Long                          '网格列计数器
    Dim jsqte As Integer                        '临时动态计数器
    Dim Int_VouchID%                            '记录上一张单据标识
    Dim S_COUNT As Single, S_MONEY As Single                    '每张单据借贷方合计
    Dim Xtyear As Integer, Period As Integer
    Dim Str_WH As String, Str_Sort As String, Str_Mate As String
    Dim Str_Wl As String
    Dim Rec_Mate As New Recordset
    Dim Str_Batch As String
    '以下为用户自定义部分[
    Dim Rec_WH As New Recordset
    Dim Rec_Unit As New Recordset
    Dim Rec_QC As New Recordset
    With KF_FrmBatchMateQuery
     
    '显示查询会计期间
        Str_QueryCondi = "SELECT SUM(factreceiptquan) AS Expr1, SUM(factissuequan) AS Expr2, mnumber, WhCode, batchnum  From KF_V_MBatch "
        Sqlstr = "select distinct WhCode,batchnum,mnumber from KF_V_MBatch where batchnum<>'' "
        Str_Wl = "  union select  distinct WhCode,batchnum,mnumber from  kf_V_ledger  where  batchnum<>''  "
     
        For jsqte = 1 To 5
            Select Case jsqte
              
               Case 1  '会计期间
                If Trim(.Combo_Kjqj2.Text) <> "" Then
                   Xtyear = Val(Mid(Trim(.Combo_Kjqj2.Text), 1, 4))
                   Period = Val(Mid(Trim(.Combo_Kjqj2.Text), 6))
                   Sqlstr = Sqlstr & " and kjyear=" & Xtyear & " and Period between " & Val(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
                   Str_Wl = Str_Wl & " and kjyear=" & Xtyear & " and Period between " & Val(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
                   Str_QueryCondi = Str_QueryCondi & " where kjyear=" & Xtyear & " and Period between " & Val(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
                End If
              
              Case 2   '仓库
                 If Trim(.LrText(0).Text) <> "" Then
                   Str_WH = " and WhCode='" & Trim(.LrText(0).Tag) & "'"
                   Sqlstr = Sqlstr & " and WhCode='" & Trim(.LrText(0).Tag) & "'"
                   Str_Wl = Str_Wl & " and WhCode='" & Trim(.LrText(0).Tag) & "'"
                 Else
                   Str_WH = ""
                 End If
             
              Case 3   '物料分类
                If Trim(.LrText(1).Text) <> "" Then
                    Str_Wl = Str_Wl & " and invsortcode LIKE '" & Trim(.LrText(1).Tag) & "%'"
                    Sqlstr = Sqlstr & " and invsortcode LIKE '" & Trim(.LrText(1).Tag) & "%'"
                    Str_Sort = " and invsortcode LIKE '" & Trim(.LrText(1).Tag) & "%'"
                Else
                    Str_Sort = ""
                End If
                
              Case 4   '材料
                If Trim(.LrText(2).Text) <> "" Then
                  Str_Mate = " and mnumber='" & Trim(.LrText(2).Text) & "'"
                  Sqlstr = Sqlstr & " and mnumber='" & Trim(.LrText(2).Text) & "'"
                  Str_Wl = Str_Wl & " and mnumber='" & Trim(.LrText(2).Text) & "'"
                Else
                  Str_Mate = ""
                End If
                
             Case 5   '批次
                If Trim(.LrText(3).Text) <> "" Then
                  Str_Batch = " and   batchnum='" & Trim(.LrText(3).Text) & "'"
                  Sqlstr = Sqlstr & "  and batchnum='" & Trim(.LrText(3).Text) & "'"
                  Str_Wl = Str_Wl & "  and batchnum='" & Trim(.LrText(3).Text) & "'"
                Else
                  Str_Batch = ""
                End If
            End Select
        Next jsqte
    End With
 
    Dim Str_Query As String
    Label1 = "日期范围:   " & Trim(KF_FrmBatchMateQuery.Combo_Kjqj1.Text) & "----" & Trim(KF_FrmBatchMateQuery.Combo_Kjqj2.Text)
    Str_Wl = Sqlstr + Str_Wl + " order by batchnum"
    Set Rec_Mate = Cw_DataEnvi.DataConnect.Execute(Str_Wl)
    
    CxbbGrid.Rows = CxbbGrid.FixedRows
    jsqte = CxbbGrid.FixedRows
    Dim D_QC, D_In, D_Out, D_End As Double
    D_QC = 0
    D_In = 0
    D_Out = 0
    D_End = 0
    Dim temp_batch As String
    Dim S_QC, S_In, S_Out, S_End As Single
    Dim judge_flag As Boolean
    S_QC = 0
    S_In = 0
    S_Out = 0
    S_End = 0
    Do While Not Rec_Mate.EOF
        judge_flag = True
        temp_batch = Rec_Mate.Fields("batchnum")
        Str_Query = ""
        Str_Query = Str_QueryCondi & Str_WH & Str_Sort & Str_Mate & " and batchnum='" & Trim(Rec_Mate.Fields("batchnum")) & "' and WhCode='" & Trim(Rec_Mate.Fields("WhCode")) & "' and mnumber='" & Trim(Rec_Mate.Fields("mnumber")) & "'  GROUP BY mnumber, WhCode, batchnum"
        Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Str_Query)
  
        Dim str_query1 As String
        str_query1 = "select  SUM(startquan) AS Qc, mnumber, batchnum, WhCode From kf_V_ledger where  1=1" & Str_WH & Str_Sort & Str_Mate & " and  batchnum='" & Trim(Rec_Mate.Fields("batchnum")) & "' and period =" & Val(Mid(Trim(KF_FrmBatchMateQuery.Combo_Kjqj1.Text), 6)) & " GROUP BY mnumber, batchnum, WhCode"
        If Rec_Query.EOF Then
            Dim rec_start As New ADODB.Recordset
            Set rec_start = Cw_DataEnvi.DataConnect.Execute(str_query1)
            With rec_start
                If rec_start.EOF Then
                    judge_flag = False
                Else
                    Do While Not .EOF
                        CxbbGrid.AddItem ""
                        CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("batchnum"))
                        CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("mnumber"))
                        
                        Set Rec_WH = Cw_DataEnvi.DataConnect.Execute("SELECT whname from gy_warehouse where WhCode='" & Trim(.Fields("WhCode")) & "'")
                        CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(Rec_WH.Fields("whname"))
                
                        
                        Set Rec_Unit = Cw_DataEnvi.DataConnect.Execute("select mname,model ,PrimaryUnitName from gy_material where mnumber='" & Trim(.Fields("mnumber")) & "'")
                        CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(Rec_Unit.Fields("mname"))
                        CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(Rec_Unit.Fields("model"))
                        CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(Rec_Unit.Fields("PrimaryUnitName"))
                        Set Rec_QC = Cw_DataEnvi.DataConnect.Execute("SELECT SUM(startquan) AS Qc, mnumber, batchnum, WhCode From kf_V_ledger where mnumber='" & Trim(.Fields("mnumber")) & "' and batchnum='" & Trim(.Fields("batchnum")) & "' and WhCode='" & Trim(.Fields("WhCode")) & "'and kjyear=" & Xtyear & " and period =" & Val(Mid(Trim(KF_FrmBatchMateQuery.Combo_Kjqj1.Text), 6)) & " GROUP BY mnumber, batchnum, WhCode")
                        If Not Rec_QC.EOF Then
                            If Val(Rec_QC.Fields("qc")) Then
                                CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Val(Rec_QC.Fields("qc"))
                            Else
                                CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = ""
                            End If
                        Else
                            CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = ""
                        End If
                        S_QC = S_QC + Val(CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)))
                        
                        If Val(Val(CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls))) + Val(CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)))) Then
                            CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls))) + Val(CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)))
                        Else
                            CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = ""
                        End If
                        
                        S_End = S_End + Val(CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)))
                        CxbbGrid.RowHeight(jsqte) = Sjhgd
                        jsqte = jsqte + 1
                        .MoveNext
                    Loop
                End If
            End With
        Else
            With Rec_Query
                Do While Not .EOF
                    CxbbGrid.AddItem ""
                    CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("batchnum"))
                    CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("mnumber"))
                    
                    Set Rec_WH = Cw_DataEnvi.DataConnect.Execute("SELECT whname from gy_warehouse where WhCode='" & Trim(.Fields("WhCode")) & "'")
                    CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(Rec_WH.Fields("whname"))
                    If Val(.Fields("expr1")) <> 0 Then
                        CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Val(.Fields("expr1"))
                    End If
                    S_In = S_In + Val(.Fields("expr1"))
                    If Val(.Fields("expr2")) <> 0 Then
                        CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Val(.Fields("expr2"))
                    End If
                    S_Out = S_Out + Val(.Fields("expr2"))
                    
                    Set Rec_Unit = Cw_DataEnvi.DataConnect.Execute("select mname,model ,PrimaryUnitName from gy_material where mnumber='" & Trim(.Fields("mnumber")) & "'")
                    CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(Rec_Unit.Fields("mname"))
                    CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(Rec_Unit.Fields("model"))
                    CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(Rec_Unit.Fields("PrimaryUnitName"))
                    Set Rec_QC = Cw_DataEnvi.DataConnect.Execute("SELECT SUM(startquan) AS Qc, mnumber, batchnum, WhCode From kf_V_ledger where mnumber='" & Trim(.Fields("mnumber")) & "' and batchnum='" & Trim(.Fields("batchnum")) & "' and WhCode='" & Trim(.Fields("WhCode")) & "'and kjyear=" & Xtyear & " and period =" & Val(Mid(Trim(KF_FrmBatchMateQuery.Combo_Kjqj1.Text), 6)) & " GROUP BY mnumber, batchnum, WhCode")
                    If Not Rec_QC.EOF Then
                        If Val(Rec_QC.Fields("qc")) Then
                            CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Val(Rec_QC.Fields("qc"))
                        Else
                            CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = ""
                        End If
                    Else
                        CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = ""
                    End If
                    S_QC = S_QC + Val(CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)))
                    
                    If Val(Val(CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls))) + Val(CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)))) Then
                        CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls))) + Val(CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)))
                    Else
                        CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = ""
                    End If
                    
                    S_End = S_End + Val(CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)))
                    CxbbGrid.RowHeight(jsqte) = Sjhgd
                    jsqte = jsqte + 1
                    .MoveNext
                Loop
            End With
        End If
        Rec_Mate.MoveNext
        
        If Rec_Mate.EOF Then
            If judge_flag Then
                CxbbGrid.AddItem ""
                CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = "小计"
                If S_QC <> 0 Then
                    CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = S_QC
                End If
                If S_In <> 0 Then
                    CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = S_In
                End If
                If S_Out <> 0 Then
                    CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = S_Out
                End If
                If S_End <> 0 Then
                    CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = S_End
                End If
                D_In = D_In + S_In
                D_Out = D_Out + S_Out
                D_QC = D_QC + S_QC
                D_End = D_End + S_End
                CxbbGrid.RowHeight(jsqte) = Sjhgd
                jsqte = jsqte + 1
            End If
        ElseIf temp_batch <> Rec_Mate.Fields("batchnum") Then
            If judge_flag Then
                CxbbGrid.AddItem ""
                CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = "小计"
                If S_QC <> 0 Then
                    CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = S_QC
                End If
                If S_In <> 0 Then
                    CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = S_In
                End If
                If S_Out <> 0 Then
                    CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = S_Out
                End If
                If S_End <> 0 Then
                    CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = S_End
                End If
                D_In = D_In + S_In
                D_Out = D_Out + S_Out
                D_QC = D_QC + S_QC
                D_End = D_End + S_End
                S_QC = 0
                S_In = 0
                S_Out = 0
                S_End = 0
                CxbbGrid.RowHeight(jsqte) = Sjhgd
                jsqte = jsqte + 1
            End If
        End If
    Loop
    CxbbGrid.MergeCells = flexMergeFree
    For jsq = Qslz To CxbbGrid.Cols - 1
        CxbbGrid.MergeCol(jsq) = False
    Next jsq
    CxbbGrid.MergeCol(Sydz("001", GridStr(), Szzls)) = True
    CxbbGrid.AddItem ""
    CxbbGrid.TextMatrix(jsqte, Qslz) = "合计"
    If D_QC <> 0 Then
        CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = D_QC
    End If
    If D_In <> 0 Then
        CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = D_In
    End If
    If D_Out <> 0 Then
        CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = D_Out
    End If
    If D_End <> 0 Then
        CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = D_End
    End If
    CxbbGrid.RowHeight(CxbbGrid.Rows - 1) = Sjhgd
 ']以上为用户自定义部分
   
End Sub
Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)
    '如果结束列小于用户定义网格开始列，则结束列=用户定义网格开始列
    '因为开始列以前的列都是隐藏列，由于要把当前开始移动列移动到隐藏列上
    '所以控件自动把隐藏列变为显示列，这样在刷新数据时，会把隐藏列上的数据
    '显示出来，并且，由于开始列以前的隐藏列在XT_Grid中，不对应逻辑值，所以在保存
    '网格格式时会出错
    If Col > Position Then
      If Position < GridInf(1) Then Position = GridInf(1)
    Else
      If Col < GridInf(1) Then Col = GridInf(1)
    End If
    Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
End Sub
Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
    Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
    Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
    Bbxbtgs = 2                                          '报 表 小 标 题 行 数
    Bbbwhgs = 0                                          '报 表 表 尾 行 数
    ReDim Bbxbt(1 To Bbxbtgs)
    ReDim bbxbtzzxs(1 To Bbxbtgs)
    If Bbbwhgs <> 0 Then
       ReDim Bbbwh(1 To Bbbwhgs)
       ReDim Bbbwhzzxs(1 To Bbbwhgs)
    End If
    Bbzbt = ReportTitle
    
    Bbxbt(2) = Space(5) + Fun_FormatOutPut(Trim(Label1), 30)
    
    Bbxbt(1) = " "
    bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
    Call Scyxsjb(CxbbGrid)                               '生成报表数据
    Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
    If Not bbylte Then
       Unload DY_Tybbyldy
    End If
End Sub

						