chzhchj.frm

来自「本系统以记录学生信息」· FRM 代码 · 共 459 行 · 第 1/2 页

FRM
459 行
字号
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

chzhchj.frm - 源码说明

本页面展示了「本系统以记录学生信息」中的 chzhchj.frm 源码文件，采用 FRM 编程语言编写，共 459 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与学生信息相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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