English
+
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：26k
源码类别：
企业管理
开发平台：
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 JC_FrmTagSetup
- BackColor = &H00C0C0C0&
- BorderStyle = 1 'Fixed Single
- Caption = "指标设置"
- ClientHeight = 6015
- ClientLeft = 675
- ClientTop = 720
- ClientWidth = 8445
- HelpContextID = 411002001
- Icon = "基础设置_指标设置.frx":0000
- KeyPreview = -1 'True
- LinkTopic = "Form4"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 6015
- ScaleWidth = 8445
- StartUpPosition = 1 '所有者中心
- Begin VB.PictureBox Pic_Title
- Height = 765
- Left = 0
- Picture = "基础设置_指标设置.frx":1042
- ScaleHeight = 705
- ScaleWidth = 8355
- TabIndex = 4
- Top = 600
- Width = 8415
- Begin VB.Label Label1
- Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- Caption = "可编辑项目"
- ForeColor = &H80000008&
- Height = 180
- Index = 0
- Left = 6975
- TabIndex = 9
- Top = 450
- Visible = 0 'False
- Width = 900
- End
- Begin VB.Label Lab_Color
- Appearance = 0 'Flat
- BackColor = &H00FFFF80&
- BorderStyle = 1 'Fixed Single
- ForeColor = &H80000008&
- Height = 195
- Index = 1
- Left = 6735
- TabIndex = 8
- Top = 420
- Visible = 0 'False
- Width = 195
- End
- Begin VB.Label tsLabel
- AutoSize = -1 'True
- BackColor = &H80000018&
- BackStyle = 0 'Transparent
- Caption = "指标设置"
- BeginProperty Font
- Name = "宋体"
- Size = 12
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00000000&
- Height = 240
- Index = 4
- Left = 615
- TabIndex = 7
- Top = 210
- Width = 1020
- End
- Begin VB.Label Lab_Color
- Appearance = 0 'Flat
- BackColor = &H00C0E0FF&
- BorderStyle = 1 'Fixed Single
- ForeColor = &H80000008&
- Height = 195
- Index = 0
- Left = 6735
- TabIndex = 6
- Top = 150
- Visible = 0 'False
- Width = 195
- End
- Begin VB.Label Label1
- Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- Caption = "不可编辑项目"
- ForeColor = &H80000008&
- Height = 180
- Index = 2
- Left = 6975
- TabIndex = 5
- Top = 180
- Visible = 0 'False
- Width = 1080
- End
- End
- Begin VSFlex8Ctl.VSFlexGrid WglrGrid
- Height = 4635
- Left = 0
- TabIndex = 1
- Top = 1380
- Width = 8415
- _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 = 12632256
- 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
- Begin MSComctlLib.ImageList ImageList1
- Left = 3840
- Top = 1680
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 29
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":35106
- Key = "setup"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":354A0
- Key = "print"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3583A
- Key = "view"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":35BD4
- Key = "edit"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":35F6E
- Key = "add"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":36308
- Key = ""
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":366A2
- Key = "save"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":36A3C
- Key = "esc"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":36DD6
- Key = "help"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":37170
- Key = "exit"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3750A
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":378A4
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":37C3E
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":37FD8
- Key = "first"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":38372
- Key = "prev"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3870C
- Key = "next"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":38AA6
- Key = "last"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":38E40
- Key = "xx"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":391DA
- Key = "define"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":39574
- Key = "exec"
- EndProperty
- BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3990E
- Key = "xz"
- EndProperty
- BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":39CA8
- Key = "del"
- EndProperty
- BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3A042
- Key = "sx"
- EndProperty
- BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3A3DC
- Key = "cx"
- EndProperty
- BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3A776
- Key = "zd"
- EndProperty
- BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3AB10
- Key = "dz"
- EndProperty
- BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3AEAA
- Key = "ph"
- EndProperty
- BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3B244
- Key = "fz"
- EndProperty
- BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "基础设置_指标设置.frx":3B5DE
- Key = "dw"
- EndProperty
- EndProperty
- End
- End
- Begin MSComctlLib.Toolbar Tlb_Action
- Align = 1 'Align Top
- Height = 555
- Left = 0
- TabIndex = 0
- Top = 0
- Width = 8445
- _ExtentX = 14896
- _ExtentY = 979
- ButtonWidth = 820
- ButtonHeight = 926
- AllowCustomize = 0 'False
- Wrappable = 0 'False
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 11
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "设置"
- Key = "setup"
- Object.ToolTipText = "打印页面设置"
- ImageKey = "setup"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- Key = "print"
- Object.ToolTipText = "打印当前单据或Ctrl+P"
- ImageKey = "print"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "预览"
- Key = "view"
- ImageKey = "view"
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Object.Visible = 0 'False
- Caption = "保存"
- Key = "save"
- ImageKey = "save"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Object.Visible = 0 'False
- Caption = "修改"
- Key = "edit"
- ImageKey = "edit"
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Object.Visible = 0 'False
- Caption = "放弃"
- Key = "esc"
- ImageKey = "esc"
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Object.Visible = 0 'False
- Style = 3
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Object.Visible = 0 'False
- Caption = "定位"
- Key = "seach"
- ImageKey = "dw"
- EndProperty
- BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "help"
- ImageKey = "help"
- EndProperty
- BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "exit"
- ImageKey = "exit"
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin MSComctlLib.Toolbar GsToolbar
- Height = 525
- Left = 6720
- TabIndex = 3
- Top = 0
- Width = 1695
- _ExtentX = 2990
- _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 = 2
- 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
- EndProperty
- End
- End
- Begin VB.Label Lab_OperStatus
- BackColor = &H000080FF&
- Caption = "1"
- Height = 345
- Left = 9240
- TabIndex = 2
- Top = 840
- Visible = 0 'False
- Width = 345
- End
- End
- Attribute VB_Name = "JC_FrmTagSetup"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '*******************************************************
- '* 模 块 名 称 :基础设置-指标设置
- '* 功 能 描 述 :各种财务指标设置
- '* 程序员姓名 :魏永生
- '* 最后修改人 :
- '* 最后修改时间:2002/1/21
- '* 备 注:
- '*******************************************************
- Dim iRow As Integer '网格行
- Dim iCol As Integer '网格列
- Dim Str_RightEdit 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)
- Dim Bln_Stop As Boolean '停止输出查询结果
- Dim ReportTitle
- Dim Cxnrrec As New ADODB.Recordset
- Private Sub Form_KeyPress(KeyAscii As Integer) '控 制 焦 点 转 移
- If DEBUG_FLAG = False Then On Error Resume Next
- Dim jdzygs As Integer
- jdzygs = 3
- Select Case KeyAscii
- Case vbKeyReturn
- If Kjjdzy(jdzygs) Then
- KeyAscii = 0
- End If
- Case 39 '屏蔽"'"
- KeyAscii = 0
- End Select
- End Sub
- Private Sub Form_Load()
- If DEBUG_FLAG = False Then On Error Resume Next
- '调入打印页面设置窗体
- XtReportCode = "cwfx_TagSetup"
- ReportTitle = "指标设置"
- Load Dyymctbl
- '调 入 网 格
- GridCode = "cwfx_TagSetup"
- Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = WglrGrid.Cols - 1
- Call Cxnrtcwg
- '编辑(新增、修改、删除)权限索引
- Str_RightEdit = "cwfx_Tag_Edit"
- End Sub
- Private Sub Cxnrtcwg() '查 询 内 容 填 充 网 格
- If DEBUG_FLAG = False Then On Error Resume Next
- Dim SqlStr As String
- Dim Jsqte As Long
- '查询连接串
- SqlStr = "SELECT * FROM cwfx_TagInital ORDER BY ID "
- Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(SqlStr)
- With Cxnrrec
- WglrGrid.Clear 1
- WglrGrid.Rows = .RecordCount + WglrGrid.FixedRows
- If .EOF And .BOF Then
- Exit Sub
- End If
- Jsqte = WglrGrid.FixedRows
- Do While Not .EOF
- If Jsqte >= WglrGrid.Rows Then
- WglrGrid.AddItem ""
- End If
- Call Jltcwg(Cxnrrec, Jsqte)
- WglrGrid.RowHeight(Jsqte) = Sjhgd
- .MoveNext
- Jsqte = Jsqte + 1
- Loop
- End With
- End Sub
- Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long) '记录内容填充网格
- If DEBUG_FLAG = False Then On Error Resume Next
- '[以下为自定义部分
- With Jlbrec
- WglrGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Selected"))
- WglrGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("RatioName"))
- WglrGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("RatioType"))
- WglrGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("Unit"))
- WglrGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Formula"))
- End With
- '以上为自定义部分]
- End Sub
- Private Sub SaveData()
- If DEBUG_FLAG = False Then On Error Resume Next
- Dim strSql As String '查询字符串
- Dim I As Integer
- With Cxnrrec
- If .State = 1 Then .Close
- .Open "SELECT * FROM cwfx_TagInital ORDER BY ID", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
- .MoveFirst
- For I = WglrGrid.FixedRows To WglrGrid.Rows - 1
- !Selected = WglrGrid.TextMatrix(I, Sydz("001", GridStr(), Szzls))
- !RatioName = WglrGrid.TextMatrix(I, Sydz("002", GridStr(), Szzls))
- !RatioType = WglrGrid.TextMatrix(I, Sydz("003", GridStr(), Szzls))
- !Unit = WglrGrid.TextMatrix(I, Sydz("004", GridStr(), Szzls))
- !Formula = WglrGrid.TextMatrix(I, Sydz("005", GridStr(), Szzls))
- .Update
- .MoveNext
- Next
- End With
- End Sub
- Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
- '判断用户是否有此功能执行权限,如有则写上机日志(进入)
- If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
- Exit Sub
- End If
- Call SaveData
- End Sub
- Private Sub Form_Resize()
- On Error Resume Next
- With Me.WglrGrid
- .Width = Me.ScaleWidth
- .Height = Me.ScaleHeight - .Top
- End With
- With Pic_Title
- .Width = Me.ScaleWidth
- End With
- With GsToolbar
- If Me.Width >= 6375 Then
- .Left = Pic_Title.Width - .Width
- End If
- End With
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- If DEBUG_FLAG = False Then On Error Resume Next
- If Cxnrrec.State <> adStateClosed Then Cxnrrec.Close
- Set Cxnrrec = Nothing
- End Sub
- Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button) '表格格式设置(通用)
- If DEBUG_FLAG = False Then On Error Resume Next
- Select Case Button.Key
- Case "bcgs" '保存表格格式
- Call Bcwggs(WglrGrid, GridCode, GridStr())
- Case "hfmrgs" '恢复默认格式
- Call Hfmrgs(WglrGrid, GridCode, GridStr())
- End Select
- End Sub
- Private Sub WglrGrid_Click()
- If DEBUG_FLAG = False Then On Error Resume Next
- iRow = Me.WglrGrid.Row
- Me.WglrGrid.Col = 0
- Me.WglrGrid.CellChecked = IIf(Me.WglrGrid.CellChecked = flexChecked, flexUnchecked, flexChecked)
- End Sub
- Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button) '用户点击工具条
- If DEBUG_FLAG = False Then On Error Resume Next
- Select Case Button.Key
- Case "setup"
- Dyymctbl.Show vbModal
- Case "print"
- Call bbyl(False)
- Case "view"
- Call bbyl(True)
- Case "help"
- Call F1bz
- Case "exit"
- Unload Me
- End Select
- End Sub
- Private Sub bbyl(bbylte As Boolean) '报表打印预览
- If DEBUG_FLAG = False Then On Error Resume Next
- Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
- Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
- Bbxbtgs = 1 '报 表 小 标 题 行 数
- 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(1) = " "
- bbxbtzzxs(1) = 0 '报表行组织形式(0-居左 1-居中 2-居右)
- Call Scyxsjb(WglrGrid) '生成报表数据
- Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
- If Not bbylte Then
- Unload DY_Tybbyldy
- End If
- End Sub
