English
i
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：8k
源码类别：
企业管理
开发平台：
Visual Basic
- 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
