ksbmfrm.pas

考生管理系统

unit KsbmFrm;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    EdtName: TEdit;
    CmbSex: TComboBox;
    CmbClass: TComboBox;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  KSList:TStringList;
  count:integer;
  TmpStr:string;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   SName:string;
   KSNum:integer;//KSNum记录考生人数
begin
    //将文本编辑框中输入的姓名传递到姓名变量
    SName:=EdtName.Text;
    //Items.Indexof(SName) 用来在列表中查找字符串，并返回所在项索引
    if Listbox2.Items.IndexOf(SName)>-1 then//如果考生已报名
    begin
        ShowMessage('该考生已经报名了!');
        EdtName.SetFocus;//光标焦点回到编辑框。
    end
    else  begin
        KSNum:=ListBox1.Items.Count;//设置已报名考生人数；
        //把考生报名编号和姓名添加到列表。
        ListBox1.Items.Add('     '+inttostr(KSNum)+'                         '+SName);
        ListBox1.ClearSelection;//清除列表选择
        //在列表框中选中刚报名的考生信息。
        ListBox1.Selected[KSNum]:=True;
        Listbox2.Items.Add(SName);//listbox2用来记录考生名单
        TmpStr:=SName+'     '+CmbSex.Text+'    '+CmbClass.Text;
        Memo1.Lines.Text:=TmpStr;//在memo中显示刚报名考生详细信息
        KSList.Append(TmpStr);//用于保存考生详细信息
    end;


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
        KSList:=TStringList.Create;
        count:=listbox1.Items.Count-1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     KSList.Free;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
   i:integer;
  // TmpStr:string;
begin
     Memo1.Clear;
     for i:=0 to count do
     begin
     //这是在程序创建时就定义的全局字符串列表对象
     if Listbox1.Selected[i] then
     begin
     TmpStr:=KSList[i];//获得对应考生详细信息。
     Memo1.Lines.Add(TmpStr);
     end;
     end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
   i:integer;
  // TmpStr:string;
begin
    // Memo1.Clear;
     for i:=0 to count do
     begin
     //这是在程序创建时就定义的全局字符串列表对象
     if Listbox1.Selected[i] then
     begin
     TmpStr:=KSList[i];//获得对应考生详细信息。
     Memo1.Lines.Add(TmpStr);
     end;
     end;
end;
end.