⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 chzhchj.frm

📁 本系统以记录学生信息
💻 FRM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
Dim FindXuehao As String
Dim Criteria As String
Dim Currentbookmark As String
If Option2.Value = True Then
    FindName = chzhcht.Text2.Text
    Currentbookmark = jsjchj.Data1.Recordset.Bookmark
    Criteria = "姓名 = " & "'" & FindName & "'"
    jsjchj.Data1.Recordset.FindNext (Criteria)
    jsjchj.Show
    chzhcht.Hide
      If chzhcht.Text2.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf jsjchj.Data1.Recordset.NoMatch Then
          jsjchj.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = True Then
    FindXuehao = chzhcht.Text1.Text
    Currentbookmark = jsjchj.Data1.Recordset.Bookmark
    Criteria = "学号 = '" & FindXuehao & "'"
    jsjchj.Data1.Recordset.FindFirst (Criteria)
    jsjchj.Show
    chzhcht.Hide
      If chzhcht.Text1.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf jsjchj.Data1.Recordset.NoMatch Then
          jsjchj.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = False And Option2.Value = False Then
    MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
End If
End Sub

Private Sub Command4_Click()
Dim FindName As String
Dim FindXuehao As String
Dim Criteria As String
Dim Currentbookmark As String
If Option2.Value = True Then
    FindName = chzhcht.Text2.Text
    Currentbookmark = danb.Data1.Recordset.Bookmark
    Criteria = "姓名 = " & "'" & FindName & "'"
    kjchj.Data1.Recordset.FindNext (Criteria)
    kjchj.Show
    chzhcht.Hide
      If chzhcht.Text2.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf kjchj.Data1.Recordset.NoMatch Then
          kjchj.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = True Then
    FindXuehao = chzhcht.Text1.Text
    Currentbookmark = kjchj.Data1.Recordset.Bookmark
    Criteria = "学号 = '" & FindXuehao & "'"
    kjchj.Data1.Recordset.FindFirst (Criteria)
    kjchj.Show
    chzhcht.Hide
      If chzhcht.Text1.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf kjchj.Data1.Recordset.NoMatch Then
          kjchj.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = False And Option2.Value = False Then
    MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
End If
End Sub

Private Sub Command5_Click()
Dim FindName As String
Dim FindXuehao As String
Dim Criteria As String
Dim Currentbookmark As String
If Option2.Value = True Then
    FindName = chzhcht.Text2.Text
    Currentbookmark = danb.Data1.Recordset.Bookmark
    Criteria = "姓名 = " & "'" & FindName & "'"
    kjchj.Data1.Recordset.FindNext (Criteria)
    kjchj.Show
    chzhcht.Hide
      If chzhcht.Text2.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf kjjchj.Data1.Recordset.NoMatch Then
          kjchj.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = True Then
    FindXuehao = chzhcht.Text1.Text
    Currentbookmark = danb.Data1.Recordset.Bookmark
    Criteria = "学号 = '" & FindXuehao & "'"
    kjchj.Data1.Recordset.FindFirst (Criteria)
    kjchj.Show
    chzhcht.Hide
      If chzhcht.Text1.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf kjchj.Data1.Recordset.NoMatch Then
          kjchj.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = False And Option2.Value = False Then
    MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
End If
End Sub

Private Sub Command6_Click()
kjchj.Show
Unload Me
End Sub

Private Sub Command7_Click()
Dim FindName As String
Dim FindXuehao As String
Dim Criteria As String
Dim Currentbookmark As String
If Option2.Value = True Then
    FindName = chzhcht.Text2.Text
    Currentbookmark = danb.Data1.Recordset.Bookmark
    Criteria = "姓名 = " & "'" & FindName & "'"
    danb.Data1.Recordset.FindNext (Criteria)
    danb.Show
    chzhcht.Hide
      If chzhcht.Text2.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf danb.Data1.Recordset.NoMatch Then
          danb.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = True Then
    FindXuehao = chzhcht.Text1.Text
    Currentbookmark = danb.Data1.Recordset.Bookmark
    Criteria = "学号 = '" & FindXuehao & "'"
    danb.Data1.Recordset.FindFirst (Criteria)
    danb.Show
    chzhcht.Hide
      If chzhcht.Text1.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf danb.Data1.Recordset.NoMatch Then
          danb.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = False And Option2.Value = False Then
    MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
End If
End Sub

Private Sub Command8_Click()
Dim FindName As String
Dim FindXuehao As String
Dim Criteria As String
Dim Currentbookmark As String
If Option2.Value = True Then
    FindName = chzhcht.Text2.Text
    Currentbookmark = danb.Data1.Recordset.Bookmark
    Criteria = "姓名 = " & "'" & FindName & "'"
    danb.Data1.Recordset.FindNext (Criteria)
    danb.Show
    chzhcht.Hide
      If chzhcht.Text2.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf danb.Data1.Recordset.NoMatch Then
          danb.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = True Then
    FindXuehao = chzhcht.Text1.Text
    Currentbookmark = danb.Data1.Recordset.Bookmark
    Criteria = "学号 = '" & FindXuehao & "'"
    danb.Data1.Recordset.FindFirst (Criteria)
    danb.Show
    chzhcht.Hide
      If chzhcht.Text1.Text = "" Then
          MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
          chzhcht.Show
      ElseIf danb.Data1.Recordset.NoMatch Then
          danb.Data1.Recordset.Bookmark = Currentbookmark
          MsgBox "没有满足条件的纪录！", vbOKOnly, "查找结果"
          chzhcht.Text1.Text = ""
chzhcht.Text2.Text = ""
          chzhcht.Show
      End If
ElseIf Option1.Value = False And Option2.Value = False Then
    MsgBox "没有输入任何信息！", vbOKOnly + vbExclamation, "提示"
End If
End Sub

Private Sub Command9_Click()
danb.Show
Unload Me
End Sub
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -