📄 评价指标.frm
字号:
VERSION 5.00
Object = "{9ADF72AD-DDA9-11D1-9D4B-000021006D51}#1.2#0"; "UFSpGrid.ocx"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{B03157BC-EBCD-11D1-9D4B-000021017F3D}#4.0#0"; "UfUseFlg.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{51388549-C886-4FD6-AE5F-8AA28C63CE94}#1.0#0"; "PrintControl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form frmEstItem
Caption = "评价指标"
ClientHeight = 5790
ClientLeft = 60
ClientTop = 345
ClientWidth = 9405
KeyPreview = -1 'True
LinkTopic = "frmEstItem"
MDIChild = -1 'True
NegotiateMenus = 0 'False
ScaleHeight = 5790
ScaleWidth = 9405
ShowInTaskbar = 0 'False
Begin prjTBCtrl.CTBCtrl ocxCtbtool
Height = 660
Left = 0
Top = 5520
Width = 1215
_ExtentX = 2143
_ExtentY = 1164
End
Begin VB.Frame Frame1
Height = 4935
Left = 0
OLEDropMode = 1 'Manual
TabIndex = 20
Top = 600
Width = 11055
Begin zjUseFlg.UsedFlag ItemUsed
Height = 360
Left = 6840
TabIndex = 49
Top = 240
Visible = 0 'False
Width = 795
_ExtentX = 1402
_ExtentY = 635
Object.visible = "True"
Caption = "已使用"
End
Begin PRINTCONTROLLib.PrintControl Printer
Height = 255
Left = 1920
TabIndex = 48
Top = 4560
Visible = 0 'False
Width = 375
_Version = 65536
_ExtentX = 661
_ExtentY = 450
_StockProps = 0
EnableSave = -1 'True
End
Begin VB.Frame Fradlzb
Height = 3495
Left = 2640
TabIndex = 23
Top = 1320
Width = 4215
Begin EDITLib.Edit TxtstanValue
Height = 375
Left = 1200
TabIndex = 6
Top = 1080
Width = 2775
_Version = 65536
_ExtentX = 4895
_ExtentY = 661
_StockProps = 253
ForeColor = 0
BackColor = 16777215
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Enabled = 0 'False
Appearance = 1
Property = 4
NumPoint = 2
MaxLength = 15
BadStr = "',"",|,&,#,*"
Enabled = 0 'False
End
Begin VB.TextBox TxtdlMemo
Enabled = 0 'False
Height = 735
Left = 1200
MaxLength = 120
TabIndex = 17
Top = 2520
Width = 2775
End
Begin VB.TextBox TxtcalMarkFormu
Enabled = 0 'False
Height = 855
Left = 1200
MaxLength = 140
MultiLine = -1 'True
TabIndex = 7
Top = 1560
Width = 2775
End
Begin VB.TextBox TxtcalFormula
CausesValidation= 0 'False
Enabled = 0 'False
Height = 735
Left = 1200
MaxLength = 120
MultiLine = -1 'True
TabIndex = 5
Top = 240
Width = 2775
End
Begin VB.Label Label9
Caption = "备 注："
Height = 255
Left = 240
TabIndex = 31
Top = 2640
Width = 975
End
Begin VB.Label Label4
Caption = "计分公式："
Height = 255
Left = 120
TabIndex = 27
Top = 1680
Width = 975
End
Begin VB.Label Label2
Caption = "计算公式："
Height = 255
Left = 120
TabIndex = 25
Top = 240
Width = 975
End
Begin VB.Label Label3
Caption = "标 准 值："
Height = 255
Left = 120
TabIndex = 26
Top = 1080
Width = 975
End
End
Begin VB.Frame Frame2
Appearance = 0 'Flat
BackColor = &H80000004&
ForeColor = &H80000008&
Height = 615
Left = 2640
TabIndex = 22
Top = 600
Width = 4215
Begin VB.OptionButton Optdxzb
Caption = "定性指标"
Height = 255
Left = 2400
TabIndex = 4
Top = 240
Width = 1215
End
Begin VB.OptionButton Optdlzb
Caption = "定量指标"
Height = 255
Left = 480
TabIndex = 3
Top = 240
Width = 1095
End
End
Begin VB.TextBox TxtitemName
CausesValidation= 0 'False
Enabled = 0 'False
Height = 270
Left = 4080
MaxLength = 50
TabIndex = 2
Top = 240
Width = 2415
End
Begin MSComctlLib.TreeView TreeView1
Height = 4575
Left = 120
TabIndex = 1
Top = 240
Width = 2415
_ExtentX = 4260
_ExtentY = 8070
_Version = 393217
LabelEdit = 1
Style = 7
SingleSel = -1 'True
ImageList = "ilsTlb"
Appearance = 1
End
Begin MSComctlLib.ImageList ImageList1
Left = 2640
Top = 720
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin VB.Frame Fradxzb
Height = 3135
Left = 2640
TabIndex = 24
Top = 1440
Width = 3255
Begin VB.TextBox Txtdxmemo
Enabled = 0 'False
Height = 375
Left = 960
MaxLength = 120
TabIndex = 19
Top = 2460
Width = 2055
End
Begin MsSuperGrid.SuperGrid dxItemSG1
Height = 1695
Left = 120
TabIndex = 18
Top = 600
Width = 3015
_ExtentX = 5318
_ExtentY = 2990
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EditBorderStyle = 0
MouseIcon = "评价指标.frx":0000
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowBigSelection= 0 'False
End
Begin VB.Label Label6
Caption = "备注："
Height = 255
Left = 120
TabIndex = 29
Top = 2520
Width = 615
End
Begin VB.Label Label5
Caption = "计算基准/计分基准"
Height = 255
Left = 120
TabIndex = 28
Top = 240
Width = 1695
End
End
Begin VB.Frame FraInpFormu
Height = 4215
Left = 7080
TabIndex = 30
Top = 600
Visible = 0 'False
Width = 2175
Begin VB.Frame Frame5
Height = 1335
Left = 120
TabIndex = 34
Top = 2640
Width = 1935
Begin VB.CommandButton cmdReinp
Caption = "重输"
Height = 255
Left = 1080
TabIndex = 46
Top = 960
Width = 735
End
Begin VB.CommandButton cmdComma
Caption = "·"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 45
Top = 960
Width = 855
End
Begin VB.CommandButton cmdnum
Caption = "9"
Height = 255
Index = 9
Left = 1560
TabIndex = 44
Top = 600
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "8"
Height = 255
Index = 8
Left = 1200
TabIndex = 43
Top = 600
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "7"
Height = 255
Index = 7
Left = 840
TabIndex = 42
Top = 600
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "6"
Height = 255
Index = 6
Left = 480
TabIndex = 41
Top = 600
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "5"
Height = 255
Index = 5
Left = 120
TabIndex = 40
Top = 600
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "4"
Height = 255
Index = 4
Left = 1560
TabIndex = 39
Top = 240
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "3"
Height = 255
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -