mrp_qry_informaluprightmrp_d_mo.pas

一个MRPII系统源代码版本

unit Mrp_Qry_InformalUpRightMrp_D_Mo;

Interface

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

Type
  TFrm_Mrp_Qry_InformalUpRightMrp_D_Mo = Class(TFrm_Base_Qry)
    Edt_DeptCode: TEdit;
    MEdt_MoDate: TMaskEdit;
    Label2: TLabel;
    Edt_MoNo: TEdit;
    Label1: TLabel;
    Label6: TLabel;
    Edt_SaleType: TEdit;
    Label11: TLabel;
    Edt_MoRemArk: TEdit;
    Label4: TLabel;
    AdoQry_MainDeptCode: TStringField;
    AdoQry_Mainmono: TStringField;
    AdoQry_Mainmodate: TDateTimeField;
    AdoQry_MainSaleType: TStringField;
    AdoQry_MainmoremArk: TStringField;
    AdoQry_MainMONO_1: TStringField;
    AdoQry_MainMoLineNO: TIntegerField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainMOQTY: TFloatField;
    AdoQry_MainMoLineDATE: TDateTimeField;
    AdoQry_MainMoNoFinishQTY: TFloatField;
    AdoQry_MainMoLineSTATUS: TIntegerField;
    AdoQry_MainMOStArtWorkDate: TDateTimeField;
    AdoQry_MainMoRealInQty: TFloatField;
    AdoQry_MainMoInQty: TFloatField;
    AdoQry_MainMoLineCheck: TIntegerField;
    AdoQry_MainSSQty: TFloatField;
    AdoQry_MainCloseRemArk: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainItemflag: TStringField;
    procedure AdoQry_MainAfterScroll(DataSet: TDataSet);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    Orderno:string;
    Orderlineno:string;
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_InformalUpRightMrp_D_Mo: TFrm_Mrp_Qry_InformalUpRightMrp_D_Mo;

implementation
uses Mrp_Qry_InformalUpRightMrp_D;
{$R *.DFM}

{ TFrm_Mrp_Qry_InformalUpRightMrp_D_Mo }

procedure TFrm_Mrp_Qry_InformalUpRightMrp_D_Mo.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
var sqltext:string;
begin
  inherited;
  sqltext:='Select mo.DeptCode,mo.mono,mo.modate,mo.SaleType,   '
           +'        mo.moremArk,                     '
           +'        MoLine.*,Item.ItemName,Uom.UomName, '
           +'        Itemflag=MoLine.ItemCode+'' ''+Item.ItemName '
           +' From MoLine                  '
           +'   join mo on mo.mono=MoLine.mono   '
            +'  Left Outer Join Item On MoLine.ItemCode=Item.ItemCode '
            +'  Left Outer Join Uom On Item.UomCode=Uom.UomCode'
            +' where MoLine.mono='''+Orderno+''''
            +' and   MoLine.MoLineno='+Orderlineno;
   with AdoQry_Main do
    begin
      Close;
      sql.clear;
      sql.Add(sqltext);
      Prepared;
      try
      open;
      except
      end;
    end;

end;


procedure TFrm_Mrp_Qry_InformalUpRightMrp_D_Mo.AdoQry_MainAfterScroll(
  DataSet: TDataSet);
begin
  inherited;
  with AdoQry_Main do
   begin
     edt_Mono.Text:=fieldbyname('mono').asstring;
     medt_Modate.Text:=fieldbyname('modate').asstring;
     edt_DeptCode.Text:=fieldbyname('DeptCode').asstring;
     edt_MoremArk.Text:=fieldbyname('moremArk').asstring;
     edt_SaleType.Text:=fieldbyname('SaleType').asstring;
   end;

end;

procedure TFrm_Mrp_Qry_InformalUpRightMrp_D_Mo.FormDestroy(
  Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_InformalUpRightMrp_D_Mo:=nil;
end;

end.