webform1.pas.~1~

来自「《Delphi 2005程序设计及其应用开发》源代码」· ~1~ 代码 · 共 92 行

unit WebForm1;

interface

uses
  System.Collections, System.ComponentModel,
  System.Data, System.Drawing, System.Web, System.Web.SessionState,
  System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls,
  Borland.vcl.sysutils,global;
type
  TWebForm1 = class(System.Web.UI.Page)
  {$REGION 'Designer Managed Code'}
  strict private
    procedure InitializeComponent;
    procedure Button1_Click(sender: System.Object; e: System.EventArgs);
    procedure Button2_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict private
    procedure Page_Load(sender: System.Object; e: System.EventArgs);
  strict protected
    vbnet: System.Web.UI.WebControls.RadioButton;
    Java2: System.Web.UI.WebControls.RadioButton;
    vcnet: System.Web.UI.WebControls.RadioButton;
    RadioButton5: System.Web.UI.WebControls.RadioButton;
    delphi8: System.Web.UI.WebControls.RadioButton;
    csharpnet: System.Web.UI.WebControls.RadioButton;
    aspnet: System.Web.UI.WebControls.RadioButton;
    Label1: System.Web.UI.WebControls.Label;
    Button1: System.Web.UI.WebControls.Button;
    Button2: System.Web.UI.WebControls.Button;
    procedure OnInit(e: EventArgs); override;
  private
    { Private Declarations }
  public
    { Public Declarations }
  end;

implementation
var count :integer;
{$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.Button1.Click, Self.Button1_Click);
  Include(Self.Button2.Click, Self.Button2_Click);
  Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
  // TODO: Put user code to initialize the page here
end;

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

procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
     response.Redirect('Webform2.aspx');
end;

procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
if (vbnet.Checked = True) then
    n_vbnet := n_vbnet+1
else if (delphi8.Checked = True) then
    n_delphi8 := n_delphi8+1
else if (csharpnet.Checked = True) then
    n_csharp := n_csharp+1
else if (java2.Checked = True) then
    n_java2 := n_java2+1
else if (aspnet.Checked = True) then
    n_aspnet := n_aspnet+1
else if (vcnet.Checked = True) then
    n_vcnet := n_vcnet+1;
Sum := n_vbnet + n_delphi8 +n_csharp + n_java2 + n_aspnet + n_vcnet;
end;

end.