frmmodifymeterdata.frm

物业管理信息系统my sql +visual basic

         EndProperty
         Height          =   492
         Left            =   6480
         TabIndex        =   7
         Top             =   360
         Width           =   1695
      End
      Begin VB.CommandButton deleteCommand 
         Caption         =   "删除记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   4440
         TabIndex        =   6
         Top             =   390
         Width           =   1440
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "查看仪表数据信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1092
      Left            =   240
      TabIndex        =   0
      Top             =   4320
      Width           =   8535
      Begin VB.CommandButton firstCommand 
         Caption         =   "第一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   240
         TabIndex        =   4
         Top             =   360
         Width           =   1452
      End
      Begin VB.CommandButton previousCommand 
         Caption         =   "上一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   2320
         TabIndex        =   3
         Top             =   360
         Width           =   1452
      End
      Begin VB.CommandButton nextCommand 
         Caption         =   "下一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   4400
         TabIndex        =   2
         Top             =   360
         Width           =   1452
      End
      Begin VB.CommandButton lastCommand 
         Caption         =   "最后一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   6480
         TabIndex        =   1
         Top             =   360
         Width           =   1692
      End
   End
End
Attribute VB_Name = "frmModifyMeterData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim tempMeterData As clsMeterData


Private Sub cancelCommand_Click()
 Unload Me
End Sub



Private Sub deleteCommand_Click()
  tempMeterData.DelRecord
End Sub

Private Sub editCommand_Click()

 tempMeterData.EditRecord
    Frame2.Enabled = False
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    txtMeterName.Enabled = True
    txtMeterNumber.Enabled = True
    TxtMeterAmount.Enabled = True
    txtMeterCharge.Enabled = True
    txtUserName.Enabled = True
    txtComment.Enabled = True
    
End Sub

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

Private Sub Form_Load()

 
   Set tempMeterData = New clsMeterData
    tempMeterData.LoadRecord
    Call viewData
    txtMeterName.Enabled = False
    txtMeterNumber.Enabled = False
    TxtMeterAmount.Enabled = False
    txtMeterCharge.Enabled = False
    txtUserName.Enabled = False
    txtComment.Enabled = False
    
    
    
    
End Sub

Public Sub viewData()
    Me.txtMeterName.Text = tempMeterData.mrc.Fields(0)
    txtMeterName.Text = tempMeterData.mrc.Fields(1)
    txtMeterNumber.Text = tempMeterData.mrc.Fields(2)
    TxtMeterAmount.Text = tempMeterData.mrc.Fields(3)
    txtMeterCharge.Text = tempMeterData.mrc.Fields(4)
    txtUserName.Text = tempMeterData.mrc.Fields(5)
    txtComment.Text = tempMeterData.mrc.Fields(6)
    txtModifyName.Text = tempMeterData.mrc.Fields(7)
    txtModifyDate.Text = tempMeterData.mrc.Fields(8)
   
End Sub

Private Sub lastCommand_Click()
 tempMeterData.mrc.MoveLast
    Call viewData
End Sub

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

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


Private Sub updateCommand_Click()
 Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
    
    If tempMeterData.mcclean Then
        MsgBox "请先修改仪表读数信息", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    
  
    
    If Not Testtxt(txtMeterName.Text) Then
        MsgBox "请输入仪表名称！", vbOKOnly + vbExclamation, "警告"
        txtMeterName.SetFocus
        Exit Sub
    End If
    
    If Not IsNumeric(txtMeterNumber.Text) Then
        MsgBox "请输入仪表读数", vbOKOnly + vbExclamation, "警告"
        txtMeterNumber.SetFocus
        Exit Sub
    End If
    
    If Not IsNumeric(TxtMeterAmount.Text) Then
        MsgBox "请输入走表量！", vbOKOnly + vbExclamation, "警告"
        TxtMeterAmount.SetFocus
        Exit Sub
    End If
                tempMeterData.Update txtMeterName.Text, Val(Me.txtMeterNumber.Text), Val(Me.TxtMeterAmount), Val(Me.txtMeterCharge.Text), Me.txtUserName.Text, Me.txtComment.Text
        Call viewData
               
                Call viewData
                Frame2.Enabled = True
                firstCommand.Enabled = True
                previousCommand.Enabled = True
                nextCommand.Enabled = True
                lastCommand.Enabled = True
        
               
                txtMeterName.Enabled = False
                txtMeterNumber.Enabled = False
                TxtMeterAmount.Enabled = False
               txtUserName.Enabled = False
                
                 tempMeterData.mcclean = True

End Sub