📄 student.frm
字号:
Style = 2 'Dropdown List
TabIndex = 0
Top = 360
Width = 1455
End
Begin VB.Label LblStudent
BackColor = &H00FFC0FF&
Caption = "(日期格式：1986-03-24)"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 2
Left = 3600
TabIndex = 27
Top = 1560
Width = 1815
End
Begin VB.Label LblStudent
BackColor = &H00FFC0FF&
Caption = "班级："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 6
Left = 240
TabIndex = 24
Top = 405
Width = 735
End
Begin VB.Label LblStudent
BackColor = &H00FFC0FF&
Caption = "民族:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 5
Left = 240
TabIndex = 23
Top = 1215
Width = 735
End
Begin VB.Label LblStudent
BackColor = &H00FFC0FF&
Caption = "家庭住址:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 4
Left = 240
TabIndex = 22
Top = 1845
Width = 975
End
Begin VB.Label LblStudent
BackColor = &H00FFC0FF&
Caption = "出生日期:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 3
Left = 3120
TabIndex = 21
Top = 1200
Width = 975
End
Begin VB.Label LblSurname
BackColor = &H00FFC0FF&
Caption = "姓别:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 2
Left = 3360
TabIndex = 20
Top = 780
Width = 735
End
Begin VB.Label LblStudent
BackColor = &H00FFC0FF&
Caption = "姓名："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 1
Left = 240
TabIndex = 19
Top = 800
Width = 735
End
Begin VB.Label LblStudent
BackColor = &H00FFC0FF&
Caption = "学号:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 0
Left = 3360
TabIndex = 18
Top = 405
Width = 735
End
End
End
Attribute VB_Name = "FrmStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit '声明
Dim MsgQuit As Integer, MsgDel As Integer, i As Integer
Dim BJ As String, txtSQL As String
Private Sub CboClass_Click() '选择班级命令
Dim xh
DatStud.RecordSource = CboClass.Text
DatStud.Refresh
' xh = DatStud.Recordset.Fields(学号)
' DatStud.Recordset.FindFirst (xh)
End Sub
Private Sub cmdAdd_Click() '添加命令
CboSurname.Locked = False '欢迎访问VB天下行
For i = 0 To 4
txtFields(i).Locked = False 'http://vbsoft.icpcn.com
Next i
CboSurname.Locked = False
DatStud.Recordset.AddNew
End Sub
Private Sub CmdChange_Click()
For i = 0 To 4
txtFields(i).Locked = False
Next i
CboSurname.Locked = False
End Sub
Private Sub cmdDelete_Click() '删除命令
MsgDel = MsgBox("是否真的删除？", vbYesNo + vbDefaultButton2 + vbExclamation, "删除提示： --小鱼儿")
If MsgDel = vbYes Then
DatStud.Recordset.Delete '如果删除记录集的最后一条记录
DatStud.Recordset.MoveNext '记录或记录集中唯一的记录
End If
End Sub
Private Sub CmdEnd_Click() '退出命令
MsgQuit = MsgBox("是否真的退出？", vbOKCancel + vbInformation, "退出提示： --小鱼儿")
If MsgQuit = vbOK Then End
End Sub
Private Sub CmdFind_Click() '查找命令
Dim str As String
str = CboQuery.Text & "=" & TxtQuery.Text
If str = "" Then Exit Sub
DatStud.Recordset.FindFirst str
If DatStud.Recordset.NoMatch Then
MsgBox "没有找到相应的记录！", vbInformation, "信息提示： --小鱼儿"
End If
End Sub
Private Sub cmdRefresh_Click()
DatStud.Refresh '仅对多用户应用程序才是需要的
For i = 0 To 4
txtFields(i).Locked = True
Next i
CboSurname.Locked = True
End Sub
Private Sub cmdUpdate_Click() '更新命令
DatStud.UpdateRecord
DatStud.Recordset.Bookmark = DatStud.Recordset.LastModified
End Sub
Private Sub DatStud_Error(DataErr As Integer, Response As Integer) '捕获错误
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误，在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub DatStud_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
DatStud.Caption = " 记录：" & (DatStud.Recordset.AbsolutePosition + 1)
End Sub
Private Sub DatStud_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() '加载命令
DatStud.DatabaseName = App.Path & "\student.mdb"
FrmStudent.Icon = App.Path & "\DRAG2PG.ICO"
CboClass.Text = "01办(1)班"
For i = 0 To 4
txtFields(i).Locked = True
Next i
CboSurname.Locked = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -