transferfunds.aspx.vb

java voice chat based on java core ,, u need to extract it and run,, it is siimplee

Imports System.Data.SqlClient
Public Class transferfunds
    Inherits System.Web.UI.Page
    Protected WithEvents ddlPayee As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtAmount As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtTranPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents cbImmediately As System.Web.UI.WebControls.CheckBox
    Protected WithEvents txtSDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnTransfer As System.Web.UI.WebControls.Button
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents lblmsg As System.Web.UI.WebControls.Label
    Protected WithEvents txttdesc As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnCancel As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            bindpayees()
        End If
    End Sub

    Sub BindPayees()
        Dim con As New SqlConnection(Application("cs"))
        Dim da As New SqlDataAdapter("select  payee + '-' + nickname  nickname,payee  from payees where acno = @acno", con)
        da.SelectCommand.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
        Dim ds As New DataSet()
        da.Fill(ds, "payees")
        ddlPayee.DataSource = ds.Tables(0)
        ddlPayee.DataTextField = "nickname"
        ddlPayee.DataValueField = "payee"
        ddlPayee.DataBind()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Server.Transfer("default.aspx")
    End Sub

    Private Sub btnTransfer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransfer.Click
        If cbImmediately.Checked Then
            DoTransfer()
        Else
            ScheduleTransfer()
        End If
    End Sub

    Sub DoTransfer()
        Dim con As New SqlConnection(Application("cs"))
        con.Open()
        Dim cmd As New SqlCommand()
        cmd.CommandText = "TransferFunds"
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Connection = con
        cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
        cmd.Parameters.Add("@payee", SqlDbType.VarChar, 10).Value = ddlPayee.SelectedItem.Value
        cmd.Parameters.Add("@tranpwd", SqlDbType.VarChar, 10).Value = txtTranPwd.Text
        cmd.Parameters.Add("@amt", SqlDbType.Money).Value = txtAmount.Text
        cmd.Parameters.Add("@tdesc", SqlDbType.VarChar, 50).Value = txttdesc.Text
        Try
            cmd.ExecuteNonQuery()
            lblmsg.Text = "Amount Tranfered Successfully!"
        Catch ex As Exception
            lblmsg.Text = "Error --> " & ex.Message
        Finally
            con.Close()
        End Try
    End Sub

    Sub ScheduleTransfer()
        Dim con As New SqlConnection(Application("cs"))
        con.Open()
        Dim cmd As New SqlCommand()
        cmd.CommandText = "ScheduleTransfer"
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Connection = con
        cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
        cmd.Parameters.Add("@payee", SqlDbType.VarChar, 10).Value = ddlPayee.SelectedItem.Value
        cmd.Parameters.Add("@tranpwd", SqlDbType.VarChar, 10).Value = txtTranPwd.Text
        cmd.Parameters.Add("@amt", SqlDbType.Money).Value = txtAmount.Text
        cmd.Parameters.Add("@schddate", SqlDbType.DateTime).Value = txtSDate.Text
        cmd.Parameters.Add("@tdesc", SqlDbType.VarChar, 50).Value = txttdesc.Text
        Try
            cmd.ExecuteNonQuery()
            lblmsg.text = "Transaction Scheduled Successfully!"
        Catch ex As Exception
            lblmsg.text = "Error --> " & ex.Message
        Finally
            con.Close()
        End Try
    End Sub
End Class