创建并控制一个asp.net程序!(for delphi.net )
2004-11-03 16:08
627 查看
<%@ Page Language="Delphi" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
procedure Button1Click(Sender: System.Object; E: EventArgs);
var
MyConnection : OleDbConnection ;
dbReader : OleDbDataReader;
cmd : OleDbCommand;
abc : string;
outval : string;
intval : longint;
begin
abc := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:/mydb.mdb';
MyConnection := OleDbConnection.Create(abc);
MyConnection.Open;
cmd := MyConnection.CreateCommand;
cmd.CommandText := 'Select * from Table1';
dbReader := cmd.ExecuteReader;
while (dbReader.Read) do
begin
intval := dbReader.GetInt32(0);
outval := dbReader.GetString(1);
end;
Label1.Text := inttostr(intval);
end;
procedure Button2Click(Sender: System.Object; E: EventArgs);
var
ConnStr : string;
CommTxt : string;
MyConnection : OleDbConnection ;
abc : string;
cmdText : string;
cmd : OleDbCommand;
begin
ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:/mydb.mdb';
CommTxt := 'select andy as [first name], chapman as [Last Name] from Table1';
abc := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:/mydb.mdb';
MyConnection := OleDbConnection.Create(abc);
cmd := OleDbCommand.Create(CommTxt,MyConnection);
MyConnection.Open;
DataGrid1.DataSource := cmd.ExecuteReader(CommandBehavior.CloseConnection);
DataGrid1.DataBind();
end;
</script>
<html>
<head>
</head>
<body style="FONT-FAMILY: arial">
<h2>Simple Data Report
</h2>
<hr size="1" />
<form runat="server">
<asp:datagrid id="DataGrid1" runat="server" CellSpacing="1" GridLines="None" CellPadding="3" BackColor="White" ForeColor="Black" EnableViewState="False">
<HeaderStyle font-bold="True" forecolor="White" backcolor="#4A3C8C"></HeaderStyle>
<ItemStyle backcolor="#DEDFDE"></ItemStyle>
</asp:datagrid>
<asp:Button id="Button1" style="Z-INDEX: 100; LEFT: 284px; POSITION: absolute; TOP: 151px" onclick="Button1Click" runat="server" Text="Bind To Data Grid"></asp:Button>
<asp:Label id="Label1" style="Z-INDEX: 100; LEFT: 467px; POSITION: absolute; TOP: 156px" runat="server" Width="42px">Label</asp:Label>
<asp:Button id="Button2" style="Z-INDEX: 101; LEFT: 283px; POSITION: absolute; TOP: 182px" onclick="Button2Click" runat="server" Text="Button"></asp:Button>
</form>
</body>
</html>
(*
请设置你的webconfig文件如下:
*)
<configuration>
<system.web>
<compilation debug="true">
<assemblies>
<add assembly="DelphiProvider" />
</assemblies>
<compilers>
<compiler language="Delphi" extension=".pas" type="Borland.Delphi.DelphiCodeProvider,DelphiProvider" />
</compilers>
</compilation>
</system.web>
</configuration>
<configuration>
<system.web>
<compilation debug="true">
<assemblies>
<add assembly="DelphiProvider" />
</assemblies>
<compilers>
<compiler language="Delphi" extension=".pas" type="Borland.Delphi.DelphiCodeProvider,DelphiProvider" />
</compilers>
</compilation>
</system.web>
</configuration>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
procedure Button1Click(Sender: System.Object; E: EventArgs);
var
MyConnection : OleDbConnection ;
dbReader : OleDbDataReader;
cmd : OleDbCommand;
abc : string;
outval : string;
intval : longint;
begin
abc := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:/mydb.mdb';
MyConnection := OleDbConnection.Create(abc);
MyConnection.Open;
cmd := MyConnection.CreateCommand;
cmd.CommandText := 'Select * from Table1';
dbReader := cmd.ExecuteReader;
while (dbReader.Read) do
begin
intval := dbReader.GetInt32(0);
outval := dbReader.GetString(1);
end;
Label1.Text := inttostr(intval);
end;
procedure Button2Click(Sender: System.Object; E: EventArgs);
var
ConnStr : string;
CommTxt : string;
MyConnection : OleDbConnection ;
abc : string;
cmdText : string;
cmd : OleDbCommand;
begin
ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:/mydb.mdb';
CommTxt := 'select andy as [first name], chapman as [Last Name] from Table1';
abc := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:/mydb.mdb';
MyConnection := OleDbConnection.Create(abc);
cmd := OleDbCommand.Create(CommTxt,MyConnection);
MyConnection.Open;
DataGrid1.DataSource := cmd.ExecuteReader(CommandBehavior.CloseConnection);
DataGrid1.DataBind();
end;
</script>
<html>
<head>
</head>
<body style="FONT-FAMILY: arial">
<h2>Simple Data Report
</h2>
<hr size="1" />
<form runat="server">
<asp:datagrid id="DataGrid1" runat="server" CellSpacing="1" GridLines="None" CellPadding="3" BackColor="White" ForeColor="Black" EnableViewState="False">
<HeaderStyle font-bold="True" forecolor="White" backcolor="#4A3C8C"></HeaderStyle>
<ItemStyle backcolor="#DEDFDE"></ItemStyle>
</asp:datagrid>
<asp:Button id="Button1" style="Z-INDEX: 100; LEFT: 284px; POSITION: absolute; TOP: 151px" onclick="Button1Click" runat="server" Text="Bind To Data Grid"></asp:Button>
<asp:Label id="Label1" style="Z-INDEX: 100; LEFT: 467px; POSITION: absolute; TOP: 156px" runat="server" Width="42px">Label</asp:Label>
<asp:Button id="Button2" style="Z-INDEX: 101; LEFT: 283px; POSITION: absolute; TOP: 182px" onclick="Button2Click" runat="server" Text="Button"></asp:Button>
</form>
</body>
</html>
(*
请设置你的webconfig文件如下:
*)
<configuration>
<system.web>
<compilation debug="true">
<assemblies>
<add assembly="DelphiProvider" />
</assemblies>
<compilers>
<compiler language="Delphi" extension=".pas" type="Borland.Delphi.DelphiCodeProvider,DelphiProvider" />
</compilers>
</compilation>
</system.web>
</configuration>
<configuration>
<system.web>
<compilation debug="true">
<assemblies>
<add assembly="DelphiProvider" />
</assemblies>
<compilers>
<compiler language="Delphi" extension=".pas" type="Borland.Delphi.DelphiCodeProvider,DelphiProvider" />
</compilers>
</compilation>
</system.web>
</configuration>
相关文章推荐
- 创建ASP.NET程序时候发生错误"HTTP/1.0 500 Server Error"的一个解决办法
- 使用ASP.NET MVC(C#)15分钟内创建一个电影数据库程序
- IronPython for ASP.NET:使用IronPython创建一个简单的Web页面
- ASP.NET没有魔法——开篇-用VS创建一个ASP.NET Web程序
- 【C#】对异步请求处理程序IHttpAsyncHandler的理解和分享一个易用性封装 【手记】走近科学之为什么明明实现了IEnumerable<T>的类型却不能调用LINQ扩展方法 【手记】手机网页弹出层后屏蔽底层的滑动响应 【手记】ASP.NET提示“未能创建类型”处理 【Web】一个非常简单的移动web消息框 【手记】解决EXCEL跑SQL遇“查询无法运行或数据库表无法打开...”
- 创建ASP.NET程序时候发生错误"HTTP/1.0500ServerError"的一个解决办法
- [ASP.NET].NETCore创建一个控制台(Console)程序
- asp.net用网络管理工具来创建项目的角色(Roles)以及完成权限控制遇到的问题(基于MusicStore项目)
- ASP.NET程序运行时出现的一个小BUG
- 一个简单的基于System.Web.Mail的ASP.Net邮件发送程序
- ASP.NET 2.0提供了一个Menu 类,可以方便地创建水平或者垂直方向的下拉菜单
- 在ASP.NET 2.0中操作数据:创建一个业务逻辑层
- 用ASP.Net写一个发送ICQ信息的程序
- 用ASP.Net写一个发送ICQ信息的程序
- vs.net中创建asp.net程序时,出现:http/1.1 500 internal server error
- asp.net中创建一个简单的自定义控件
- 在一个空ASP.NET Web项目上创建一个ASP.NET Web API 2.0应用
- Asp.Net MVC(创建一个任务列表应用程序) - Part.1
- 创建一个完整的ASP.NET Web API项目
- hjr-ASP.NET:创建一个ASP.NET页面