📄 frmfixedalterinfo.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.2#0"; "ATLEDIT.OCX"
Object = "{087BF2E6-6FE5-11D2-840D-444553540000}#1.0#0"; "LISTTEXT.OCX"
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GATLCTRL.DLL"
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "CALENDAR.DLL"
Begin VB.Form frmFixedAlterInfo
BorderStyle = 3 'Fixed Dialog
Caption = "固定资产变动资料"
ClientHeight = 6240
ClientLeft = 45
ClientTop = 330
ClientWidth = 8070
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6240
ScaleWidth = 8070
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdClose
Height = 350
Left = 6750
Style = 1 'Graphical
TabIndex = 65
Tag = "1022"
Top = 360
UseMaskColor = -1 'True
Width = 1215
End
Begin TabDlg.SSTab tabFixedDec
Height = 6075
Left = 60
TabIndex = 15
Top = 60
Width = 6615
_ExtentX = 11668
_ExtentY = 10716
_Version = 327681
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "基本资料"
TabPicture(0) = "frmFixedAlterInfo.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label15"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lblOperator"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label1(1)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label1(2)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label1(3)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label1(4)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label1(5)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label1(6)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label1(7)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label1(8)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label1(9)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Label1(10)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Label1(11)"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "ltxtFixedType"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "cboUseStatus"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Frame1"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "Frame2"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "grdAux"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "tEdit1(1)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "tEdit1(2)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "tEdit1(3)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "tEdit1(4)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "tEdit1(5)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "tEdit1(6)"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "tEdit1(7)"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "tEdit1(8)"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "cboAddMethod"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "cboFixCode"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "datAux"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "cboDate"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).ControlCount= 31
TabCaption(1) = "折旧资料"
TabPicture(1) = "frmFixedAlterInfo.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame6"
Tab(1).Control(1)= "Frame5"
Tab(1).Control(2)= "Frame4"
Tab(1).Control(3)= "Frame3"
Tab(1).Control(4)= "TEdit4(0)"
Tab(1).Control(5)= "TEdit4(1)"
Tab(1).Control(6)= "Label25"
Tab(1).Control(7)= "Label24"
Tab(1).ControlCount= 8
Begin GACALENDARLibCtl.Calendar cboDate
Height = 300
Left = 4350
OleObjectBlob = "frmFixedAlterInfo.frx":0038
TabIndex = 88
Top = 2565
Width = 2115
End
Begin VB.Data datAux
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 285
Left = 1635
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4740
Visible = 0 'False
Width = 1140
End
Begin VB.ComboBox cboFixCode
Enabled = 0 'False
Height = 300
Left = 990
TabIndex = 76
Top = 750
Width = 2055
End
Begin VB.ComboBox cboAddMethod
Enabled = 0 'False
Height = 300
Left = 960
TabIndex = 75
Top = 2520
Width = 2115
End
Begin AtlEdit.TEdit tEdit1
Height = 300
Index = 8
Left = 570
TabIndex = 14
Top = 5640
Width = 3705
_ExtentX = 6535
_ExtentY = 529
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 tEdit1
Height = 300
Index = 7
Left = 4350
TabIndex = 9
Top = 1830
Width = 2085
_ExtentX = 3678
_ExtentY = 529
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 tEdit1
Height = 300
Index = 6
Left = 4350
TabIndex = 8
Top = 1470
Width = 2085
_ExtentX = 3678
_ExtentY = 529
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 tEdit1
Height = 300
Index = 5
Left = 4350
TabIndex = 7
Top = 1110
Width = 2085
_ExtentX = 3678
_ExtentY = 529
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 tEdit1
Height = 300
Index = 4
Left = 4350
TabIndex = 6
Top = 750
Width = 2085
_ExtentX = 3678
_ExtentY = 529
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 tEdit1
Height = 300
Index = 3
Left = 960
TabIndex = 5
Top = 1830
Width = 2085
_ExtentX = 3678
_ExtentY = 529
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 tEdit1
Height = 300
Index = 2
Left = 960
TabIndex = 4
Top = 1470
Width = 2085
_ExtentX = 3678
_ExtentY = 529
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 tEdit1
Height = 300
Index = 1
Left = 960
TabIndex = 3
Top = 1110
Width = 2085
_ExtentX = 3678
_ExtentY = 529
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.Frame Frame6
Caption = "折旧计算因素"
Height = 1245
Left = -71910
TabIndex = 51
Top = 4320
Width = 3375
Begin VB.OptionButton opt2
Caption = "按原值和预计使用期间计提折旧"
Enabled = 0 'False
Height = 345
Left = 240
TabIndex = 53
Top = 720
Width = 2925
End
Begin VB.OptionButton opt1
Caption = "按现在净值和剩余期间计提折旧"
Enabled = 0 'False
Height = 345
Left = 240
TabIndex = 52
Top = 330
Value = -1 'True
Width = 2925
End
End
Begin VB.Frame Frame5
Caption = "使用日期"
Height = 1575
Left = -74880
TabIndex = 47
Top = 3990
Width = 2835
Begin GATLCTRLLibCtl.CalEdit txtWorkOfUsed
Height = 300
Left = 1395
OleObjectBlob = "frmFixedAlterInfo.frx":00BD
TabIndex = 79
Top = 1065
Width = 1275
End
Begin GACALENDARLibCtl.SpinEdit spinPeriods
Height = 300
Left = 1395
OleObjectBlob = "frmFixedAlterInfo.frx":013E
TabIndex = 78
Top = 1065
Width = 1275
End
Begin GACALENDARLibCtl.Calendar cldDateOfUse
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -