📄 frmloss.frm
字号:
Height = 1215
Index = 6
Left = 2175
TabIndex = 19
Top = 1035
Width = 4125
Begin VB.OptionButton optVoucher
Caption = "生成多张凭证"
Height = 285
Index = 1
Left = 1290
TabIndex = 21
Top = 720
Width = 1425
End
Begin VB.OptionButton optVoucher
Caption = "生成一张凭证"
Height = 285
Index = 0
Left = 1290
TabIndex = 20
Top = 330
Value = -1 'True
Width = 1425
End
End
Begin VB.Image imgWizard
BorderStyle = 1 'Fixed Single
Height = 3315
Index = 3
Left = 90
Stretch = -1 'True
Tag = "140"
Top = 180
Width = 1335
End
Begin VB.Label lblNote
Caption = "(若是选择生成多张凭证，则根据总帐科目不同而生成不同的凭证)"
Height = 375
Left = 2115
TabIndex = 22
Top = 2745
Width = 4275
End
End
Begin VB.Frame fraWizard
Height = 3585
Index = 4
Left = -74925
TabIndex = 14
Top = 360
Width = 7305
Begin VB.TextBox txtResult
Height = 2955
Left = 1470
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 15
Top = 540
Width = 5745
End
Begin ListRefer.ListText lstxtRemark
Height = 315
Left = 2550
TabIndex = 16
Top = 180
Width = 4665
_ExtentX = 8229
_ExtentY = 556
BackColor = -2147483643
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 VB.Image imgWizard
BorderStyle = 1 'Fixed Single
Height = 3315
Index = 4
Left = 90
Stretch = -1 'True
Tag = "140"
Top = 180
Width = 1335
End
Begin VB.Label lblArr
Caption = "凭证摘要(&R)"
Height = 195
Index = 3
Left = 1530
TabIndex = 17
Top = 210
Width = 1005
End
End
Begin VB.Frame fraWizard
Height = 3585
Index = 0
Left = 75
TabIndex = 12
Top = 360
Width = 7320
Begin VB.ComboBox cboDirection
Height = 300
Left = 1530
TabIndex = 40
Top = 240
Width = 675
End
Begin ListRefer.ListText ltxtProfit
Height = 300
Left = 2730
TabIndex = 7
Top = 180
Width = 4485
_ExtentX = 7911
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
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 VB.CommandButton cmdChoice
Caption = "多个取消(&X)"
Height = 350
Index = 3
Left = 2790
TabIndex = 11
Top = 3180
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton cmdChoice
Caption = "多个选择(&D)"
Height = 350
Index = 2
Left = 1560
TabIndex = 10
Top = 3180
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton cmdChoice
Caption = "全部取消(&U)"
Height = 350
Index = 1
Left = 6015
TabIndex = 9
Top = 3195
Width = 1215
End
Begin VB.CommandButton cmdChoice
Caption = "全部选择(&A)"
Height = 350
Index = 0
Left = 4785
TabIndex = 8
Top = 3195
Width = 1215
End
Begin ListRefer.ListText lstxtAccount
Height = 315
Left = 1680
TabIndex = 13
Top = 2355
Visible = 0 'False
Width = 1785
_ExtentX = 3149
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
Appearance = 0
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 MSFlexGridLib.MSFlexGrid msgLossAccount
Bindings = "frmloss.frx":00A3
Height = 2670
Left = 1500
TabIndex = 39
Top = 495
Width = 5745
_ExtentX = 10134
_ExtentY = 4710
_Version = 393216
Cols = 6
FixedCols = 0
RowHeightMin = 300
End
Begin VB.Label lblProfit
AutoSize = -1 'True
Caption = "本年利润科目"
Height = 180
Left = 1560
TabIndex = 6
Top = 240
Width = 1080
End
Begin VB.Image imgWizard
BorderStyle = 1 'Fixed Single
Height = 3315
Index = 0
Left = 90
Stretch = -1 'True
Tag = "140"
Top = 180
Width = 1335
End
End
End
Begin MSRDC.MSRDC datLoss1
Height = 330
Left = 840
Top = 4260
Visible = 0 'False
Width = 1275
_ExtentX = 2249
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
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 MSRDC.MSRDC datLoss
Height = 330
Left = 90
Top = 4260
Visible = 0 'False
Width = 1365
_ExtentX = 2408
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
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
End
Attribute VB_Name = "FrmLoss"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 结转损益
' 1998.7.13
' 作者：唐维勇
'
' 过程：
' InitStep 向导每步初始化
' ValidStep 向导每步合法检查
' Execute 向导完成后需执行的操作
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -