创建并控制一个asp.net程序!(for delphi.net )

原创 2004年11月03日 16:08:00
<%@ 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>


二 ASP.NET MVC 第一个程序 hello world

一 ASP.NET MVC 实战 创建属于你的Blog 我使用的Visual studio 2015 ,可能你们使用的版本不同,但是不影响站点的建设1.创建项目项目名称取名BlogApp,然后单击ok...
  • yucihai
  • yucihai
  • 2016年05月07日 02:51
  • 1594

ASP.NET MVC4 系列教程之第三篇 (创建第一个MVC应用程序)

1.创建ASP.NET MVC 4应用程序
  • abc456456456456
  • abc456456456456
  • 2014年05月18日 09:36
  • 986

为什么选择Delphi.Net 作者:Chad Z. Howe

为什么选择Delphi.Net ? 作者:Chad Z. Hower   译者:Bear 许多人曾预言,随着.Net的引入,从一种语言的角度来说,Delphi将会衰落或者消亡。在过去的几年里这种预言...
  • aatu
  • aatu
  • 2004年07月22日 10:59
  • 3228

用fopen函数创建或打开一个文本文件,并写入字符串“this is a test file.

#include void main() {  FILE *fptr;  if((fptr=fopen("test.txt","w"))!=NULL)  {   fprintf(fptr...
  • cccc5201314
  • cccc5201314
  • 2012年03月24日 07:49
  • 2671

asp.net web页面在后台实现打开新页面并传值。

已经试验成功。protected void Button1_Click(object sender, EventArgs e)    {         string strID = "123";  ...
  • Come_On_steven
  • Come_On_steven
  • 2009年04月04日 19:49
  • 4956

asp.net后台生成前台页面控件

后台: public string Getstar(string number) { int count = Convert.ToInt32(numbe...
  • zzr494684778
  • zzr494684778
  • 2013年01月10日 16:35
  • 1569

Delphi.NET 内部实现分析(3.3)

Delphi.NET 内部实现分析(3.3)2.3. 对象  接下来我们看看类的实例,对象的实现//-----------------------------------------Borland.D...
  • cwxiao888
  • cwxiao888
  • 2004年03月03日 11:37
  • 913

Asp.net读取和写入txt文件方法

string strfile= "asp.txt"; string strout=string.Empty; if (!File.Exists(Sys...
  • shouhou_Bingo
  • shouhou_Bingo
  • 2016年04月22日 15:36
  • 1618

WPF 控制程序只能启动一次

public partial class App : Application     {         System.Threading.Mutex mutex;         public...
  • jsyhello
  • jsyhello
  • 2012年03月30日 16:16
  • 1669

第8章 对象和类

Date类 java在java.util.Date类中还提供了与系统无关的对日期和时间的封装。 +Date() 以当前时间构造一个Date对象 +Date(elapseTime:long)...
  • Andrew_Ho
  • Andrew_Ho
  • 2015年07月24日 13:16
  • 1436
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:创建并控制一个asp.net程序!(for delphi.net )
举报原因:
原因补充:

(最多只允许输入30个字)