📄 frmfixedmethodcard.frm
字号:
VERSION 5.00
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Begin VB.Form frmFixedMethodCard
BorderStyle = 3 'Fixed Dialog
Caption = "新增固资变动方式"
ClientHeight = 3405
ClientLeft = 45
ClientTop = 330
ClientWidth = 5805
HelpContextID = 30049
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3405
ScaleWidth = 5805
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin ListRefer.ListText lstMethod
Height = 300
Index = 3
Left = 2010
TabIndex = 11
Top = 2100
Width = 2145
_ExtentX = 3784
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 8
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 lstMethod
Height = 300
Index = 2
Left = 2010
TabIndex = 9
Top = 1740
Width = 2145
_ExtentX = 3784
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 4
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 lstMethod
Height = 300
Index = 1
Left = 2010
TabIndex = 7
Top = 1380
Width = 2145
_ExtentX = 3784
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 30
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 lstMethod
Height = 300
Index = 0
Left = 2010
TabIndex = 5
Top = 1020
Width = 2145
_ExtentX = 3784
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 16
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 AtlEdit.TEdit txtInput
Height = 300
Index = 1
Left = 2010
TabIndex = 3
Top = 690
Width = 2145
_ExtentX = 3784
_ExtentY = 529
maxchar = 30
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin AtlEdit.TEdit txtInput
Height = 300
Index = 0
Left = 2010
TabIndex = 1
Top = 360
Width = 2145
_ExtentX = 3784
_ExtentY = 529
maxchar = 12
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin VB.OptionButton optType
Caption = "减少固定资产"
Height = 225
Index = 1
Left = 2670
TabIndex = 14
Top = 2780
Width = 1455
End
Begin VB.OptionButton optType
Caption = "增加固定资产"
Height = 225
Index = 0
Left = 360
TabIndex = 13
Top = 2780
Value = -1 'True
Width = 1545
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 1
Left = 4470
Style = 1 'Graphical
TabIndex = 16
Tag = "1002"
Top = 570
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 0
Left = 4470
Style = 1 'Graphical
TabIndex = 15
Tag = "1001"
Top = 180
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 2
Left = 4470
Style = 1 'Graphical
TabIndex = 17
Tag = "1009"
Top = 960
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CheckBox chkPause
Caption = "停用"
Height = 225
Left = 4470
TabIndex = 18
Top = 3060
Width = 1215
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "变动类型(&M)"
Height = 180
Index = 6
Left = 360
TabIndex = 12
Top = 2470
Width = 990
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "固资变动方式编码(&C)"
Height = 180
Index = 0
Left = 270
TabIndex = 0
Top = 390
Width = 1710
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "固资变动方式名称(&N)"
Height = 180
Index = 1
Left = 270
TabIndex = 2
Top = 720
Width = 1710
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "对应科目(&A)"
Height = 180
Index = 2
Left = 270
TabIndex = 4
Top = 1080
Width = 990
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "凭证模板(&T)"
Height = 180
Index = 3
Left = 270
TabIndex = 6
Top = 1440
Width = 990
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "凭证摘要(&R)"
Height = 180
Index = 5
Left = 270
TabIndex = 10
Top = 2130
Width = 990
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "凭证类型(&L)"
Height = 180
Index = 4
Left = 270
TabIndex = 8
Top = 1770
Width = 990
End
End
Attribute VB_Name = "frmFixedMethodCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 固定资产变动方式卡片
' 作者:郑权
' 日期：1998.07.16
'
' 功能：完成固资变动方式表的增、删、改操作
'
' 接口： AddCard 增加固资变动方式记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改固资变动方式记录。
' 参数： lngID 被修改的记录的ID，intModal 显示模式
' DelCard 删除固资变动方式记录。
' 参数： lngID 被删除的记录的ID
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Type FixedMethodRecord '处理固资变动方式表的记录
lngFixedMethodID As Long '固资变动方式ID
strFixedMethodCode As String '固资变动方式编码
strFixedMethodName As String '固资变动方式名称
blnIsInActive As Boolean '封存标志
strFixedMethodType As String '变动类别
lngAccountID As Long '对应科目ID
lngVoucherTypeID As Long '对应凭证类别ID
lngTemplateID As Long '模板ID
strRemark As String '摘要
End Type
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -