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

📄 frmmodifyroom.frm

📁 该系统的最终用户是访问本系统的工作人员
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
                txtSQL = "select * from reward_punish"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                mrc.AddNew
                mrc.Fields(0) = Trim(Text1(0).Text)
                mrc.Fields(1) = Trim(Text1(1).Text)
                mrc.Fields(2) = Trim(Text1(2).Text)
                mrc.Fields(3) = Trim(Text1(3).Text)
                mrc.Fields(4) = Trim(Text1(4).Text)
                mrc.Fields(5) = Trim(Text2.Text)
                mrc.Fields(8) = Trim(Text1(5).Text)
               
                mrc.Update
                MsgBox "添加寝室信息成功！", vbOKOnly + vbExclamation, "警告"
             
           Text1(0).SetFocus
            mrc.Close
       End If
            
End Sub

Private Sub cancelCommand_Click()
Unload Me

End Sub

Private Sub cmdCancel_Click()
 If Not mcclean Then
        Frame2.Enabled = True
        cmdfirst(0).Enabled = True
        cmdPrevious.Enabled = True
        cmdNext.Enabled = True
        cmdlast.Enabled = True
            
        Textdong(0).Enabled = False
        Textdong(1).Enabled = False
        Textdong(2).Enabled = False
        Textdong(3).Enabled = False
        Textdong(4).Enabled = False
        Textdong(5).Enabled = False
        Textmember.Enabled = False
       
        mrc.Bookmark = myBookmark
        Call viewData
    Else
        MsgBox "你没有修改！", vbOKOnly + vbExclamation, "警告"
    End If
End Sub

Private Sub cmdDelete_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 cmdedit_Click()
   mcclean = False

    cmdfirst(0).Enabled = False
    cmdPrevious.Enabled = False
    cmdNext.Enabled = False
    cmdlast.Enabled = False
        
    Textdong(0).Enabled = True
    Textdong(1).Enabled = True
    Textdong(2).Enabled = True
    Textdong(3).Enabled = True
    Textdong(4).Enabled = True
    Textdong(5).Enabled = True
    Textmember.Enabled = True
     
     myBookmark = mrc.Bookmark
End Sub

Private Sub cmdfirst_Click(Index As Integer)
         mrc.MoveFirst
         Call viewData
End Sub

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

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

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

Private Sub Cmdque_Click()
   
End Sub

Private Sub cmdquery_Click()
   Dim txtSQL As String
    Dim MsgText As String
    Dim dd(2) As Boolean
    Dim mrc As ADODB.Recordset
    Dim rs As Boolean
    rs = True
       
    txtSQL = "select * from reward_punish where "
    If check1.Value Then
        If Trim(Combo1.Text) = "" Then
            sMeg = "栋号不能为空"
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
            Combo1.SetFocus
            Exit Sub
        Else
            If Not IsNumeric(Trim(Combo1.Text)) Then
                MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
                Exit Sub
               Combo1.SetFocus
            End If
            dd(0) = True
            txtSQL = txtSQL & "栋号 = '" & Val(Trim(Combo1.Text)) & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
              
              If mrc.EOF Then
                 rs = False
                 MsgBox "你输入的栋号不存在，请重新输入！！", vbOKOnly + vbExclamation, "警告"
              End If
              
        End If
  
    End If
    
    If check2.Value Then
        If Trim(Combo2.Text) = "" Then
            sMeg = "栋号和寝室号不能为空"
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
            Combo2.SetFocus
            Exit Sub
        Else
            dd(1) = True
            If dd(0) Then
                txtSQL = txtSQL & "and 寝室号= '" & Combo2.Text & "'"
                 Set mrc = ExecuteSQL(txtSQL, MsgText)
    
                 If mrc.EOF Then
                  rs = False
                  MsgBox "你输入的寝室不存在,请重新输入！！", vbOKOnly + vbExclamation, "警告"
                 
                  End If
                 
            Else
                txtSQL = txtSQL & " 寝室号= '" & Combo2.Text & "'"
            End If
            
          
            
         
        
        End If
    End If
    
   

    
    If Not (dd(0) Or dd(1)) Then
        MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    
    txtSQL = txtSQL & " order by 寝室号"
    
    
    If (rs = True) Then
           Set mrc = ExecuteSQL(txtSQL, MsgText)
           Textdong(0).Text = mrc.Fields(0)
           Textdong(1).Text = mrc.Fields(1)
           Textdong(2).Text = mrc.Fields(2)
           Textdong(3).Text = mrc.Fields(3)
           Textdong(4).Text = mrc.Fields(4)
           Textdong(5).Text = mrc.Fields(8)
           Textmember.Text = mrc.Fields(5)
   
       mrc.Close
     End If
End Sub

Private Sub cmdUpdate_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(Textdong(0).Text) Then
        MsgBox "请输入楼栋号！", vbOKOnly + vbExclamation, "警告"
        Textdong(0).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Textdong(1).Text) Then
        MsgBox "请输入寝室号！", vbOKOnly + vbExclamation, "警告"
        Textdong(1).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Textdong(2).Text) Then
        MsgBox "请输入年级！", vbOKOnly + vbExclamation, "警告"
        Textdong(2).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Textdong(3).Text) Then
        MsgBox "请输入学院！", vbOKOnly + vbExclamation, "警告"
        Textdong(3).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Textdong(4).Text) Then
        MsgBox "请选择班号！", vbOKOnly + vbExclamation, "警告"
        Textdong(4).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Textdong(5).Text) Then
        MsgBox "请输入联系电话！", vbOKOnly + vbExclamation, "警告"
        Textdong(5).SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Textmember.Text) Then
        MsgBox "请输入全体寝室成员 ！", vbOKOnly + vbExclamation, "警告"
        Textmember.SetFocus
        Exit Sub
    End If
    
    
    
       If Not IsNumeric(Trim(Textdong(0).Text)) Then
        MsgBox "学号请输入数字！", vbOKOnly + vbExclamation, "警告"
        Textdong(0).SetFocus
        Exit Sub
        
    End If
    
    mrc.Delete
    txtSQL = "select * from reward_punish where 栋号 = '" & Textdong(0).Text & "' and 寝室号= '" & Textdong(1).Text & "' and 年级= '" & Textdong(2).Text & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
     If mrcc.EOF = False Then
       MsgBox "寝室号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
      mrcc.Close
       Textdong(0).SetFocus
    Else
       mrcc.Close
       
                mrc.AddNew
                mrc.Fields(0) = Trim(Textdong(0).Text)
                mrc.Fields(1) = Trim(Textdong(1).Text)
                mrc.Fields(2) = Trim(Textdong(2).Text)
                mrc.Fields(3) = Trim(Textdong(3).Text)
                mrc.Fields(4) = Trim(Textdong(4).Text)
                mrc.Fields(5) = Trim(Textmember.Text)
                mrc.Fields(8) = Trim(Textdong(5).Text)
               
                mrc.Update
                MsgBox "修改寝室成员信息成功！", vbOKOnly + vbExclamation, "修改寝室成员信息"
                
                mrc.Bookmark = myBookmark
                Call viewData
                Frame2.Enabled = True
                cmdfirst(0).Enabled = True
                cmdPrevious.Enabled = True
                cmdNext.Enabled = True
                cmdlast.Enabled = True
        
                Textdong(0).Enabled = False
                Textdong(1).Enabled = False
                Textdong(2).Enabled = False
                Textdong(3).Enabled = False
                Textdong(4).Enabled = False
                Textdong(5).Enabled = False
                Textmember.Enabled = False
                
                mcclean = True
                            
                
         
       End If
  
    
    
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()
   Dim txtSQL As String
   Dim MsgText As String
    
   txtSQL = "select * from reward_punish "
   Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    
          Textdong(0).Enabled = False
          Textdong(1).Enabled = False
          Textdong(2).Enabled = False
          Textdong(3).Enabled = False
          Textdong(4).Enabled = False
          Textdong(5).Enabled = False
          Textmember.Enabled = False
    
   mrc.MoveFirst
    Call viewData
  mcbookmark = mrc.Bookmark
  mcclean = True

End Sub

Public Sub viewData()
   
    Textdong(0).Text = mrc.Fields(0)
    Textdong(1).Text = mrc.Fields(1)
    Textdong(2).Text = mrc.Fields(2)
    Textdong(3).Text = mrc.Fields(3)
    Textdong(4).Text = mrc.Fields(4)
    Textdong(5).Text = mrc.Fields(8)
    Textmember.Text = mrc.Fields(5)
  
End Sub


Private Sub Text1_DblClick(Index As Integer)
  Text1(Index) = ""
 
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
     If Index < 5 Then
        If KeyAscii = 13 Then Text1(Index + 1).SetFocus
     
     
     Else
        If KeyAscii = 13 Then Text2.SetFocus
     
      End If
      
End Sub

Private Sub Text2_DblClick()
  Text2.Text = ""
End Sub
123

⌨️ 快捷键说明

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