Home All Groups Group Topic Archive Search About

Dynamically updating payment details

Author
14 Jan 2006 10:37 AM
paapa21
I have got a page that shows student payment information. On the page the
user can view total amount paid by student, amount outstanding and the course
fee; add paymnent to the database; and also view individual payment made with
their corresponding date of paymnent, the method of payment and the amount
paid. These are all under three respectivel panel in one page.

What i really want to do is, If a user add payment to the database, i want
the other part of the page to update itself authomatically i.e the payment
added should automatically update viewpayment() and the paymentdetails() sub
where the viewpayment() allow to view total payment and amount outstanding
and paymentdetails allow to view date of payment, amountpaid and method of
payment

I want to know how i can do that. Below is the sub of the page.

Sub Paymentdetails()
        Showpaymentpanel.Visible = True
        Dim StudentID As Integer = CInt(Request.Params("StudentID"))
        Dim Balance As New Payment2DB
        ShowPaymentDataList.Datasource =
Balance.Sel_Balance(Request.Params("StudentID"))
        ShowPaymentDataList.Databind()
        If ShowPaymentDataList.Items.Count = 0 Then
            ErrorMsg.Text = "There are no Payments recorded for this student
yet. Use the form below if required."
        End If
    End Sub

    Sub ViewPayment()
        viewpaymentpanel.Visible = True
        Dim StudentID As Integer = CInt(Request.Params("StudentID"))
        Dim Balance As New Payment2DB
        viewpaymentdatalist.DataSource =
Balance.Sel_Payment(Request.Params("StudentID"))
        viewpaymentdatalist.DataBind()
        If Viewpaymentdatalist.Rows.Count = 0 Then
            ErrorMsg.Text = "There are no Payments recorded for this student
yet. Use the form below if required."
        End If
    End Sub

    Sub AddPayment_Click(ByVal Sender As Object, ByVal e As EventArgs)
        If Page.IsValid = True Then
            Dim StudentID As Integer = CInt(ViewState("StudentID"))
            Dim Addpayment As New Payment2DB
            Addpayment.AddPayment(StudentID,
Server.HtmlEncode(DateOfPayment.Text), Server.HtmlEncode(amountpaid.Text),
Server.HtmlEncode(MethodofPayment.SelectedValue))
        End If
    End Sub

AddThis Social Bookmark Button