editcontract.aspx.vb

电子合同管理系统C#

Imports System.Data.SqlClient
'Imports System.Web
'Imports System.Web.UI.HtmlControls

Public Class EditContract
    Inherits System.Web.UI.Page
    Protected WithEvents txtContractRemark As System.Web.UI.WebControls.TextBox
    Protected WithEvents txt_ContractSn As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtContractTitle As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtTotalCharge As System.Web.UI.WebControls.TextBox
    Protected WithEvents chMoneyStyle As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtSelfSubscriber As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtOppositeSubscriber As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtContractStartDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents DpListState As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtSubscribeDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtContractEndDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents Add_Btn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Cancel_Btn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Update_btn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Delete_Btn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lbContractId As System.Web.UI.WebControls.Label
    Protected WithEvents lbAccessory As System.Web.UI.WebControls.LinkButton
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents CompareValidator2 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents CompareValidator3 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents CompareValidator4 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents txtSide_A As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSide_B As System.Web.UI.WebControls.TextBox
    Protected WithEvents upload_button As System.Web.UI.WebControls.Button
    Protected WithEvents fileup As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents DelFileBtn As System.Web.UI.WebControls.Button
    Private objMemberInfo As MemberInfo

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <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: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        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("UserInfo") Is Nothing Then
                '不存在session，返回登陆页面
                Response.Write("<script>parent.location='Default.aspx';</script>")
            Else
                objMemberInfo = CType(Session("UserInfo"), MemberInfo)
            End If
            If Not Request.QueryString("ContractId") Is Nothing Then
                lbContractId.Text = Request.QueryString("ContractId").ToString.Trim
                LoadContractInfo()
                Update_btn.Visible = True
                Delete_Btn.Visible = True
                Add_Btn.Visible = False
                Cancel_Btn.Visible = False
            End If
        End If
    End Sub
    '添加新合同
    Private Sub Add_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add_Btn.Click
        If txtTotalCharge.Text.ToString.Trim = "" Then
            txtTotalCharge.Text = "0"
        End If
        objMemberInfo = CType(Session("UserInfo"), MemberInfo)
        Dim sqlstr As String = "insert into ContractInfo (MemberId,ContractSn,ContractTitle,TotalCharge,MoneyStyle,Side_A,Side_B,OppositeSubscriber,SelfSubscriber,SubscribeDate,ContractStartDate,ContractEndDate,ContractState,ContractAccessory,ContractRemark,DepartmentId) "
        sqlstr += " Values ('"
        sqlstr += objMemberInfo.MemberId + "'"
        sqlstr += ",'" + txt_ContractSn.Text.ToString.Trim + "'"
        sqlstr += ",'" + txtContractTitle.Text.ToString.Trim + "',"
        sqlstr += txtTotalCharge.Text.ToString.Trim
        sqlstr += ",'" + chMoneyStyle.Items(chMoneyStyle.SelectedIndex).Value.ToString.Trim
        sqlstr += "','" + txtSide_A.Text.ToString.Trim + "'"
        sqlstr += ",'" + txtSide_B.Text.ToString.Trim + "'"
        sqlstr += ",'" + txtOppositeSubscriber.Text.ToString.Trim + "'"
        sqlstr += ",'" + txtSelfSubscriber.Text.ToString.Trim + "'"
        sqlstr += ",'" + txtSubscribeDate.Text.ToString.Trim + "'"
        sqlstr += ",'" + txtContractStartDate.Text.ToString.Trim + "'"
        sqlstr += ",'" + txtContractEndDate.Text.ToString.Trim + "'"
        sqlstr += ",'" + DpListState.Items(DpListState.SelectedIndex).Value.ToString.Trim + "'"
        '上传附件 暂时不做

        Dim FileName As String = lbAccessory.Text.ToString.Trim
        If FileName = "你还没有选择需要上传的文件！" Then
            FileName = ""
        End If
        sqlstr += ",'" + FileName + "'"
        'ContractRemark,DepartmentId
        sqlstr += ",'" + txtContractRemark.Text.ToString.Trim + "',"
        sqlstr += objMemberInfo.DepartmentId.ToString + ")"

        Dim obj As DBController = New DBController()
        Try
            obj.ExecNonSql(sqlstr)
            Dim objLog As SysLog = New SysLog()
            objLog.AddLog(objMemberInfo, "添加合同" + txt_ContractSn.Text.ToString.Trim, Request.UserHostAddress.ToString, "成功")
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('合同添加成功！');")
            Response.Write("window.location='EditContract.aspx';")
            Response.Write("</script>")
        Catch
            Dim objLog As SysLog = New SysLog()
            objLog.AddLog(objMemberInfo, "添加合同" + txt_ContractSn.Text.ToString.Trim, Request.UserHostAddress.ToString, "失败")
            Response.Write("<script language=javascript>")
            Response.Write("window.alert('合同添加失败！');")
            Response.Write("</script>")
            Response.Write(sqlstr)
            Response.End()
        End Try

        obj.Close()
    End Sub
    '取消合同
    Private Sub Cancel_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Btn.Click
        If lbContractId.Text <> "" Then
            Response.Redirect("EditContract.aspx?ContractId=" + lbContractId.Text)
        Else
            Response.Redirect("EditContract.aspx")
        End If

    End Sub
    '更新合同
    Private Sub Update_btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Update_btn.Click
        If txtTotalCharge.Text.ToString.Trim = "" Then
            txtTotalCharge.Text = "0"
        End If
        objMemberInfo = CType(Session("UserInfo"), MemberInfo)
        Dim sqlstr As String = "update ContractInfo set  "
        sqlstr += "ContractSn='" + txt_ContractSn.Text.ToString.Trim + "'"
        sqlstr += ",ContractTitle='" + txtContractTitle.Text.ToString.Trim + "',"
        sqlstr += "TotalCharge=" + txtTotalCharge.Text.ToString.Trim
        sqlstr += ",MoneyStyle='" + chMoneyStyle.Items(chMoneyStyle.SelectedIndex).Value.ToString.Trim + "'"
        sqlstr += ",Side_A='" + txtSide_A.Text.ToString.Trim + "'"
        sqlstr += ",Side_B='" + txtSide_B.Text.ToString.Trim + "'"
        sqlstr += ",OppositeSubscriber='" + txtOppositeSubscriber.Text.ToString.Trim + "'"
        sqlstr += ",SelfSubscriber='" + txtSelfSubscriber.Text.ToString.Trim + "'"
        sqlstr += ",SubscribeDate='" + txtSubscribeDate.Text.ToString.Trim + "'"
        sqlstr += ",ContractStartDate='" + txtContractStartDate.Text.ToString.Trim + "'"
        sqlstr += ",ContractEndDate='" + txtContractEndDate.Text.ToString.Trim + "'"
        sqlstr += ",ContractState='" + DpListState.Items(DpListState.SelectedIndex).Value.ToString.Trim + "'"
        '上传附件
        Dim FileName As String = lbAccessory.Text.ToString.Trim
        If FileName <> "你还没有选择需要上传的文件！" Then
            sqlstr += ",ContractAccessory='" + FileName + "'"
        End If

        ',DepartmentId
        sqlstr += ",ContractRemark='" + txtContractRemark.Text.ToString.Trim + "'"
        sqlstr += " where ContractId=" + lbContractId.Text.ToString.Trim
        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('合同更新成功！');")