📄 datasinput.frm
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form DatasInput
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "系统参数录入"
ClientHeight = 10740
ClientLeft = -15
ClientTop = 615
ClientWidth = 15270
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Icon = "DatasInput.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 10740
ScaleWidth = 15270
StartUpPosition = 2 '屏幕中心
Begin Threed.SSFrame SSFrame10
Height = 855
Left = 120
TabIndex = 22
Top = 9840
Width = 14955
_Version = 65536
_ExtentX = 26379
_ExtentY = 1508
_StockProps = 14
Caption = "提 示"
ForeColor = 255
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
ShadowStyle = 1
Begin VB.Label NoticeW
AutoSize = -1 'True
Caption = "提示"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 120
TabIndex = 23
Top = 360
Width = 420
End
End
Begin Threed.SSFrame Add_ModSSF
Height = 9705
Left = 120
TabIndex = 0
Top = 0
Width = 14955
_Version = 65536
_ExtentX = 26379
_ExtentY = 17119
_StockProps = 14
Caption = "添 加 数 据"
ForeColor = 8388608
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
ShadowStyle = 1
Begin Threed.SSFrame SSFrame8
Height = 1455
Left = 120
TabIndex = 17
Top = 8040
Width = 2895
_Version = 65536
_ExtentX = 5106
_ExtentY = 2566
_StockProps = 14
Caption = "命令按钮"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
ShadowStyle = 1
Begin Threed.SSCommand Save_Commmand
Height = 450
Left = 360
TabIndex = 21
Top = 600
Width = 1995
_Version = 65536
_ExtentX = 3519
_ExtentY = 794
_StockProps = 78
Caption = "数 据 存 储"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Threed.SSCommand Modify_Command
Height = 450
Left = 360
TabIndex = 18
Top = 600
Width = 1995
_Version = 65536
_ExtentX = 3519
_ExtentY = 794
_StockProps = 78
Caption = "数 据 存 储"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin Threed.SSFrame SSFrame7
Height = 1095
Left = 120
TabIndex = 16
Top = 6375
Width = 2895
_Version = 65536
_ExtentX = 5106
_ExtentY = 1931
_StockProps = 14
Caption = "举 升 方 式"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
ShadowStyle = 1
Begin VB.ComboBox LiftingMethodComb
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
ItemData = "DatasInput.frx":0442
Left = 600
List = "DatasInput.frx":0449
TabIndex = 75
Text = "抽油机"
Top = 480
Width = 1815
End
End
Begin Threed.SSFrame SSFrame4
Height = 9015
Left = 9960
TabIndex = 11
Top = 480
Width = 4785
_Version = 65536
_ExtentX = 8440
_ExtentY = 15901
_StockProps = 14
Caption = "井身结构参数"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
ShadowStyle = 1
Begin VB.OptionButton WellStrOption
Caption = "铅垂直井"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 20
Top = 353
Value = -1 'True
Width = 1320
End
Begin VB.OptionButton WellDireOption
Caption = "定向井"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3000
TabIndex = 19
Top = 360
Width = 1110
End
Begin VB.TextBox InputNum
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 2640
TabIndex = 12
Top = 2460
Width = 1305
End
Begin MSFlexGridLib.MSFlexGrid MSF
Height = 8100
Left = 120
TabIndex = 13
Top = 720
Width = 4485
_ExtentX = 7911
_ExtentY = 14288
_Version = 393216
Cols = 4
FixedRows = 0
FixedCols = 0
BackColor = 14737632
ForeColor = -2147483646
BackColorBkg = 16777215
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin Threed.SSFrame SSFrame2
Height = 6615
Index = 14
Left = 3240
TabIndex = 28
Top = 480
Width = 6375
_Version = 65536
_ExtentX = 11245
_ExtentY = 11668
_StockProps = 14
Caption = "油 井 基 本 参 数"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Alignment = 2
ShadowStyle = 1
Begin VB.TextBox OilWellDatasT
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -