i

VB开发的ERP系统

VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
Begin VB.Form KF_FrmDigest 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "摘要"
   ClientHeight    =   3225
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3285
   Icon            =   "摘要项目.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3225
   ScaleWidth      =   3285
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   2160
      TabIndex        =   2
      Top             =   2880
      Width           =   1005
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   1080
      TabIndex        =   1
      Top             =   2880
      Width           =   1005
   End
   Begin VSFlex8Ctl.VSFlexGrid vsDigest 
      Height          =   2655
      Left            =   90
      TabIndex        =   0
      Top             =   90
      Width           =   3135
      _ExtentX        =   5530
      _ExtentY        =   4683
      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       =   -2147483643
      ForeColor       =   -2147483640
      BackColorFixed  =   -2147483633
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   -2147483636
      BackColorAlternate=   -2147483643
      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            =   2
      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
      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        =   -1  'True
      ShowComboButton =   -1  'True
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
   End
   Begin VB.Label Label1 
      Height          =   495
      Left            =   60
      TabIndex        =   3
      Top             =   2850
      Visible         =   0   'False
      Width           =   615
   End
End
Attribute VB_Name = "KF_FrmDigest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'*    模 块 名 称 :摘要
'*    功 能 描 述 :
'*    程序员姓名  :张万成
'*    最后修改人  :张万成
'*    最后修改时间:2001/12/12
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'******************************************************************

'**************************************************************************
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 Command1_Click()
Select Case Trim(Label1.Caption)
 Case "1"  '库存台帐
   KF_FrmStockAcc.Bln = False
  With KF_FrmStockAcc.CxbbGrid
    For i = vsDigest.FixedRows To vsDigest.Rows - 1
        If Val(vsDigest.TextMatrix(i, Sydz("002", GridStr(), szzls))) = -1 Then
            .TextMatrix(0, i + 1) = vsDigest.TextMatrix(i, 0)
        Else
            .TextMatrix(0, i + 1) = ""
        End If
    Next i
  End With
  
 Case "2"   '批次台帐
  KF_FrmBatchAcc.Bln = False
  With KF_FrmBatchAcc.CxbbGrid
    For i = vsDigest.FixedRows To vsDigest.Rows - 1
        If Val(vsDigest.TextMatrix(i, Sydz("002", GridStr(), szzls))) = -1 Then
            .TextMatrix(0, i + 1) = vsDigest.TextMatrix(i, 0)
        Else
            .TextMatrix(0, i + 1) = ""
        End If
    Next i
  End With
  
 Case "3"   '材料台帐
    KF_FrmMateAcc.Bln = False
  With KF_FrmMateAcc.CxbbGrid
    For i = vsDigest.FixedRows To vsDigest.Rows - 1
        If Val(vsDigest.TextMatrix(i, Sydz("002", GridStr(), szzls))) = -1 Then
            .TextMatrix(0, i + 1) = vsDigest.TextMatrix(i, 0)
        Else
            .TextMatrix(0, i + 1) = ""
        End If
    Next i
  End With
End Select
 Me.Hide
End Sub

Private Sub Command2_Click()
Select Case Trim(Label1.Caption)
    Case "1"
        KF_FrmStockAcc.Bln = True
    Case "2"
        KF_FrmBatchAcc.Bln = True
    Case "3"
        KF_FrmMateAcc.Bln = True
End Select
  Me.Hide
End Sub

Private Sub Form_Load()                                                   '窗体装入
 
 '调 入 网 格
  GridCode = "KF_Digest"
  Call BzWgcsh(vsDigest, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  
  Qslz = GridInf(1)
  Sjhgd = GridInf(2)
  Sfxshjwg = GridInf(7)
  szzls = vsDigest.Cols - 1

  Call Fill_Digest
End Sub
Private Sub Fill_Digest()           ' 填充摘要字段
 With vsDigest
  .Rows = 8
  .TextMatrix(.FixedRows, Sydz("001", GridStr(), szzls)) = "收发类别"
  .TextMatrix(.FixedRows, 0) = "inoutclassname"
  .TextMatrix(.FixedRows + 1, Sydz("001", GridStr(), szzls)) = "业务类型"
  .TextMatrix(.FixedRows + 1, 0) = "opertype"
  .TextMatrix(.FixedRows + 2, Sydz("001", GridStr(), szzls)) = "部门"
  .TextMatrix(.FixedRows + 2, 0) = "deptname"
  .TextMatrix(.FixedRows + 3, Sydz("001", GridStr(), szzls)) = "业务员"
  .TextMatrix(.FixedRows + 3, 0) = "personname"
  .TextMatrix(.FixedRows + 4, Sydz("001", GridStr(), szzls)) = "制单人"
  .TextMatrix(.FixedRows + 4, 0) = "maker"
  .TextMatrix(.FixedRows + 5, Sydz("001", GridStr(), szzls)) = "审核人"
  .TextMatrix(.FixedRows + 5, 0) = "kfchecker"
  .TextMatrix(.FixedRows + 6, Sydz("001", GridStr(), szzls)) = "业务单号"
  .TextMatrix(.FixedRows + 6, 0) = "operbillnum"
 End With
End Sub