ag_selnum.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit AG_SelNum;

interface

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

type
  TFrmAG_SelNum = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function SetWork(var BeginNum, EndNum: integer): Boolean;

implementation

{$R *.dfm}

function SetWork(var BeginNum, EndNum: integer): Boolean;
var
  FrmAG_SelNum: TFrmAG_SelNum;
begin
  Result := False;
  Application.CreateForm(TFrmAG_SelNum, FrmAG_SelNum);
  with FrmAG_SelNum do
  begin
    SpinEdit1.Value := BeginNum;
    SpinEdit2.Value := EndNum;
    //SpinEdit1.MaxValue:=EndNum;
    //SpinEdit2.MinValue:=BeginNum;
    if ShowModal = mrok then
    begin
      BeginNum := SpinEdit1.Value;
      EndNum := SpinEdit2.Value;
      Result := True;
    end;
    Free;
  end;
end;

{-------------------------------------------------------------------------------}

procedure TFrmAG_SelNum.SpinEdit1Change(Sender: TObject);
begin
  //SpinEdit2.MinValue:=SpinEdit1.Value;
end;

procedure TFrmAG_SelNum.SpinEdit2Change(Sender: TObject);
begin
  //SpinEdit1.MaxValue:=SpinEdit2.Value;
end;

end.