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

最新推荐文章于 2024-05-04 11:04:36 发布

laoli

最新推荐文章于 2024-05-04 11:04:36 发布

阅读量1.2k

点赞数

分类专栏： delphi文档文章标签： asp.net datagrid button delphi string server

本文链接：https://blog.csdn.net/laoli/article/details/165526

版权

delphi文档专栏收录该内容

16 篇文章 0 订阅

订阅专栏

<%@ 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" οnclick="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" οnclick="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>