base_condition.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 36 行

unit Base_Condition;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, Db, AdODB, StdCtrls, Base_Common;

Type
  TFrm_Base_Condition = Class(TFrm_Base_Dialog)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Condition:String;//存放 Where 后的条件
    ConditionHint:String;//存放过滤条件中文信息
    FatherForm:TFrm_Base_Common;//父窗体引用
  end;

var
  Frm_Base_Condition: TFrm_Base_Condition;

implementation

{$R *.DFM}

procedure TFrm_Base_Condition.FormCreate(Sender: TObject);
begin
  inherited;
  if Self.Name<>'Frm_Sys_Condition' then
    Self.Caption:='筛选条件';
end;

end.