ministatement.aspx.vb

来自「java voice chat based on java core ,, u 」· VB 代码 · 共 37 行

Imports System.Data.SqlClient
Public Class ministatement
    Inherits System.Web.UI.Page
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

#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
        Dim con As New SqlConnection(Application("cs"))
        con.Open()
        Dim cmd As New SqlCommand("select top 10  convert(varchar(10),tdate,3) tdate,tdesc, tamt, ttype, cno, case status when 'p' then 'Paid' when 's' then 'Stopped' else '' end status from  transactions where acno = @acno order by tdate desc", con)
        cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
        Dim dr As SqlDataReader
        dr = cmd.ExecuteReader
        DataGrid1.DataSource = dr
        DataGrid1.DataBind()
        dr.Close()
        con.Close()

    End Sub

End Class