📄 htlr.aspx.bak
字号:
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Register TagPrefix="HTGL" TagName="Header" src="header.ascx" %>
<%@ Register TagPrefix="HTGL" TagName="Menu" src="nav.ascx" %>
<script Language="VB" runat="server">
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()
' 声明DataSet对象—myDataSet
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)
Sql = "SELECT tblHQHT.HQHTID as HQHTID, tblHQHT.HQBH as HQBH, tblHQHT.HTBH as HTBH, "
Sql = Sql & "tblHQHT.HTMC as HTMC,tblHQHT.HTBD as HTBD,tblHQHT.HTJE as HTJE,tblHQHT.HTYF as HTYF,tblHQHT.SQRQ as SQRQ "
Sql = Sql & "FROM tblHQHT "
Sql = Sql & "ORDER BY tblHQHT.HQBH"
if not page.ispostback then
grdMain.DataSource = GetDataView(Sql,"tblHQHT")
grdMain.DataBind()
end if
End Sub
Sub ChangePage(Sender As Object, e As DataGridPageChangedEventArgs)
grdMain.CurrentPageIndex = e.NewPageIndex
grdMain.DataSource = GetDataView(Sql,"tblHQHT")
grdMain.DataBind()
End Sub
</script>
<html>
<head>
</head>
<body leftmargin="0" topmargin="0" BgColor="White">
<HTGL:Header runat="server" />
<table>
<tr>
<td valign="top" width="150">
<HTGL:Menu runat="server" />
</td>
<td valign="top" >
<form runat="server">
<br>
<table width="700" border="1" cellspacing="0" cellpadding="2" bordercolordark="#ffffff" bordercolorlight="#000000" align="center">
<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"
Font-Size="10pt"
DataKeyField="HQHTID"
AutoGenerateColumns="false"
Width="700"
id="grdMain" runat="server" >
<Columns>
<asp:BoundColumn DataField="HQBH" HeaderText="会签编号" />
<asp:BoundColumn DataField="HTBH" HeaderText="合同编号" />
<asp:BoundColumn DataField="HTMC" HeaderText="合同名称" />
<asp:BoundColumn DataField="HTBD" HeaderText="合同标的" />
<asp:BoundColumn DataField="HTJE" DataFormatString="{0:c}" HeaderText="合同金额" />
<asp:BoundColumn DataField="HTYF" HeaderText="合同乙方" />
<asp:HyperLinkColumn HeaderText="修改" Text="编辑/删除" DataNavigateUrlField="HQHTID" DataNavigateUrlFormatString="HQHTEdit.aspx?id={0}" />
</Columns>
</asp:DataGrid>
</td>
</tr>
<tr>
<td align="center">
<a href="HQHTAdd.aspx">增加新合同</a>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -