📄 frmchuliang.frm
字号:
VERSION 5.00
Begin VB.Form frmChuLiang
Caption = "反应数据录入窗口"
ClientHeight = 3180
ClientLeft = 48
ClientTop = 336
ClientWidth = 5436
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3180
ScaleWidth = 5436
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txtTouLvFang
DataField = "toulufang"
DataSource = "Data2"
Height = 336
Left = 1600
TabIndex = 2
Top = 1040
Width = 1092
End
Begin VB.TextBox txtPH
DataField = "zdph"
DataSource = "Data2"
Height = 336
Left = 4200
TabIndex = 5
Top = 1480
Width = 1092
End
Begin VB.TextBox txtYanSuan
DataField = "yansuan"
DataSource = "Data2"
Height = 336
Left = 4200
TabIndex = 3
Top = 1044
Width = 1092
End
Begin VB.TextBox txtBanCi
DataField = "banci"
DataSource = "Data2"
Height = 336
Left = 4200
TabIndex = 1
Top = 600
Width = 1092
End
Begin VB.TextBox txtBuLvFang
DataField = "bujialufang"
DataSource = "Data2"
Height = 336
Left = 1600
TabIndex = 4
Top = 1480
Width = 1092
End
Begin VB.TextBox txtHeChengYe
DataField = "hcyzongliang"
DataSource = "Data2"
Height = 336
Left = 1600
TabIndex = 6
Top = 1920
Width = 1092
End
Begin VB.TextBox txtPiCi
DataField = "pici"
DataSource = "Data2"
Height = 336
Left = 1600
TabIndex = 0
Top = 600
Width = 1092
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "取消&C"
Height = 320
Left = 3240
MouseIcon = "frmChuLiang.frx":0000
MousePointer = 99 'Custom
TabIndex = 9
Top = 2520
Width = 732
End
Begin VB.CommandButton Command1
Caption = "确定&O"
Height = 320
Left = 1440
MouseIcon = "frmChuLiang.frx":0152
MousePointer = 99 'Custom
TabIndex = 8
Top = 2520
Width = 732
End
Begin VB.TextBox txtCuYuanYou
Height = 336
Left = 4200
TabIndex = 7
Top = 1920
Width = 1092
End
Begin VB.Label l1
AutoSize = -1 'True
Caption = "投氯仿(kg)"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 120
TabIndex = 18
Top = 1104
Width = 1080
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "批次"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 120
TabIndex = 17
Top = 660
Width = 432
End
Begin VB.Label l3
AutoSize = -1 'True
Caption = "补加氯仿(kg)"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 120
TabIndex = 16
Top = 1560
Width = 1296
End
Begin VB.Label l5
AutoSize = -1 'True
Caption = "合成液总量(kg)"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 120
TabIndex = 15
Top = 1980
Width = 1512
End
Begin VB.Label l6
AutoSize = -1 'True
Caption = "粗原油量(kg)"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 2880
TabIndex = 14
Top = 1980
Width = 1296
End
Begin VB.Label l4
AutoSize = -1 'True
Caption = "终点PH值"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 2880
TabIndex = 13
Top = 1536
Width = 864
End
Begin VB.Label l2
AutoSize = -1 'True
Caption = "盐酸(kg)"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 2880
TabIndex = 12
Top = 1104
Width = 864
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "班次"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 2880
TabIndex = 11
Top = 660
Width = 432
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 3132
Left = 36
Top = 0
Width = 5376
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请输入下列数据存盘："
BeginProperty Font
Name = "隶书"
Size = 13.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 276
Left = 816
TabIndex = 10
Top = 192
Width = 3012
End
End
Attribute VB_Name = "frmChuLiang"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mintfyfNum As Integer
Private Sub Command1_Click()
Call WriteBlackBox
Call WriteResult
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub txtPiCi_GotFocus()
Call GotFocusAgain(txtPiCi)
End Sub
Private Sub txtBanCi_GotFocus()
Call GotFocusAgain(txtBanCi)
End Sub
Private Sub txtTouLvFang_GotFocus()
Call GotFocusAgain(txtTouLvFang)
End Sub
Private Sub txtYanSuan_GotFocus()
Call GotFocusAgain(txtYanSuan)
End Sub
Private Sub txtBuLvFang_GotFocus()
Call GotFocusAgain(txtBuLvFang)
End Sub
Private Sub txtPH_GotFocus()
Call GotFocusAgain(txtPH)
End Sub
Private Sub txtHeChengYe_GotFocus()
Call GotFocusAgain(txtHeChengYe)
End Sub
Private Sub txtCuYuanYou_GotFocus()
Call GotFocusAgain(txtCuYuanYou)
End Sub
Private Sub txtCuYuanYou_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Call WriteBlackBox
Call WriteResult
End If
End Sub
Private Sub WriteResult()
On Error GoTo s
With Batchlsrs(Me.fyfNum)
.MoveLast
.Edit
.Fields("pici") = CSng(txtPiCi.Text)
.Fields("banci") = CSng(txtBanCi.Text)
.Fields("toulufang") = CSng(txtTouLvFang.Text)
.Fields("yansuan") = CSng(txtYanSuan.Text)
.Fields("bujialufang") = CSng(txtBuLvFang.Text)
.Fields("zdph") = CSng(txtPH.Text)
.Fields("hcyzongliang") = CSng(txtHeChengYe.Text)
.Fields("chuliang") = CSng(txtCuYuanYou.Text)
.Update
End With
Unload Me
GoTo s1
s: Call Inform(51)
s1: End Sub
'*******************************
'窗体属性：氧乐果粗原油出量
'*******************************
Public Property Let fyfNum(ByVal vData As Integer)
mintfyfNum = vData
End Property
Public Property Get fyfNum() As Integer
fyfNum = mintfyfNum
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -