uform_xf_limit.~pas

Delphi应用婚纱系统 Delphi应用婚纱系统

unit Uform_xf_limit;
//接受输入，以获得消费查询限定条件
interface

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

type
  Tform_xf_limit = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label2: TLabel;
    Label1: TLabel;
    Bevel1: TBevel;
    Image2: TImage;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    yesno:boolean;
    sdate:tdate;
    edate:tdate;
    smoney:integer;
    emoney:integer;
  end;

var
  form_xf_limit: Tform_xf_limit;

implementation

{$R *.dfm}

procedure Tform_xf_limit.FormShow(Sender: TObject);
//初始化窗口显示
begin
   datetimepicker1.DateTime :=now;
   datetimepicker2.datetime:=now;
   spinedit1.Value :=0;
   spinedit2.Value :=9999999;
   yesno:=false;
end;

procedure Tform_xf_limit.BitBtn3Click(Sender: TObject);
//关闭窗口
begin
   close;
end;

procedure Tform_xf_limit.BitBtn2Click(Sender: TObject);
//用户确定输入
begin
   //对输入进行正确性检验
   if datetimepicker2.Date <datetimepicker1.Date then
   begin
      showmessage('初始日期大于终止日期');
      datetimepicker2.SetFocus ;
      exit;
   end;
   if spinedit1.Value >spinedit2.Value then
   begin
      showmessage('金额范围输入错误');
      spinedit1.SetFocus ;
      exit;
   end;
   //修改标志变量
   yesno:=true;
   sdate:=datetimepicker1.Date ;
   edate:=datetimepicker2.Date ;
   smoney:=spinedit1.Value ;
   emoney:=spinedit2.Value ;
   close;
end;

end.