mrp_qry_informaltotalmrp_mo.pas

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

unit Mrp_Qry_InformalTotalMrp_Mo;

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_InformalTotalMrp_Mo = Class(TFrm_Base_Qry)
    AdoQry_MainModate: TDateTimeField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainDeptCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_Mainmono: TStringField;
    AdoQry_MainMoLineno: TIntegerField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainMoLinedate: TDateTimeField;
    AdoQry_MainMoqty: TFloatField;
    AdoQry_MainMoNoFinishQTY: TFloatField;
    AdoQry_MainItemflag: TStringField;
    AdoQry_MainMoLinestatus: TStringField;
    AdoQry_MainDeptflag: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    ItemCode:string;
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_InformalTotalMrp_Mo: TFrm_Mrp_Qry_InformalTotalMrp_Mo;

implementation
uses Mrp_Qry_InformalTotalMrp;
{$R *.DFM}

{ TFrm_Mrp_Qry_InformalTotalMrp_Mo }

procedure TFrm_Mrp_Qry_InformalTotalMrp_Mo.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
begin
  inherited;
  SelectFromSql:='Select Mo.Modate,Item.ItemName,Uom.UomName,mo.DeptCode,Dept.DeptName,'+
                        ' MoLine.mono,MoLine.MoLineno,MoLine.ItemCode,MoLine.MoLinedate,MoLine.Moqty,'+
                        ' MoLine.MoNoFinishQTY,'+
                        ' Deptflag=mo.DeptCode+'' ''+Dept.DeptName,'+
                        ' Itemflag=MoLine.ItemCode+'' ''+Item.ItemName,'+
                        '  MoLinestatus= case MoLinestatus when 5 then ''5 准备''  when 6 then ''6 下达'''+
                        ' when 7 then ''7 关闭'' end'+
                 ' From MoLine'+
                     ' Join Mo On MoLine.MoNo=Mo.MoNo '+
                     ' Join Item On MoLine.ItemCode=Item.ItemCode'+
                     ' left outer join Uom on Item.UomCode=Uom.UomCode'+
                     ' Left Outer Join Dept On Mo.DeptCode=Dept.DeptCode ';
  condition:='  (MoLine.MoLinesTatus=5 or MoLine.MoLineStatus=6 ) and MoLine.ItemCode='+quotedstr(ItemCode) ;
  OrderByFields:='MoNo,ItemCode';
  Getdata;

end;

procedure TFrm_Mrp_Qry_InformalTotalMrp_Mo.FormDestroy(Sender: TObject);
begin
  inherited;
   Frm_Mrp_Qry_InformalTotalMrp_Mo:=nil;
end;

end.