hqyjbrowse.aspx

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

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

<script Language="VB" runat="server">
  Dim Sql1 as string
  Dim Sql2 as string
  Dim strView as string  
  Dim myConn As OleDbConnection
  Dim HQHTNo as integer

  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") 
    lblHQBM.Text = Session("UserDeptName")
    lblHQR.Text = Session("UserName")

    Sql1 = "SELECT tblHQHT.HQHTID as HQHTID, tblHQHT.HQBH as HQBH, "
    Sql1 = Sql1 & "tblHQHT.SQRQ as SQRQ, tblHQHT.HQJG as HQJG, "
    Sql1 = Sql1 & "tblHQHT.HTBH as HTBH, tblHQHT.SXRQ as SXRQ, "
    Sql1 = Sql1 & "tblHTLB.HTLB as HTLB, tblHTDJ.HTDJ as HTDJ, "
    Sql1 = Sql1 & "tblHQHT.HTMC as HTMC, tblHQHT.HTBD as HTBD, "
    Sql1 = Sql1 & "tblHQHT.HTJE as HTJE, tblHQHT.HTJF as HTJF, "
    Sql1 = Sql1 & "tblHQHT.HTYF as HTYF, tblHQHT.HTWB as HTWB, "
    Sql1 = Sql1 & "tblHQHT.JYNR as JYNR, tblHQHT.HQYJ as HQYJ "
    Sql1 = Sql1 & "FROM (tblHQHT LEFT OUTER JOIN tblHTLB ON tblHQHT.HTLBID = tblHTLB.HTLBID) "
    Sql1 = Sql1 & "LEFT OUTER JOIN tblHTDJ ON tblHQHT.HTDJID = tblHTDJ.HTDJID "
    Sql1 = Sql1 & "WHERE tblHQHT.HQHTID = " & HQHTNo 

    Sql2 = "SELECT tblHQHTYJ.HQHTID as HQHTID, tblHQHTYJ.HQBH as HQBH, "
    Sql2 = Sql2 & "tblHQHTYJ.HQRQ as HQRQ, tblHQHTYJ.HQYJ as HQYJ, "
    Sql2 = Sql2 & "tblDept.DeptName as HQBM,tblEmp.EmpName as HQR "
    Sql2 = Sql2 & "FROM (tblHQHTYJ LEFT OUTER JOIN tblDept ON tblHQHTYJ.HQBM = tblDept.DeptID) "
    Sql2 = Sql2 & "LEFT OUTER JOIN tblEmp ON tblHQHTYJ.HQR = tblEmp.EmpID "
    Sql2 = Sql2 & "WHERE tblHQHTYJ.HQHTID = " & HQHTNo

    if not page.ispostback then
  
      '取合同信息
      Dim Reader As OleDbDataReader = GetDataReader(Sql1)
      While Reader.Read()
        lblHQBH.text = Reader.Item(1)
        lblSQRQ.text = Reader.Item(2)
        if Reader.Item(3) = 1 then
          lblHQJG.Text = "已通过"
        else
          lblHQJG.Text = "未通过"
        end if
        lblHTBH.Text = Reader.Item(4)
        lblSXRQ.Text = Reader.Item(5)
        lblHTLB.Text = Reader.Item(6)
        lblHTDJ.Text = Reader.Item(7)
        lblHTMC.Text = Reader.Item(8)
        lblHTBD.Text = Reader.Item(9)
        lblHTJE.Text = Reader.Item(10)
	lblHTJF.Text = Reader.Item(11)
	lblHTYF.Text = Reader.Item(12)
        lblHTWB.Text = Reader.Item(13)
        lblJYNR.Text = Reader.Item(14)
        lblHQYJ.Text = Reader.Item(15)
  
	strView = Server.Mappath("Documents\") & lblHTWB.Text
        hlView.DataBind()

      End While 
      CloseConnection() 

      '取会签信息 
      grdMain.DataSource = GetDataView(Sql2,"tblHQHTYJ")
      grdMain.DataBind() 

    end if
  End Sub

  Sub ChangePage(Sender As Object, e As DataGridPageChangedEventArgs)
    grdMain.CurrentPageIndex = e.NewPageIndex
    grdMain.DataSource = GetDataView(Sql2,"tblHQHTYJ")
    grdMain.DataBind() 
  End Sub

  Sub btHQ_Click(Sender As Object, e As EventArgs)

    dim strSQL as string 
    strSQL = "select * from tblHQHTYJ "
    strSQL = strSQL & " where tblHQHTYJ.HQHTID =" & HQHTNo 
    strSQL = strSQL & " and tblHQHTYJ.HQBM = '" & Session("UserDeptID") & "'"
    strSQL = strSQL & " and tblHQHTYJ.HQR = '" & Session("UserID") & "'"

    Dim Reader As OleDbDataReader = GetDataReader(strSQL)
    if Reader.Read() then
      response.write("你已经发过言....")
      tbHQRQ.Text = ""
      tbHQYJ.Text = ""
      exit sub
    end if

    strSQL = "INSERT INTO tblHQHTYJ(HQHTID,HQBH,HQRQ,HQYJ,HQBM,HQR) VALUES( "
    strSQL = strSQL & HQHTNo & ",'" 
    strSQL = strSQL & lblHQBH.Text & "', '"
    strSQL = strSQL & tbHQRQ.Text & "', '"
    strSQL = strSQL & tbHQYJ.Text & "', '"
    strSQL = strSQL & Session("UserDeptID") & "', '"
    strSQL = strSQL & Session("UserID") & "') "
 
    ExecuteSQL(strSQL)

    grdMain.DataSource = GetDataView(Sql2,"tblHQHTYJ")
    grdMain.DataBind() 

    tbHQRQ.Text = ""
    tbHQYJ.Text = ""

  End Sub

</script>

<html>
<head>
</head>

<body leftmargin="0" topmargin="0" BgColor="White">
<form 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:label id="lblHQBH" runat="server" /><br>
	送签日期：<asp:label id="lblSQRQ" runat="server" />
      </td>
      <td height="25" valign="top">
        会签结果：<asp:label id="lblHQJG" runat="server" />
        合同编号：<asp:label id="lblHTBH" runat="server" /><br>
        生效日期：<asp:label id="lblSXRQ" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" valign="top">
        合同类别：<asp:label id="lblHTLB" runat="server" />
      </td>
      <td height="25" valign="top">
        合同等级：<asp:label id="lblHTDJ" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同名称：<asp:label id="lblHTMC" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同标的：<asp:label id="lblHTBD" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同金额：<asp:label id="lblHTJE" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同甲方：<asp:Label id="lblHTJF" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        合同乙方：<asp:label id="lblHTYF" 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:label id="lblJYNR" TextMode="MultiLine" Columns="80" Rows="8" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="2" valign="top">
        会签意见:<br>
      	<asp:label id="lblHQYJ" TextMode="MultiLine" Columns="80" Rows="8" runat="server" />
      </td>
    </tr>
  </table>
  <p>
  <table width="700" border="1" cellspacing="0" cellpadding="2" bordercolordark="#ffffff" bordercolorlight="#000000" align="center">
    <tr>
      <td align="center">合同会签意见</td>        
    </tr>
    <tr>
      <td>
        <asp:DataGrid 
            AllowPaging="True"
            PageSize="12"
            PagerStyle-Mode=NumericPages
            PagerStyle-PageButtonCoint=3
            PagerStyle-HorizontalAlign="Right"
            OnPageIndexChanged="ChangePage"
            HeaderStyle-BackColor="#006699"
            HeaderStyle-ForeColor="#FFFF66"
            AlternatingItemStyle-BackColor="#FFFFFF"
            itemstyle-backcolor="#FFFFFF"
            BorderColor="Black"
            CellPadding="2" 
            CellSpacing="0"
            DataKeyField="HQHTID"
            AutoGenerateColumns="false"
            Width="700"
            id="grdMain" runat="server" >
            <Columns>
              <asp:BoundColumn DataField="HQBM" HeaderText="会签部门" />
              <asp:BoundColumn DataField="HQR"  HeaderText="会签人" />
              <asp:BoundColumn DataField="HQYJ" HeaderText="会签意见" />
	      <asp:BoundColumn DataField="HQRQ" HeaderText="会签日期" DataFormatString="{0:d}" />
	      <asp:HyperLinkColumn HeaderText="会签意见" Text="查看/修改/删除" DataNavigateUrlField="HQHTID" DataNavigateUrlFormatString="HQYJEdit.aspx?id={0}" Target="_blank" />
            </Columns>
        </asp:DataGrid>
      </td>
    </tr>
  </table>
  <p>
  <asp:Panel id="AddPanel" runat="server">
    <table width="80%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#003333" bordercolordark="#FFFFFF">
    <tr>
      <td height="25" valign="top">
        会签部门:	<asp:Label id="lblHQBM" runat="server" />
      </td>
      <td height="25" valign="top">
        会签人:<asp:Label id="lblHQR" runat="server" />
      </td>
      <td height="25" valign="top">
        会签日期:	<asp:TextBox id="tbHQRQ" runat="server" />
      </td>
    </tr>
    <tr>
      <td height="25" colspan="3" valign="top">
        会签意见：<br>
        <asp:TextBox id="tbHQYJ" TextMode="MultiLine" Columns="80" Rows="8" Text="" runat="server" />
      </td>
    </tr>  
    <tr>
      <td colspan="3" valign="top" align="center">
        <asp:Button id="btHQ" OnClick="btHQ_Click" Text="我来发言" runat="server"/>
      </td>
    </tr>  
    </table>
  </asp:Panel>
</form>
</body>
</html>