form7.vb

大学生记帐管理系统

        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.CheckBox3)
        Me.Controls.Add(Me.CheckBox2)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.Label16)
        Me.Controls.Add(Me.Label17)
        Me.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "Form7"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "修改记录"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            Label1.Enabled = True
            TextBox1.Enabled = True
            GroupBox1.Enabled = True
        Else
            Label1.Enabled = False
            TextBox1.Enabled = False
            GroupBox1.Enabled = False
        End If

    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked Then
            Label11.Enabled = True
            TextBox7.Enabled = True
            GroupBox4.Enabled = True
        Else
            Label11.Enabled = False
            TextBox7.Enabled = False
            GroupBox4.Enabled = False
        End If
    End Sub
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            Label2.Enabled = True
            TextBox2.Enabled = True
            GroupBox2.Enabled = True
        Else
            Label2.Enabled = False
            TextBox2.Enabled = False
            GroupBox2.Enabled = False
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked Then
            Label3.Enabled = True
            TextBox3.Enabled = True
            GroupBox3.Enabled = True
        Else
            Label3.Enabled = False
            TextBox3.Enabled = False
            GroupBox3.Enabled = False
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked Then
            Label4.Enabled = True
            TextBox4.Enabled = True
        Else
            Label4.Enabled = False
            TextBox4.Enabled = False
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked Then
            Label5.Enabled = True
            TextBox5.Enabled = True
            Label6.Enabled = True
            TextBox6.Enabled = True
        Else
            Label5.Enabled = False
            TextBox5.Enabled = False
            Label6.Enabled = False
            TextBox6.Enabled = False
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If sum = 0 Then
            MessageBox.Show(usn + "，你还没有重新计算总花费额，请先按统计按钮", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
        Else
            MRs.Fields(0).Value = UserId
        MRs.Fields(1).Value = TextBox8.Text
        If CheckBox1.Checked Then
                MRs.Fields(2).Value = TextBox1.Text
            Else : MRs.Fields(2).Value = "0"
            End If
            If CheckBox2.Checked Then
                MRs.Fields(3).Value = TextBox2.Text
            Else : MRs.Fields(3).Value = "0"
            End If
            If CheckBox3.Checked Then
                MRs.Fields(4).Value = TextBox3.Text
            Else : MRs.Fields(4).Value = "0"
            End If
            If CheckBox6.Checked Then
                MRs.Fields(5).Value = TextBox7.Text
            Else : MRs.Fields(5).Value = "0"
            End If
            If CheckBox4.Checked Then
                MRs.Fields(6).Value = TextBox4.Text
            Else : MRs.Fields(6).Value = "0"
            End If
            If CheckBox5.Checked Then
                MRs.Fields(7).Value = TextBox5.Text
                MRs.Fields(8).Value = TextBox6.Text
            Else : MRs.Fields(7).Value = "0"
                MRs.Fields(8).Value = ""
            End If
            MRs.Fields(9).Value = Label8.Text
            MRs.Fields(10).Value = Label9.Text
            MRs.Fields(11).Value = Label13.Text
            MRs.Fields(12).Value = True
            If Me.RadioButton1.Checked = True Then
                MRs.Fields(13).Value = True
            Else
                MRs.Fields(13).Value = False
            End If
            If Me.RadioButton3.Checked = True Then
                MRs.Fields(14).Value = True
            Else
                MRs.Fields(14).Value = False
            End If
            If Me.RadioButton5.Checked = True Then
                MRs.Fields(15).Value = True
            Else
                MRs.Fields(15).Value = False
            End If
            If Me.RadioButton7.Checked = True Then
                MRs.Fields(16).Value = True
            Else
                MRs.Fields(16).Value = False
            End If
            MRs.Update()
            MessageBox.Show("记录修改成功！", "消息框", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
            End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Hide()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label8.Text = 0
        Label9.Text = 0
        If CheckBox1.Checked Then
            If RadioButton1.Checked Then
                Label8.Text = Val(TextBox1.Text)
            End If
            If RadioButton2.Checked Then
                Label9.Text = Val(TextBox1.Text)
            End If
        End If
        If CheckBox2.Checked Then
            If RadioButton3.Checked Then
                Label8.Text = Val(Label8.Text) + Val(TextBox2.Text)
            End If
            If RadioButton4.Checked Then
                Label9.Text = Val(Label9.Text) + Val(TextBox2.Text)
            End If
        End If
        If CheckBox3.Checked Then
            If RadioButton5.Checked Then
                Label8.Text = Val(Label8.Text) + Val(TextBox3.Text)
            End If
            If RadioButton6.Checked Then
                Label9.Text = Val(Label9.Text) + Val(TextBox3.Text)
            End If
        End If
        If CheckBox6.Checked Then
            If RadioButton7.Checked Then
                Label8.Text = Val(Label8.Text) + Val(TextBox7.Text)
            End If
            If RadioButton8.Checked Then
                Label9.Text = Val(Label9.Text) + Val(TextBox7.Text)
            End If
        End If
        If CheckBox4.Checked Then
            Label8.Text = Val(Label8.Text) + Val(TextBox4.Text)
        End If
        If CheckBox5.Checked Then
            Label9.Text = Val(Label9.Text) + Val(TextBox5.Text)
        End If
        Label13.Text = Val(Label8.Text) + Val(Label9.Text)
        sum = sum + 1
    End Sub

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox8.Text = MDate
        Dim str As String
        Dim i As Integer
        MRs = New ADODB.Recordset
        str = "select * from 用户帐目 where 用户ID = " + UserId + " order by 日期 asc"
        MRs.Open(str, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        For i = 0 To MRs.RecordCount - 1
            If MRs.Fields(1).Value = Me.TextBox8.Text Then
                Exit For
            End If
            MRs.MoveNext()
        Next
        If Not MRs.Fields(2).Value = "0" Then
            Me.CheckBox1.Checked = True
            Me.Label1.Enabled = True
            Me.GroupBox1.Enabled = True
            Me.TextBox1.Text = MRs.Fields(2).Value
            If MRs.Fields(13).Value = True Then
                Me.RadioButton1.Checked = True
            Else
                Me.RadioButton2.Checked = True
            End If
        Else : Me.CheckBox1.Checked = False
                Me.Label1.Enabled = False
                Me.TextBox1.Enabled = False
                Me.GroupBox1.Enabled = False
            End If
            If Not MRs.Fields(3).Value = "0" Then
                Me.CheckBox2.Checked = True
                Me.Label2.Enabled = True
                Me.GroupBox2.Enabled = True
            Me.TextBox2.Text = MRs.Fields(3).Value
            If MRs.Fields(14).Value = True Then
                Me.RadioButton3.Checked = True
            Else
                Me.RadioButton4.Checked = True
            End If
        Else : Me.CheckBox2.Checked = False
                Me.Label2.Enabled = False
                Me.TextBox2.Enabled = False
                Me.GroupBox2.Enabled = False
            End If
            If Not MRs.Fields(4).Value = "0" Then
                Me.CheckBox3.Checked = True
                Me.Label3.Enabled = True
                Me.GroupBox3.Enabled = True
            Me.TextBox3.Text = MRs.Fields(4).Value
            If MRs.Fields(15).Value = True Then
                Me.RadioButton5.Checked = True
            Else
                Me.RadioButton6.Checked = True
            End If
        Else : Me.CheckBox3.Checked = False
            Me.Label3.Enabled = False
            Me.TextBox3.Enabled = False
            Me.GroupBox3.Enabled = False
        End If
        If Not MRs.Fields(5).Value = "0" Then
            Me.CheckBox6.Checked = True
            Me.Label11.Enabled = True
            Me.GroupBox4.Enabled = True
            Me.TextBox7.Text = MRs.Fields(5).Value
            If MRs.Fields(16).Value = True Then
                Me.RadioButton7.Checked = True
            Else
                Me.RadioButton8.Checked = True
            End If
        Else : Me.CheckBox6.Checked = False
            Me.Label11.Enabled = False
            Me.TextBox7.Enabled = False
            Me.GroupBox4.Enabled = False
        End If
        If Not MRs.Fields(7).Value = "0" Then
            Me.CheckBox5.Checked = True
            Me.Label5.Enabled = True
            Me.TextBox5.Text = MRs.Fields(7).Value
            Me.TextBox6.Text = MRs.Fields(8).Value
        Else : Me.CheckBox5.Checked = False
            Me.Label5.Enabled = False
            Me.TextBox5.Enabled = False
            Me.TextBox6.Enabled = False
        End If
        If Not MRs.Fields(6).Value = "0" Then
            Me.CheckBox4.Checked = True
            Me.Label4.Enabled = True
            Me.TextBox4.Text = MRs.Fields(6).Value
        Else : Me.CheckBox4.Checked = False
            Me.Label4.Enabled = False
            Me.TextBox4.Enabled = False
        End If
        Label8.Text = MRs.Fields(9).Value
        Label9.Text = MRs.Fields(10).Value
        Label13.Text = MRs.Fields(11).Value
    End Sub
End Class