base_check_body.pas

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

unit Base_Check_Body;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Panel, ActnList, ExtCtrls, ComCtrls, ToolWin, AdOdb, Db, DBGridEH,
  StdCtrls,Grids,Base_Condition,ExtPrintReport,pr_PrintReportType, Menus,
  DBCtrls, ExtEdit, Mask, jpeg;

Type
  TFrm_Base_Check_Body = Class(TFrm_Base_Panel)
  
    ToolButton1: TToolButton;
    TlBtn_Check: TToolButton;
    TlBtn_CancelCheck: TToolButton;
    ToolButton5: TToolButton;
    TlBtn_Preview: TToolButton;
    TlBtn_Print: TToolButton;
    TlBtn_Excel: TToolButton;
    ToolButton13: TToolButton;
    AdoQry_Body: TAdoQuery;
    DataSource: TDataSource;
    Lbl_Condition: TLabel;
    DBGridEh: TDBGridEh;
    ToolButton4: TToolButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    { protected declarations }
    AdoQry_Head:TAdoQuery;//数据库维护对象

    procedure InitControls; virtual;//初始化Form上所有控件
  public
    { Public declarations }
    //初始化参数 变量,子类不必重载
    procedure InitForm(AdOConnection:TAdOConnection;FormStatus:String;
      AdoQuery:TAdoQuery);virtual;
  end;
  TAdoQueryExpress=Class(TAdoQuery)
  Public
    Property CommandTimeOut;
  end;



var
  Frm_Base_Check_Body: TFrm_Base_Check_Body;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Base_Check_Body.InitForm(AdOConnection:TAdOConnection;
  FormStatus:String;AdoQuery:TAdoQuery);
begin//
  inherited;
  SetDBConnect(AdOConnection);
  AdoQry_Body.Connection:=AdOConnection;
  AdoQry_Head:=AdoQuery;
  InitControls;
  Act_Save.Enabled:=False;
end;

procedure TFrm_Base_Check_Body.InitControls;
begin

end;

procedure TFrm_Base_Check_Body.FormCreate(Sender: TObject);
begin
  inherited;
  TAdoQueryExpress(AdoQry_Body).CommandTimeOut:=0;
end;

end.