form2.vb

大学生记帐管理系统

#End Region

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim close As Form6
        close = New Form6
        close.Show()
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        Dim u As user
        u = New user
        u.ShowDialog()
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        User权限 = ""
        Me.Hide()
        Dim f As login
        f = New login
        f.ShowDialog()
    End Sub

    Private Sub mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not MyRs.State = ADODB.ObjectStateEnum.adStateClosed Then
            MyRs.Close()
            If User权限 = "管理员" Then
                Me.MenuItem10.Enabled = True
            ElseIf User权限 = "普通用户" Then
                Me.MenuItem10.Enabled = False
            End If
        End If
        strCnn = "select * from 用户帐目 where 用户ID = " + UserId + " and 状态=True and 日期 like '" + Mid(Format(Date.Today, "yyyy-MM-dd"), 1, 7) + "%'" + " order by 日期 asc"
        MyRs.Open(strCnn, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        If Not MyRs.RecordCount = 0 Then
            MyRs.MoveFirst()
            Me.TreeView1.Nodes.Clear()
            Dim i As Integer
            For i = 0 To MyRs.RecordCount - 1
                Me.TreeView1.Nodes.Add(MyRs.Fields(1).Value.ToString)
                MyRs.MoveNext()
            Next
        End If
        Dim str As String
        Dim MonRs As ADODB.Recordset = New ADODB.Recordset
        str = "select 月份,计划额 from 月份管理 where 用户ID=" + UserId + " and 月份 like '" + Mid(Format(Date.Today, "yyyy-MM-dd"), 1, 7) + "'"
        MonRs.Open(str, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        If MonRs.RecordCount = 0 Then
            Me.Show()
            Dim f8 As Form8 = New Form8
            f8.ShowDialog()
            Me.TreeView1.Nodes.Clear()
            Me.ListView1.Clear()
        End If
    End Sub
    Private Sub mainform_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        MyRs1 = New ADODB.Recordset
        MyRs1.Open(strCnn, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        If MyRs1.RecordCount = 0 Then
            Me.TreeView1.Nodes.Clear()
            Me.ListView1.Clear()
            Dim result As DialogResult
            result = MessageBox.Show("现在需要添加本月第一条记录吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
            If result = DialogResult.Yes Then
                Dim f4 As Form4 = New Form4
                f4.ShowDialog()
            End If
        Else
            MyRs1.MoveFirst()
            Me.TreeView1.Nodes.Clear()
            Me.ListView1.Clear()
            Dim i As Integer
            For i = 0 To MyRs1.RecordCount - 1
                Me.TreeView1.Nodes.Add(MyRs1.Fields(1).Value.ToString)
                MyRs1.MoveNext()
            Next
        End If
        Dim str2 As String
        TalRs = New ADODB.Recordset
        str2 = "select * from 用户帐目 where 用户ID = " + UserId + " order by 日期 asc"
        TalRs.Open(str2, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        If Not TalRs.RecordCount = 0 Then
            TalRs.MoveFirst()
        End If
    End Sub
    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim tianjia As Form4
        tianjia = New Form4
        tianjia.ShowDialog()
    End Sub
    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        If Me.TreeView1.SelectedNode Is Nothing Then
            MessageBox.Show("你还没有选择你需要删除的记录，请从左边的日期栏中选择！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
        Else
            Dim result As DialogResult
            result = MessageBox.Show("你确定要删除这个记录吗？", "警告", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2, MessageBoxOptions.ServiceNotification)
            If result = DialogResult.OK Then
                Dim i As Integer
                TalRs.MoveFirst()
                For i = 0 To TalRs.RecordCount - 1
                    If TalRs.Fields(1).Value.ToString = Me.TreeView1.SelectedNode.Text Then
                        Exit For
                    End If
                    TalRs.MoveNext()
                Next
                TalRs.Delete()
                Me.mainform_Activated(sender, e)
            End If
        End If
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Dim zhangmu As Form5
        zhangmu = New Form5
        zhangmu.ShowDialog()
    End Sub
    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim form As Form6
        form = New Form6
        form.ShowDialog()
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Dim str1 As String
        Dim str2 As String
        Dim result As DialogResult
        result = MessageBox.Show("你确定今天是新学期的开始吗？", "消息提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.DefaultDesktopOnly)
        If result = DialogResult.Yes Then
            NewRs = New ADODB.Recordset
            OldRs = New ADODB.Recordset
            str1 = "select * from 用户帐目 where 用户ID = " + UserId + " and (日期 between " + "'" + Format(Date.Today, "yyyy-MM-dd") + "' and  '2050-09-01')"
            NewRs.Open(str1, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
            Me.TreeView1.Nodes.Clear()
            Me.ListView1.Clear()
            Dim i As Integer
            For i = 0 To NewRs.RecordCount - 1
                Me.TreeView1.Nodes.Add(NewRs.Fields(1).Value.ToString)
                NewRs.MoveNext()
            Next
            str2 = "select * from 用户帐目 where 用户ID = " + UserId + " and (日期 between '2004-01-01' and  '" + Format(Date.Today.AddDays(-1), "yyyy-MM-dd") + "')"
            OldRs.Open(str2, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
            OldRs.MoveFirst()
            For i = 0 To OldRs.RecordCount - 1
                OldRs.Fields(12).Value = False
                OldRs.Update()
                OldRs.MoveNext()
            Next
        End If
    End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Me.TreeView1.Nodes.Clear()
        Me.ListView1.Clear()
        Dim i As Integer
        Dim str2 As String
        TalRs1 = New ADODB.Recordset
        str2 = "select * from 用户帐目 where 用户ID = " + UserId + " order by 日期 asc"
        TalRs1.Open(str2, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        TalRs1.MoveFirst()
        For i = 0 To TalRs1.RecordCount - 1
            Me.TreeView1.Nodes.Add(TalRs1.Fields(1).Value.ToString)
            TalRs1.MoveNext()
        Next
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Dim str As String
        str = "select * from 用户帐目 where 用户ID = " + UserId + " and 状态=True"
        TermRs = New ADODB.Recordset
        TermRs.Open(str, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockBatchOptimistic)
        If Not TermRs.RecordCount = 0 Then
            TermRs.MoveFirst()
            Me.TreeView1.Nodes.Clear()
            Me.ListView1.Clear()
            Dim i As Integer
            For i = 0 To TermRs.RecordCount - 1
                Me.TreeView1.Nodes.Add(TermRs.Fields(1).Value.ToString)
                TermRs.MoveNext()
            Next
        Else
            Me.TreeView1.Nodes.Clear()
            Me.ListView1.Clear()
        End If
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        If Me.TreeView1.SelectedNode Is Nothing Then
            MessageBox.Show("你还没有选择你需要修改的记录，请从左边的日期栏中选择！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)
        Else
            MDate = Me.TreeView1.SelectedNode.Text
            Dim f As Form7
            f = New Form7
            f.ShowDialog()
        End If
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        MenuItem15_Click(sender, e)
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        MenuItem8_Click(sender, e)
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim i As Integer
        Dim list As Windows.Forms.ListViewItem
        Dim str2 As String
        TalRs = New ADODB.Recordset
        str2 = "select * from 用户帐目 where 用户ID = " + UserId + " order by 日期 asc"
        TalRs.Open(str2, MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        Me.ListView1.Clear()
        Me.ListView1.Columns.Add("字段", 100, HorizontalAlignment.Left)
        Me.ListView1.Columns.Add("值", 300, HorizontalAlignment.Left)
        TalRs.MoveFirst()
        For i = 0 To TalRs.RecordCount - 1
            If TalRs.Fields(1).Value = Me.TreeView1.SelectedNode.Text Then
                Exit For
            End If
            TalRs.MoveNext()
        Next
        For i = 0 To TalRs.Fields.Count - 6
            list = New Windows.Forms.ListViewItem
            list.Text = TalRs.Fields(i).Name
            Dim subItem As Windows.Forms.ListViewItem.ListViewSubItem
            subItem = New Windows.Forms.ListViewItem.ListViewSubItem
            subItem.Text = TalRs.Fields(i).Value.ToString
            list.SubItems.Add(subItem)
            Me.ListView1.Items.Add(list)
        Next
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Me.mainform_Activated(sender, e)
    End Sub
End Class