mrp_qry_graphanalyzercapacity_h_new.pas

一个MRPII系统源代码版本

unit Mrp_Qry_GraphAnalyzerCapacity_H_New;

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_New = 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 Act_LookExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
       procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_GraphAnalyzerCapacity_H_New: TFrm_Mrp_Qry_GraphAnalyzerCapacity_H_New;
    wcCodecondition,MpsTypeCondition,DateTypeCondition,stArtdate:string;

implementation

uses Mrp_Qry_GraphAnalyzerCapacity_New,Sys_Global;


{$R *.DFM}

{ TFrm_Mrp_Qry_GraphAnalyzerCapacity_H }

procedure TFrm_Mrp_Qry_GraphAnalyzerCapacity_H_New.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'+
     ' From Item'+
        ' where ItemType=1 and ItemUsable=1 and Capacityhours>0';
  with AdoQry_Head do
  begin
    Close;
    sql.clear;
    sql.Add(sqltext);
    open;
    if recordCount=0 then
    begin
      DispInfo('无额定工时大于0的工作中心！',3);
      self.Close;
    end;
  end;}
   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 and ItemUsable=1';


 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_New.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;
  Frm_Mrp_Qry_GraphAnalyzerCapacity_New:=TFrm_Mrp_Qry_GraphAnalyzerCapacity_New.Create(Self);
  Frm_Mrp_Qry_GraphAnalyzerCapacity_New.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_GraphAnalyzerCapacity_New.InitForm(AdoQry_Head.Connection,True);
  Frm_Mrp_Qry_GraphAnalyzerCapacity_New.setconditionHint(Frm_Mrp_Qry_GraphAnalyzerCapacity_New.lbl_Condition,condition)
end;


procedure TFrm_Mrp_Qry_GraphAnalyzerCapacity_H_New.FormDestroy(
  Sender: TObject);
begin
  inherited;
Frm_Mrp_Qry_GraphAnalyzerCapacity_H_New:=nil;
end;

procedure TFrm_Mrp_Qry_GraphAnalyzerCapacity_H_New.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;

end.