mrp_qry_graphanalyzercapacity_h.pas

一个MRPII系统源代码版本

unit Mrp_Qry_GraphAnalyzerCapacity_H;

Interface

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

Type
  TFrm_Mrp_Qry_GraphAnalyzerCapacity_H = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadItemCode: TStringField;
    AdoQry_HeadItemName: TStringField;
    AdoQry_HeadCapacityhours: TFloatField;
    AdoQry_HeadMpsType: TStringField;
    AdoQry_HeaddateType: TStringField;
    AdoQry_Headmodate: TDateTimeField;
    AdoQry_HeadItemflag: TStringField;
    dbtxtwcflag: TDBText;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Act_LookExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
       procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_GraphAnalyzerCapacity_H: TFrm_Mrp_Qry_GraphAnalyzerCapacity_H;
    wcCodecondition,MpsTypeCondition,DateTypeCondition,stArtdate:string;

implementation

uses Mrp_Qry_GraphAnalyzerCapacity,Sys_Global;


{$R *.DFM}

{ TFrm_Mrp_Qry_GraphAnalyzerCapacity_H }

procedure TFrm_Mrp_Qry_GraphAnalyzerCapacity_H.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
var sqltext:string;
begin
  inherited;     
   sqltext:='Select Item.ItemCode,Item.ItemName,Itemflag=Item.ItemCode+'' ''+Item.ItemName,Item.Capacityhours,''系统建议'' As MpsType,'+
      '''月'' As DateType,GetDate() As MoDaTe'+
      ' into #tmp '+
     ' From Item(nolock)'+
        ' where ItemType=1 and Capacityhours>0';


  with AdoQry_Head do
    begin
      Close;
      sql.clear;
      sql.Add(sqltext);
      try
      execsql;
      except
      end;

      selectfromsql:='select * from #tmp';

      Close;
      sql.clear;
      sql.Add('select * from #tmp ');
      Prepared;
      open;

      if recordCount=0 then
       begin
         DispInfo('无额定工时大于0的工作中心！',3);
         self.Close;
       end;
   end;
end;



procedure TFrm_Mrp_Qry_GraphAnalyzerCapacity_H.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with  AdoQry_tmp do
     begin
       Close;
       sql.clear;
       sql.Add('drop table #tmp');
       try
       execsql;
       except
       end;
     end;

  inherited;

end;

procedure TFrm_Mrp_Qry_GraphAnalyzerCapacity_H.Act_LookExecute(
  Sender: TObject);
var condition:string;
begin
  inherited;
  condition:='';
  condition:=condition+'工作中心代码:'+AdoQry_Head.fieldbyname('ItemCode').asstring;
  condition:=condition+' 工作中心描述:'+AdoQry_Head.fieldbyname('ItemName').asstring;
  
  condition:=condition+' 计划类型:'+AdoQry_Head.fieldbyname('MpsType').asstring+#13;
  condition:=condition+'阶段:'+AdoQry_Head.fieldbyname('dateType').asstring;
  condition:=condition+' 开始日期:'+AdoQry_Head.fieldbyname('modate').asstring;
 if  Frm_Mrp_Qry_GraphAnalyzerCapacity=nil then
  begin
  Frm_Mrp_Qry_GraphAnalyzerCapacity:=TFrm_Mrp_Qry_GraphAnalyzerCapacity.Create(Self);
  Frm_Mrp_Qry_GraphAnalyzerCapacity.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_GraphAnalyzerCapacity.InitForm(AdoQry_Head.Connection,True);
  Frm_Mrp_Qry_GraphAnalyzerCapacity.setconditionHint(Frm_Mrp_Qry_GraphAnalyzerCapacity.lbl_Condition,condition)
  end
  else Frm_Mrp_Qry_GraphAnalyzerCapacity.Show;
end;


procedure TFrm_Mrp_Qry_GraphAnalyzerCapacity_H.FormDestroy(
  Sender: TObject);
begin
  inherited;
Frm_Mrp_Qry_GraphAnalyzerCapacity_H:=nil;
end;

end.