mrp_qry_analyzercapacity_new.pas

一个MRPII系统源代码版本

unit Mrp_Qry_AnalyzerCapacity_New;

Interface

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

Type
  TFrm_Mrp_Qry_AnalyzerCapacity_New = Class(TFrm_Base_Entry_Head)
    procedure Act_LookExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
       procedure setconditionHint(lbl:Tlabel;cAp:string);
       procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_AnalyzerCapacity_New: TFrm_Mrp_Qry_AnalyzerCapacity_New;
  wcCodecondition,MpsTypeCondition,DateTypeCondition,stArtdate
   ,aCapacityhours,datefm,dateto:string;
implementation

uses Mrp_Qry_AnalyzerCapacity_H_New,Sys_Global,
  Mrp_Qry_GridAnalyzerCapacity_D_New;

{$R *.DFM}

{ TFrm_Mrp_Qry_AnalyzerCapacity }

procedure TFrm_Mrp_Qry_AnalyzerCapacity_New.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
var sqltext:string;
begin
  inherited;
  wcCodecondition:=Frm_Mrp_Qry_AnalyzerCapacity_H_New.AdoQry_Head.fieldbyname('ItemCode').asstring;
  MpsTypecondition:=Frm_Mrp_Qry_AnalyzerCapacity_H_New.AdoQry_Head.fieldbyname('MpsType').asstring;
  dateTypecondition:=Frm_Mrp_Qry_AnalyzerCapacity_H_New.AdoQry_Head.fieldbyname('dateType').asstring;
  stArtdate:=copy(Frm_Mrp_Qry_AnalyzerCapacity_H_New.AdoQry_Head.fieldbyname('modate').asstring,1,10);
  aCapacityhours:=Frm_Mrp_Qry_AnalyzerCapacity_H_New.AdoQry_Head.fieldbyname('Capacityhours').asstring;
  if aCapacityhours='' then aCapacityhours:='0';
  sqltext:='exec sp_Capacityweek_grid_New '''+MpsTypecondition+''' '+
           ','''+stArtdate+''','''+dateTypecondition+''','''+wcCodecondition+''' '+
           ','''+aCapacityhours+''' ';
  with AdoQry_Head do
  begin
    Close;
    sql.clear;
    sql.Add(sqltext);
    open;
    if AdoQry_Head.IsEmpty then
    begin
      DispInfo('无当前工作中心能力需求相关数据！',3);
      self.Close;
    end;
  end;
end;

procedure TFrm_Mrp_Qry_AnalyzerCapacity_New.Act_LookExecute(Sender: TObject);
begin
  inherited;
    datefm:=copy(AdoQry_Head.fieldbyname('modatefm').asstring,1,10);
    dateto:=copy(AdoQry_Head.fieldbyname('modateto').asstring,1,10);
{  if dateTypecondition='日' then
  begin
    datefm:=copy(datetostr(now()),1,4)+'.'+copy(AdoQry_Head.fieldbyname('amodate').asstring,1,5);
    dateto:=copy(datetostr(now()),1,4)+'.'+copy(AdoQry_Head.fieldbyname('amodate').asstring,1,5);
  end else
  begin
    datefm:=copy(datetostr(now()),1,4)+'.'+copy(AdoQry_Head.fieldbyname('amodate').asstring,1,5);
    dateto:=copy(datetostr(now()),1,4)+'.'+copy(AdoQry_Head.fieldbyname('amodate').asstring,7,5);
  end;}
  Frm_Mrp_Qry_GridAnalyzerCapacity_D_New:=TFrm_Mrp_Qry_GridAnalyzerCapacity_D_New.Create(Self);
  Frm_Mrp_Qry_GridAnalyzerCapacity_D_New.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_GridAnalyzerCapacity_D_New.InitForm(AdoQry_Head.Connection,True);
end;

procedure TFrm_Mrp_Qry_AnalyzerCapacity_New.setconditionHint(lbl: Tlabel;
  cAp: string);
begin
  lbl.Caption:=cAp;
end;

procedure TFrm_Mrp_Qry_AnalyzerCapacity_New.FormDestroy(Sender: TObject);
begin
  inherited;
 Frm_Mrp_Qry_AnalyzerCapacity_New:=nil;
end;

end.