main_xfgl_xxll_llszform.~pas

校园综合管理系统

unit main_xfgl_xxll_llszform;

interface

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

type
  Tmain_xfgl_xxll_llsz = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label3: TLabel;
    sppp: TSpinEdit;
    Bevel3: TBevel;
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_xfgl_xxll_llsz: Tmain_xfgl_xxll_llsz;

implementation

{$R *.DFM}

procedure Tmain_xfgl_xxll_llsz.ComboBox1Click(Sender: TObject);
begin
   if combobox1.Text='0.5秒' then
    label3.Caption:='500'
   else if combobox1.Text='1.0秒' then
     label3.Caption:='1000'
   else if combobox1.Text='1.5秒' then
     label3.Caption:='1500'
     else if combobox1.Text='2.0秒' then
     label3.Caption:='2000'
   else if combobox1.Text='2.5秒' then
     label3.Caption:='2500'
    else if combobox1.Text='3.0秒' then
     label3.Caption:='3000'
   else if combobox1.Text='3.5秒' then
     label3.Caption:='3500'
   else if combobox1.Text='4.0秒' then
     label3.Caption:='4000'
   else if combobox1.Text='4.5秒' then
     label3.Caption:='4500'
   else
     label3.Caption:='5000';
end;

end.