English
ʰ
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：36k
源码类别：
企业管理
开发平台：
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"
- Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
- Begin VB.Form YH_FrmDzcx
- BackColor = &H00FFFFFF&
- Caption = "对帐查询"
- ClientHeight = 7530
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 9870
- HelpContextID = 5105
- Icon = "银行_对帐查询.frx":0000
- LinkTopic = "Form1"
- MDIChild = -1 'True
- ScaleHeight = 7530
- ScaleWidth = 9870
- Begin TabDlg.SSTab SSTab1
- Height = 5910
- Left = -30
- TabIndex = 5
- Top = 1665
- Width = 9945
- _ExtentX = 17542
- _ExtentY = 10425
- _Version = 393216
- Style = 1
- Tabs = 2
- Tab = 1
- TabsPerRow = 2
- TabHeight = 520
- TabMaxWidth = 3528
- TabCaption(0) = "银行对帐单"
- TabPicture(0) = "银行_对帐查询.frx":1042
- Tab(0).ControlEnabled= 0 'False
- Tab(0).Control(0)= "CxbbGrid"
- Tab(0).ControlCount= 1
- TabCaption(1) = "单位日记帐"
- TabPicture(1) = "银行_对帐查询.frx":105E
- Tab(1).ControlEnabled= -1 'True
- Tab(1).Control(0)= "vsFlexGrid1"
- Tab(1).Control(0).Enabled= 0 'False
- Tab(1).ControlCount= 1
- Begin VSFlex8Ctl.VSFlexGrid CxbbGrid
- Height = 5530
- Left = -74970
- TabIndex = 6
- Top = 350
- Width = 9900
- _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
- End
- Begin VSFlex8Ctl.VSFlexGrid vsFlexGrid1
- Height = 5505
- Left = 30
- TabIndex = 7
- Top = 345
- Width = 9870
- _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
- End
- End
- Begin VB.PictureBox Pic_Title
- Height = 1065
- Left = 0
- Picture = "银行_对帐查询.frx":107A
- ScaleHeight = 1005
- ScaleWidth = 9840
- TabIndex = 0
- Top = 564
- Width = 9900
- Begin VB.Label Lab_TitleMess
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "银行科目:"
- Height = 180
- Index = 1
- Left = 915
- TabIndex = 13
- Top = 750
- Width = 810
- End
- Begin VB.Label Lab_Bill
- Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- Caption = "已勾对"
- ForeColor = &H00000000&
- Height = 180
- Index = 0
- Left = 7830
- TabIndex = 12
- Top = 210
- Width = 540
- End
- Begin VB.Label Label3
- Appearance = 0 'Flat
- BackColor = &H00E9FC61&
- BorderStyle = 1 'Fixed Single
- ForeColor = &H80000008&
- Height = 180
- Index = 0
- Left = 7380
- TabIndex = 11
- Top = 217
- Width = 390
- End
- Begin VB.Label Lab_Bill
- Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H80000005&
- BackStyle = 0 'Transparent
- Caption = "未勾对"
- ForeColor = &H00000000&
- Height = 180
- Index = 1
- Left = 8970
- TabIndex = 10
- Top = 210
- Width = 540
- End
- Begin VB.Label Label3
- Appearance = 0 'Flat
- BackColor = &H80000005&
- BorderStyle = 1 'Fixed Single
- ForeColor = &H80000008&
- Height = 180
- Index = 1
- Left = 8520
- TabIndex = 9
- Top = 210
- Width = 390
- End
- Begin VB.Label Label1
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Height = 180
- Left = 1785
- TabIndex = 8
- Top = 750
- Width = 90
- End
- Begin VB.Label Lab_TitleText
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- ForeColor = &H00000000&
- Height = 180
- Index = 0
- Left = 8340
- TabIndex = 3
- Top = 750
- Width = 90
- 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 = 2
- Top = 150
- Width = 2700
- End
- Begin VB.Label Lab_TitleMess
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "会计期间:"
- Height = 180
- Index = 0
- Left = 7380
- TabIndex = 1
- Top = 750
- Width = 810
- End
- End
- Begin MSComctlLib.Toolbar SzToolbar
- Align = 1 'Align Top
- Height = 555
- Left = 0
- TabIndex = 4
- Top = 0
- Width = 9870
- _ExtentX = 17410
- _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 = "sel"
- ImageIndex = 19
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "bz"
- ImageKey = "bz"
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "fh"
- ImageKey = "tc"
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin MSComctlLib.Toolbar GsToolbar
- Height = 525
- Left = 7380
- TabIndex = 14
- Top = 0
- Width = 2475
- _ExtentX = 4366
- _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 MSComctlLib.ImageList ImageList1
- Left = 4620
- Top = 0
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 32
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3513E
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":354D8
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":35872
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":35C0C
- Key = "xg"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":35FA6
- Key = "zh"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":36340
- Key = "sh"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":366DA
- Key = "bc"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":36A74
- Key = "fq"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":36E0E
- Key = "bz"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":371A8
- Key = "tc"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":37542
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":378DC
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":37C76
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":38010
- Key = "first"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":383AA
- Key = "prev"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":38744
- Key = "next"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":38ADE
- Key = "last"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":38E78
- Key = "xx"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":39212
- Key = "define"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":395AC
- Key = "exec"
- EndProperty
- BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":39946
- Key = "xz"
- EndProperty
- BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":39CE0
- Key = "sc"
- EndProperty
- BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3A07A
- Key = "sx"
- EndProperty
- BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3A414
- Key = "cx"
- EndProperty
- BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3A7AE
- Key = "zd"
- EndProperty
- BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3AB48
- Key = "dz"
- EndProperty
- BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3AEE2
- Key = "ph"
- EndProperty
- BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3B27C
- Key = "fz"
- EndProperty
- BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3B616
- Key = "dw"
- EndProperty
- BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3B9B0
- Key = "hf"
- EndProperty
- BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3BD4A
- Key = "pz"
- EndProperty
- BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "银行_对帐查询.frx":3C0E4
- Key = "check"
- EndProperty
- EndProperty
- End
- End
- End
- Attribute VB_Name = "YH_FrmDzcx"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '*************************************************************
- '* 模 块 名 称 :银行对帐勾对情况查询
- '* 功 能 描 述 :查询银行对帐勾对情况
- '* 程序员姓名 : xjl
- '* 最后修改人 : xjl
- '* 最后修改时间:2001/07/16
- '* 备 注:
- '*************************************************************
- '==============用于标识TAB控件的两个标签(bsj)===========
- Const STAB_BANK = 0 '银行对账单
- Const STAB_COM = 1 '单位日记账
- '=======================================================
- Dim ReportTitle As String '报表主标题
- '以下为固定使用变量(网格)
- Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
- Dim GridCode As String '显示网格网格代码
- Dim GridInf() As Variant '整个网格设置信息
- Dim Qslz As Long '网格隐藏(非操作显示)列数
- Dim Sjhgd As Double '网格数据行高度
- Dim GridBoolean() As Boolean '网格列信息(布尔型)
- Dim GridStr() As String '网格列信息(字符型)
- Dim GridInt() As Integer '网格列信息(整型)
- Dim Szzls As Integer '数组总列数(网格列数-1)
- '窗体装入
- Sub Form_Load()
- '隐藏选择对话框
- YH_FrmXzkm.Hide
- '调入打印页面设置窗体
- Label1.Caption = YH_FrmXzkm.Combo1.Text
- XtReportCode = "Cwzz_yhgdqk"
- Load Dyymctbl
- ReportTitle = "银行对帐单"
- '调入网格
- GridCode = "Cwzz_yhcxgd"
- Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Lab_TitleText(0) = Mid(Trim(Str(10000 + Xtyear)), 2, 4) + "." + Mid(Trim(Str(100 + Xtmm)), 2, 2)
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- '调入网格
- GridCode = "Cwzz_yhcxgd1"
- Call BzWgcsh(vsFlexGrid1, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- Call Sub_ShowBill
- '调整标题位置
- SetTitlePos tsLabel(4)
- End Sub
- Private Sub Form_Resize()
- On Error Resume Next
- With SSTab1
- .Width = Me.Width - 100
- .Height = Me.Height - .Top - 400
- End With
- With vsFlexGrid1
- .Width = Me.Width - 160
- .Height = Me.Height - SSTab1.Top - .Top - 400
- End With
- With Pic_Title
- .Width = Me.Width - 160
- End With
- With CxbbGrid
- .Width = Me.Width - 160
- .Height = Me.Height - SSTab1.Top - .Top - 400
- End With
- With Pic_Title
- .Width = Me.Width - 160
- End With
- GsToolbar.Left = Me.Width - GsToolbar.Width - 140
- End Sub
- '窗体卸载
- Private Sub Form_Unload(Cancel As Integer)
- '卸载打印页面设置窗体
- Unload Dyymctbl
- Glo_Variable.Unload_TF = True
- Unload YH_FrmXzkm
- 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 = 1
- '报表表尾行数
- Bbbwhgs = 1
- 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
- '报表行组织形式(0-居左 1-居中 2-居右)
- Bbxbt(1) = Space(0) + Fun_FormatOutPut("会计期间:" + Trim(Lab_TitleText(0)), 19)
- Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut("科目编码:" + Trim(Label1), 26)
- '报表小标题组织形式
- '报表行组织形式(0-居左 1-居中 2-居右)
- bbxbtzzxs(1) = 0
- Bbbwhzzxs(1) = 1
- '============选择打印银行对账单或单位日记账(bsj 6月4日修改部分)=================
- '修改原因：进入“预览”窗口，点击“返回”2次才能完全退出
- '修改后： 根据STAB控件的标签不同分别预览
- Select Case SSTab1.Tab
- Case STAB_BANK '预览银行对账单
- ReportTitle = "银行对帐单"
- '报表主标题
- Bbzbt = ReportTitle
- Bbxbt(1) = Space(0) + Fun_FormatOutPut("会计期间:" + Trim(Lab_TitleText(0)), 19)
- Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut("科目编码:" + Trim(Label1), 26)
- Call Scyxsjb(CxbbGrid) '生成报表数据
- Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
- If Not bbylte Then
- Unload DY_Tybbyldy
- End If
- Case STAB_COM '预览单位日记账
- ReportTitle = "单位日记帐"
- '报表主标题
- Bbzbt = ReportTitle
- Bbxbt(1) = Space(0) + Fun_FormatOutPut("会计期间:" + Trim(Lab_TitleText(0)), 26)
- Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut("科目编码:" + Trim(Label1), 26)
- Call Scyxsjb(vsFlexGrid1) '生成报表数据
- Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
- If Not bbylte Then
- Unload DY_Tybbyldy
- End If
- End Select
- End Sub
- Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
- Select Case SSTab1.Tab
- Case STAB_BANK '预览银行对账单
- 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
- Case STAB_COM '预览单位日记账
- Select Case Button.Key
- Case "bcgs" '保存表格格式
- Call Bcwggs(vsFlexGrid1, GridCode, GridStr())
- Case "hfmrgs" '恢复默认格式
- Call Hfmrgs(vsFlexGrid1, GridCode, GridStr())
- Case "szxsxm" '设置显示项目
- Call Szxsxm(vsFlexGrid1, GridCode)
- End Select
- End Select
- End Sub
- Private Sub SSTab1_Click(PreviousTab As Integer)
- If SSTab1.Tab = 0 Then
- '调入网格
- GridCode = "Cwzz_yhcxgd"
- Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- End If
- If SSTab1.Tab = 1 Then
- '调入网格
- GridCode = "Cwzz_yhcxgd1"
- Call BzWgcsh(vsFlexGrid1, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- End If
- Call Sub_ShowBill
- 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 "fh" '退出
- Unload Me
- Case "sel"
- Glo_Variable.Unload_TF = False
- YH_FrmXzkm.HelpContextID = "0115006"
- YH_FrmXzkm.Show 1
- Case "bz"
- Call F1bz
- End Select
- End Sub
- '显示网格数据
- Private Sub Sub_ShowBill()
- Dim RecTemp As New ADODB.Recordset
- Dim Recfind As New ADODB.Recordset
- Dim Jsqte As Integer
- '银对帐单数据
- With CxbbGrid
- SQL_Str = "select * from cwzz_bankbill where (rectype=1 or rectype=2) and bdelete=0 and ccode='" & Val(Label1.Caption) & "'"
- Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
- Jsqte = 1
- Do While Not RecTemp.EOF()
- If Jsqte >= .Rows Then
- .AddItem ""
- End If
- '[>>显示单据分录
- .TextMatrix(Jsqte, 0) = "*" '行标识
- .TextMatrix(Jsqte, 1) = Trim(RecTemp.Fields("BankBillID"))
- .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Format(RecTemp.Fields("billDATe"), "yyyy-mm-dd") '结算方式编码
- If Recfind.State = 1 Then Recfind.Close
- SQL_Str = "select * from Gy_settlement where sscode='" & RecTemp.Fields!sscode & "'"
- Set Recfind = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
- If Recfind.EOF = False Then
- .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Recfind.Fields("ssname") & "") '结算方式名称
- End If
- .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(RecTemp.Fields("BillNo") & "") '票号
- If RecTemp.Fields("jfje") <> 0 And IsNull(RecTemp.Fields("jfje")) = False Then
- .TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(RecTemp.Fields("Jfje"), "#,###.00") '借方金额
- End If
- If RecTemp.Fields("dfje") <> 0 And IsNull(RecTemp.Fields("dfje")) = False Then
- .TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Format(RecTemp.Fields("Dfje"), "#,###.00") '贷方金额
- End If
- '<<]
- .RowHeight(Jsqte) = Sjhgd
- If RecTemp.Fields("bcheckflag") = True Then '填充网格颜色标志
- .Cell(flexcpBackColor, Jsqte, Sydz("001", GridStr(), Szzls), Jsqte, Sydz("006", GridStr(), Szzls)) = Label3(0).BackColor
- .TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = "○"
- End If
- If RecTemp.Fields("handworkflag") = True Then
- .Cell(flexcpBackColor, Jsqte, Sydz("001", GridStr(), Szzls), Jsqte, Sydz("006", GridStr(), Szzls)) = Label3(0).BackColor
- .TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = "√"
- End If
- Jsqte = Jsqte + 1
- RecTemp.MoveNext
- Loop
- End With
- '日记帐期初数据
- With vsFlexGrid1
- Sqlstr = "select dDATe,sscode,vouchclasscode,vouchno,BillNo,Jfje,Dfje,digest,billdate,bcheckflag, " _
- & "handworkflag from cwzz_rjznotcheck where (rectype=1 ) and bdelete=0 " _
- & "and ccode='" & Val(Label1.Caption) & "' UNION select dDATe,sscode,vouchclasscode, " _
- & "vouchno,BillNo,Jfje,Dfje,digest,billdate,bcheckflag,handworkflag " _
- & "from Cwzz_V_AccVouch where ccode='" & Val(Label1.Caption) & "' and bdelete=0"
- Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- Jsqte = 1
- Do While Not RecTemp.EOF()
- If Jsqte >= .Rows Then
- .AddItem ""
- End If
- '[>>显示单据分录
- '凭证日期
- .TextMatrix(Jsqte, 0) = Format(RecTemp.Fields("dDATe"), "yyyy-mm-dd")
- '结算方式编码
- SQL_Str = "select * from Gy_settlement where sscode='" & RecTemp.Fields!sscode & "'"
- Set Recfind = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
- If Recfind.EOF = False Then
- .TextMatrix(Jsqte, 2) = Trim(Recfind.Fields("ssname") & "") '结算方式名称
- End If
- '凭证号
- .TextMatrix(Jsqte, 7) = Trim(RecTemp.Fields("vouchclasscode")) + "-" + Trim(RecTemp.Fields("vouchno"))
- '票号
- .TextMatrix(Jsqte, 3) = Trim(RecTemp.Fields("BillNo") & "")
- '借方金额
- If Val(RecTemp.Fields("Jfje")) <> 0 Then
- .TextMatrix(Jsqte, 4) = Trim(Str(RecTemp.Fields("Jfje")))
- End If
- '贷方金额
- If Val(RecTemp.Fields("Dfje")) <> 0 Then
- .TextMatrix(Jsqte, 5) = Trim(Str(RecTemp.Fields("Dfje")))
- End If
- '摘要
- If IsNull(RecTemp.Fields("digest")) = False Then
- .TextMatrix(Jsqte, 8) = Trim(RecTemp.Fields("digest") & "")
- Else
- .TextMatrix(Jsqte, 8) = ""
- End If
- '票据日期
- .TextMatrix(Jsqte, 1) = Format(RecTemp.Fields("billdate"), "yyyy-mm-dd") '计量单位
- '<<]
- .RowHeight(Jsqte) = Sjhgd
- If RecTemp.Fields("bcheckflag") = True Then '填充网格颜色对帐标志
- .Cell(flexcpBackColor, Jsqte, 0, Jsqte, .Cols - 1) = Label3(0).BackColor
- .TextMatrix(Jsqte, 6) = "○"
- End If
- If RecTemp.Fields("handworkflag") = True Then
- .Cell(flexcpBackColor, Jsqte, 0, Jsqte, .Cols - 1) = Label3(0).BackColor
- .TextMatrix(Jsqte, 6) = "√"
- End If
- Jsqte = Jsqte + 1
- RecTemp.MoveNext
- Loop
- End With
- '对网格进行合计
- CxbbGrid.SubtotalPosition = flexSTBelow
- CxbbGrid.Subtotal flexSTSum, -1, Sydz("004", GridStr(), Szzls), "#,###.00", , , , "合计"
- CxbbGrid.Subtotal flexSTSum, -1, Sydz("005", GridStr(), Szzls), "#,###.00", , , , "合计"
- vsFlexGrid1.SubtotalPosition = flexSTBelow
- vsFlexGrid1.Subtotal flexSTSum, -1, 4, "#,###.00", , , , "合计"
- vsFlexGrid1.Subtotal flexSTSum, -1, 5, "#,###.00", , , , "合计"
- End Sub
