kqxt_cxbrkq.aspx.vb

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

Namespace wsbgxt

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

#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 Session("id") Is Nothing Then
                Response.Redirect("../NotLogin.aspx?FromPageName=kqxt/kqxt_cxbrkq")
            End If
            If Not IsPostBack Then
              
                LoadData(0, 0)
            End If
        End Sub

        Private Sub LoadData(ByVal yfbz As Integer, ByVal kqlx As Integer)
            Dim Sid, SQLstr, by, bn As String
            '控件初始化
            txtYGID.Text = ""
            txtSBSJ.Text = ""
            txtXBSJ.Text = ""
            txtKQBZ.Text = ""
            txtJQM.Text = ""
            txtIP.Text = ""
            txtSNWBZ.Text = ""
            txtCCDD.Text = ""
            txtBZ.Text = ""
            '转载数据
            Sid = Session("id")
            by = Date.Today.Year.ToString + "-" + Date.Today.Month.ToString
            bn = Date.Today.Year.ToString
            If Date.Today.Month.ToString.Length = 1 Then
                by = Date.Today.Year.ToString + "-0" + Date.Today.Month.ToString
            End If
            If yfbz = 0 Then
                If DDList2.SelectedIndex = 0 Then
                    SQLstr = "select n_oa02_kqdjb_ent.id,yhjbxx.xm as ygid,n_oa02_kqdjb_ent.sbsj,n_oa02_kqdjb_ent.xbsj,n_oa02_kqdjb_ent.kqbz,n_oa02_kqdjb_ent.jqm,n_oa02_kqdjb_ent.ip,n_oa02_kqdjb_ent.snwbz,n_oa02_kqdjb_ent.ccdd,n_oa02_kqdjb_ent.bz  from n_oa02_kqdjb_ent  LEFT JOIN n_yhjbxx_ent yhjbxx ON (yhjbxx.id = n_oa02_kqdjb_ent.ygid) where ygid=" + Sid
                Else
                    SQLstr = "select n_oa02_kqdjb_ent.id,yhjbxx.xm as ygid,n_oa02_kqdjb_ent.sbsj,n_oa02_kqdjb_ent.xbsj,n_oa02_kqdjb_ent.kqbz,n_oa02_kqdjb_ent.jqm,n_oa02_kqdjb_ent.ip,n_oa02_kqdjb_ent.snwbz,n_oa02_kqdjb_ent.ccdd,n_oa02_kqdjb_ent.bz  from n_oa02_kqdjb_ent  LEFT JOIN n_yhjbxx_ent yhjbxx ON (yhjbxx.id = n_oa02_kqdjb_ent.ygid) where ygid=" + Sid + "and kqbz='" + DDList2.Items(kqlx).Text + "'"
                End If
            ElseIf yfbz = 1 Then
                If DDList2.SelectedIndex = 0 Then
                    SQLstr = "select n_oa02_kqdjb_ent.id,yhjbxx.xm as ygid,n_oa02_kqdjb_ent.sbsj,n_oa02_kqdjb_ent.xbsj,n_oa02_kqdjb_ent.kqbz,n_oa02_kqdjb_ent.jqm,n_oa02_kqdjb_ent.ip,n_oa02_kqdjb_ent.snwbz,n_oa02_kqdjb_ent.ccdd,n_oa02_kqdjb_ent.bz  from n_oa02_kqdjb_ent  LEFT JOIN n_yhjbxx_ent yhjbxx ON (yhjbxx.id = n_oa02_kqdjb_ent.ygid) where ygid=" + Sid + "and (CONVERT(varchar(7), sbsj,120)='" + by + "')"
                Else
                    SQLstr = "select n_oa02_kqdjb_ent.id,yhjbxx.xm as ygid,n_oa02_kqdjb_ent.sbsj,n_oa02_kqdjb_ent.xbsj,n_oa02_kqdjb_ent.kqbz,n_oa02_kqdjb_ent.jqm,n_oa02_kqdjb_ent.ip,n_oa02_kqdjb_ent.snwbz,n_oa02_kqdjb_ent.ccdd,n_oa02_kqdjb_ent.bz  from n_oa02_kqdjb_ent  LEFT JOIN n_yhjbxx_ent yhjbxx ON (yhjbxx.id = n_oa02_kqdjb_ent.ygid) where ygid=" + Sid + "and (CONVERT(varchar(7), sbsj,120)='" + by + "')" & _
                            "and kqbz='" + DDList2.Items(kqlx).Text + "'"
                End If
            Else
                If DDList2.SelectedIndex = 0 Then
                    SQLstr = "select n_oa02_kqdjb_ent.id,yhjbxx.xm as ygid,n_oa02_kqdjb_ent.sbsj,n_oa02_kqdjb_ent.xbsj,n_oa02_kqdjb_ent.kqbz,n_oa02_kqdjb_ent.jqm,n_oa02_kqdjb_ent.ip,n_oa02_kqdjb_ent.snwbz,n_oa02_kqdjb_ent.ccdd,n_oa02_kqdjb_ent.bz  from n_oa02_kqdjb_ent  LEFT JOIN n_yhjbxx_ent yhjbxx ON (yhjbxx.id = n_oa02_kqdjb_ent.ygid) where ygid=" + Sid + "and (CONVERT(varchar(4), sbsj,120)='" + bn + "')"
                Else
                    SQLstr = "select n_oa02_kqdjb_ent.id,yhjbxx.xm as ygid,n_oa02_kqdjb_ent.sbsj,n_oa02_kqdjb_ent.xbsj,n_oa02_kqdjb_ent.kqbz,n_oa02_kqdjb_ent.jqm,n_oa02_kqdjb_ent.ip,n_oa02_kqdjb_ent.snwbz,n_oa02_kqdjb_ent.ccdd,n_oa02_kqdjb_ent.bz  from n_oa02_kqdjb_ent  LEFT JOIN n_yhjbxx_ent yhjbxx ON (yhjbxx.id = n_oa02_kqdjb_ent.ygid) where ygid=" + Sid + "and (CONVERT(varchar(4), sbsj,120)='" + bn + "')" & _
                             "and kqbz='" + DDList2.Items(kqlx).Text + "'"
                End If
            End If
            kqDS = iclskq.CreateDataSet(SQLstr, "kq_cxbrkq")
            kqDV = New DataView(kqDS.Tables(0))
            grds.DataSource = kqDV
            grds.DataBind()
        End Sub

    '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


    Sub grds_ItemCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)

        lIndex = e.Item.ItemIndex
        lIndex = lIndex + grds.CurrentPageIndex * grds.PageSize
       
        If e.CommandSource.commandname = "kqDetail" Then
            txtYGID.Text = Session("xm")

            txtSBSJ.Text = e.Item.Cells(2).Text
                txtXBSJ.Text = ""
            txtKQBZ.Text = e.Item.Cells(4).Text
            txtJQM.Text = e.Item.Cells(5).Text
            txtIP.Text = e.Item.Cells(6).Text
            txtSNWBZ.Text = e.Item.Cells(7).Text
            txtCCDD.Text = e.Item.Cells(8).Text
            txtBZ.Text = e.Item.Cells(9).Text

            If Trim(e.Item.Cells(4).Text) = "出差" Then
                lblSNWBZ.Visible = True
                lblCCDD.Visible = True
                txtSNWBZ.Visible = True
                txtCCDD.Visible = True
            Else
                lblSNWBZ.Visible = False
                lblCCDD.Visible = False
                txtSNWBZ.Visible = False
                txtCCDD.Visible = False
            End If
        End If

    End Sub
    Private Sub CheckBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBtn.Click
        If DDList2.SelectedIndex = 4 Then
            '若选择出差，出差地点和省内外标志两列可见
            grds.Columns(7).Visible = True
            grds.Columns(8).Visible = True

            lblSNWBZ.Visible = True
            lblCCDD.Visible = True
            txtSNWBZ.Visible = True
            txtCCDD.Visible = True
        Else
            grds.Columns(7).Visible = False
            grds.Columns(8).Visible = False

            lblSNWBZ.Visible = False
            lblCCDD.Visible = False
            txtSNWBZ.Visible = False
            txtCCDD.Visible = False
        End If

    
        LoadData(kqDDLIST.SelectedIndex, DDList2.SelectedIndex)
    End Sub
End Class

End Namespace