kqxt_kqxxwh.aspx.vb

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

Imports System.Data.SqlTypes


Namespace wsbgxt

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



#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_kqxxwh")
        End If

        If Not IsPostBack Then
            initpage()
            ddlYG1.DataSource = rydata()
            ddlYG1.DataTextField = "xm"
            ddlYG1.DataValueField = "id"
            ddlYG1.DataBind()
            ddlYGID.DataSource = rydata()
            ddlYGID.DataTextField = "xm"
            ddlYGID.DataValueField = "id"
            ddlYGID.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 initpage()

        txtSBSJ.Text = ""
        txtXBSJ.Text = ""
        txtJQM.Text = ""
        txtIP.Text = ""

        txtCCDD.Text = ""
        txtBZ.Text = ""
    End Sub
    Private Sub LoadData(ByVal yfbz As Integer, ByVal kqlx As Integer)
            Dim SQLstr As String
        Dim by As String
        Dim bn As String
        '控件初始化
        initpage()
        '转载数据

        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 DDLkqlx.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=" + ddlYG1.SelectedItem.Value
            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=" + ddlYG1.SelectedItem.Value & _
                          "and kqbz='" + DDLkqlx.Items(kqlx).Text + "'"
            End If
        ElseIf yfbz = 1 Then
            If DDLkqlx.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=" + ddlYG1.SelectedItem.Value + "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=" + ddlYG1.SelectedItem.Value + "and (CONVERT(varchar(7), sbsj,120)='" + by + "')" & _
                        "and kqbz='" + DDLkqlx.Items(kqlx).Text + "'"
            End If
        Else
            If DDLkqlx.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=" + ddlYG1.SelectedItem.Value + "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=" + ddlYG1.SelectedItem.Value + "and (CONVERT(varchar(4), sbsj,120)='" + bn + "')" & _
                         "and kqbz='" + DDLkqlx.Items(kqlx).Text + "'"
            End If
        End If
        kqDS = iclskq.CreateDataSet(SQLstr, "kq_kqwh")

        kqDV = New DataView(kqDS.Tables(0))
        grds.DataSource = kqDV
        grds.DataBind()
    End Sub
    Private Function AddRow() As Boolean
        Dim temprow As DataRow
        Dim lb As Boolean

        temprow = kqDS.Tables(0).NewRow()


        temprow(3) = txtSBSJ.Text
        temprow(4) = txtXBSJ.Text
        temprow(5) = DDList.SelectedItem.Text
        temprow(6) = txtJQM.Text
        temprow(7) = txtIP.Text
        kqDS.Tables(0).Rows.Add(temprow)

        lb = iclskq.UpdateDataSet(kqDS)
        If lb Then
            Return True
        Else
            Return False
        End If
    End Function
    Private Function DeleteRow() As Boolean
        Dim strCol() As String
        Dim strVal() As String
        ReDim strCol(10)
        ReDim strVal(10)

        strCol(0) = "id"
        strCol(1) = "ygid"
        strCol(2) = "glbs"
        strCol(3) = "sbsj"
        strCol(4) = "xbsj"
        strCol(5) = "kqbz"
        strCol(6) = "jqm"
        strCol(7) = "ip"
        strCol(8) = "snwbz"
        strCol(9) = "ccdd"
        strCol(10) = "bz"

        strVal(0) = kqid
        If clsrow.DeleteRow("n_oa02_kqdjb_ent", strCol, strVal) Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Function UpdateRow() As Boolean
        Dim strCol() As String
        Dim strVal() As String
        ReDim strCol(10)
        ReDim strVal(10)

        strCol(0) = "id"
        strCol(1) = "ygid"
        strCol(2) = "glbs"
        strCol(3) = "sbsj"
        strCol(4) = "xbsj"
        strCol(5) = "kqbz"
        strCol(6) = "jqm"
        strCol(7) = "ip"
        strCol(8) = "snwbz"
        strCol(9) = "ccdd"
        strCol(10) = "bz"

        strVal(0) = kqid
        strVal(1) = ddlYGID.SelectedItem.Value
        strVal(2) = "''"
        strVal(3) = "'" + txtSBSJ.Text + "'"
        strVal(4) = "'" + txtXBSJ.Text + "'"
        strVal(5) = "'" + DDList.SelectedItem.Text + "'"
        strVal(6) = "'" + txtJQM.Text + "'"
        strVal(7) = "'" + txtIP.Text + "'"
        If DDList.SelectedIndex = 3 Then
            strVal(8) = ddlSNWBZ.SelectedIndex.ToString()
        Else
            strVal(8) = "0"
        End If
        If DDList.SelectedIndex = 3 Then
            strVal(9) = "'" + txtCCDD.Text + "'"
        Else
            strVal(9) = "''"
        End If
        strVal(10) = "'" + txtBZ.Text + "'"
        If clsrow.UpdateRow("n_oa02_kqdjb_ent", strCol, strVal) Then
            Return True
        Else
            Return False
        End If
    End Function
    Private Sub btnADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnADD.Click
        If AddRow() Then
            statusinfo.Text = "添加数据成功！"
        End If
        grds.DataSource = kqDS
        grds.DataBind()
        initpage()
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        If operateindex = 0 Then
            If UpdateRow() Then
                statusinfo.Text = "修改数据成功！"
                LoadData(DDLnx.SelectedIndex, DDLkqlx.SelectedIndex)
            Else
                statusinfo.Text = "修改数据失败，请检查后重新操作！"
            End If
        Else
            If DeleteRow() Then
                statusinfo.Text = "删除数据成功！"
                LoadData(DDLnx.SelectedIndex, DDLkqlx.SelectedIndex)
            Else
                statusinfo.Text = "删除数据失败，请检查后重新操作！"
            End If
        End If
        initpage()
    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)
        Dim i As Integer

        lIndex = e.Item.ItemIndex
        lIndex = lIndex + grds.CurrentPageIndex * grds.PageSize

        kqid = CInt(e.Item.Cells(0).Text)

      
        If e.CommandSource.commandname = "kqUpdate" Or e.CommandSource.commandname = "kqDelete" Then

            For i = 0 To ddlYGID.Items.Count - 1
                If Trim(ddlYGID.Items(i).Text) = Trim(e.Item.Cells(1).Text) Then
                    ddlYGID.SelectedIndex = i
                    Exit For
                End If
            Next i
            txtSBSJ.Text = e.Item.Cells(2).Text
                txtXBSJ.Text = ""
            txtJQM.Text = e.Item.Cells(4).Text
            txtIP.Text = e.Item.Cells(5).Text


            If ddlSNWBZ.Items(0).Text = Trim(e.Item.Cells(7).Text) Then
                ddlSNWBZ.SelectedIndex = 0
            Else
                ddlSNWBZ.SelectedIndex = 1
            End If
            txtCCDD.Text = e.Item.Cells(8).Text
            txtBZ.Text = e.Item.Cells(9).Text
            For i = 0 To 4
                If DDList.Items(i).Text = Trim(e.Item.Cells(6).Text) Then
                    DDList.SelectedIndex = i
                    Exit For
                End If
            Next i

            '如果选择了出差记录，则显示出差地点和省内外标志
            If Trim(e.Item.Cells(6).Text) = "出差" Then
                lblSNWBZ.Visible = True
                lblCCDD.Visible = True
                ddlSNWBZ.Visible = True
                txtCCDD.Visible = True
            Else
                lblSNWBZ.Visible = False
                lblCCDD.Visible = False
                ddlSNWBZ.Visible = False
                txtCCDD.Visible = False
            End If
        End If


        If e.CommandSource.commandname = "kqUpdate" Then
            operateindex = 0
        ElseIf e.CommandSource.commandname = "kqDelete" Then
            operateindex = 1
        End If
    End Sub

    Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
        If DDLkqlx.SelectedIndex = 0 Or DDLkqlx.SelectedIndex = 4 Then
            grds.Columns(7).Visible = True
            grds.Columns(8).Visible = True
        Else
            grds.Columns(7).Visible = False
            grds.Columns(8).Visible = False
        End If
        LoadData(DDLnx.SelectedIndex, DDLkqlx.SelectedIndex)
    End Sub

    Private Sub DDList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If DDList.SelectedIndex = 3 Then
            lblSNWBZ.Visible = True
            ddlSNWBZ.Visible = True
            lblCCDD.Visible = True
            txtCCDD.Visible = True
        Else
            lblSNWBZ.Visible = False
            ddlSNWBZ.Visible = False
            lblCCDD.Visible = False
            txtCCDD.Visible = False
        End If
    End Sub
End Class

End Namespace