?? frm學生成績1.frm
字號:
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 0
Left = 480
TabIndex = 29
Top = 540
Width = 600
End
Begin VB.Label lblLabels
Caption = "姓名:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 1
Left = 480
TabIndex = 28
Top = 855
Width = 600
End
Begin VB.Label lblLabels
Caption = "語文:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 2
Left = 480
TabIndex = 27
Top = 1185
Width = 600
End
Begin VB.Label lblLabels
Caption = "數學:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 3
Left = 480
TabIndex = 26
Top = 1500
Width = 600
End
Begin VB.Label lblLabels
Caption = "物理:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 4
Left = 480
TabIndex = 25
Top = 1815
Width = 600
End
Begin VB.Label lblLabels
Caption = "化學:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 5
Left = 480
TabIndex = 24
Top = 2145
Width = 600
End
Begin VB.Label lblLabels
Caption = "體育:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 6
Left = 2640
TabIndex = 23
Top = 540
Width = 600
End
Begin VB.Label lblLabels
Caption = "政治:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 7
Left = 2640
TabIndex = 22
Top = 855
Width = 600
End
Begin VB.Label lblLabels
Caption = "生物:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 8
Left = 2640
TabIndex = 21
Top = 1185
Width = 600
End
Begin VB.Label lblLabels
Caption = "外語:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 9
Left = 2640
TabIndex = 20
Top = 1500
Width = 600
End
Begin VB.Label lblLabels
Caption = "總分:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 10
Left = 2640
TabIndex = 19
Top = 1815
Width = 600
End
Begin VB.Label lblLabels
Caption = "平均分:"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 11
Left = 2400
TabIndex = 18
Top = 2145
Width = 840
End
Begin VB.Label Label1
Caption = "學 生 成 績"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 1680
TabIndex = 17
Top = 120
Width = 1695
End
End
Attribute VB_Name = "frm學生成績"
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
End Sub
Private Sub cmdXSDA_Click()
frm學生檔案.Show
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 + -