student_ifxiougai.frm

带有SQL

        Exit Sub
    End If
    If Not IsNumeric(Trim(Me.Text6.Text)) Then
               MsgBox "电话必须为数字型！，请重新输入！", vbOKOnly + vbExclamation, "警告"
               Me.Text6.Text = ""
               Me.Text6.SetFocus
               Exit Sub
        End If
    If Me.Text7.Text = "" Then
        MsgBox "请输入该生的政治面貌！", vbOKOnly + vbExclamation, "警告"
        Me.Text7.SetFocus
        Exit Sub
    End If
    If Me.Text8.Text = "" Then
        MsgBox "请输入该生所居住的楼号！", vbOKOnly + vbExclamation, "警告"
        Me.Text8.SetFocus
        Exit Sub
    End If
    If Me.Text9.Text = "" Then
        MsgBox "请输入该生的寝室号！", vbOKOnly + vbExclamation, "警告"
        Me.Text9.SetFocus
        Exit Sub
    End If
    If Me.Text10.Text = "" Then
        MsgBox "请输入该生的床位号！", vbOKOnly + vbExclamation, "警告"
        Me.Text10.SetFocus
        Exit Sub
    End If
  '////////////////////////////////////////////////////////////////////
    
    
        txtSQL = "select * from student_if  where student_ID = '" & Me.Text1.Text & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
           ' 判断是否已经改变
     
        mrc.Delete
        mrc.AddNew    '添加一条记录
                mrc.Fields(0) = Trim(Me.Text1.Text)
                mrc.Fields(1) = Trim(Me.Text2.Text)
                mrc.Fields(2) = Trim(Me.Combo1.Text)
                mrc.Fields(3) = Trim(Me.Text3.Text)
                mrc.Fields(4) = Trim(Me.Text4.Text)
                mrc.Fields(5) = Trim(Me.Text5.Text)
                mrc.Fields(6) = Trim(Me.Text6.Text)
                mrc.Fields(7) = Trim(Me.Text7.Text)
                mrc.Fields(8) = Trim(Me.Text8.Text)
                mrc.Fields(9) = Trim(Me.Text9.Text)
                mrc.Fields(10) = Trim(Me.Text10.Text)
                mrc.Fields(11) = Trim(Me.Text11.Text)
                mrc.Update
                MsgBox "更新学生基本信息成功！", 0, "提示"
                mrc.Close
         Call bukeyong
         Unload Me
         Me.Show
         
  
      
     
    
  
End Sub

Private Sub Command3_Click()
            If mrc.EOF = True Then
               MsgBox "没有东西了，你取消什么！", 0, "警告"
               Me.Frame2.Enabled = False
               Exit Sub
             ElseIf ok = False Then
               MsgBox "你还没动过数据，你取消什么！", 0, "警告"
               Text2.SetFocus
               Exit Sub
             
            Else
               Me.Text1.Text = mrc.Fields(0)
               Me.Text2.Text = mrc.Fields(1)
               Me.Combo1.Text = mrc.Fields(2)
               Me.Text3.Text = mrc.Fields(3)
               Me.Text4.Text = mrc.Fields(4)
               Me.Text5.Text = mrc.Fields(5)
               Me.Text6.Text = mrc.Fields(6)
               Me.Text7.Text = mrc.Fields(7)
               Me.Text8.Text = mrc.Fields(8)
               Me.Text9.Text = mrc.Fields(9)
               Me.Text10.Text = mrc.Fields(10)
               Me.Text11.Text = mrc.Fields(11)
            End If
End Sub

Private Sub Command4_Click()
     Dim txtSQL As String
     Dim MsgText As String
     Dim mrc As ADODB.Recordset
     Dim ok(3) As Boolean
     Call bukeyong
      '查找数据库中的信息
     txtSQL = "select * from student_if where "
     
     '检测复选框1是否选中，选中后学号是否已输入
     If Me.Check1.Value Then '第一种查询方式
          
         If Trim(Me.Text12.Text) = "" Then
              MsgBox "请输入学生学号！", 0, "警告"
              Me.Text12.SetFocus
              Exit Sub
         
          
         Else
            If Not IsNumeric(Me.Text12.Text) Then
            MsgBox "学号必须是数字型！", 0, "警告"
            Me.Text12.SetFocus
            Exit Sub
      End If
      ok(0) = True
    
          txtSQL = txtSQL & "student_ID = '" & Trim(Me.Text12.Text) & "'"
     
      End If
    End If
   '//////////////////////////////////////////////////
    If Me.Check2.Value Then       '第二种查询方式
        
        If Trim(Me.Text13.Text) = "" Then
           MsgBox "请输入学生姓名！", 0, "警告"
           Me.Text13.SetFocus
           Exit Sub
     
        Else
        ok(1) = True
        If ok(0) Then
            txtSQL = txtSQL & "and student_name = '" & Me.Text13.Text & "'"
         Else
            txtSQL = txtSQL & "student_name = '" & Me.Text13.Text & "'"
        End If
        End If
        End If
     '//////////////////////////////////////////////////
      If Not (ok(0) Or ok(1) Or ok(2)) Then
         MsgBox "您什么都没有做！", 0, "提示"
         Me.Text12.SetFocus
         Exit Sub
    End If
    '//////////////////////////////////////////////////
    txtSQL = txtSQL & " order by student_ID "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    '////////////////////////////////////////////////////////////////
  If mrc.EOF = False Then
               Me.Text1.Text = mrc.Fields(0)
               Me.Text2.Text = mrc.Fields(1)
               Me.Combo1.Text = mrc.Fields(2)
               Me.Text3.Text = mrc.Fields(3)
               Me.Text4.Text = mrc.Fields(4)
               Me.Text5.Text = mrc.Fields(5)
               Me.Text6.Text = mrc.Fields(6)
               Me.Text7.Text = mrc.Fields(7)
               Me.Text8.Text = mrc.Fields(8)
               Me.Text9.Text = mrc.Fields(9)
               Me.Text10.Text = mrc.Fields(10)
               Me.Text11.Text = mrc.Fields(11)
  End If
End Sub

Private Sub Command5_Click()
   
    Me.Text12.Text = ""
    Me.Text13.Text = ""
    Me.Text12.SetFocus
End Sub

Private Sub Command6_Click()
         If mrc.EOF = True Then
            MsgBox "里面没有任何数据！", , "警告"
         Else
            mrc.Delete      '删除当前记录
            mrc.Update      '更新删除后的数据
            mrc.MoveFirst   '移动到第一条记录
            mrc.Close       '关闭数据库
         End If
                            '类似于刷新功能的做法
         Unload Me
         Me.Show
         Me.WindowState = 2
         Me.Text1.Enabled = False
   
End Sub

Private Sub Form_Load()
      Dim MsgText As String
      Dim txtSQL As String
      '///////////////////////////////////
     
      txtSQL = "select * from student_if"
      Set mrc = ExecuteSQL(txtSQL, MsgText)
      '/////////////判断
      If mrc.EOF = True Then
          a = MsgBox("库里没东西！", 0, "警告")
          If a = 1 Then
             Exit Sub
          End If
      Else
      
     
     '调用几的自定义函数
       Me.Combo1.AddItem "男"
       Me.Combo1.AddItem "女"
       Call zuichu
       Call daxiao
       Call loading
       Call yanse
       Call bukeyong
       Call chushua
       Call shujujiaru
       ok = False     '当所有控件都没有动时，ok为假
     End If
   
End Sub
 Private Sub loading()
     Me.Width = 15300
     Me.Top = 0
     Me.Height = 9465
     Me.Left = 0
   
 End Sub
 Private Sub bukeyong()            '定义一个让那些控件不可以使用的函数
     Me.Text1.Enabled = False
     Me.Text2.Enabled = False
     Me.Combo1.Enabled = False
     Me.Text3.Enabled = False
     Me.Text4.Enabled = False
     Me.Text5.Enabled = False
     Me.Text6.Enabled = False
     Me.Text7.Enabled = False
     Me.Text8.Enabled = False
     Me.Text9.Enabled = False
     Me.Text10.Enabled = False
     Me.Text11.Enabled = False
     Me.Command2.Enabled = False
     Me.Command3.Enabled = False
     Me.Command6.Enabled = False
 End Sub
 Private Sub keyong()               '定义一个让那些控件可以使用的函数
     Me.Text2.Enabled = True
     Me.Combo1.Enabled = True
     Me.Text3.Enabled = True
     Me.Text4.Enabled = True
     Me.Text5.Enabled = True
     Me.Text6.Enabled = True
     Me.Text7.Enabled = True
     Me.Text8.Enabled = True
     Me.Text9.Enabled = True
     Me.Text10.Enabled = True
     Me.Text11.Enabled = True
     Me.Command2.Enabled = True
     Me.Command3.Enabled = True
     Me.Command6.Enabled = True
 End Sub
 
Private Sub chushua()              '定义一个让学生信息的字段名在列表里显示出来的函数
       Me.MSFlexGrid1.TextMatrix(0, 0) = "学    号"
       Me.MSFlexGrid1.TextMatrix(0, 1) = "姓    名"
       Me.MSFlexGrid1.TextMatrix(0, 2) = "性    别"
       Me.MSFlexGrid1.TextMatrix(0, 3) = "年    级"
       Me.MSFlexGrid1.TextMatrix(0, 4) = "系    别"
       Me.MSFlexGrid1.TextMatrix(0, 5) = "班    别"
       Me.MSFlexGrid1.TextMatrix(0, 6) = "联系电话"
       Me.MSFlexGrid1.TextMatrix(0, 7) = "政治面貌"
       Me.MSFlexGrid1.TextMatrix(0, 8) = "居住楼号"
       Me.MSFlexGrid1.TextMatrix(0, 9) = "寝 室 号"
       Me.MSFlexGrid1.TextMatrix(0, 10) = "床    位"
       Me.MSFlexGrid1.TextMatrix(0, 11) = "备    注"
End Sub
Private Sub shujujiaru()        '定义一个让所有的学生信息都显示在列表框里面的函数
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    Dim txtSQL As String

    Dim i As Integer
        txtSQL = "select * from student_if"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        With Me.MSFlexGrid1
        .Row = 1
    Do While Not mrc.EOF
            .Rows = .Rows + 1
            For i = 1 To mrc.Fields.Count
                Select Case mrc.Fields(i - 1).Type
                    Case adDBDate
                        .TextMatrix(.Rows - 2, i - 1) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
                    Case Else
                        .TextMatrix(.Rows - 2, i - 1) = mrc.Fields(i - 1) & ""
                End Select
            Next i
            mrc.MoveNext
           
        Loop
        
        
        
    End With
    mrc.Close
     
     
     
End Sub

Private Sub zuichu()            '定义一个最初的时候让学生基本信息列表显示第一条记录
      
      Me.Text1.Text = mrc.Fields(0)
      Me.Text2.Text = mrc.Fields(1)
      Me.Combo1.Text = mrc.Fields(2)
      Me.Text3.Text = mrc.Fields(3)
      Me.Text4.Text = mrc.Fields(4)
      Me.Text5.Text = mrc.Fields(5)
      Me.Text6.Text = mrc.Fields(6)
      Me.Text7.Text = mrc.Fields(7)
      Me.Text8.Text = mrc.Fields(8)
      Me.Text9.Text = mrc.Fields(9)
      Me.Text10.Text = mrc.Fields(10)
      Me.Text11.Text = mrc.Fields(11)
     
    
End Sub
Private Sub daxiao()   '定义一个刚加载时窗体显示的大小
     Me.Top = 0
     Me.Width = 15170
     Me.Height = 9255
     Me.Left = 0
End Sub
Private Sub yanse()             '定义一个让单双行显示不同的颜色
     Dim i As Integer
  With MSFlexGrid1
      .FillStyle = flexFillRepeat
      For i = 0 To .Rows - 1
     .Row = i: .Col = .FixedCols
     .ColSel = .Cols() - .FixedCols - 1
   If i Mod 2 = 0 Then
    .CellBackColor = QBColor(7)   ' 颜色值
Else
     .CellBackColor = QBColor(15) ' 颜色值
 End If
 Next i
End With

End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      If Button = 2 Then
        PopupMenu mainForm1.ABC  'ABC是一个快捷方式的方法名
      End If
End Sub

Private Sub Text10_Change()
    ok = True
End Sub

Private Sub Text11_Change()
     ok = True
End Sub

Private Sub Text2_Change()
   ok = True
End Sub

Private Sub Text3_Change()
    ok = True
End Sub

Private Sub Text4_Change()
    ok = True
End Sub

Private Sub Text5_Change()
     ok = True
End Sub

Private Sub Text6_Change()
     ok = True
End Sub

Private Sub Text7_Change()
     ok = True
End Sub

Private Sub Text8_Change()
      ok = True
End Sub

Private Sub Text9_Change()
      ok = True
End Sub