📄 frmfixedtypecard.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Begin VB.Form frmFixedTypeCard
BorderStyle = 3 'Fixed Dialog
Caption = "新增固定资产类别"
ClientHeight = 4560
ClientLeft = 45
ClientTop = 330
ClientWidth = 5895
HelpContextID = 30046
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4560
ScaleWidth = 5895
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin GACALENDARLibCtl.SpinEdit sptOrder
Height = 300
Left = 3360
OleObjectBlob = "frmFixedTypeCard.frx":0000
TabIndex = 20
Top = 3780
Width = 675
End
Begin VB.OptionButton optCode
Caption = "手工编码"
Height = 225
Index = 0
Left = 480
TabIndex = 15
Top = 3150
Width = 1035
End
Begin VB.OptionButton optCode
Caption = "自动编码(固资类别编码+序号前缀+序号)"
Height = 225
Index = 1
Left = 480
TabIndex = 16
Top = 3480
Value = -1 'True
Width = 3555
End
Begin VB.OptionButton optCode
Caption = "引用上级类别的编码方案"
Height = 225
Index = 2
Left = 480
TabIndex = 21
Top = 4140
Width = 2325
End
Begin VB.CommandButton cmdOKCancel
Caption = "自定项目(&I)"
Height = 350
Index = 3
Left = 4560
TabIndex = 25
Tag = "1009"
Top = 1290
UseMaskColor = -1 'True
Width = 1215
End
Begin AtlEdit.TEdit txtInput
Height = 300
Index = 3
Left = 2100
TabIndex = 9
Top = 1560
Width = 2175
_ExtentX = 3836
_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.CommandButton cmdOKCancel
Height = 350
Index = 2
Left = 4560
Style = 1 'Graphical
TabIndex = 24
Tag = "1009"
Top = 900
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 0
Left = 4560
Style = 1 'Graphical
TabIndex = 22
Tag = "1001"
Top = 120
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Cancel = -1 'True
Height = 350
Index = 1
Left = 4560
Style = 1 'Graphical
TabIndex = 23
Tag = "1002"
Top = 510
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.ComboBox cboFixedType
Height = 300
Index = 1
ItemData = "frmFixedTypeCard.frx":009F
Left = 2100
List = "frmFixedTypeCard.frx":00A1
Style = 2 'Dropdown List
TabIndex = 7
Top = 1200
Width = 2175
End
Begin VB.ComboBox cboFixedType
Height = 300
Index = 0
Left = 2100
Style = 2 'Dropdown List
TabIndex = 5
Top = 840
Width = 2175
End
Begin VB.CheckBox chkPause
Caption = "停用"
Height = 225
Left = 4560
TabIndex = 26
Top = 4230
Width = 1215
End
Begin AtlEdit.TEdit txtInput
Height = 300
Index = 1
Left = 2100
TabIndex = 3
Top = 480
Width = 2175
_ExtentX = 3836
_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 = 2
Left = 2100
TabIndex = 11
Top = 1920
Width = 2175
_ExtentX = 3836
_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 AtlEdit.TEdit txtInput
Height = 300
Index = 0
Left = 2100
TabIndex = 1
Top = 120
Width = 2175
_ExtentX = 3836
_ExtentY = 529
maxchar = 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
Text = ""
End
Begin AtlEdit.TEdit txtInput
Height = 300
Index = 4
Left = 1740
TabIndex = 18
Top = 3780
Width = 525
_ExtentX = 926
_ExtentY = 529
maxchar = 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
Text = ""
End
Begin AtlEdit.TEdit txtInput
Height = 300
Index = 5
Left = 2100
TabIndex = 13
Top = 2280
Width = 2175
_ExtentX = 3836
_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.Label lblTitle
Caption = "年折旧率%(&Z)"
Height = 180
Index = 9
Left = 300
TabIndex = 12
Top = 2340
Width = 1815
End
Begin VB.Label lblTitle
Caption = "序号前缀(&B)"
Height = 180
Index = 7
Left = 750
TabIndex = 17
Top = 3840
Width = 1005
End
Begin VB.Label lblTitle
Caption = "序号位数(&P)"
Height = 180
Index = 8
Left = 2340
TabIndex = 19
Top = 3840
Width = 1005
End
Begin VB.Label lblTitle
Caption = "该类别的固定资产编码方式(&M)"
Height = 180
Index = 6
Left = 480
TabIndex = 14
Top = 2880
Width = 2445
End
Begin VB.Label lblTitle
Caption = "预计使用年限(&Y)"
Height = 180
Index = 5
Left = 300
TabIndex = 8
Top = 1620
Width = 1695
End
Begin VB.Label lblTitle
Caption = "预计净残值率%(&R)"
Height = 180
Index = 4
Left = 300
TabIndex = 10
Top = 1980
Width = 1815
End
Begin VB.Label lblTitle
Caption = "常用折旧方法(&Z)"
Height = 180
Index = 3
Left = 300
TabIndex = 6
Top = 1260
Width = 1815
End
Begin VB.Label lblTitle
Caption = "折旧类型(&T)"
Height = 180
Index = 2
Left = 300
TabIndex = 4
Top = 900
Width = 1815
End
Begin VB.Label lblTitle
Caption = "固定资产类别名称(&N)"
Height = 180
Index = 1
Left = 300
TabIndex = 2
Top = 540
Width = 1815
End
Begin VB.Label lblTitle
Caption = "固定资产类别编码(&C)"
Height = 180
Index = 0
Left = 300
TabIndex = 0
Top = 180
Width = 1815
End
End
Attribute VB_Name = "frmFixedTypeCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 固资类型卡片
' 作者：苏涛
' 日期：1998.07.08
'
' 功能：完成固资类型表的增、删、改操作
'
' 接口： AddCard 增加固资类型记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改固资类型记录。
' 参数： lngRecordID 被修改的记录的ID，intModal 显示模式
' DelCard 删除固资类型记录。
' 参数： lngRecordID 被删除的记录的ID
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text
Private mblnIsNew As Boolean '是新增还是修改操作
Private mblnIsList As Boolean
Private mblnIsInit As Boolean
Private mblnIsInActive As Boolean
Private mblnIsChanged As Boolean
Private mblnIsDetail As Boolean
Private mblnPIsInActive As Boolean 'NEW--上级停用，EDIT--目的停用
Private mblnPIsDetail As Boolean 'NEW--上级明细，EDIT--目的明细
Private mintLevel As Integer
Private mintOldLevel As Integer
Private mlngPCodeID As Long 'NEW--上级ID，EDIT--目的ID
Private mlngFixedTypeID As Long
Private mstrCode As String
Private mstrName As String
Private mstrOldCode As String '以前的CODE
Private mstrOldFullName As String
Private mstrOldName As String '以前的NAME
Private mstrFullName As String
Private mstrStartDate As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -