statframefrm.pas

来自「相关的销售服务管理行业的一个软件」· PAS 代码 · 共 66 行

unit StatFrameFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FindStatFrameFrm, Db, ADODB, ActnList, Grids, DBGridEh, StdCtrls,
  Buttons, ComCtrls, jpeg, ExtCtrls, EHGrids;

type
  TStatFrameForm = class(TFindStatFrameForm)
    rgStoreStype: TRadioGroup;
    procedure rgStoreStypeClick(Sender: TObject);
  private
    FStoreStype: string;
    FStypeIsEnabled: Boolean;
    procedure SetStoreStype(const Value: string);
    procedure SetStypeIsEnabled(const Value: Boolean);
    { Private declarations }
  protected
    procedure InitCondition; override;  
  public
    { Public declarations }
    property StoreStype: string read FStoreStype write SetStoreStype;
    property StypeIsEnabled: Boolean read FStypeIsEnabled write SetStypeIsEnabled;
  end;

var
  StatFrameForm: TStatFrameForm;
  const AllStypeInfo = '全部';

implementation

{$R *.DFM}

{ TStatFrameForm }


procedure TStatFrameForm.InitCondition;
begin
  inherited;
  StypeIsEnabled := true;
  StoreStype := AllStypeInfo;
end;

procedure TStatFrameForm.SetStoreStype(const Value: string);
begin
  FStoreStype := Value;
  if (rgStoreStype.ItemIndex = -1) or (rgStoreStype.Items[rgStoreStype.ItemIndex]<>Value) then
    rgStoreStype.ItemIndex := rgStoreStype.Items.IndexOf(Value);
end;

procedure TStatFrameForm.SetStypeIsEnabled(const Value: Boolean);
begin
  FStypeIsEnabled := Value;
  rgStoreStype.Enabled := Value;
end;

procedure TStatFrameForm.rgStoreStypeClick(Sender: TObject);
begin
  inherited;
  StoreStype := rgStoreStype.Items[rgStoreStype.ItemIndex];
end;

end.