📄 lsjl1frm.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form lsjl1frm
Caption = "一号反应釜批次记录"
ClientHeight = 5130
ClientLeft = 45
ClientTop = 270
ClientWidth = 7440
ClipControls = 0 'False
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5130
ScaleWidth = 7440
Begin VB.OptionButton optChart
Caption = "曲线"
Height = 180
Left = 40
TabIndex = 49
ToolTipText = "显示某批次的曲线"
Top = 3960
Width = 610
End
Begin VB.OptionButton optData
Caption = "数据"
Height = 180
Left = 40
TabIndex = 48
ToolTipText = "显示某批次的详细数据"
Top = 3480
Width = 610
End
Begin VB.TextBox Text14
DataField = "pici"
DataSource = "Data2"
Height = 264
Left = 696
Locked = -1 'True
TabIndex = 47
TabStop = 0 'False
Top = 840
Width = 696
End
Begin VB.TextBox Text5
DataField = "yjatouliaoliang"
DataSource = "Data2"
Height = 264
Left = 696
Locked = -1 'True
TabIndex = 46
TabStop = 0 'False
Top = 1440
Width = 876
End
Begin VB.TextBox Text16
DataField = "hcyzongliang"
DataSource = "Data2"
Height = 264
Left = 4704
Locked = -1 'True
TabIndex = 44
TabStop = 0 'False
Top = 1428
Width = 1356
End
Begin VB.TextBox Text15
DataField = "bujialufang"
DataSource = "Data2"
Height = 264
Left = 2580
Locked = -1 'True
TabIndex = 37
TabStop = 0 'False
Top = 1428
Width = 1116
End
Begin VB.TextBox Text13
DataField = "banci"
DataSource = "Data2"
Height = 264
Left = 1452
Locked = -1 'True
TabIndex = 36
TabStop = 0 'False
Top = 840
Width = 744
End
Begin VB.TextBox Text12
DataField = "yansuan"
DataSource = "Data2"
Height = 264
Left = 1644
Locked = -1 'True
TabIndex = 35
TabStop = 0 'False
Top = 1428
Width = 864
End
Begin VB.TextBox Text11
DataField = "zdph"
DataSource = "Data2"
Height = 264
Left = 3756
Locked = -1 'True
TabIndex = 34
TabStop = 0 'False
Top = 1428
Width = 876
End
Begin VB.TextBox Text10
DataField = "toulufang"
DataSource = "Data2"
Height = 264
Left = 6384
Locked = -1 'True
TabIndex = 33
TabStop = 0 'False
Top = 840
Width = 864
End
Begin VB.TextBox Text9
DataField = "caozuogong"
DataSource = "Data2"
Height = 264
Left = 2256
Locked = -1 'True
TabIndex = 31
TabStop = 0 'False
Top = 840
Width = 1224
End
Begin VB.TextBox Text8
DataField = "chuliang"
DataSource = "Data2"
Height = 264
Left = 6132
Locked = -1 'True
TabIndex = 29
TabStop = 0 'False
Top = 1428
Width = 1116
End
Begin VB.TextBox Text4
DataField = "jingzhiliang"
DataSource = "Data2"
Height = 264
Left = 5580
Locked = -1 'True
TabIndex = 28
TabStop = 0 'False
Top = 840
Width = 744
End
Begin VB.CommandButton cmdOption
Caption = "曲线选项&O"
Height = 372
Left = 4944
MouseIcon = "lsjl1frm.frx":0000
MousePointer = 99 'Custom
TabIndex = 7
ToolTipText = "设置曲线变化幅度的上下限"
Top = 4560
Width = 948
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "D:\ylg2\lsdata\lsjl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Enabled = 0 'False
Exclusive = 0 'False
Height = 372
Left = 4080
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "batchls1"
Top = 4440
Visible = 0 'False
Width = 1632
End
Begin VB.TextBox Text7
DataField = "endtime"
DataSource = "Data2"
Height = 264
Left = 4536
Locked = -1 'True
TabIndex = 18
TabStop = 0 'False
Top = 840
Width = 984
End
Begin VB.TextBox Text6
DataField = "starttime"
DataSource = "Data2"
Height = 264
Left = 3540
Locked = -1 'True
TabIndex = 17
TabStop = 0 'False
Top = 840
Width = 936
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3480
TabIndex = 2
Top = 72
Width = 480
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2784
TabIndex = 1
Top = 72
Width = 468
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 324
Left = 1920
TabIndex = 0
Top = 90
Width = 612
End
Begin VB.CommandButton cmdFirst
Caption = "第一批次&F"
Enabled = 0 'False
Height = 372
Left = 1056
MouseIcon = "lsjl1frm.frx":0152
MousePointer = 99 'Custom
TabIndex = 3
ToolTipText = "返回查询日的第一批次记录"
Top = 4560
Width = 948
End
Begin VB.CommandButton cmdPrevious
Caption = "上一批次&P"
Enabled = 0 'False
Height = 372
Left = 2028
MouseIcon = "lsjl1frm.frx":02A4
MousePointer = 99 'Custom
TabIndex = 4
ToolTipText = "返回查询日当前批次的上一批次记录"
Top = 4560
Width = 948
End
Begin VB.CommandButton cmdNext
Caption = "下一批次&N"
Enabled = 0 'False
Height = 372
Left = 3000
MouseIcon = "lsjl1frm.frx":03F6
MousePointer = 99 'Custom
TabIndex = 5
ToolTipText = "返回查询日当前批次的下一批次记录"
Top = 4560
Width = 948
End
Begin VB.CommandButton cmdLast
Caption = "最后批次&L"
Enabled = 0 'False
Height = 372
Left = 3972
MouseIcon = "lsjl1frm.frx":0548
MousePointer = 99 'Custom
TabIndex = 6
ToolTipText = "返回查询日的最后批次"
Top = 4560
Width = 948
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "lsjl1frm.frx":069A
Height = 240
Left = 648
OleObjectBlob = "lsjl1frm.frx":06AE
TabIndex = 10
ToolTipText = "显示查询日某批次的详细记录"
Top = 1764
Width = 6612
End
Begin VB.CommandButton Command5
Cancel = -1 'True
Caption = "退出&B"
BeginProperty Font
Name = "隶书"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 6300
MouseIcon = "lsjl1frm.frx":1AE9
MousePointer = 99 'Custom
Picture = "lsjl1frm.frx":1C3B
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "退出本窗口"
Top = 4560
Width = 588
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -