mrp_qry_informalmrpinfo.pas

一个MRPII系统源代码版本

unit Mrp_Qry_InformalMrpInfo;

Interface

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

Type
  TFrm_Mrp_Qry_InformalMrpInfo = Class(TFrm_Base_Qry)
    AdoQry_MainSSId: TAutoIncField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MaInOrderNo: TStringField;
    AdoQry_MaInOrderLineNo: TIntegerField;
    AdoQry_MainSSDate: TDateTimeField;
    AdoQry_MainSSQty: TFloatField;
    AdoQry_MainPmType: TIntegerField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainMoLinestatus: TStringField;
    AdoQry_MainItemflag: TStringField;
    dbtxtItemflag: TDBText;
    Label1: TLabel;
    AdoQry_MainDeptVendorCode: TStringField;
    AdoQry_MainssName: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;

  end;

var
  Frm_Mrp_Qry_InformalMrpInfo: TFrm_Mrp_Qry_InformalMrpInfo;

implementation

{$R *.DFM}

{ TFrm_Mrp_Qry_InformalMrpInfo }

procedure TFrm_Mrp_Qry_InformalMrpInfo.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:='Select Informalss.*,SysssInfo.ssName,Item.ItemName,Uom.UomName,Dept.DeptName,'+
                  ' Itemflag=Informalss.ItemCode+'' ''+Item.ItemName,'+
                  ' MoLinestatus= case Orderlinestatus when 5 then ''5 准备''  when 6 then ''6 下达''  when 7 then ''7 关闭''  when 8 then ''8 永久关闭'' end'+
     ' From Informalss left outer Join Item On Informalss.ItemCode = Item.ItemCode'+
     '                 left outer join SysssInfo on Informalss.ssSysInfoflag=SysssInfo.sSCode'+
       ' left outer join  Dept on Informalss.DeptVendorCode=Dept.DeptCode'+
       '  left outer join Uom on Item.UomCode=Uom.UomCode'+
      // ' join MoLine on Informalss.ItemCode=MoLine.ItemCode'+
       //'  join MoLine on Informalss.Orderno=MoLine.mono and Informalss.Orderlineno=MoLine.MoLineno'+
       ' where PmType=0';
  OrderByfields:='ItemCode,ssdate';
  Getdata;
end;

procedure TFrm_Mrp_Qry_InformalMrpInfo.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_InformalMrpInfo:=nil;
end;

end.