百货/超市行业

开发平台：

Visual C++

Setupin.pas：源码内容

							unit Setupin;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, Spin,Define;
type
  TsetupForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    SEMaxLoad: TSpinEdit;
    SEPersonNum: TSpinEdit;
    SEOntime: TSpinEdit;
    SEElavotorSpeed: TSpinEdit;
    SEUpDownTime: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    SETakeNum: TSpinEdit;
    Label13: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  setupForm: TsetupForm;
implementation
uses main;
{$R *.DFM}
procedure TsetupForm.BitBtn2Click(Sender: TObject);
begin
    Application.Terminate;
end;
procedure TsetupForm.BitBtn1Click(Sender: TObject);
begin
   Maxload:=SEMaxload.Value;             //电梯最大乘客量
   PersonNum:=SEPersonNum.Value;         //参与仿真人数
   Ontime:=SEOntime.Value;               //人员到齐时间
   ElavotorSpeed:=SEElavotorSpeed.Value; //电梯运行速度
   UpDownTime:=SEUpDownTime.value;       //上下电梯时间
   TakeNum:=SETakeNum.Value;             //乘做电梯次数
   self.hide;
end;
end.

						