📄 newchequebook.aspx.vb
字号:
Imports System.Data.SqlClient
Public Class newchequebook
Inherits System.Web.UI.Page
Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
Protected WithEvents lblmsg As System.Web.UI.WebControls.Label
#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
'Put user code to initialize the page here
End Sub
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim con As New sqlconnection(Application("cs"))
Try
con.Open()
Dim cmd As New SqlCommand()
cmd.CommandText = "requestforchequebook"
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = con
cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
cmd.ExecuteNonQuery()
lblmsg.Text = "Cheque Book Request Accepted!"
Catch ex As Exception
lblmsg.Text = "Error --> " & ex.Message
Finally
con.Close()
End Try
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -