📄 frmacountbook.frm
字号:
End
Begin VB.CommandButton CmdPage
Height = 255
Index = 2
Left = 9450
Picture = "frmAcountBook.frx":0201
Style = 1 'Graphical
TabIndex = 19
ToolTipText = "下一页"
Top = 6075
Width = 315
End
Begin VB.CommandButton CmdPage
Height = 255
Index = 3
Left = 9450
Picture = "frmAcountBook.frx":02B3
Style = 1 'Graphical
TabIndex = 20
ToolTipText = "跳至最后一页"
Top = 6330
Width = 315
End
Begin VB.PictureBox vsPAcount
BackColor = &H8000000C&
Height = 5385
Left = 1260
ScaleHeight = 5325
ScaleWidth = 8115
TabIndex = 24
Top = 1200
Width = 8175
Begin VB.PictureBox PicPaper
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 5595
Left = 90
ScaleHeight = 5565
ScaleWidth = 10965
TabIndex = 25
Top = 90
Width = 11000
End
End
Begin VB.CommandButton CmdSpliter
Height = 345
Left = 1230
MousePointer = 9 'Size W E
Picture = "frmAcountBook.frx":0365
Style = 1 'Graphical
TabIndex = 13
Top = 6600
Width = 275
End
Begin VB.CommandButton CmdCurPage
Caption = "当前页"
Height = 345
Left = 1500
TabIndex = 14
ToolTipText = "当前页号：1"
Top = 6600
Width = 1215
End
Begin ListRefer.ListText cmbType
Height = 315
Left = 1080
TabIndex = 6
Top = 465
Width = 1695
_ExtentX = 2990
_ExtentY = 556
Locked = -1 'True
BackColor = -2147483643
RMenu = "1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText cmbDate
Height = 315
Left = 3600
TabIndex = 8
Top = 450
Width = 1905
_ExtentX = 3360
_ExtentY = 556
Locked = -1 'True
BackColor = -2147483643
RMenu = "1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin GACALENDARLibCtl.Calendar detBegin
Height = 300
Left = 5730
OleObjectBlob = "frmAcountBook.frx":0557
TabIndex = 9
Top = 465
Width = 1335
End
Begin VB.Label lblType
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帐册类型(&Y)"
Height = 180
Left = 90
TabIndex = 5
Top = 510
Width = 990
End
Begin VB.Label lblD
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期(&D)"
Height = 180
Left = 2865
TabIndex = 7
Top = 510
Width = 630
End
Begin VB.Label lblTo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Left = 7095
TabIndex = 23
Top = 510
Width = 180
End
Begin VB.Label lblFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Left = 5535
TabIndex = 22
Top = 510
Width = 180
End
Begin VB.Label lblHead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "科目(&A)"
Height = 180
Index = 0
Left = 120
TabIndex = 11
Top = 900
Visible = 0 'False
Width = 630
End
Begin MSForms.CommandButton CmdZoom
Height = 345
Left = 2730
TabIndex = 15
Top = 6600
Width = 1215
Caption = "缩放"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CmdPaper
Height = 345
Left = 3960
TabIndex = 16
Top = 6600
Width = 1215
Caption = "纸张"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Attribute VB_Name = "frmAcountBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''
'真实帐册窗体
'
'Author Hebing Wr 1998.7
'
' 子过程
'
'SetTitle 设置标题
'
'SetBookField 设置栏目
'
'SetCell 设置单元数据
'
'SetFreeCell 设置自由单元数据'
'SetPageContents 设置页目录
'''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mblnChanged As Boolean
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mclsReportSet As ReportSet '帐表设置对象
Private mclsFormCond As FormCond
Private mblnLoad As Boolean
Private mlngCondType As Long
Private mintAmountBanCol As Integer '金额余额列
Private mintQuantityBanCol As Integer '数量余额列
Private mintCurrencyBanCol As Integer '原币余额列
Private mintPriceBanCol As Integer '结余单价列
Private mintRemarkCol As Integer '摘要列
Private mintDirectCol As Integer '方向列
Private mintDirect As Integer '当前分录的方向
Private mintDefDirect As Integer '当前科目的方向
Private mblnVirtual As Boolean '是否虚拟科目帐
Private mlngAmountBalance As Double
Private mlngQuantityBalance As Double
Private mlngCurrencyBalance As Double
Private mdblFactor As Double '单位转换因子
Private mintMonthCol As Integer '月对应的列号
Private mintDayCol As Integer '日对应的列号
Private mintYear As Integer '年
Private mstrMonth As String '上一行的月
Private mstrDay As String '上一行的日
Private mstrWhere As String
Private mstrAllWhere As String
Private mintMastDealRow As Integer '已进行数据处理的最大行
Private mintMastDealCol() As Integer '本页已显示的最大列
Private mblnIsOver As Boolean '是否处理帐册的最后一行
Private mintSub As Integer
Private mintFCIndex As Integer '当前表头索引
Private ZoomIndex As Integer
Private PaperWidth As Long
Private PaperHeight As Long
Private mblnOrientation As Boolean
Private mintCurContents As Integer '当前目录
Private mbResizeing As Boolean '移动标志
Private mintNowPage As Integer '当前页
Private mintPages As Integer
Private mintPageRows As Integer '每页行数
Private mintZeroRow As Integer '隐藏行数
Private mlngDayTotal() As Variant '日合计
Private mlngDayAll() As Variant '日累计
Private mlngNowTotal() As Variant '当前合计
Private mlngNowAll() As Variant '当前累计
Private WithEvents ABook As AountBook
Attribute ABook.VB_VarHelpID = -1
Private mclsFset As ClsFormatset
Private mblnDateChange As Boolean '日期是否改变
Private mstrCurName As String '币种Name
Private mblnCancel As Boolean '正在处理中,不能UnLoad窗体
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -