ad_qry_typestructanalyse.pas

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

unit Ad_Qry_TypeStructAnalyse;


Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin;

Type
  TFrm_Ad_Qry_TypeStructAnalyse = Class(TFrm_Base_Qry)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Ad_Qry_TypeStructAnalyse: TFrm_Ad_Qry_TypeStructAnalyse;

implementation

{$R *.DFM}
procedure TFrm_Ad_Qry_TypeStructAnalyse.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:='';
  OrderByFields:='';
  Getdata;   
end;

end.