frmmodifyreward.frm

该系统的最终用户是访问本系统的工作人员

            Top             =   600
            Width           =   1215
         End
         Begin VB.CommandButton Command4 
            Caption         =   "最后一条纪录"
            Height          =   375
            Left            =   7560
            TabIndex        =   25
            Top             =   1320
            Width           =   1455
         End
         Begin VB.CommandButton Command3 
            Caption         =   "下一条纪录"
            Height          =   375
            Left            =   5280
            TabIndex        =   24
            Top             =   1320
            Width           =   1455
         End
         Begin VB.CommandButton Command2 
            Caption         =   "上一条纪录"
            Height          =   375
            Left            =   2880
            TabIndex        =   23
            Top             =   1320
            Width           =   1575
         End
         Begin VB.CommandButton Command1 
            Caption         =   "第一条纪录"
            Height          =   375
            Left            =   720
            TabIndex        =   22
            Top             =   1320
            Width           =   1455
         End
         Begin VB.CheckBox Check2 
            Caption         =   "输入寝室号"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   3480
            TabIndex        =   19
            Top             =   600
            Width           =   1695
         End
         Begin VB.CheckBox Check1 
            Caption         =   "输入栋号"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   18
            Top             =   600
            Width           =   1215
         End
         Begin VB.CommandButton query_cmd 
            Caption         =   "查询"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   7680
            TabIndex        =   4
            Top             =   480
            Width           =   1215
         End
      End
   End
End
Attribute VB_Name = "frmmodifyreward"
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 rs As Boolean



Public Sub viewData()
    Text1(0).Text = mrc.Fields(0)
    Text1(1).Text = mrc.Fields(1)
    Text1(2).Text = mrc.Fields(2)
    Text1(3).Text = mrc.Fields(3)
    Text1(4).Text = mrc.Fields(4)
    Text1(5).Text = mrc.Fields(8)
    Text1(6).Text = mrc.Fields(6)
    Text1(7).Text = mrc.Fields(7)
End Sub



Private Sub cmdCancel_Click()
 If Not mcclean Then
        Frame2.Enabled = True
        Command1.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = True
        Command4.Enabled = True
        Combo1.Enabled = True
        Combo2.Enabled = True
        Text1(0).Enabled = False
        Text1(1).Enabled = False
        Text1(2).Enabled = False
        Text1(3).Enabled = False
        Text1(4).Enabled = False
        Text1(5).Enabled = False
        Text1(6).Enabled = False
        Text1(7).Enabled = False
     
       
        mrc.Bookmark = myBookmark
        Call viewData
    Else
        MsgBox "你没有修改！", vbOKOnly + vbExclamation, "警告"
    End If
End Sub

Private Sub cmdUpdata_Click()
  Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
      
      mrc.Fields(6) = Trim(Text1(6).Text)
      mrc.Fields(7) = Trim(Text1(7).Text)
               
       mrc.Update
       MsgBox "修改成功！", vbOKOnly + vbExclamation, "修改寝室奖罚信息"
                
       ' mrc.Bookmark = myBookmark
        Call viewData
         Frame2.Enabled = True
              Combo1.Enabled = True
              Combo2.Enabled = True
              Command1.Enabled = True
              Command2.Enabled = True
              Command3.Enabled = True
              Command4.Enabled = True
              Text1(0).Enabled = False
              Text1(1).Enabled = False
              Text1(2).Enabled = False
              Text1(3).Enabled = False
              Text1(4).Enabled = False
              Text1(5).Enabled = False
              Text1(6).Enabled = False
              Text1(7).Enabled = False
              
                mcclean = True
                            
                
         
       
  
    
      
End Sub

Private Sub Command1_Click()
  mrc.MoveFirst
  Call viewData
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 Form_Load()
   Dim txtSQL As String
   Dim MsgText As String
    
   txtSQL = "select * from reward_punish "
   Set mrc = ExecuteSQL(txtSQL, MsgText)
       
         Text1(0).Enabled = False
         Text1(1).Enabled = False
         Text1(2).Enabled = False
         Text1(3).Enabled = False
         Text1(4).Enabled = False
         Text1(5).Enabled = False
         Text1(6).Enabled = False
         Text1(7).Enabled = False
    
   mrc.MoveFirst
    Call viewData
  mcbookmark = mrc.Bookmark
  mcclean = True
  rs = True
End Sub



Private Sub cmdedit_Click()
    mcclean = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Text1(0).Enabled = False
    Text1(1).Enabled = False
    Text1(2).Enabled = False
    Text1(3).Enabled = False
    Text1(4).Enabled = False
    Text1(5).Enabled = False
    Text1(6).Enabled = True
    Text1(7).Enabled = True
  
     
   myBookmark = mrc.Bookmark
End Sub



Private Sub query_cmd_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, "警告"
                 Exit Sub
              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 & " 寝室号= '" & Text1(1).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)
           Text1(0).Text = mrc.Fields(0)
           Text1(1).Text = mrc.Fields(1)
           Text1(2).Text = mrc.Fields(2)
           Text1(3).Text = mrc.Fields(3)
           Text1(4).Text = mrc.Fields(4)
           Text1(5).Text = mrc.Fields(8)
           Text1(6).Text = mrc.Fields(6)
           Text1(7).Text = mrc.Fields(7)
   
       mrc.Close
     End If
End Sub