editcontract.aspx.vb

电子合同管理系统C#

            Response.Write("</script>")
        Catch
            objLog.AddLog(objMemberInfo, "更新合同" + txt_ContractSn.Text.ToString.Trim, Request.UserHostAddress.ToString, "失败")
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('合同更新失败！');")
            Response.Write("</script>")
        End Try
        obj.Close()
    End Sub


    '删除合同
    Private Sub Delete_Btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Delete_Btn.Click
        objMemberInfo = CType(Session("UserInfo"), MemberInfo)
        Dim sqlstr As String = "delete from ContractInfo where ContractId=" + lbContractId.Text
        Dim obj As DBController = New DBController()
        Dim objLog As SysLog = New SysLog()
        Try
            obj.ExecNonSql(sqlstr)
            objLog.AddLog(objMemberInfo, "删除合同" + txt_ContractSn.Text.ToString.Trim, Request.UserHostAddress.ToString, "成功")
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('删除合同成功！');")
            Response.Write("</script>")

        Catch
            objLog.AddLog(objMemberInfo, "删除合同" + txt_ContractSn.Text.ToString.Trim, Request.UserHostAddress.ToString, "失败")
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('删除合同失败！');")
            Response.Write("</script>")
        End Try
        obj.Close()
        Response.End()
    End Sub
    '=============================================================
    ' 函 数 名：FindSelectItemIndex
    ' 功能描述：获取给定值在DropDownList中的位置
    ' 输入参数：DPList搜索的DropDownList控件，txtSelect搜索值
    ' 返 回 值：如果找到，则返回正确的位置，否则返回－1
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Function FindSelectItemIndex(ByVal DPList As DropDownList, ByVal txtSelect As String) As Integer
        Dim i As Integer = 0
        For i = 0 To DPList.Items.Count - 1
            If DPList.Items(i).Value = txtSelect Then
                Return i
            End If
        Next
        Return -1
    End Function

    '=============================================================
    ' 函 数 名：LoadContractInfo
    ' 功能描述：当修改合同信息时，在每个对应TextBox中显示合同具体信息
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Private Sub LoadContractInfo()
        Dim sqlstr As String = "select * from ContractInfo where ContractId=" + lbContractId.Text.ToString.Trim
        Dim obj As DBController = New DBController()
        Dim dataReader As SqlDataReader = obj.ExecReaderSql(sqlstr)
        If dataReader.Read Then
            If Not IsDBNull(dataReader("ContractSn")) Then
                txt_ContractSn.Text = dataReader("ContractSn")
            End If
            '
            If Not IsDBNull(dataReader("ContractTitle")) Then
                txtContractTitle.Text = dataReader("ContractTitle")
            End If
            'TotalCharge,
            If Not IsDBNull(dataReader("TotalCharge")) Then
                txtTotalCharge.Text = dataReader("TotalCharge")
            End If
            'MoneyStyle,
            If Not IsDBNull(dataReader("MoneyStyle")) Then
                 chMoneyStyle.SelectedIndex = FindSelectItemIndex(chMoneyStyle, dataReader("MoneyStyle"))
            End If
            'Side_A
            If Not IsDBNull(dataReader("Side_A")) Then
                txtSide_A.Text = dataReader("Side_A")
            End If
            'Side_B
            If Not IsDBNull(dataReader("Side_B")) Then
                txtSide_B.Text = dataReader("Side_B")
            End If
            'OppositeSubscriber,
            If Not IsDBNull(dataReader("OppositeSubscriber")) Then
                txtOppositeSubscriber.Text = dataReader("OppositeSubscriber")
            End If
            'SelfSubscriber,
            If Not IsDBNull(dataReader("SelfSubscriber")) Then
                txtSelfSubscriber.Text = dataReader("SelfSubscriber")
            End If
            'SubscribeDate,
            If Not IsDBNull(dataReader("SubscribeDate")) Then
                txtSubscribeDate.Text = dataReader("SubscribeDate")
            End If
            'ContractStartDate,
            If Not IsDBNull(dataReader("ContractStartDate")) Then
                txtContractStartDate.Text = dataReader("ContractStartDate")
            End If

            'ContractEndDate,
            If Not IsDBNull(dataReader("ContractEndDate")) Then
                txtContractEndDate.Text = dataReader("ContractEndDate")
            End If
            'ContractState
            If Not IsDBNull(dataReader("ContractState")) Then
                DpListState.SelectedIndex = FindSelectItemIndex(DpListState, dataReader("ContractState"))
            End If
            ',ContractAccessory,'
            If Not IsDBNull(dataReader("ContractAccessory")) Then
                lbAccessory.Text = dataReader("ContractAccessory")
            End If
            'ContractRemark
            If Not IsDBNull(dataReader("ContractRemark")) Then
                txtContractRemark.Text = dataReader("ContractRemark")
                lbAccessory.Visible = True
            End If
        End If
        obj.Close()
    End Sub

    Private Sub lbAccessory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbAccessory.Click
        If lbAccessory.Text = "你还没有选择需要上传的文件！" Then
            Return
        End If
        If Not System.IO.File.Exists(Server.MapPath("Accesory\") & lbAccessory.Text.ToString) Then
            '文件不存在
            Response.Write("<script>javascript:alert('该文件不存在');</script>")
            Return
        End If
        Dim objLog As SysLog = New SysLog()
        objLog.AddLog(objMemberInfo, "下载合同" + txt_ContractSn.Text.ToString.Trim + "附件", Request.UserHostAddress.ToString, "成功")
        '文件下载到本地
        HttpContext.Current.Response.AppendHeader("Content-Disposition", "attachment;filename=" & lbAccessory.Text.ToString)
        HttpContext.Current.Response.Charset = "GB-2312"
        HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Default
        HttpContext.Current.Response.WriteFile(Server.MapPath("Accesory\") & lbAccessory.Text.ToString)
        HttpContext.Current.Response.End()

    End Sub

    Private Sub upload_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upload_button.Click
        If fileup.PostedFile.ContentLength = 0 Then
            lbAccessory.Text = "你还没有选择需要上传的文件！"
        Else
            Dim filesplit() As String = Split(fileup.PostedFile.FileName, "\")
            Dim filename As String = filesplit(filesplit.Length - 1)
            fileup.PostedFile.SaveAs(Server.MapPath("Accesory\") & filename)
            lbAccessory.Text = filename
        End If
    End Sub

    Private Sub DelFileBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DelFileBtn.Click
        lbAccessory.Text = ""
    End Sub
End Class