📄 lsjl2frm.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form lsjl2frm
Caption = "二号反应釜批次记录"
ClientHeight = 5130
ClientLeft = 45
ClientTop = 330
ClientWidth = 7500
ClipControls = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5130
ScaleWidth = 7500
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00000000&
Height = 2040
Left = 1200
ScaleHeight = 132
ScaleMode = 3 'Pixel
ScaleWidth = 329
TabIndex = 45
ToolTipText = "显示查询日某批次的曲线"
Top = 1944
Width = 5000
End
Begin VB.OptionButton optData
Caption = "数据"
Height = 180
Left = 40
TabIndex = 43
ToolTipText = "显示某批次的详细数据"
Top = 3432
Width = 612
End
Begin VB.OptionButton optChart
Caption = "曲线"
Height = 180
Left = 40
TabIndex = 42
ToolTipText = "显示某批次的曲线"
Top = 3912
Width = 612
End
Begin VB.TextBox Text6
DataField = "starttime"
DataSource = "Data2"
Height = 264
Left = 3564
Locked = -1 'True
TabIndex = 28
TabStop = 0 'False
Top = 840
Width = 936
End
Begin VB.TextBox Text7
DataField = "endtime"
DataSource = "Data2"
Height = 264
Left = 4560
Locked = -1 'True
TabIndex = 27
TabStop = 0 'False
Top = 840
Width = 984
End
Begin VB.TextBox Text4
DataField = "jingzhiliang"
DataSource = "Data2"
Height = 264
Left = 5604
Locked = -1 'True
TabIndex = 26
TabStop = 0 'False
Top = 840
Width = 744
End
Begin VB.TextBox Text8
DataField = "chuliang"
DataSource = "Data2"
Height = 264
Left = 6156
Locked = -1 'True
TabIndex = 25
TabStop = 0 'False
Top = 1428
Width = 1116
End
Begin VB.TextBox Text9
DataField = "caozuogong"
DataSource = "Data2"
Height = 264
Left = 2280
Locked = -1 'True
TabIndex = 24
TabStop = 0 'False
Top = 840
Width = 1224
End
Begin VB.TextBox Text10
DataField = "toulufang"
DataSource = "Data2"
Height = 264
Left = 6408
Locked = -1 'True
TabIndex = 23
TabStop = 0 'False
Top = 840
Width = 864
End
Begin VB.TextBox Text11
DataField = "zdph"
DataSource = "Data2"
Height = 264
Left = 3780
Locked = -1 'True
TabIndex = 22
TabStop = 0 'False
Top = 1428
Width = 876
End
Begin VB.TextBox Text12
DataField = "yansuan"
DataSource = "Data2"
Height = 264
Left = 1668
Locked = -1 'True
TabIndex = 21
TabStop = 0 'False
Top = 1428
Width = 864
End
Begin VB.TextBox Text13
DataField = "banci"
DataSource = "Data2"
Height = 264
Left = 1476
Locked = -1 'True
TabIndex = 20
TabStop = 0 'False
Top = 840
Width = 744
End
Begin VB.TextBox Text15
DataField = "bujialufang"
DataSource = "Data2"
Height = 264
Left = 2604
Locked = -1 'True
TabIndex = 19
TabStop = 0 'False
Top = 1428
Width = 1116
End
Begin VB.TextBox Text16
DataField = "hcyzongliang"
DataSource = "Data2"
Height = 264
Left = 4728
Locked = -1 'True
TabIndex = 18
TabStop = 0 'False
Top = 1428
Width = 1356
End
Begin VB.TextBox Text5
DataField = "yjatouliaoliang"
DataSource = "Data2"
Height = 264
Left = 722
Locked = -1 'True
TabIndex = 17
TabStop = 0 'False
Top = 1440
Width = 876
End
Begin VB.TextBox Text14
DataField = "pici"
DataSource = "Data2"
Height = 264
Left = 722
Locked = -1 'True
TabIndex = 16
TabStop = 0 'False
Top = 840
Width = 696
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.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 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.CommandButton cmdOption
Caption = "曲线选项&O"
Height = 372
Left = 5148
MouseIcon = "lsjl2frm.frx":0000
MousePointer = 99 'Custom
TabIndex = 7
ToolTipText = "设置曲线变化幅度上下限"
Top = 4560
Width = 948
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\ylg2\lsdata\lsjl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 324
Left = 6480
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4440
Visible = 0 'False
Width = 912
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 = 6516
MouseIcon = "lsjl2frm.frx":0152
MousePointer = 99 'Custom
Picture = "lsjl2frm.frx":02A4
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "退出本窗口"
Top = 4560
Width = 588
End
Begin VB.CommandButton cmdLast
Caption = "最后批次&L"
Enabled = 0 'False
Height = 372
Left = 4092
MouseIcon = "lsjl2frm.frx":0466
MousePointer = 99 'Custom
TabIndex = 6
ToolTipText = "返回查询日最后批次记录"
Top = 4560
Width = 948
End
Begin VB.CommandButton cmdNext
Caption = "下一批次&N"
Enabled = 0 'False
Height = 372
Left = 3072
MouseIcon = "lsjl2frm.frx":05B8
MousePointer = 99 'Custom
TabIndex = 5
ToolTipText = "返回查询日当前批次的下一批次记录"
Top = 4560
Width = 948
End
Begin VB.CommandButton cmdPrevious
Caption = "上一批次&P"
Enabled = 0 'False
Height = 372
Left = 2064
MouseIcon = "lsjl2frm.frx":070A
MousePointer = 99 'Custom
TabIndex = 4
ToolTipText = "返回查询日当前批次的上一批次记录"
Top = 4560
Width = 948
End
Begin VB.CommandButton cmdFirst
Caption = "第一批次&F"
Enabled = 0 'False
Height = 372
Left = 1056
MouseIcon = "lsjl2frm.frx":085C
MousePointer = 99 'Custom
TabIndex = 3
ToolTipText = "返回查询日的第一批次记录"
Top = 4560
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -