📄 form7.frm
字号:
VERSION 5.00
Begin VB.Form Form7
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
Caption = "物性参数数据库操作"
ClientHeight = 3675
ClientLeft = 60
ClientTop = 630
ClientWidth = 4380
LinkTopic = "Form7"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3675
ScaleWidth = 4380
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "操作方式"
Height = 2775
Left = 120
TabIndex = 22
Top = 840
Width = 1335
Begin VB.CommandButton Command6
Caption = "删除数据"
Height = 300
Left = 200
TabIndex = 29
Top = 2040
Width = 975
End
Begin VB.CommandButton Command4
Caption = "取消"
Height = 300
Left = 200
TabIndex = 28
Top = 1320
Width = 975
End
Begin VB.CommandButton Command3
Caption = "保存数据"
Height = 300
Left = 200
TabIndex = 27
Top = 960
Width = 975
End
Begin VB.CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "数据查询"
Default = -1 'True
Height = 300
Left = 200
TabIndex = 26
Top = 240
Width = 975
End
Begin VB.CommandButton Command2
Caption = "添加数据"
Height = 300
Left = 200
TabIndex = 25
Top = 580
Width = 975
End
Begin VB.CommandButton Command5
Caption = "修改数据"
Height = 300
Left = 200
TabIndex = 24
Top = 1680
Width = 975
End
Begin VB.CommandButton Command7
Caption = "返回"
Height = 300
Left = 200
TabIndex = 23
Top = 2400
Width = 975
End
End
Begin VB.TextBox Text1
Height = 270
Index = 9
Left = 3240
TabIndex = 21
Top = 3360
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 8
Left = 3240
TabIndex = 20
Top = 3000
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 7
Left = 3240
TabIndex = 19
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 6
Left = 3240
TabIndex = 18
Top = 2280
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 5
Left = 3240
TabIndex = 17
Top = 1920
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 4
Left = 3240
TabIndex = 16
Top = 1560
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 3
Left = 3240
TabIndex = 15
Top = 1200
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 2
Left = 3240
TabIndex = 14
Top = 840
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 1
Left = 3240
TabIndex = 13
Top = 480
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Index = 0
Left = 3240
TabIndex = 12
Top = 120
Width = 975
End
Begin VB.ComboBox Combo1
BackColor = &H80000018&
Height = 315
Left = 120
TabIndex = 1
Top = 360
Width = 1455
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "安托尼常数C："
Height = 180
Index = 9
Left = 1920
TabIndex = 11
Top = 3360
Width = 1170
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "安托尼常数B："
Height = 180
Index = 8
Left = 1920
TabIndex = 10
Top = 3000
Width = 1170
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "安托尼常数A："
Height = 180
Index = 7
Left = 1920
TabIndex = 9
Top = 2640
Width = 1170
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "偏心因子wc："
Height = 180
Index = 6
Left = 1920
TabIndex = 8
Top = 2280
Width = 1080
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "临界压缩因子Zc："
Height = 195
Index = 5
Left = 1920
TabIndex = 7
Top = 1920
Width = 1455
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "临界体积Vc："
Height = 195
Index = 4
Left = 1920
TabIndex = 6
Top = 1560
Width = 1095
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "临界温度Tc："
Height = 195
Index = 3
Left = 1920
TabIndex = 5
Top = 1200
Width = 1095
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "临界压力Pc："
Height = 195
Index = 2
Left = 1920
TabIndex = 4
Top = 840
Width = 1095
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "常压沸点Tb："
Height = 195
Index = 1
Left = 1920
TabIndex = 3
Top = 480
Width = 1095
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "物质名称"
Height = 195
Index = 0
Left = 1920
TabIndex = 2
Top = 120
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "中文名"
Height = 180
Left = 120
TabIndex = 0
Top = 120
Width = 540
End
Begin VB.Menu chaxun
Caption = "查询方式"
Begin VB.Menu yingwen
Caption = "通过英文名检索"
End
Begin VB.Menu zhongwen
Caption = "通过中文名检索"
End
Begin VB.Menu fenzishi
Caption = "通过分子式检索"
End
End
End
Attribute VB_Name = "FORM7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox "您还未选择要查询的物质！请选择！", vbOKCancel + vbQuestion, "程序"
Else
myRecord.Index = "物质中文名"
myRecord.Seek "=", Combo1.Text
Showdata '调用过程显示数据
End If
End Sub
Private Sub Command2_Click()
Command1.Enabled = False
Command2.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
myRecord.AddNew
Dim i%, j%
For i = 0 To 9
Text1(i) = ""
Next i
Text1(0).SetFocus
End Sub
Private Sub Command3_Click()
On Error Resume Next
Dim i%
For i = 0 To 9
If Text1(i).Text = "" Then
MsgBox "数据还不完整！" + Chr(13) + Chr(10) + Label2(i).Caption + "的数据还没有填写！请填写！", vbOKCancel + vbQuestion, "程序"
Exit Sub
End If
Next i
myRecord.Fields("物质中文名").Value = Text1(0).Text
myRecord.Fields("常压沸点").Value = Text1(1).Text
myRecord.Fields("临界压力Pc").Value = Text1(2).Text
myRecord.Fields("临界温度Tc").Value = Text1(3).Text
myRecord.Fields("临界体积Vc").Value = Text1(4).Text
myRecord.Fields("临界压缩因子Zc").Value = Text1(5).Text
myRecord.Fields("偏心因子wc").Value = Text1(6).Text
myRecord.Fields("安托尼常数A").Value = Text1(7).Text
myRecord.Fields("安托尼常数B").Value = Text1(8).Text
myRecord.Fields("安托尼常数C").Value = Text1(9).Text
myRecord.Update
MsgBox "数据保存成功！", vbOKCancel + vbQuestion, "程序"
Command1.Enabled = True
Command2.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
myRecord.MoveFirst
Combo1.Clear
Do While myRecord.EOF = False
Combo1.AddItem myRecord.Fields("物质中文名").Value
myRecord.MoveNext
Loop
Showdata '调用过程显示数据
End Sub
Private Sub Command4_Click()
Command1.Enabled = True
Command2.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
On Error GoTo bb
myRecord.CancelUpdate
myRecord.MoveFirst
Showdata '调用过程显示数据
Exit Sub
bb:
MsgBox "取消无效！", vbOKCancel + vbQuestion, "程序"
End Sub
Private Sub Command5_Click()
Dim i%, m%
For i = 0 To 9
If Text1(i).Text = "" Then
m = 1
If m = 1 Then Exit For
End If
Next i
On Error GoTo bb
If m = 1 Then
MsgBox "当前数据没选还不修改！", vbOKCancel + vbQuestion, "程序"
Exit Sub
Else
myRecord.Edit
End If
Command1.Enabled = False
Command2.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Exit Sub
bb:
For i = 0 To 9
Text1(i).Text = ""
Next i
MsgBox "当前数据修改失败！", vbOKCancel + vbQuestion, "程序"
End Sub
Private Sub Command6_Click()
Dim i%, m%, s%
For i = 0 To 9
If Text1(i).Text = "" Then
m = 1
Exit For
End If
Next i
On Error GoTo bb
If Combo1.Text = "" Or m = 1 Then
MsgBox "当前数据没选还不删除！", vbOKCancel + vbQuestion, "程序"
Else
s = MsgBox("您真的要删除该数据吗?", vbOKCancel + vbQuestion, "程序")
If s = 1 Then
myRecord.Delete
MsgBox "数据删除成功！", vbOKCancel + vbQuestion, "程序"
For i = 0 To 9 '清空被删除的数据
Text1(i).Text = ""
Next i
End If
End If
myRecord.MoveFirst
Combo1.Clear
Do While myRecord.EOF = False
Combo1.AddItem myRecord.Fields("物质中文名").Value
myRecord.MoveNext
Loop
Showdata '调用过程显示数据
Exit Sub
bb:
End Sub
Private Sub Command7_Click()
Unload Me
Form1.Show
End Sub
Private Sub Form_Load()
Command3.Enabled = False
Command4.Enabled = False
Set myWork = DBEngine.Workspaces(0)
Set myData = myWork.OpenDatabase(App.Path & "\物质参数.mdb", , ";")
Set myRecord = myData.OpenRecordset("物性参数数据")
Combo1.Clear
Do While myRecord.EOF = False
Combo1.AddItem myRecord.Fields("物质中文名").Value
myRecord.MoveNext
Loop
End Sub
Private Sub Showdata()
On Error Resume Next
Text1(0).Text = myRecord.Fields("物质中文名").Value
Text1(1).Text = myRecord.Fields("常压沸点").Value
Text1(2).Text = myRecord.Fields("临界压力Pc").Value
Text1(3).Text = myRecord.Fields("临界温度Tc").Value
Text1(4).Text = myRecord.Fields("临界体积Vc").Value
Text1(5).Text = myRecord.Fields("临界压缩因子Zc").Value
Text1(6).Text = myRecord.Fields("偏心因子wc").Value
Text1(7).Text = myRecord.Fields("安托尼常数A").Value
Text1(8).Text = myRecord.Fields("安托尼常数B").Value
Text1(9).Text = myRecord.Fields("安托尼常数C").Value
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -