form4.vb

大学生记帐管理系统

                MyRs1.MoveNext()
            Next
        End If
        If Label8.Text = "" Or Label9.Text = "" Or Label13.Text = "" Then
            MessageBox.Show(usn + "，你还没有统计今天的总花费额呢，请先统计以后再添加记录：）", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
        ElseIf flag = True Then
            MessageBox.Show("你已经添加了" + TextBox8.Text + "的记录了，重复的记录将不被添加！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
        Else
            MyRs1.AddNew()
            MyRs1.Fields(0).Value = UserId
            MyRs1.Fields(1).Value = TextBox8.Text
            If CheckBox1.Checked Then
                MyRs1.Fields(2).Value = TextBox1.Text
            End If
            If CheckBox2.Checked Then
                MyRs1.Fields(3).Value = TextBox2.Text
            End If
            If CheckBox3.Checked Then
                MyRs1.Fields(4).Value = TextBox3.Text
            End If
            If CheckBox6.Checked Then
                MyRs1.Fields(5).Value = TextBox7.Text
            End If
            If CheckBox4.Checked Then
                MyRs1.Fields(6).Value = TextBox4.Text
            End If
            If CheckBox5.Checked Then
                MyRs1.Fields(7).Value = TextBox5.Text
                MyRs1.Fields(8).Value = TextBox6.Text
            End If
            MyRs1.Fields(9).Value = Label8.Text
            MyRs1.Fields(10).Value = Label9.Text
            MyRs1.Fields(11).Value = Label13.Text
            MyRs1.Fields(12).Value = True
            If Me.RadioButton1.Checked = True Then
                MyRs1.Fields(13).Value = True
            Else
                MyRs1.Fields(13).Value = False
            End If
            If Me.RadioButton3.Checked = True Then
                MyRs1.Fields(14).Value = True
            Else
                MyRs1.Fields(14).Value = False
            End If
            If Me.RadioButton5.Checked = True Then
                MyRs1.Fields(15).Value = True
            Else
                MyRs1.Fields(15).Value = False
            End If
            If Me.RadioButton7.Checked = True Then
                MyRs1.Fields(16).Value = True
            Else
                MyRs1.Fields(16).Value = False
            End If
            MyRs1.Update()
            MessageBox.Show("记录添加成功！", "消息框", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
            MyRs1.MoveFirst()
            Dim i As Integer
            Dim k As Integer
            Dim ave As Double = 0
            Dim sum As Double = 0
            If MyRs1.RecordCount = 1 Then
                MessageBox.Show(usn + "，今天是你本月记帐的第一天，记得要省点花啊！", "每日提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
            Else
                For i = 0 To MyRs1.RecordCount - 2
                    sum += MyRs1.Fields(11).Value
                    sum = Format(sum, "#.##")
                    MyRs1.MoveNext()
                Next
                ave = sum / (MyRs1.RecordCount - 1)
                ave = Format(ave, "#.##")
                If ave > Val(Label13.Text) Then
                    MessageBox.Show(usn + "，恭喜你！你今天的花费小于你本月的平均日消费额" + ave.ToString + "，继续努力哦！", "每日提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Else : MessageBox.Show(usn + "，看来你还得省点花啊！你今天的花费已经超过了你的本月平均日消费额" + ave.ToString + "了！", "每日提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                End If
            End If
            If MyRs1.RecordCount Mod 10 = 0 Or Mid(Me.TextBox8.Text, 9, 2) = Date.DaysInMonth(Mid(Me.TextBox8.Text, 1, 4), Mid(Me.TextBox8.Text, 6, 2)) Then
                Dim str As String
                Dim g As Double = 0
                Dim MonRs As ADODB.Recordset = New ADODB.Recordset
                str = "select 计划额,实际额 from 月份管理 where 用户ID = " + UserId + " and 月份='" + Mid(Me.TextBox8.Text, 1, 7) + "'"
                MonRs.Open(str, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
                If MonRs.RecordCount = 0 Then Exit Sub
                sum += Val(Label13.Text)
                g = MonRs.Fields(0).Value
                If Mid(Me.TextBox8.Text, 9, 2) = Date.DaysInMonth(Mid(Me.TextBox8.Text, 1, 4), Mid(Me.TextBox8.Text, 6, 2)) Then
                    MonRs.Fields(1).Value = sum
                    MonRs.Update()
                    If sum > g Then
                        MessageBox.Show(usn + "，你本月的花费比你本月的计划额多了" + Math.Abs(sum - g).ToString + "元，本月计划没实现，请以后注意！", "每月提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                    Else : MessageBox.Show(usn + "，你本月的花费比你本月的计划额少了" + Math.Abs(sum - g).ToString + "元，本月计划超额实现，well done！", "每月提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                    End If
                    Exit Sub
                End If
                If MyRs1.RecordCount Mod 10 = 0 Then
                    k = MyRs1.RecordCount / 10
                    g = Format(g / 3, "#.##")
                    Select Case k
                        Case 1
                            g = sum - g
                            If g < 0 Then
                                MessageBox.Show(usn + "，你上旬的花费比你本月计划的三分之一少" + Math.Abs(g).ToString + "元，做得好啊！^_^", "友情提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                            Else : MessageBox.Show(usn + "，你上旬的花费比你本月计划的三分之一多" + Math.Abs(g).ToString + "元，你应该在本月以后的日子少花一些啊：（", "友情提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                            End If
                        Case 2
                            g = sum - 2 * g
                            If g < 0 Then
                                MessageBox.Show(usn + "，你中旬的花费比你本月计划的三分之二少" + Math.Abs(g).ToString + "元，做得好啊！^_^", "友情提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                            Else : MessageBox.Show(usn + "，你中旬的花费比你本月计划的三分之二多" + Math.Abs(g).ToString + "元，你应该在本月下旬勒紧裤头少花点啊：（", "友情提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                            End If
                    End Select
                End If
            End If
            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 Me.TextBox1.Text = "" Then
                MessageBox.Show("请输入早餐的花费额！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
            If RadioButton1.Checked Then
                Label8.Text = Val(TextBox1.Text)
            End If
            If RadioButton2.Checked Then
                Label9.Text = Val(TextBox1.Text)
            End If
            If Me.RadioButton1.Checked = False And Me.RadioButton2.Checked = False Then
                MessageBox.Show(usn + "，你还没有选择早餐的花费是用卡还是用现金！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
        End If
        If CheckBox2.Checked Then
            If Me.TextBox2.Text = "" Then
                MessageBox.Show("请输入午餐的花费额！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
            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
            If Me.RadioButton3.Checked = False And Me.RadioButton4.Checked = False Then
                MessageBox.Show(usn + "，你还没有选择午餐的花费是用卡还是用现金！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
        End If
        If CheckBox3.Checked Then
            If Me.TextBox3.Text = "" Then
                MessageBox.Show("请输入晚餐的花费额！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
            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
            If Me.RadioButton5.Checked = False And Me.RadioButton6.Checked = False Then
                MessageBox.Show(usn + "，你还没有选择晚餐的花费是用卡还是用现金！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
        End If
        If CheckBox6.Checked Then
            If Me.TextBox7.Text = "" Then
                MessageBox.Show("请输入自强购物的花费额！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
            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
            If Me.RadioButton7.Checked = False And Me.RadioButton8.Checked = False Then
                MessageBox.Show(usn + "，你还没有选择自强购物的花费是用卡还是用现金！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
        End If
        If CheckBox4.Checked Then
            If Me.TextBox4.Text = "" Then
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                MessageBox.Show("请输入洗澡的花费额！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Exit Sub
            End If
            Label8.Text = Val(Label8.Text) + Val(TextBox4.Text)
        End If
        If CheckBox5.Checked Then
            If Me.TextBox5.Text = "" Then
                MessageBox.Show("请输入其他的花费额！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
                Label8.Text = ""
                Label9.Text = ""
                Label13.Text = ""
                Exit Sub
            End If
            Label9.Text = Val(Label9.Text) + Val(TextBox5.Text)
        End If
        Label13.Text = Val(Label8.Text) + Val(Label9.Text)
    End Sub
End Class