frmteacherupdate.frm

在VB应用程序平台上开发的SQL学生选课数据库系统。可以实现学生选择自己要上的课

   End
End
Attribute VB_Name = "frmteacherupdate"
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     '用于标记是否修改了数据
Dim sign As Integer '用于标记是点击修改还是点击添加
Private Sub Form_Load()
   MakeWindow Me
   
   Dim txtSQL As String
    Dim MsgText As String
    
     Text(0).Enabled = False
     Text(1).Enabled = False
     Text(2).Enabled = False
     Text(3).Enabled = False
     Text(4).Enabled = False
     Text(5).Enabled = False
     Text(6).Enabled = False
     
     
     
    txtSQL = "select * from teacher "
    Set mrc = MyDB.ExecuteSQL(txtSQL, MsgText)
    mrc.MoveFirst
    Call viewData
    myBookmark = mrc.Bookmark
    mcclean = True
    sign = 0
End Sub
Public Sub viewData()
    Text(0).Text = mrc.Fields(0)
    Text(1).Text = mrc.Fields(1)
    Text(2).Text = mrc.Fields(2)
    Text(3).Text = mrc.Fields(3)
    Text(4).Text = mrc.Fields(4)
    Text(5).Text = mrc.Fields(5)
    Text(6).Text = mrc.Fields(6)
    
End Sub


Private Sub imgTitleclose_Click()
    intNumField = -2
    Unload Me
End Sub

Private Sub SmartNetXpButton1_Click()
     mrc.MoveFirst
     Call viewData
End Sub

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



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

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


Private Sub SmartNetXpButton5_Click()
    mcclean = False
    sign = 1   '表示点击修改
    SmartNetXpButton1.Enabled = False
    SmartNetXpButton2.Enabled = False
    SmartNetXpButton3.Enabled = False
    SmartNetXpButton4.Enabled = False
        
    Text(0).Enabled = True
    Text(1).Enabled = True
    Text(2).Enabled = True
    Text(3).Enabled = True
    Text(4).Enabled = True
    Text(5).Enabled = True
    Text(6).Enabled = True
    
    myBookmark = mrc.Bookmark
End Sub


Private Sub SmartNetXpButton6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
     Dim txtstring As String      '用于将信息添加到用户表
    Dim mrc1 As ADODB.Recordset   '用于将信息添加到用户表
    If mcclean Then
        MsgBox "请先点击修改或添加按钮！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    
    If Not Testtxt(Text(0).Text) Then
        MsgBox "请输入教师编号！", vbOKOnly + vbExclamation, "警告"
        Text(0).SetFocus
        Exit Sub
    End If
    
        
    If Not Testtxt(Text(1).Text) Then
        MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"
        Text(1).SetFocus
        
        Exit Sub
    End If
    
    If Not Testtxt(Text(2).Text) Then
        MsgBox "请输入性别！", vbOKOnly + vbExclamation, "警告"
        Text(2).SetFocus
        Exit Sub
    Else
        If Trim(Text(2).Text) <> "男" And Trim(Text(2).Text) <> "女" Then
           MsgBox "输入性别有错误！", vbOKOnly + vbExclamation, "警告"
           Text(2).Text = ""
           Text(2).SetFocus
           Exit Sub
        End If
    End If
    
    
    If Not Testtxt(Text(3).Text) Then
        MsgBox "请输入职称！", vbOKOnly + vbExclamation, "警告"
        Text(3).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text(4).Text) Then
        MsgBox "请输入联系方式！", vbOKOnly + vbExclamation, "警告"
        Text(4).SetFocus
        Exit Sub
     
     ' Else
      ' If Len(Trim(Text(7).Text)) <> 7 Or Len(Trim(Text(7).Text)) <> 11 Then
          '  MsgBox "输入电话号码不正确", vbOKOnly + vbExclamation, "警告"
           ' Text(7).Text = ""
          '  Text(7).SetFocus
           ' Exit Sub
        ' End If
    
    
    End If
    
    If Not Testtxt(Text(5).Text) Then
        MsgBox "请输入教师地址！", vbOKOnly + vbExclamation, "警告"
        Text(5).SetFocus
        Exit Sub
    End If
    
    
    
   
    
    
    
    If sign = 1 Then mrc.Delete
    
    If sign = 0 Then
        txtstring = "select * from user_if"
        Set mrc1 = MyDB.ExecuteSQL(txtstring, MsgText)
        mrc1.AddNew
        mrc1.Fields(0) = Trim(Text(0).Text)
        mrc1.Fields(1) = Trim(Text(0).Text)
        mrc1.Fields(2) = 1
        mrc1.Update
        mrc1.Close
    End If
    
    txtSQL = "select * from teacher where Tno = '" & Trim(Text(0).Text) & "'"
     Set mrcc = MyDB.ExecuteSQL(txtSQL, MsgText)
        If mrcc.EOF = False Then
           MsgBox "该教师已存在，不需要在添加，请重新输入！", vbOKOnly + vbExclamation, "警告"
           mrcc.Close
           Text(0).SetFocus
           Exit Sub
       Else
        mrcc.Close
        mrc.AddNew
        mrc.Fields(0) = Trim(Text(0).Text)
        mrc.Fields(1) = Trim(Text(1).Text)
        mrc.Fields(2) = Trim(Text(2).Text)
        mrc.Fields(3) = Trim(Text(3).Text)
        mrc.Fields(4) = Trim(Text(4).Text)
        mrc.Fields(5) = Trim(Text(5).Text)
        mrc.Fields(6) = Trim(Text(6).Text)

        mrc.Update
        MsgBox "修改信息成功！", vbOKOnly + vbExclamation, "提示"
        mrc.Bookmark = myBookmark
        Call viewData
        
        SmartNetXpButton1.Enabled = True
        SmartNetXpButton2.Enabled = True
        SmartNetXpButton3.Enabled = True
        SmartNetXpButton4.Enabled = True
        
        Text(0).Enabled = False
        Text(1).Enabled = False
        Text(2).Enabled = False
        Text(3).Enabled = False
        Text(4).Enabled = False
        Text(5).Enabled = False
        Text(6).Enabled = False
    
        mcclean = True
    End If
End Sub

Private Sub SmartNetXpButton7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Not mcclean Then
       
        SmartNetXpButton1.Enabled = True
        SmartNetXpButton2.Enabled = True
        SmartNetXpButton3.Enabled = True
        SmartNetXpButton4.Enabled = True
            
        Text(0).Enabled = False
        Text(1).Enabled = False
        Text(2).Enabled = False
        Text(3).Enabled = False
        Text(4).Enabled = False
        Text(5).Enabled = False
        Text(6).Enabled = False
     
        mrc.Bookmark = myBookmark
        Call viewData
    Else
        MsgBox "你没有修改数据！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    mcclean = True
End Sub

Private Sub SmartNetXpButton8_Click()
   mcclean = False
    sign = 0   '表示点击添加
    
    SmartNetXpButton1.Enabled = False
    SmartNetXpButton2.Enabled = False
    SmartNetXpButton3.Enabled = False
    SmartNetXpButton4.Enabled = False
          
    Text(0).Enabled = True
    Text(1).Enabled = True
    Text(2).Enabled = True
    Text(3).Enabled = True
    Text(4).Enabled = True
    Text(5).Enabled = True
    Text(6).Enabled = True
 
    
    Text(0).Text = ""
    Text(1).Text = ""
    Text(2).Text = ""
    Text(3).Text = ""
    Text(4).Text = ""
    Text(5).Text = ""
    Text(6).Text = ""
    
    myBookmark = mrc.Bookmark
End Sub



Private Sub SmartNetXpButton9_Click()
   Dim now_no As String           '用于标记当前要删除的教师编号
   Dim MsgText As String
   Dim txtstring As String
   myBookmark = mrc.Bookmark
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    If str2$ = vbOK Then
            now_no = Trim(Text(0).Text)
            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
     txtstring = "delete  from user_if where Uname='" & now_no & "'"
       Call MyDB.ExecuteSQL(txtstring, MsgText)
    
    Else
        mrc.Bookmark = myBookmark
        Call viewData
    End If
End Sub

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
  If Index < 6 Then
     If KeyAscii = 13 Then Text(Index + 1).SetFocus
 End If
End Sub
Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMinimize_Click()
    Me.WindowState = 1
End Sub

Private Sub imgTitleRestore_Click()
 Me.WindowState = 2
End Sub

Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub


Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub