fbxt_right_fbxx.aspx.vb

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

                '发布用户id
                Dim prmFbyhid As New SqlParameter("@fbyhid", SqlDbType.Int)
                prmFbyhid.Value = CStr(Session("id"))
                myCmd.Parameters.Add(prmFbyhid)

                '部门或单位id
                Dim prmBmhdwid As New SqlParameter("@bmhdwid", SqlDbType.Int)
                prmBmhdwid.Value = CStr(Session("bmhdwid"))
                myCmd.Parameters.Add(prmBmhdwid)

                '发布时间
                Dim prmFbsj As New SqlParameter("@fbsj", SqlDbType.DateTime)
                prmFbsj.Value = CStr(tFbsj)
                myCmd.Parameters.Add(prmFbsj)

                '信息类型id
                Dim prmXxlxid As New SqlParameter("@xxlxid", SqlDbType.Int)
                prmXxlxid.Value = iXxlxid
                myCmd.Parameters.Add(prmXxlxid)

                '读限制标志
                Dim prmDxzbz As New SqlParameter("@dxzbz", SqlDbType.Bit)
                prmDxzbz.Value = bDxzbz
                myCmd.Parameters.Add(prmDxzbz)

                '读权限id
                Dim prmDqxid As New SqlParameter("@dqxid", SqlDbType.Int)
                prmDqxid.Value = iDqxid
                myCmd.Parameters.Add(prmDqxid)

                '信息标题
                Dim prmXxbt As New SqlParameter("@xxbt", SqlDbType.VarChar, 80)
                prmXxbt.Value = sXxbt
                myCmd.Parameters.Add(prmXxbt)

                '信息内容类型标志
                Dim prmXxnrlxbz As New SqlParameter("@Xxnrlxbz", SqlDbType.Bit)
                prmXxnrlxbz.Value = Not rbXxgs1.Checked
                myCmd.Parameters.Add(prmXxnrlxbz)

                '文本内容
                Dim prmWbnr As New SqlParameter("@wbnr", SqlDbType.NText)
                prmWbnr.Value = sWbnr
                myCmd.Parameters.Add(prmWbnr)

                '图片内容
                Dim prmTpnr As New SqlParameter("@tpnr", SqlDbType.Image)
                prmTpnr.Value = imageData
                myCmd.Parameters.Add(prmTpnr)

                '图片文件类型
                Dim prmTpwjlx As New SqlParameter("@tpwjlx", SqlDbType.VarChar, 50)
                prmTpwjlx.Value = imageType
                myCmd.Parameters.Add(prmTpwjlx)

                '修改时间
                Dim prmXgsj As New SqlParameter("@xgsj", SqlDbType.DateTime)
                prmXgsj.Value = CStr(tFbsj)
                myCmd.Parameters.Add(prmXgsj)

                '提交并执行
                myCmd.ExecuteNonQuery()
                iXxid = myCmd.Parameters(0).Value
                Status.Text = "发布成功！请继续！"

                '修改信息与部门关系表-插入记录
                If Not bDxzbz Then
                    Dim i As Integer
                    For i = 0 To clbBm.Items.Count - 1
                        If clbBm.Items(i).Selected Then
                            myCmdStr = "Insert into n_xxybmgx_ent(xxid,bmhdwid) values(" + _
                            "'" + CStr(iXxid) + "','" + CStr(clbBm.Items(i).Value) + "')"
                            myCmd = New SqlCommand(myCmdStr, myConn)
                            myCmd.ExecuteNonQuery()
                        End If
                    Next

                End If

                '将其它输入框设为空
                tbXxbt.Text = ""
                tbWbnr.Text = ""
            Catch ex As SqlException
                Status.Text = ex.Message
                Status.Text = "发布失败！请报告管理员！"
            Finally
                myConn.Close()
            End Try

        End Sub

    '该页面中缺乏对图片类型的判断：第一种中必须为图片类型
    '第二种必须为特定的文档，如word ,excel,和 image.其它的都可能引发错误。


        Private Sub cbDxz_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbDxz.CheckedChanged
            Dim Dxzbz As Boolean
            Dxzbz = cbDxz.Checked
            Dim i As Integer
            If Not Dxzbz Then
                Dim myConn As New SqlConnection
                myConn.ConnectionString = SQL_CONNECTION_STRING ' "user id=secs;password=sces;initial catalog=secs;data source=localhost;Connect Timeout=30"
                Try
                    myConn.Open()

                    ' 部门列表
                    Dim MyDataAD As SqlDataAdapter = New SqlDataAdapter("Select * from n_bmdmb_ent", myConn)
                    Dim myDataSet As DataSet = New DataSet
                    MyDataAD.Fill(myDataSet, "n_bmdmb_ent")
                    clbBm.DataSource = myDataSet.Tables("n_bmdmb_ent")
                    clbBm.DataBind()

                    '选定当前用户所在部门
                    Dim iBmhdwid As Integer = CInt(Session("bmhdwid"))
                    For i = 0 To clbBm.Items.Count - 1
                        If clbBm.Items(i).Value = iBmhdwid Then
                            clbBm.Items(i).Selected = True
                        End If
                    Next
                Catch ex As SqlException
                    Status.Text = ex.Message
                Finally
                    myConn.Close()
                End Try
                lblBm.Visible = True
                clbBm.Visible = True

            Else
                lblBm.Visible = False
                clbBm.Visible = False

            End If
        End Sub

    Private Sub rbXxgs1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXxgs1.CheckedChanged, rbXxgs2.CheckedChanged
        If rbXxgs1.Checked Then
            lblWbnr.Visible = True
            tbWbnr.Visible = True
            lblXgtphwd.Text = "相关图片"
        Else
            lblWbnr.Visible = False
            tbWbnr.Visible = False
            lblXgtphwd.Text = "相关文档"
        End If
    End Sub

    Private Sub ddltXxlx_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddltXxlx.SelectedIndexChanged
            Dim iXxlxid As Integer = ddltXxlx.SelectedItem.Value
        Dim myConn As New SqlConnection
            myConn.ConnectionString = SQL_CONNECTION_STRING ' "user id=secs;password=sces;initial catalog=secs;data source=localhost;Connect Timeout=30"
        Try
            myConn.Open()

            Dim myCmdStr As String
            myCmdStr = "SELECT n_xxlxdmb_ent.djbbz" + _
                        " FROM n_xxlxdmb_ent" + _
                        " where n_xxlxdmb_ent.id = '" + Trim(CStr(iXxlxid)) + "'"

            Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
            Dim reader As SqlDataReader = myCmd.ExecuteReader()

            If reader.Read() Then
                If CInt(reader.Item("djbbz")) = 0 Then
                    lblDxz.Visible = True
                    cbDxz.Visible = True
                    lblDqx.Visible = True
                    ddltDqx.Visible = True
                    If Not cbDxz.Checked Then
                        lblBm.Visible = True
                        clbBm.Visible = True
                    End If
                Else
                    lblDxz.Visible = False
                    cbDxz.Visible = False
                    lblBm.Visible = False
                    clbBm.Visible = False
                    lblDqx.Visible = False
                    ddltDqx.Visible = False
                End If
            End If
        Catch ex As SqlException
            Status.Text = ex.Message
        Finally
            myConn.Close()
        End Try
    End Sub
End Class

End Namespace