hqhtedit.aspx

本系统属于现在最好的源码系统

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script Language="VB" runat="server">
  Dim HTLBSql as string
  Dim HTDJSql as string
  Dim strView as string  
  Dim HQHTNo as integer
  Dim Sql as string
  Dim myConn As OleDbConnection

  Function GetDataView(Sql As String,strTable As String) As DataView
    Dim myDataAdapter As OleDbDataAdapter 
    Dim myDataSet As DataSet
    myConn.Open()
    myDataAdapter = New OleDbDataAdapter (Sql , myConn) 
    myConn.close()
    myDataSet = New DataSet()
    MyDataAdapter.Fill(myDataSet,strTable)
    GetDataView = New DataView(myDataSet.Tables(strTable))
  End Function

  Function GetDataReader(Sql As String) As OleDbDataReader
    Dim myCmd As OleDbCommand
    myCmd = New OleDbCommand(Sql,myConn)
    myConn.Open()
    GetDataReader = myCmd.ExecuteReader()
  End Function

  Sub CloseConnection()
    myConn.Close()
  End sub
	
  Sub ExecuteSQL(Sql As String)
    Dim myCmd As OleDbCommand
    myCmd = New OleDbCommand(Sql,myConn)
    myConn.Open()
    myCmd.ExecuteNonQuery()
    myConn.Close()	  	       	    
  End sub

  Sub Page_Load(sender As Object, e As EventArgs)
    Dim strConn As String	
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
    strConn = strConn & server.MapPath(".") & "\HTGL.mdb"
    myConn = New OledbConnection(strConn)
  
    HQHTNo = Page.Request("id") 
  
    Sql = "SELECT tblHQHT.HQHTID as HQHTID, tblHQHT.HQBH as HQBH, "
    Sql = Sql & "tblHQHT.SQRQ as SQRQ, tblHQHT.HQJG as HQJG, "
    Sql = Sql & "tblHQHT.HTBH as HTBH, tblHQHT.SXRQ as SXRQ, "
    Sql = Sql & "tblHQHT.HTLBID as HTLB, tblHQHT.HTDJID as HTDJ, "
    Sql = Sql & "tblHQHT.HTMC as HTMC, tblHQHT.HTBD as HTBD, "
    Sql = Sql & "tblHQHT.HTJE as HTJE, tblHQHT.HTYF as HTYF, "
    Sql = Sql & "tblHQHT.HTWB as HTWB, tblHQHT.JYNR as JYNR, "
    Sql = Sql & "tblHQHT.HQYJ as HQYJ "
    Sql = Sql & "FROM tblHQHT "
    Sql = Sql & "WHERE (tblHQHT.HQHTID = " & HQHTNo & ") "

    if not page.ispostback then

      HTLBSql = "SELECT HTLBID, HTLB FROM tblHTLB ORDER BY HTLBID "
      Dim HTLBReader As OleDbDataReader = GetDataReader(HTLBSql)
      dlHTLB.DataTextField="HTLB" 
      dlHTLB.DataValueField="HTLBID"
      dlHTLB.DataSource = HTLBReader
      dlHTLB.DataBind()
      CloseConnection()

      HTDJSql = "SELECT HTDJID, HTDJ FROM tblHTDJ ORDER BY HTDJID "
      Dim HTDJReader As OleDbDataReader = GetDataReader(HTDJSql)
      dlHTDJ.DataTextField="HTDJ" 
      dlHTDJ.DataValueField="HTDJID"
      dlHTDJ.DataSource = HTDJReader
      dlHTDJ.DataBind()

      CloseConnection()

      subDisplay

    end if 
  End Sub

  Sub btOK_Click(sender As Object, e As EventArgs) 
    Dim RBvalue as Integer
    Dim okSql as String
    if rbHQTG.Checked = True then
      RBvalue = 1
    else
      RBvalue = 0
    end if
       	
    okSql = "UPDATE tblHQHT SET "
    okSql = okSql & "HQBH = '" & tbHQBH.Text & "', "
    okSql = okSql & "SQRQ = '" & tbSQRQ.Text & "', "
    okSql = okSql & "HQJG = " & RBvalue & ", "
    okSql = okSql & "HTBH = '" & tbHTBH.Text & "', "
    okSql = okSql & "SXRQ = '" & tbSXRQ.Text & "', "
    okSql = okSql & "HTLBID = '" & dlHTLB.SelectedItem.Value & "', "
    okSql = okSql & "HTDJID = '" & dlHTDJ.SelectedItem.Value & "', "
    okSql = okSql & "HTMC = '" & tbHTMC.Text & "', "
    okSql = okSql & "HTBD = '" & tbHTBD.Text & "', "
    okSql = okSql & "HTJE = '" & CDec(tbHTJE.Text) & "', "
    okSql = okSql & "HTYF = '" & tbHTYF.Text & "', "
    okSql = okSql & "HTWB = '" & lblHTWB.Text & "', "
    okSql = okSql & "JYNR = '" & tbJYNR.Text & "', "
    okSql = okSql & "HQYJ = '" & tbHQYJ.Text & "'  "

    okSql = okSql & "WHERE HQHTID = " & HQHTNo 
    ExecuteSQL(okSql)
    subDisplay
  End Sub

  Sub btDel_Click(sender As Object, e As EventArgs) 
    Dim dSql as string
    '与之依赖的数据库如何处理?
    dSql = "DELETE * FROM tblHQHT WHERE HQHTID = " & HQHTNo
    ExecuteSQL(dSql)
    Response.Redirect("HTLR.aspx")
  End Sub

  Sub btReturn_Click(sender As Object, e As EventArgs) 
    Dim urlNew as String
    urlNew = "HTLR.aspx?id=" & HQHTNo
    Response.Redirect(urlNew)
    Response.Redirect("HTLR.aspx")
  End Sub

  Sub subDisplay()
    Dim Reader As OleDbDataReader = GetDataReader(Sql)
    WHILE READER.READ()
      tbHQBH.text = READER.ITEM(1)
      tbSQRQ.text = READER.ITEM(2)
      if READER.ITEM(3) = 1 then
 	rbHQTG.Checked = True
 	rbHQWTG.Checked = False
      else
 	rbHQTG.Checked = False
 	rbHQWTG.Checked = True
      end if
      tbHTBH.text = READER.ITEM(4)
      tbSXRQ.text = READER.ITEM(5)
      Dim x as integer
      for x = 0 to dlHTLB.Items.Count-1
        if dlHTLB.Items(x).Value = Reader.Item(6) then
          dlHTLB.Items(x).Selected = true
 	  exit for
        end if
      next
      for x = 0 to dlHTDJ.Items.Count-1
        if dlHTDJ.Items(x).Value = Reader.Item(7) then
          dlHTDJ.Items(x).Selected = true
 	  exit for
        end if
      next
      tbHTMC.text = READER.ITEM(8)
      tbHTBD.text = READER.ITEM(9)
      tbHTJE.text = READER.ITEM(10)
      tbHTYF.text = READER.ITEM(11)
      lblHTWB.text = READER.ITEM(12)
      tbJYNR.text = READER.ITEM(13)
      tbHQYJ.text = READER.ITEM(14)
    END WHILE 
    CloseConnection() 
  End Sub

  Sub btUploadFile_Click(sender As Object,e As Eventargs)
    '如果文件上传的长度为0，则说明文件上传失败
    If FileUp.postedFile.ContentLength=0 then
      lblHTWB.text = ""
      strView = Server.Mappath("Documents\")
      hlView.Visible = false
    Else
      '*************************************************   
      '上传文件的信息
      'Fsize.text=cstr(Fileup.PostedFile.ContentLength)
      'FType.text=Fileup.PostedFile.ContentType
      'FName.text=Fileup.PostedFile.FileName
      '************************************************* 
      '存储上传文件
      Dim filesplit() as string=split(Fileup.postedFile.filename,"\")
      Dim Filename as string=Filesplit(filesplit.length-1)
      fileup.postedFile.Saveas(server.Mappath("Documents\") & filename)
   
      lblHTWB.text = filename
      ' strView = Server.Mappath("Documents\") & filename
      strView = "http://localhost/htgl/documents/" & filename
      ' strView = "file://" & Server.Mappath("Documents\") & filename
    End if
    hlView.DataBind()
  End sub

</script>

<html>
<head>
<title>修改会签合同</title>
</head>
<body>
<form Enctype="multipart/form-data" method="Post" runat="server">
  <table width="80%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#003333" bordercolordark="#FFFFFF">
    <tr>
      <td height="25" colspan="2" valign="top" bgcolor="#006699">
        <p align="center"><font color="#FFFF66">修改会签合同</font>
      </td>
    </tr>
    <tr>
      <td height="25" valign="top">
        会签编号：<asp:TextBox id="tbHQBH" runat="server" /><br>
	送签日期：<asp:TextBox id="tbSQRQ" runat="server" />
      </td>
      <td height="25" valign="top">
        会签结果：
	<asp:RadioButton id="rbHQTG" text="通　过" GroupName="GN1" runat="server" />
	<asp:RadioButton id="rbHQWTG" text="未通过" GroupName="GN1" runat="server" /><br>
        合同编号：<asp:TextBox id="tbHTBH" runat="server" /><br>
        生效日期：<asp:TextBox id="tbSXRQ" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" valign="top">
        合同类别：<asp:DropDownList id="dlHTLB" runat="server" />
      </td>
      <td height="25" valign="top">
        合同等级：<asp:DropDownList id="dlHTDJ" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同名称：<asp:TextBox id="tbHTMC" Columns="50" MaxLength="50" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同标的：<asp:TextBox id="tbHTBD" Columns="50" MaxLength="50" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同金额：<asp:TextBox id="tbHTJE" Columns="50" MaxLength="50" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同甲方：<asp:Label id="tbHTJF" Text="东风载重车公司销售部" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同乙方：<asp:TextBox id="tbHTYF" Columns="50" MaxLength="50" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" valign="top">
         请选择上传的合同文本附件：
         <input type="File" id="fileup" size=48 runat="Server">
         <asp:button id="btUpload" OnClick="btUploadFile_Click" text="上传" runat="Server"/>
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" valign="top">
        合同文本：<asp:label id="lblHTWB" runat="server" />&nbsp;&nbsp;
      	<asp:HyperLink id="hlView" navigateUrl='<%# strView %>' text="查看内容" target="_Blank" runat="server"/>
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        简要内容:<br>
      	<asp:TextBox id="tbJYNR" TextMode="MultiLine" Columns="80" Rows="8" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        会签意见:<br>
      	<asp:TextBox id="tbHQYJ" TextMode="MultiLine" Columns="80" Rows="8" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" align="center">
      	<asp:Button id="btOK" OnClick="btOK_Click" Text="修改" runat="server"/>
        <asp:Button id="btDel" OnClick="btDel_Click" Text="删除" runat="server"/>
        <asp:Button id="btReturn" OnClick="btReturn_Click" Text="返回" runat="server"/>
      </td>
    </tr>
  </table>
</form>
</body>
</html>