📄 frm学生管理查询1.frm
字号:
VERSION 5.00
Begin VB.Form frm学生管理查询
Caption = "查询1"
ClientHeight = 4215
ClientLeft = 1110
ClientTop = 450
ClientWidth = 5910
LinkTopic = "Form2"
ScaleHeight = 4215
ScaleWidth = 5910
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 300
Left = 4680
TabIndex = 40
Top = 3540
Width = 975
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 3600
TabIndex = 39
Top = 3540
Width = 975
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 2520
TabIndex = 38
Top = 3540
Width = 975
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 1440
TabIndex = 37
Top = 3540
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 360
TabIndex = 36
Top = 3540
Width = 975
End
Begin VB.Data Data1
Align = 2 'Align Bottom
Connect = "Access"
DatabaseName = "F:\VB\实例101-\实例104-\学生管理.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "查询1"
Top = 3870
Width = 5910
End
Begin VB.TextBox txtFields
DataField = "平均分"
DataSource = "Data1"
Height = 285
Index = 17
Left = 4440
TabIndex = 35
Top = 3195
Width = 600
End
Begin VB.TextBox txtFields
DataField = "总分"
DataSource = "Data1"
Height = 285
Index = 16
Left = 4440
TabIndex = 33
Top = 2880
Width = 600
End
Begin VB.TextBox txtFields
DataField = "外语"
DataSource = "Data1"
Height = 285
Index = 15
Left = 4440
TabIndex = 31
Top = 2565
Width = 600
End
Begin VB.TextBox txtFields
DataField = "生物"
DataSource = "Data1"
Height = 285
Index = 14
Left = 4440
TabIndex = 29
Top = 2235
Width = 600
End
Begin VB.TextBox txtFields
DataField = "政治"
DataSource = "Data1"
Height = 285
Index = 13
Left = 4440
TabIndex = 27
Top = 1920
Width = 600
End
Begin VB.TextBox txtFields
DataField = "体育"
DataSource = "Data1"
Height = 285
Index = 12
Left = 4440
TabIndex = 25
Top = 1605
Width = 600
End
Begin VB.TextBox txtFields
DataField = "化学"
DataSource = "Data1"
Height = 285
Index = 11
Left = 4440
TabIndex = 23
Top = 1275
Width = 600
End
Begin VB.TextBox txtFields
DataField = "物理"
DataSource = "Data1"
Height = 285
Index = 10
Left = 4440
TabIndex = 21
Top = 960
Width = 600
End
Begin VB.TextBox txtFields
DataField = "数学"
DataSource = "Data1"
Height = 285
Index = 9
Left = 4440
TabIndex = 19
Top = 645
Width = 600
End
Begin VB.TextBox txtFields
DataField = "语文"
DataSource = "Data1"
Height = 285
Index = 8
Left = 4440
TabIndex = 17
Top = 315
Width = 600
End
Begin VB.TextBox txtFields
DataField = "出生日期"
DataSource = "Data1"
Height = 285
Index = 7
Left = 1320
MaxLength = 10
TabIndex = 15
Tag = "1000"
Top = 2640
Width = 1005
End
Begin VB.TextBox txtFields
DataField = "籍贯"
DataSource = "Data1"
Height = 285
Index = 6
Left = 1320
MaxLength = 4
TabIndex = 13
Tag = "1000"
Top = 1800
Width = 1000
End
Begin VB.TextBox txtFields
DataField = "性别"
DataSource = "Data1"
Height = 285
Index = 5
Left = 1320
MaxLength = 2
TabIndex = 11
Tag = "1000"
Top = 1440
Width = 1000
End
Begin VB.TextBox txtFields
DataField = "家庭地址"
DataSource = "Data1"
Height = 285
Index = 4
Left = 1320
MaxLength = 20
TabIndex = 9
Tag = "1000"
Top = 3120
Width = 1965
End
Begin VB.TextBox txtFields
DataField = "电话"
DataSource = "Data1"
Height = 285
Index = 3
Left = 1320
MaxLength = 8
TabIndex = 7
Tag = "1000"
Top = 2160
Width = 1000
End
Begin VB.TextBox txtFields
DataField = "年龄"
DataSource = "Data1"
Height = 285
Index = 2
Left = 1320
TabIndex = 5
Tag = "1000"
Top = 1035
Width = 1000
End
Begin VB.TextBox txtFields
DataField = "姓名"
DataSource = "Data1"
Height = 285
Index = 1
Left = 1320
MaxLength = 8
TabIndex = 3
Tag = "1000"
Top = 720
Width = 1000
End
Begin VB.TextBox txtFields
DataField = "学号"
DataSource = "Data1"
Height = 285
Index = 0
Left = 1320
MaxLength = 4
TabIndex = 1
Tag = "1000"
Top = 405
Width = 1000
End
Begin VB.Label Label1
Caption = "学 生 管 理"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1455
Left = 2760
TabIndex = 41
Top = 960
Width = 495
End
Begin VB.Label lblLabels
Caption = "平均分:"
Height = 255
Index = 17
Left = 3600
TabIndex = 34
Top = 3225
Width = 705
End
Begin VB.Label lblLabels
Caption = "总分:"
Height = 255
Index = 16
Left = 3600
TabIndex = 32
Top = 2895
Width = 705
End
Begin VB.Label lblLabels
Caption = "外语:"
Height = 255
Index = 15
Left = 3600
TabIndex = 30
Top = 2580
Width = 705
End
Begin VB.Label lblLabels
Caption = "生物:"
Height = 255
Index = 14
Left = 3600
TabIndex = 28
Top = 2265
Width = 705
End
Begin VB.Label lblLabels
Caption = "政治:"
Height = 255
Index = 13
Left = 3600
TabIndex = 26
Top = 1935
Width = 705
End
Begin VB.Label lblLabels
Caption = "体育:"
Height = 255
Index = 12
Left = 3600
TabIndex = 24
Top = 1620
Width = 705
End
Begin VB.Label lblLabels
Caption = "化学:"
Height = 255
Index = 11
Left = 3600
TabIndex = 22
Top = 1305
Width = 705
End
Begin VB.Label lblLabels
Caption = "物理:"
Height = 255
Index = 10
Left = 3600
TabIndex = 20
Top = 975
Width = 705
End
Begin VB.Label lblLabels
Caption = "数学:"
Height = 255
Index = 9
Left = 3600
TabIndex = 18
Top = 660
Width = 705
End
Begin VB.Label lblLabels
Caption = "语文:"
Height = 255
Index = 8
Left = 3600
TabIndex = 16
Top = 345
Width = 705
End
Begin VB.Label lblLabels
Caption = "出生日期:"
Height = 255
Index = 7
Left = 240
TabIndex = 14
Top = 2640
Width = 1005
End
Begin VB.Label lblLabels
Caption = "籍贯:"
Height = 255
Index = 6
Left = 240
TabIndex = 12
Top = 1800
Width = 1005
End
Begin VB.Label lblLabels
Caption = "性别:"
Height = 255
Index = 5
Left = 240
TabIndex = 10
Top = 1440
Width = 1005
End
Begin VB.Label lblLabels
Caption = "家庭地址:"
Height = 255
Index = 4
Left = 240
TabIndex = 8
Top = 3120
Width = 1005
End
Begin VB.Label lblLabels
Caption = "电话:"
Height = 255
Index = 3
Left = 240
TabIndex = 6
Top = 2160
Width = 1005
End
Begin VB.Label lblLabels
Caption = "年龄:"
Height = 255
Index = 2
Left = 240
TabIndex = 4
Top = 1065
Width = 1005
End
Begin VB.Label lblLabels
Caption = "姓名:"
Height = 255
Index = 1
Left = 240
TabIndex = 2
Top = 735
Width = 1005
End
Begin VB.Label lblLabels
Caption = "学号:"
Height = 255
Index = 0
Left = 240
TabIndex = 0
Top = 420
Width = 1005
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 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 + -