form.aspx.vb

《Visual Basic案例开发》一书的源代码

Public Class Form
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents FindBar As _36Hang.Web.UI.WebControls.FindBar
    Protected WithEvents RecordBar As _36Hang.Web.UI.WebControls.RecordBar
    Protected WithEvents EditFace As _36Hang.Web.UI.WebControls.EditFace

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private _Server As String = System.Configuration.ConfigurationSettings.AppSettings("Server")
    Private _Database As String = System.Configuration.ConfigurationSettings.AppSettings("Database")
    Private _Username As String = System.Configuration.ConfigurationSettings.AppSettings("Username")
    Private _Password As String = System.Configuration.ConfigurationSettings.AppSettings("Password")

    Private _ID As String = "0"
    Private _Current As String = "1"

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i As Int16

        If (Session("Find") Is Nothing) Then Session("Find") = ""
        If Not (Request.QueryString("ID") Is Nothing) Then _ID = Request.QueryString("ID").ToString()
        If Not (Request.QueryString("Current") Is Nothing) Then _Current = Request.QueryString("Current").ToString()

        ' 记录栏
        SetControl(RecordBar)

        ' 查找框
        SetControl(FindBar)

        ' 新建框
        SetControl(EditFace)

        For i = 0 To RecordBar.Items.Count - 1
            If (RecordBar.Items(i).ID = _ID) Then
                RecordBar.Index = i
            End If
        Next

    End Sub

    ' 初始化记录栏
    Private Sub SetControl(ByVal RecordBar As _36Hang.Web.UI.WebControls.RecordBar)

        Dim strSql As String
        Dim intValue As Int16
        Dim objData As _36Hang.Data.Operation = New _36Hang.Data.Operation(_Server, _Database, _Username, _Password)

        Dim objRecordBarHead As _36Hang.Web.UI.WebControls.RecordBarHead

        If (Me.Page.IsPostBack = False) Then
            RecordBar.Current = Convert.ToInt16(_Current)
            RecordBar.Length = 10
        End If

        strSql = Session("Find").ToString()
        If (strSql = "") Then
            strSql = "select count(*) as [Count] from [ZSB]"
        Else
            strSql = "select count(*) as [Count] from (" & strSql & ") [Table]"
        End If
        intValue = objData.Count(strSql)
        RecordBar.Count = intValue
        If (RecordBar.Current = 0) Then RecordBar.Current = 1
        If ((RecordBar.Count + RecordBar.Length - 1) / RecordBar.Length < RecordBar.Current) Then RecordBar.Current = (RecordBar.Count + RecordBar.Length - 1) / RecordBar.Length

        objRecordBarHead = New _36Hang.Web.UI.WebControls.RecordBarHead
        objRecordBarHead.Name = "税款所属时期"
        objRecordBarHead.Width = "100%"
        RecordBar.Heads.Add(objRecordBarHead)

        GetRecord(RecordBar)

        RecordBar.Expand()

    End Sub

    ' 初始化记录栏的记录
    Private Sub GetRecord(ByVal RecordBar As _36Hang.Web.UI.WebControls.RecordBar)

        Dim i As Int16
        Dim strSql As String
        Dim objData As _36Hang.Data.Operation = New _36Hang.Data.Operation(_Server, _Database, _Username, _Password)

        Dim objRecordBarItem As _36Hang.Web.UI.WebControls.RecordBarItem
        Dim objRecordBarItemColumn As _36Hang.Web.UI.WebControls.RecordBarItemColumn

        strSql = Session("Find").ToString()
        If (strSql = "") Then
            strSql = "select [ID],[SKSSSQ] from [ZSB]"
        End If

        Dim strXml As String = objData.Records(strSql, RecordBar.Current, RecordBar.Length)
        Dim objXml As _36Hang.Xml.Operation = New _36Hang.Xml.Operation(strXml)
        For i = 0 To objXml.Count("Root") - 1
            objRecordBarItem = New _36Hang.Web.UI.WebControls.RecordBarItem
            objRecordBarItem.ID = objXml.Value("Root", i, "ID")

            objRecordBarItemColumn = New _36Hang.Web.UI.WebControls.RecordBarItemColumn
            objRecordBarItemColumn.Name = objXml.Value("Root", i, "SKSSSQ")
            objRecordBarItem.Columns.Add(objRecordBarItemColumn)

            RecordBar.Items.Add(objRecordBarItem)
        Next

    End Sub

    ' 初始化查找栏
    Private Sub SetControl(ByVal FindBar As _36Hang.Web.UI.WebControls.FindBar)

        Dim objFindBarItem As _36Hang.Web.UI.WebControls.FindBarItem

        objFindBarItem = New _36Hang.Web.UI.WebControls.FindBarItem
        objFindBarItem.ID = "SKSSSQ"
        objFindBarItem.Label = "税款所属时期："
        objFindBarItem.Field = "SKSSSQ"
        FindBar.Items.Add(objFindBarItem)

        FindBar.Initialize()

    End Sub

    ' 初始化编辑栏
    Private Sub SetControl(ByVal EditFace As _36Hang.Web.UI.WebControls.EditFace)

        Dim strSql As String
        Dim strXml As String
        Dim strZSDW As String
        Dim strZSRQ As String
        Dim strSJJE As String
        Dim strSKSSSQ As String
        Dim objXml As _36Hang.Xml.Operation
        Dim objData As _36Hang.Data.Operation = New _36Hang.Data.Operation(_Server, _Database, _Username, _Password)

        Dim objEditFaceCommand As _36Hang.Web.UI.WebControls.EditFaceCommand
        Dim objEditFaceItem As _36Hang.Web.UI.WebControls.EditFaceItem

        Dim objEditFaceItemDropDownListItem As _36Hang.Web.UI.WebControls.EditFaceItemDropDownListItem

        If (_ID = "0" And RecordBar.Items.Count > 0) Then _ID = RecordBar.Items(RecordBar.Index).ID

        strSql = "select [ZSDW],[ZSRQ],[SJJE],[SKSSSQ] from [ZSB]"
        strSql = strSql + " where [ID] = '" + _ID + "'"

        strXml = objData.Records(strSql)
        objXml = New _36Hang.Xml.Operation(strXml)
        strZSDW = objXml.Value("Root", 0, "ZSDW")
        strZSRQ = objXml.Value("Root", 0, "ZSRQ")
        strSJJE = objXml.Value("Root", 0, "SJJE")
        strSKSSSQ = objXml.Value("Root", 0, "SKSSSQ")

        objEditFaceItem = New _36Hang.Web.UI.WebControls.EditFaceItem
        objEditFaceItem.Type = "TextBox"
        objEditFaceItem.ID = "ZSDW"
        objEditFaceItem.Caption = "征税单位："
        objEditFaceItem.Field = "ZSDW"
        objEditFaceItem.TextBox.Value = strZSDW
        objEditFaceItem.TextBox.Length = 50
        EditFace.Items.Add(objEditFaceItem)

        objEditFaceItem = New _36Hang.Web.UI.WebControls.EditFaceItem
        objEditFaceItem.Type = "TextBox"
        objEditFaceItem.ID = "ZSRQ"
        objEditFaceItem.Caption = "征税日期："
        objEditFaceItem.Field = "ZSRQ"
        objEditFaceItem.TextBox.Value = strZSRQ
        objEditFaceItem.TextBox.Length = 50
        EditFace.Items.Add(objEditFaceItem)

        objEditFaceItem = New _36Hang.Web.UI.WebControls.EditFaceItem
        objEditFaceItem.Type = "TextBox"
        objEditFaceItem.ID = "SJJE"
        objEditFaceItem.Caption = "实缴金额："
        objEditFaceItem.Field = "SJJE"
        objEditFaceItem.TextBox.Value = strSJJE
        objEditFaceItem.TextBox.Length = 50
        EditFace.Items.Add(objEditFaceItem)

        objEditFaceItem = New _36Hang.Web.UI.WebControls.EditFaceItem
        objEditFaceItem.Type = "TextBox"
        objEditFaceItem.ID = "SKSSSQ"
        objEditFaceItem.Caption = "税款所属时期："
        objEditFaceItem.Field = "SKSSSQ"
        objEditFaceItem.TextBox.Value = strSKSSSQ
        objEditFaceItem.TextBox.Length = 50
        EditFace.Items.Add(objEditFaceItem)

    End Sub

    Private Sub RecordBar_Select(ByVal sender As Object, ByVal e As System.EventArgs) Handles RecordBar.Select

        Dim objRecordBarItem As _36Hang.Web.UI.WebControls.RecordBarItem = CType(sender, _36Hang.Web.UI.WebControls.RecordBarItem)

        Response.Redirect("Form.aspx?Current=" & RecordBar.Current & "&ID=" & objRecordBarItem.ID)

    End Sub

    Private Sub RecordBar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RecordBar.Click

        RecordBar.Items.Clear()

        GetRecord(RecordBar)

    End Sub

    Private Sub FindBar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FindBar.Click

        Dim strSql As String = "select [SKSSSQ] from [ZSB]"
        strSql = strSql & " where [SKSSSQ] like '%" & FindBar.Items(0).Text & "%'"

        Session("Find") = strSql

        ' 刷新记录栏
        RecordBar.Heads.Clear()
        RecordBar.Items.Clear()
        SetControl(RecordBar)
        RecordBar.Refresh()

        FindBar.Expand()

    End Sub

End Class