📄 form7.frm
字号:
VERSION 5.00
Begin VB.Form form7
Caption = "型材库"
ClientHeight = 5280
ClientLeft = 1110
ClientTop = 450
ClientWidth = 7860
LinkTopic = "Form9"
ScaleHeight = 5280
ScaleWidth = 7860
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 300
Left = 4440
TabIndex = 28
Top = 4200
Width = 975
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 3360
TabIndex = 27
Top = 4200
Width = 975
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 2280
TabIndex = 26
Top = 4200
Width = 975
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 1200
TabIndex = 25
Top = 4200
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 120
TabIndex = 24
Top = 4200
Width = 975
End
Begin VB.Data Data1
Align = 2 'Align Bottom
Connect = "Access"
DatabaseName = ".\型材库.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "型材库"
Top = 4935
Width = 7860
End
Begin VB.TextBox txtFields
DataField = "对X-X轴的惯性半径r(cm)"
DataSource = "Data1"
Height = 285
Index = 11
Left = 3360
TabIndex = 23
Top = 3555
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "对X-X轴的最小剖面模数W(cm^3)"
DataSource = "Data1"
Height = 285
Index = 10
Left = 3360
TabIndex = 21
Top = 3240
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "对X-X轴惯性矩I(cm^4)"
DataSource = "Data1"
Height = 285
Index = 9
Left = 3360
TabIndex = 19
Top = 2925
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "带板厚度(mm)"
DataSource = "Data1"
Height = 285
Index = 8
Left = 3360
TabIndex = 17
Top = 2595
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "带板宽度(mm)"
DataSource = "Data1"
Height = 285
Index = 7
Left = 3360
TabIndex = 15
Top = 2280
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "型材自身中和轴x1-x1位置(cm)"
DataSource = "Data1"
Height = 285
Index = 6
Left = 3360
TabIndex = 13
Top = 1965
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "型材自身惯性矩I1(cm^3)"
DataSource = "Data1"
Height = 285
Index = 5
Left = 3360
TabIndex = 11
Top = 1635
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "型材剖面积A1(mm^2)"
DataSource = "Data1"
Height = 285
Index = 4
Left = 3360
TabIndex = 9
Top = 1320
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "型材厚度t1(mm)"
DataSource = "Data1"
Height = 285
Index = 3
Left = 3360
TabIndex = 7
Top = 1005
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "型材宽度b(mm)"
DataSource = "Data1"
Height = 285
Index = 2
Left = 3360
TabIndex = 5
Top = 675
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "型材高度h(mm)"
DataSource = "Data1"
Height = 285
Index = 1
Left = 3360
TabIndex = 3
Top = 360
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "型材名称"
DataSource = "Data1"
Height = 285
Index = 0
Left = 3360
MaxLength = 50
TabIndex = 1
Top = 45
Width = 1935
End
Begin VB.Label lblLabels
Caption = "对X-X轴的惯性半径r(cm):"
Height = 255
Index = 11
Left = 120
TabIndex = 22
Top = 3585
Width = 2895
End
Begin VB.Label lblLabels
Caption = "对X-X轴的最小剖面模数W(cm^3):"
Height = 255
Index = 10
Left = 120
TabIndex = 20
Top = 3255
Width = 2895
End
Begin VB.Label lblLabels
Caption = "对X-X轴惯性矩I(cm^4):"
Height = 255
Index = 9
Left = 120
TabIndex = 18
Top = 2940
Width = 2655
End
Begin VB.Label lblLabels
Caption = "带板厚度(mm):"
Height = 255
Index = 8
Left = 120
TabIndex = 16
Top = 2625
Width = 3015
End
Begin VB.Label lblLabels
Caption = "带板宽度(mm):"
Height = 255
Index = 7
Left = 120
TabIndex = 14
Top = 2295
Width = 2895
End
Begin VB.Label lblLabels
Caption = "型材自身中和轴x1-x1位置(cm):"
Height = 255
Index = 6
Left = 120
TabIndex = 12
Top = 1980
Width = 2895
End
Begin VB.Label lblLabels
Caption = "型材自身惯性矩I1(cm^3):"
Height = 255
Index = 5
Left = 120
TabIndex = 10
Top = 1665
Width = 2895
End
Begin VB.Label lblLabels
Caption = "型材剖面积A1(mm^2):"
Height = 255
Index = 4
Left = 120
TabIndex = 8
Top = 1335
Width = 2895
End
Begin VB.Label lblLabels
Caption = "型材厚度t1(mm):"
Height = 255
Index = 3
Left = 120
TabIndex = 6
Top = 1020
Width = 2775
End
Begin VB.Label lblLabels
Caption = "型材宽度b(mm):"
Height = 255
Index = 2
Left = 120
TabIndex = 4
Top = 705
Width = 2655
End
Begin VB.Label lblLabels
Caption = "型材高度h(mm):"
Height = 255
Index = 1
Left = 120
TabIndex = 2
Top = 375
Width = 2535
End
Begin VB.Label lblLabels
Caption = "型材名称:"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 60
Width = 2655
End
End
Attribute VB_Name = "form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
form7.Hide
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误，在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象，当记录集创建后并使用下面的行时，
'必须设置 Index 属性
'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时，调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -