📄 form3.frm
字号:
VERSION 5.00
Begin VB.Form formeditclass
Caption = "修改班级信息"
ClientHeight = 3735
ClientLeft = 60
ClientTop = 345
ClientWidth = 6960
ControlBox = 0 'False
LinkTopic = "Form3"
MaxButton = 0 'False
ScaleHeight = 3735
ScaleWidth = 6960
StartUpPosition = 2 '屏幕中心
Begin VB.Data Data1
Align = 2 'Align Bottom
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3390
Width = 6960
End
Begin VB.Frame 修改班级信息
Caption = "修改班级信息"
Height = 975
Left = 120
TabIndex = 4
Top = 2280
Width = 6735
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 5520
TabIndex = 13
Top = 360
Width = 975
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 4200
TabIndex = 12
Top = 360
Width = 975
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2880
TabIndex = 11
Top = 360
Width = 975
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1560
TabIndex = 10
Top = 360
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 240
TabIndex = 9
Top = 360
Width = 975
End
End
Begin VB.TextBox Text2
DataField = "教室"
DataSource = "Data1"
Height = 375
Left = 4680
TabIndex = 3
Top = 1440
Width = 1575
End
Begin VB.TextBox Text1
DataField = "班主任"
DataSource = "Data1"
Height = 375
Left = 1560
TabIndex = 2
Top = 1440
Width = 1575
End
Begin VB.ComboBox Combo2
DataField = "年级"
DataSource = "Data1"
Height = 300
Left = 4680
TabIndex = 1
Top = 480
Width = 1575
End
Begin VB.ComboBox Combo1
DataField = "班号"
DataSource = "Data1"
Height = 300
Left = 1560
TabIndex = 0
Top = 480
Width = 1575
End
Begin VB.Label Label4
Caption = "教室"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 8
Top = 1560
Width = 735
End
Begin VB.Label Label3
Caption = "班主任"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 7
Top = 1560
Width = 735
End
Begin VB.Label Label2
Caption = "年级"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 6
Top = 480
Width = 735
End
Begin VB.Label Label1
Caption = "班号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 5
Top = 480
Width = 735
End
End
Attribute VB_Name = "formeditclass"
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()
If MsgBox("您确认删除这条记录吗？", vbExclamation + vbYesNo, "提示信息：") = vbYes Then
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
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 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
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\student.mdb"
Data1.RecordSource = ("select * from class_info ")
Combo1.AddItem "20001"
Combo1.AddItem "20002"
Combo1.AddItem "20003"
Combo1.AddItem "20004"
Combo2.AddItem "一年级"
Combo2.AddItem "二年级"
Combo2.AddItem "三年级"
Combo2.AddItem "四年级"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -