unit1.pas

一个简单的delphi程序设计 实现了简单的选课系统 可以选多门课

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Panel2: TPanel;
    Label6: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


var
   i: integer;
   t: integer;
   p: string;

begin
P:='你的选课信息：'+#13;
p:=p+'姓名：'+edit1.text+#13;
p:=p+'班级：'+edit2.text+#13;
p:=p+'学号：'+edit3.text+#13;
p:=p+'你选择的课程为：'+#13;

for i :=0 to ListBox1.Count-1 do
begin
if ListBox1.Selected[i] then

//i:=listbox1.ItemIndex;
//if listbox1.Selected[i] then
p:=p+'         '+listbox1.Items[i]+#13;
//i:=i+1;

end;
//ListBox1.DeleteSelected;

label5.Caption:=p;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
listbox1.Clear;
listbox1.Items.Add('c语言');
listbox1.Items.Add('c++语言');
listbox1.Items.Add('vc++语言');
listbox1.Items.Add('Delphi程序设计');
listbox1.Items.Add('编译原理');
listbox1.Items.Add('java语言');
listbox1.Items.Add('asp程序设计');
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
listbox1.Clear;
listbox1.Items.Add('软件工程');
listbox1.Items.Add('数据库');
listbox1.Items.Add('软件理论分析');
listbox1.Items.Add('软件设计');
listbox1.Items.Add('英语');
listbox1.Items.Add('汇编语言');
listbox1.Items.Add('编程思想');
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
listbox1.Clear;
listbox1.Items.Add('专业英语');
listbox1.Items.Add('标准日本语');
listbox1.Items.Add('英语听力');
listbox1.Items.Add('商务英语');
listbox1.Items.Add('高等数学');
listbox1.Items.Add('马克思政治经济学');
listbox1.Items.Add('马克思主义哲学原理');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
label5.Caption:='';
end;

end.