mrp_qry_analyzermo5.pas

一个MRPII系统源代码版本

unit Mrp_Qry_AnalyzerMo5;
  
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_Mrp_Qry_AnalyzerMo5 = Class(TFrm_Base_Qry)
    AdoQry_MainIte_ItemCode: TStringField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainMoQty: TFloatField;
    AdoQry_MainRationQty: TFloatField;
    AdoQry_MainOverAgeQty: TFloatField;
    AdoQry_MainSjdg: TFloatField;
    AdoQry_MainBzdg: TFloatField;
    dgbl: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Act_LookExecute(Sender: TObject);
    procedure AdoQry_MainFetchProgress(DataSet: TCustomAdODataSet;
      Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
    procedure Act_ShowGridExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Mrp_Qry_AnalyzerMo5: TFrm_Mrp_Qry_AnalyzerMo5;
  Datestate,Dateend,Ite_ItemCode:String;

implementation

uses Mrp_Qry_AnalyzerMo5_C, Mrp_Qry_AnalyzerMo5_MoPo,
  Mrp_Qry_AnalyzerMo5_MoPoLine, Mrp_Qry_AnalyzerMo5_Po_D;

{$R *.DFM}

{ TFrm_Mrp_Qry_AnalyzerMo5 }

procedure TFrm_Mrp_Qry_AnalyzerMo5.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  Frm_Sys_Condition:=TFrm_Mrp_Qry_AnalyzerMo5_C.Create(self);
  act_filter.Execute;
  try
   { try
      AdoQry_tmp.Close;
      AdoQry_tmp.SQL.clear;
      AdoQry_tmp.SQL.Text :=' select *  into #tmp7 from ##tmp7 ';
      AdoQry_tmp.ExecSQL ;
    finally
      try
        AdoQry_tmp.Close;
        AdoQry_tmp.SQL.clear;
        AdoQry_tmp.SQL.Text :=' drop table ##tmp7 ';
        AdoQry_tmp.ExecSQL ;
      except
      end;
    end;}
    SelectFromSQL:='select *  from #tmp7';
    getdata;
  except
  end;
  Frm_Sys_Condition.Release;
  Frm_Sys_Condition:=nil;
end;

procedure TFrm_Mrp_Qry_AnalyzerMo5.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Frm_Mrp_Qry_AnalyzerMo5_C:=nil;
end;

procedure TFrm_Mrp_Qry_AnalyzerMo5.Act_LookExecute(Sender: TObject);
begin
  inherited;
  If AdoQry_Main.RecordCount>0 then
  begin
    Application.CreateForm(TFrm_Mrp_Qry_AnalyzerMo5_MoPo,Frm_Mrp_Qry_AnalyzerMo5_MoPo);
    Frm_Mrp_Qry_AnalyzerMo5_MoPo.SetUserParam('','','','','','');
    Frm_Mrp_Qry_AnalyzerMo5_MoPo.SetSysParam('0000','1','1','2001.01.01');
    Ite_ItemCode:=AdoQry_Main.fieldbyname('Ite_ItemCode').AsString;
    Frm_Mrp_Qry_AnalyzerMo5_MoPo.InitForm(Dbconnect,True);
  end;
end;

procedure TFrm_Mrp_Qry_AnalyzerMo5.AdoQry_MainFetchProgress(
  DataSet: TCustomAdODataSet; Progress, MaxProgress: Integer;
  var EventStatus: TEventStatus);
begin
  inherited;
   Frm_Mrp_Qry_AnalyzerMo5_C.ProgressBar1.Position:=progress;
end;

procedure TFrm_Mrp_Qry_AnalyzerMo5.Act_ShowGridExecute(Sender: TObject);
begin
  inherited;
  if AdoQry_Main.RecordCount > 0 then
  begin
    Frm_Mrp_Qry_AnalyzerMo5_MoPoLine:=TFrm_Mrp_Qry_AnalyzerMo5_MoPoLine.Create(self);
    Frm_Mrp_Qry_AnalyzerMo5_MoPoLine.InitForm(dbconnect,False);
    Frm_Mrp_Qry_AnalyzerMo5_MoPoLine.ShowDate(AdoQry_Main.fieldbyname('ItemCode').asstring,AdoQry_Main.fieldbyname('ite_ItemCode').asstring);
    Frm_Mrp_Qry_AnalyzerMo5_MoPoLine.Show;
  end;
end;

procedure TFrm_Mrp_Qry_AnalyzerMo5.FormCreate(Sender: TObject);
begin
  inherited;
  TlBtn_Sum.Action :=Act_ShowGrid;
  TlBtn_Sum.Enabled := True;
  TlBtn_Sum.Visible := True;
end;

end.