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

📄 frmstu.frm

📁 一个学生信息管理系统
💻 FRM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   495
   End
End
Attribute VB_Name = "frmstu_gl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mrc As ADODB.Recordset
Dim myBookmark As Variant
Dim mcclean As Boolean
Private Sub Command1_Click()
    mrc.MoveFirst
    Call viewData
End Sub
Private Sub Command10_Click()
    If Not mcclean Then
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Text6.Enabled = False
    Text7.Enabled = False
    Combo1.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = True
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = True
    Command4.Enabled = True
    Command6.Enabled = True
    Command7.Enabled = True
    Command8.Enabled = True
    Command9.Enabled = False
    Command10.Enabled = False
    Command6.Caption = "添 加"
    
    mrc.Bookmark = myBookmark
    Call viewData
    End If
End Sub

Private Sub Command11_Click()
    Unload Me
End Sub

Private Sub Command2_Click()
    mrc.MovePrevious
    If mrc.BOF Then
        mrc.MoveLast
    End If
    Call viewData
End Sub

Private Sub Command3_Click()
    mrc.MoveNext
    If mrc.EOF Then
        mrc.MoveFirst
    End If
    Call viewData
End Sub

Private Sub Command4_Click()
    mrc.MoveLast
    Call viewData
End Sub

Private Sub Command5_Click()
     If Combo5 = "" Then
     MsgBox "请输入查询条件！", vbOKOnly + vbExclamation, "警告！"
     Combo5.SetFocus
     Else
        If Combo5 = "按学号" Then
           Text8.SetFocus
           
            Dim txtSQL As String
            Dim MsgText As String
            
           If Not Testtxt(Text8.Text) Then
             MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告！"
             Text8.SetFocus
            Exit Sub
           End If
           
    txtSQL = "select * from information where number=" & Trim(Text8.Text) & ""
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF Then
      MsgBox "没有这个用户!", vbOKOnly + vbExclamation, "温馨提示！"
      Text8.Text = ""
      Text8.SetFocus
      mrc.Close
      Exit Sub
    Else
       mrc.Bookmark = myBookmark

       Call viewData
       mrc.Close
       Exit Sub
    End If
    cclean = True
  End If
End If
        
        
End Sub

Private Sub Command6_Click()
  If Command6.Caption = "添 加" Then
    Call ClearText
    mcclean = False
    Command6.Caption = "保存"
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
    Text6.Enabled = True
    Text7.Enabled = True
    Combo1.Enabled = True
    Combo4.Enabled = True
    Combo5.Enabled = False
    Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Command7.Enabled = False
    Command8.Enabled = False
    Command9.Enabled = False
    Command10.Enabled = True
    
   myBookmark = mrc.Bookmark

   Else
     Command6.Caption = "添 加"
     
  Dim txtSQL As String
  Dim MsgText As String
   
'判断是否输入学号
  If Not Testtxt(Text1.Text) Then
     MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告！"
     Text1.SetFocus
     Exit Sub
  End If

'判断学号是否为数字
  If Not IsNumeric(Trim(Text1.Text)) Then
     MsgBox "学号为数字！", vbOKOnly + vbExclamation, "警告！"
     Exit Sub
  End If

'判断学号是否重复记录
  txtSQL = "select * from information where number=" & Trim(Text1.Text) & ""
  Set mrc = ExecuteSQL(txtSQL, MsgText)
  If mrc.EOF = False Then
     MsgBox "学号重复,请重新输入", vbOKOnly + vbExclamation, "警告！"
     mrc.Close
     Text1.SetFocus
     Exit Sub
  Else
     mrc.Close
  End If

'判断完成,开始操作
  txtSQL = "select * from information"
'动态绑定数据库
  Set mrc = ExecuteSQL(txtSQL, MsgText)
'添加记录
        mrc.AddNew
        mrc.Fields(0) = Trim(Text1.Text)
        mrc.Fields(1) = Trim(Text2.Text)
        mrc.Fields(8) = Trim(Text3.Text)
        mrc.Fields(5) = Trim(Text4.Text)
        mrc.Fields(9) = Trim(Text5.Text)
        mrc.Fields(10) = Trim(Text6.Text)
        mrc.Fields(3) = Trim(Text7.Text)
        mrc.Fields(2) = Combo1.Text
        mrc.Fields(6) = Combo4.Text
'更新数据库
  mrc.Update
  MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "信息"
'关闭数据集对象
  
        mrc.Bookmark = myBookmark
        Call viewData
        Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        Text4.Enabled = False
        Text5.Enabled = False
        Text6.Enabled = False
        Text7.Enabled = False
        Combo1.Enabled = False
        Combo4.Enabled = False
        Combo5.Enabled = True
        Command1.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = True
        Command4.Enabled = True
        Command7.Enabled = True
        Command8.Enabled = True
        Command9.Enabled = False
        Command10.Enabled = False
        
        mcclean = True
End If

End Sub

Private Sub Command7_Click()
    myBookmark = mrc.Bookmark
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    If str2$ = vbOK Then
            mrc.MoveNext
            If mrc.EOF Then
                mrc.MoveFirst
                myBookmark = mrc.Bookmark
                mrc.MoveLast
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            Else
                myBookmark = mrc.Bookmark
                mrc.MovePrevious
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            End If
    Else
        mrc.Bookmark = myBookmark
        Call viewData
    End If
End Sub

Private Sub Command8_Click()
    mcclean = False
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
    Text6.Enabled = True
    Text7.Enabled = True
    Combo1.Enabled = True
    Combo4.Enabled = True
    Combo5.Enabled = False
    Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Command7.Enabled = False
    Command6.Enabled = False
    Command9.Enabled = True
    Command10.Enabled = True
    
    myBookmark = mrc.Bookmark
    
    
End Sub

Private Sub Command9_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
    
    If mcclean Then
        MsgBox "请先修改学生信息", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    
    If Not Testtxt(Text1.Text) Then
        MsgBox "请输入学生学号！", vbOKOnly + vbExclamation, "警告"
        Text1.SetFocus
        Exit Sub
    End If
    
    If Not IsNumeric(Trim(Text1.Text)) Then
        MsgBox "学生学号请输入数字！", vbOKOnly + vbExclamation, "警告"
        Text1.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text2.Text) Then
        MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"
        Text2.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text3.Text) Then
        MsgBox "请输入班级！", vbOKOnly + vbExclamation, "警告"
        Text3.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text4.Text) Then
        MsgBox "请输入家庭住址！", vbOKOnly + vbExclamation, "警告"
        Text4.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text5.Text) Then
        MsgBox "请输入联系电话！", vbOKOnly + vbExclamation, "警告"
        Text5.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text7.Text) Then
        MsgBox "请输入出生日期！", vbOKOnly + vbExclamation, "警告"
        Text7.SetFocus
        Exit Sub
    End If
        
   
    
    mrc.Delete
    txtSQL = "select * from information where number = '" & Trim(Text1.Text) & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    If mrcc.EOF = False Then
        MsgBox "学号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
        Text1.SetFocus
        mrcc.Close
    Else
        mrcc.Close
        If Not IsDate(Text7.Text) Then
            MsgBox "出生日期应输入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
            Text7.SetFocus
        Else
        Text7.Text = Format(Text7.Text, "yyyy-mm-dd")
        
        mrc.AddNew
        mrc.Fields(0) = Trim(Text1.Text)
        mrc.Fields(1) = Trim(Text2.Text)
        mrc.Fields(8) = Trim(Text3.Text)
        mrc.Fields(5) = Trim(Text4.Text)
        mrc.Fields(9) = Trim(Text5.Text)
        mrc.Fields(10) = Trim(Text6.Text)
        mrc.Fields(3) = Trim(Text7.Text)
        mrc.Fields(2) = Combo1.Text
        mrc.Fields(6) = Combo4.Text
        mrc.Update
        MsgBox "修改学籍信息成功！", vbOKOnly + vbExclamation, "修改学籍信息"
                
        mrc.Bookmark = myBookmark
        Call viewData
        Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        Text4.Enabled = False
        Text5.Enabled = False
        Text6.Enabled = False
        Text7.Enabled = False
        Combo1.Enabled = False
        Combo4.Enabled = False
        Combo5.Enabled = True
        Command1.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = True
        Command4.Enabled = True
        Command6.Enabled = True
        Command7.Enabled = True
        Command8.Enabled = True
        Command9.Enabled = False
        Command10.Enabled = False
        
        mcclean = True
      End If
        
    End If
End Sub

Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    
    txtSQL = "select * from information "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.MoveFirst
    Call viewData
    myBookmark = mrc.Bookmark
    mcclean = True
    
    Combo1.AddItem "男"
    Combo1.AddItem "女"
    Combo4.AddItem "普通学生"
    Combo4.AddItem "党员"
    Combo4.AddItem "团员"
    Combo5.AddItem "按学号"
    Combo5.AddItem "按姓名"
End Sub
Public Sub viewData()
    Text1.Text = mrc.Fields(0)
    Text2.Text = mrc.Fields(1)
    Text3.Text = mrc.Fields(8)
    Text4.Text = mrc.Fields(5)
    Text5.Text = mrc.Fields(9)
    Text6.Text = mrc.Fields(10)
    Text7.Text = Format(mrc.Fields(3), "yyyy-mm-dd")
    Combo1.Text = mrc.Fields(2)
    Combo4.Text = mrc.Fields(6)

    
End Sub
Public Sub ClearText()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = "____-__-__"
    Combo1.Text = ""
    Combo4.Text = ""
End Sub
12

⌨️ 快捷键说明

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