📄 frmyh_yetjbcx.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmYH_Yetjbcx
Caption = "余额调节表"
ClientHeight = 6300
ClientLeft = 60
ClientTop = 630
ClientWidth = 9960
HelpContextID = 1065
Icon = "frmYH_Yetjbcx.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 6300
ScaleWidth = 9960
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ImageList ImageList1
Left = 3930
Top = 2310
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmYH_Yetjbcx.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmYH_Yetjbcx.frx":084E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmYH_Yetjbcx.frx":0D92
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmYH_Yetjbcx.frx":0EA6
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmYH_Yetjbcx.frx":0FBE
Key = ""
EndProperty
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid mfgYetjbcx
Height = 5685
Left = 30
TabIndex = 1
Top = 600
Width = 9915
_ExtentX = 17489
_ExtentY = 10028
_Version = 393216
Cols = 5
FixedCols = 0
BackColorBkg = 16777215
AllowBigSelection= 0 'False
AllowUserResizing= 1
Appearance = 0
FormatString = "银行科目(账户)|<对账截止日期|<单位账账面余额|<对账单账面余额|<调整后存款余额"
End
Begin MSComctlLib.Toolbar tBr
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 0
Top = 0
Width = 9960
_ExtentX = 17568
_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 = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "print"
Object.ToolTipText = "打印"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "preview"
Object.ToolTipText = "预览"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "明细"
Key = "view"
Object.ToolTipText = "查看"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "help"
Object.ToolTipText = "帮助"
ImageIndex = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
Object.ToolTipText = "退出"
ImageIndex = 5
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuPrint
Caption = "打印"
Shortcut = ^P
End
Begin VB.Menu mnuPreview
Caption = "预览(&V)"
End
Begin VB.Menu mnuLine1
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuView
Caption = "明细(&W)"
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
End
End
Attribute VB_Name = "frmYH_Yetjbcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'以下一段常量用于窗体frm_print的CELL打印
'-------------------------------------------------------------
'Cell单元格对齐方式: 33 = 左对齐, 34 = 右对齐, 36 = 居中对齐;
Const ROWS_PAGE = 30 '每页行数
Const COL_START = 1 '开始列
Const COL_KMMC = 1 '科目名称
Const COL_JZRQ = 2 '对账截止日期
Const COL_BALANCE_DW = 3 '单位账账面余额
Const COL_BALANCE_YH = 4 '
Const COL_BALANCE_END = 5 '调整后存款余额
Const COL_END = 5 '结束列
Const ROW_TITLE = 1 '标题
Const ROW_BLANK = 2 '空白行
Const ROW_PAGENO = 3 '页号
Const ROW_HEAD1 = 4 '页标头行
Const ROW_GRID_START = 5 '表格开始行
Const CRB_LINE = vbBlack '表格线颜色
'缺省列宽
Const ColWidth = "240,120,160,160,160"
Dim sEnterName As String '单位名称
Dim frmP As frmPrint '通用打印窗体(CELL)
'-------------------------------------------------------------
Private Type rstYetjb '期末余额调节表
Kmmc As String '科目名称
JzRq As String '截止日期
Yhtzqye As Double '银行调整前余额
Yhys As Double '银行已收、单位未收
Yhyf As Double '银行已付、单位未付
Yhtzhye As Double '银行调整后余额
Dwtzqye As Double '单位调整前余额
Dwys As Double '单位已收、银行已付
Dwyf As Double '单位已付、银行已付
Dwtzhye As Double '单位调整后余额
End Type
Dim ArrYetjb() As rstYetjb '存放银行各个明细科目的余额调节表
Dim m_bArr As Boolean
Dim i As Integer
Dim j As Integer
Private Sub form_load()
m_bArr = False
Call SetHead
Call FillGrid
'得到当前账套的单位名称
sEnterName = GetDWMC
If sEnterName = "" Then
MsgBox "缺少单位名称！", vbInformation
Exit Sub
End If
Set frmP = New frmPrint
With frmP.CllR
'' .DoLogin "南京伊康公司", 233, "E4FD90FF080193035CFEC3FE8605"
.SetCols COL_END + 2, 0
.SetRows ROW_GRID_START + ROWS_PAGE, 0
End With
Load frmYH_Yetjb
End Sub
'设置表头
Private Sub SetHead()
With mfgYetjbcx
.ColWidth(0) = 2800
.ColWidth(1) = 1600
.ColWidth(2) = 1800
.ColWidth(3) = 1800
.ColWidth(4) = 1800
.ColAlignment(0) = 4
.ColAlignment(1) = 4
.ColAlignment(2) = 7
.ColAlignment(3) = 7
.ColAlignment(4) = 7
.Row = 0
.RowHeight(0) = 360
For j = 0 To .Cols - 1
.Col = j
.CellFontSize = 10
.CellAlignment = 4
Next j
End With
End Sub
'填充表格
Private Sub FillGrid()
Dim rstTemp As ADODB.Recordset
Dim sSQLTemp As String
Dim kmdm As String
Dim Kmmc As String
Dim JzRq As String
Dim Yhtzqye As Double
Dim Yhys As Double
Dim Yhyf As Double
Dim Yhtzhye As Double
Dim Dwtzqye As Double
Dim Dwys As Double
Dim Dwyf As Double
Dim Dwtzhye As Double
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -