webform1.pas.~120~

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

unit WebForm1;

interface

uses
  System.Collections, System.ComponentModel, SysUtils,
  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;
    procedure Button3_Click(sender: System.Object; e: System.EventArgs);
    procedure Button1_Click(sender: System.Object; e: System.EventArgs);
    procedure Button2_Click(sender: System.Object; e: System.EventArgs);
    procedure Button4_Click(sender: System.Object; e: System.EventArgs);
    procedure Button5_Click(sender: System.Object; e: System.EventArgs);

  {$ENDREGION}
  strict private
    procedure Page_Load(sender: System.Object; e: System.EventArgs);
  strict protected
    ListBox1: System.Web.UI.WebControls.ListBox;
    Label1: System.Web.UI.WebControls.Label;
    Label2: System.Web.UI.WebControls.Label;
    ListBox2: System.Web.UI.WebControls.ListBox;
    Button1: System.Web.UI.WebControls.Button;
    Button2: System.Web.UI.WebControls.Button;
    TextBox1: System.Web.UI.WebControls.TextBox;
    Label3: System.Web.UI.WebControls.Label;
    Button3: System.Web.UI.WebControls.Button;
    Button4: System.Web.UI.WebControls.Button;
    Button5: System.Web.UI.WebControls.Button;
    Label4: System.Web.UI.WebControls.Label;
    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.Button1.Click, Self.Button1_Click);
  Include(Self.Button2.Click, Self.Button2_Click);
  Include(Self.Button3.Click, Self.Button3_Click);
  Include(Self.Button4.Click, Self.Button4_Click);
  Include(Self.Button5.Click, Self.Button5_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.Button5_Click(sender: System.Object; e: System.EventArgs);
var i,count:integer;
begin
    Label4.Text := '';
    count := ListBox2.Items.Count;
    if  count = 0 then
    begin
        Label4.Text := '您还没有购买商品！';
        exit;
    end;
    i:=0;
    while i<=count-1 do
    begin
        ListBox1.Items.Add(ListBox2.Items.item[i].ToString);
        i := i + 1;
    end;
    ListBox2.Items.Clear;
end;

procedure TWebForm1.Button4_Click(sender: System.Object; e: System.EventArgs);
var i,count:integer;
begin
    Label4.Text := '';
    count := ListBox1.Items.Count;
    if  count = 0 then
    begin
        Label4.Text := '您已经购买了所有商品！';
        exit;
    end;
    i:=0;
    while i<=count-1 do
    begin
        ListBox2.Items.Add(ListBox1.Items.item[i].ToString);
        i := i + 1;
    end;
    ListBox1.Items.Clear;
end;

procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
var i,count:integer;
begin
    Label4.Text := '';
    count := ListBox2.Items.Count;
    if  count = 0 then
    begin
        Label4.Text := '您还没有购买商品！';
        exit;
    end;
    if  ListBox2.SelectedIndex = -1 then
    begin
        Label4.Text := '请选择要退回的商品！';
        exit;
    end;
    i:=0;
    while i<=count-1 do
    begin
        if ListBox2.Items.item[i].Selected then
        begin
            ListBox1.Items.Add(ListBox2.Items.item[i].ToString);
            ListBox2.Items.RemoveAt(i);
            break; //只有一行被选中和被移动
        end;
        i := i + 1;
    end;
end;

procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var i,count:integer;
begin
    Label4.Text := '';
    count := ListBox1.Items.Count;
    if  ListBox1.SelectedIndex = -1 then
    begin
        Label4.Text := '请选择要购买的商品！';
        exit;
    end;
    i:=0;
    while i<=count-1 do
    begin
        if ListBox1.Items.item[i].Selected then
        begin
            ListBox2.Items.Add(ListBox1.Items.item[i].ToString);
            ListBox1.Items.RemoveAt(i);
            break; //只有一行被选中和被移动
        end;
        i := i + 1;
    end;
end;

procedure TWebForm1.Button3_Click(sender: System.Object; e: System.EventArgs);
var i,count:integer;
begin
    Label4.Text := '';
    if  TextBox1.Text = '' then
    begin
        Label4.Text := '请输入商品名称！';
        exit;
    end;
    count := ListBox1.Items.Count;
    for i:=0 to count-1 do
    begin
        if  TextBox1.Text=ListBox1.Items.item[i].ToString then
        begin
            Label4.Text := '已有该商品！';
            exit;  
        end;  
    end;
    ListBox1.Items.Add(TextBox1.Text);    //为ListBox1添加数据
    TextBox1.Text := '';                  //清空 TextBox1

end;

 


end.


//Label1.Text := 'sssssssssssssss';