webform1.pas.~1~

来自「Delphi 2005程序设计教程_实例源文件和教学课件」· ~1~ 代码 · 共 72 行

unit WebForm1;

interface

uses
  System.Data.SqlClient,
  System.Collections, System.ComponentModel,
  System.Data, System.Drawing, System.Web, System.Web.SessionState,
  System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls;

type
  TWebForm1 = class(System.Web.UI.Page)
  {$REGION 'Designer Managed Code'}
  strict private
    procedure InitializeComponent;
  {$ENDREGION}
  strict private
    procedure Page_Load(sender: System.Object; e: System.EventArgs);
  strict protected
    Repeater1: System.Web.UI.WebControls.Repeater;
    procedure OnInit(e: EventArgs); override;
  private
    { Private Declarations }
  public
    { Public Declarations }
  end;

implementation

{$REGION 'Designer Managed Code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWebForm1.InitializeComponent;
begin
  Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
var
  conn:SqlConnection;
  adp:SqlDataAdapter;
  ds:DataSet;
begin
  // TODO: Put user code to initialize the page here
  conn:=SqlConnection.Create('server=HAN;uid=sa;pwd=;database=northwind');
  adp:=SqlDataAdapter.Create('select * from employees',conn);
  ds:=DataSet.Create;
  adp.Fill(ds);
  if not Page.IsPostBack then
  begin
    Repeater1.DataSource:=ds;
    RePeater1.DataBind;
  end;
end;

procedure TWebForm1.OnInit(e: EventArgs);
begin
  //
  // Required for Designer support
  //
  InitializeComponent;
  inherited OnInit(e);
end;


end.