hqhtadd.aspx

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

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<Script Language="VB" runat="server">
  Dim Sql as string
  Dim myConn As OleDbConnection
  Dim strView as string  

  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)
    if not page.ispostback then
      Sql = "SELECT HTLBID, HTLB FROM tblHTLB ORDER BY HTLBID"
      dlHTLB.DataTextField="HTLB" 
      dlHTLB.DataValueField="HTLBID"
      dlHTLB.DataSource = GetDataView(Sql,"HTLB")
      dlHTLB.DataBind()
      
      Sql = "SELECT HTDJID, HTDJ FROM tblHTDJ ORDER BY HTDJID"
      dlHTDJ.DataTextField="HTDJ" 
      dlHTDJ.DataValueField="HTDJID"
      dlHTDJ.DataSource = GetDataView(Sql,"HTDJ")
      dlHTDJ.DataBind() 
      lblHTWB.text = " "
    end if
  End Sub

  Sub btAdd_Click(sender As Object, e As EventArgs) 
    Dim okSql as String
    Dim urlNew as String
    Dim myDataReader As OleDbDataReader
    Dim i as Integer

    '取得目前会签合同自动编号的最后一号
    okSql = "select max(HQHTID) as maxNo from tblHQHT"
    myDataReader = GetDataReader(okSql)
     
    myDataReader.Read()
    if IsDBNull(myDataReader.Item(0)) then
      i = 1
    else
      i = myDataReader.Item(0)+1
    end if
    i = i + 1            
    CloseConnection()	    

    
    okSql = "INSERT INTO tblHQHT(HQHTID,HQBH,SQRQ,HQJG,HTBH,SXRQ,HTLBID,HTDJID,HTMC,HTBD,HTJE,HTJF,HTYF,HTWB,JYNR,HQYJ) VALUES( "
    okSql = okSql & i & ",'" 
    okSql = okSql & tbHQBH.Text & "', '"
    okSql = okSql & DateTime.Today & "', "
    okSql = okSql & 0 & ", '" 
    okSql = okSql & "　', '" 
    okSql = okSql & DateTime.Today & "', '"
    okSql = okSql & dlHTLB.SelectedItem.Value & "', '"
    okSql = okSql & dlHTDJ.SelectedItem.Value & "', '"
    okSql = okSql & tbHTMC.Text & "', '"
    okSql = okSql & tbHTBD.Text & "', "
    okSql = okSql & CDec(tbHTJE.Text) & ", '"
    okSql = okSql & tbHTJF.Text & "', '"
    okSql = okSql & tbHTYF.Text & "', '"
    okSql = okSql & lblHTWB.Text & "', '"
    okSql = okSql & tbJYNR.Text & "', '"
    okSql = okSql & "　')"

    ExecuteSQL(okSql)
    urlNew = "HTLR.aspx?id=" & i
    Response.Redirect(urlNew)
  End Sub

  Sub btCancel_Click(sender As Object, e As EventArgs) 
    Dim urlNew as String
    urlNew = "HTLR.aspx?id=" 
    Response.Redirect(urlNew)
  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
    End if
    hlView.DataBind()
  End sub

</script>

<html>
<head>
<title>增加会签合同</title>
</head>
<body>
<form Enctype="multipart/form-data" runat="Server" method="Post">
  <table width="80%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#003333" bordercolordark="#FFFFFF">
    <tr>
      <td height="25" colspan="3" valign="top" bgcolor="#006699">
        <p align="center"><font color="#FFFF66">增加会签合同</font>
      </td>
    </tr>
    <tr>
      <td height="25" valign="top">
        会签编号：<asp:TextBox id="tbHQBH" MaxLength=14 runat="server" />
      </td>
      <td height="25" valign="top">
        合同类别：<asp:DropDownList id="dlHTLB" MaxLength=12 runat="server" />
      </td>
      <td height="25" valign="top">
        合同等级：<asp:DropDownList id="dlHTDJ" MaxLength=8 runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" valign="top">
        合同名称：<asp:TextBox id="tbHTMC" Columns="90" MaxLength="50" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" valign="top">
        合同标的：<asp:TextBox id="tbHTBD" Columns="90" MaxLength="50" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" valign="top">
        合同金额：<asp:TextBox id="tbHTJE" Columns="20" MaxLength="12" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" valign="top">
        合同甲方：<asp:Label id="tbHTJF" Text="东风载重车公司销售部" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" valign="top">
        合同乙方：<asp:TextBox id="tbHTYF" Columns="90" 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="3" valign="top">
        简要内容：<br>
      	<asp:TextBox id="tbJYNR" TextMode="MultiLine" Columns="80" Rows="8" Text="" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" align="center">
      	<asp:Button id="btAdd" OnClick="btAdd_Click" Text="增加" runat="server"/>
      	<asp:Button id="btCancel" OnClick="btCancel_Click" Text="取消" runat="server"/>
      </td>
    </tr>
  </table>
</form>
</body>
</html>