frmxq.vb

需要在.net环境下运行需要安装框架

        Me.tbIManager.Name = "tbIManager"
        Me.tbIManager.TabIndex = 13
        Me.tbIManager.Text = ""
        '
        'tbIRemark
        '
        Me.tbIRemark.Location = New System.Drawing.Point(12, 208)
        Me.tbIRemark.Multiline = True
        Me.tbIRemark.Name = "tbIRemark"
        Me.tbIRemark.Size = New System.Drawing.Size(504, 72)
        Me.tbIRemark.TabIndex = 17
        Me.tbIRemark.Text = ""
        '
        'btnChange
        '
        Me.btnChange.Location = New System.Drawing.Point(414, 176)
        Me.btnChange.Name = "btnChange"
        Me.btnChange.Size = New System.Drawing.Size(100, 24)
        Me.btnChange.TabIndex = 18
        Me.btnChange.Text = "更改"
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(219, 71)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(16, 16)
        Me.Label10.TabIndex = 19
        Me.Label10.Text = "元"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(219, 110)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(16, 16)
        Me.Label11.TabIndex = 20
        Me.Label11.Text = "分"
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(219, 149)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(16, 16)
        Me.Label12.TabIndex = 21
        Me.Label12.Text = "分"
        '
        'nudIManageCost
        '
        Me.nudIManageCost.Location = New System.Drawing.Point(115, 66)
        Me.nudIManageCost.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
        Me.nudIManageCost.Name = "nudIManageCost"
        Me.nudIManageCost.Size = New System.Drawing.Size(100, 21)
        Me.nudIManageCost.TabIndex = 22
        Me.nudIManageCost.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'nudIWater
        '
        Me.nudIWater.Location = New System.Drawing.Point(115, 105)
        Me.nudIWater.Name = "nudIWater"
        Me.nudIWater.Size = New System.Drawing.Size(100, 21)
        Me.nudIWater.TabIndex = 23
        Me.nudIWater.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'nudIEletrity
        '
        Me.nudIEletrity.Location = New System.Drawing.Point(115, 144)
        Me.nudIEletrity.Name = "nudIEletrity"
        Me.nudIEletrity.Size = New System.Drawing.Size(100, 21)
        Me.nudIEletrity.TabIndex = 24
        Me.nudIEletrity.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'nudIHouseNum
        '
        Me.nudIHouseNum.Location = New System.Drawing.Point(416, 66)
        Me.nudIHouseNum.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
        Me.nudIHouseNum.Name = "nudIHouseNum"
        Me.nudIHouseNum.Size = New System.Drawing.Size(100, 21)
        Me.nudIHouseNum.TabIndex = 25
        Me.nudIHouseNum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'nudIDate
        '
        Me.nudIDate.Location = New System.Drawing.Point(416, 105)
        Me.nudIDate.Maximum = New Decimal(New Integer() {28, 0, 0, 0})
        Me.nudIDate.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
        Me.nudIDate.Name = "nudIDate"
        Me.nudIDate.Size = New System.Drawing.Size(100, 21)
        Me.nudIDate.TabIndex = 26
        Me.nudIDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.nudIDate.Value = New Decimal(New Integer() {1, 0, 0, 0})
        '
        'nudIMonth
        '
        Me.nudIMonth.Location = New System.Drawing.Point(416, 144)
        Me.nudIMonth.Maximum = New Decimal(New Integer() {12, 0, 0, 0})
        Me.nudIMonth.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
        Me.nudIMonth.Name = "nudIMonth"
        Me.nudIMonth.Size = New System.Drawing.Size(100, 21)
        Me.nudIMonth.TabIndex = 27
        Me.nudIMonth.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.nudIMonth.Value = New Decimal(New Integer() {1, 0, 0, 0})
        '
        'FRMXQ
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(528, 285)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.nudIMonth, Me.nudIDate, Me.nudIHouseNum, Me.nudIEletrity, Me.nudIWater, Me.nudIManageCost, Me.Label12, Me.Label11, Me.Label10, Me.btnChange, Me.tbIRemark, Me.tbIManager, Me.tbIName, Me.Label9, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1})
        Me.Name = "FRMXQ"
        Me.Text = "小区资料"
        CType(Me.nudIManageCost, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.nudIWater, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.nudIEletrity, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.nudIHouseNum, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.nudIDate, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.nudIMonth, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click
        Dim sqlStr As String
        If Not check() Then
            Exit Sub
        End If
        'sqlStr = "insert into information(iName,iManager,iHouseNum,iManageCost,iWater,iEletrity,iDate,iMonth,iRemark) "
        'sqlStr = sqlStr & " values('"
        'sqlStr = sqlStr & tbIName.Text & "','"
        'sqlStr = sqlStr & tbIManager.Text & "',"
        'sqlStr = sqlStr & nudIHouseNum.Text & ","
        'sqlStr = sqlStr & nudIManageCost.Text & ","
        'sqlStr = sqlStr & nudIWater.Text & ","
        'sqlStr = sqlStr & nudIEletrity.Text & ","
        'sqlStr = sqlStr & nudIDate.Text & ","
        'sqlStr = sqlStr & nudIMonth.Text & ",'"
        'sqlStr = sqlStr & tbIRemark.Text & "')"
        sqlStr = "update information set iName='"
        sqlStr = sqlStr & tbIName.Text & "',"
        sqlStr = sqlStr & "iManager='" & tbIManager.Text & "',"
        sqlStr = sqlStr & "iHouseNum=" & nudIHouseNum.Text & ","
        sqlStr = sqlStr & "iManageCost=" & nudIManageCost.Text & ","
        sqlStr = sqlStr & "iWater=" & nudIWater.Text & ","
        sqlStr = sqlStr & "iEletrity=" & nudIEletrity.Text & ","
        sqlStr = sqlStr & "iDate=" & nudIDate.Text & ","
        sqlStr = sqlStr & "iMonth=" & nudIMonth.Text & ","
        sqlStr = sqlStr & "iRemark='" & tbIRemark.Text & "'"
        MsgBox(sqlStr, MsgBoxStyle.Exclamation, "ok")
        Dim dbopera1 As DbOpera = New DbOpera(sqlStr)
        dbopera1.opera()
    End Sub
    Private Function check() As Boolean
        '用户输入的信息要保证是正确的
        If tbIName.Text = "" Or tbIManager.Text = "" Or nudIHouseNum.Text = "" Then
            MsgBox("输入完整的信息！", MsgBoxStyle.Exclamation, "Warning")
            check = False
        Else
            If nudIManageCost.Text = "" Or nudIWater.Text = "" Or nudIEletrity.Text = "" Then
                MsgBox("输入完整的信息！", MsgBoxStyle.Exclamation, "Warning")
                check = False
            Else
                If nudIDate.Text = "" Or nudIMonth.Text = "" Then
                    MsgBox("输入完整的信息！", MsgBoxStyle.Exclamation, "Warning")
                    check = False
                Else
                    check = True
                End If
            End If
        End If
    End Function

    Private Sub FRMXQ_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class