kqxt_jbdj.aspx.vb

vb2005电子书籍——vb.net项目开发宝典源码

Namespace wsbgxt

Partial Class kqxt_jbdj
    Inherits System.Web.UI.Page
    Private Shared kqDS As DataSet
    Private Shared ryDS As DataSet
    Private Shared kqDV As DataView
    Private Shared lIndex As Integer
    Private Shared operateindex As Integer
    Private Shared iclskq As New clsDataSet
    Private Shared clsrow As New clsSingleRow

#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 IsPostBack Then
                If Session("id") Is Nothing Then
                    Response.Redirect("../NotLogin.aspx?FromPageName=kqxt/kqxt_jbdj")
                End If
                LoadData()
                ddlSHR.DataSource = rydata()
                ddlSHR.DataTextField = "xm"
                ddlSHR.DataValueField = "id"
                ddlSHR.DataBind()
            End If
        End Sub

        Private Function rydata() As DataView
            Dim str As String
            Dim retable As DataView
            str = "select xm,id from n_yhjbxx_ent"
            ryDS = iclskq.CreateDataSet(str, "ry")
            retable = New DataView(ryDS.Tables(0))
            Return retable
        End Function

        Private Sub LoadData()
            Dim Sid As String
            Dim SQLstr As String
            '控件初始化
            txtYGID.Text = Session("xm")
            txtRQ.Text = ""
            txtJBSY.Text = ""
            txtJBSJ.Text = ""
            ddlJBXZ.ClearSelection()
            '转载数据
            Sid = Session("id")
            SQLstr = "select yhjbxx.xm as ygid,n_oa02_jbdjb_ent.id,n_oa02_jbdjb_ent.rq,n_oa02_jbdjb_ent.jbxz,n_oa02_jbdjb_ent.jbsy,n_oa02_jbdjb_ent.jbsj,n_yhjbxx_ent.xm as shr from n_oa02_jbdjb_ent  LEFT JOIN n_yhjbxx_ent ON (n_yhjbxx_ent.id = n_oa02_jbdjb_ent.shr) LEFT JOIN n_yhjbxx_ent yhjbxx ON (yhjbxx.id = n_oa02_jbdjb_ent.ygid) where(n_oa02_jbdjb_ent.ygid = " + Sid + ")"
            kqDS = iclskq.CreateDataSet(SQLstr, "kq_jbdj")
            kqDV = New DataView(kqDS.Tables(0))
            grds.DataSource = kqDV
            grds.DataBind()
        End Sub

        Private Function AddRow() As Boolean
            Dim strCol() As String
            Dim strVal() As String
            ReDim strCol(8)
            ReDim strVal(8)
            strCol(1) = "ygid"
            strCol(2) = "rq"
            strCol(3) = "jbxz"
            strCol(4) = "jbsy"
            strCol(5) = "jbsj"
            strCol(6) = "shr"
            strCol(7) = "by1"
            strCol(8) = "by2"
            strVal(1) = Session("id")
            strVal(2) = "'" + txtRQ.Text + "'"
            strVal(3) = "'" + ddlJBXZ.SelectedItem.Text + "'"
            strVal(4) = "'" + txtJBSY.Text + "'"
            strVal(5) = txtJBSJ.Text
            strVal(6) = ddlSHR.SelectedItem.Value
            strVal(7) = "''"
            strVal(8) = "''"
            If clsrow.AddRow("n_oa02_jbdjb_ent", strCol, strVal) Then
                Return True
            Else
                Return False
            End If
        End Function

    'datagrid 的分页处理
    Sub ChangeGridPage(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs)
        grds.EditItemIndex = -1
        grds.CurrentPageIndex = e.NewPageIndex
        grds.DataSource = kqDV
        grds.DataBind()
    End Sub

    Private Sub btnADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnADD.Click
        If AddRow() Then
            LoadData()
        End If
    End Sub
End Class

End Namespace