mrp_qry_mps.pas

一个MRPII系统源代码版本

unit Mrp_Qry_Mps;

Interface

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

Type
  TFrm_Mrp_Qry_Mps = Class(TFrm_Base_Qry)   
    AdoQry_MainMpsMonth: TStringField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainMpsDATE: TDateTimeField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainMpsQTY: TFloatField;
    AdoQry_MainItemflag: TStringField;
    dbtxtMonth: TDBText;
    dbtxtItemflag: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    AdoQry_MainMpsremArk: TStringField;
    AdoQry_MainMpsStatus: TIntegerField;
    AdoQry_MainMpsBatchNo: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Mrp_Qry_Mps: TFrm_Mrp_Qry_Mps;

implementation
{$R *.DFM}

procedure TFrm_Mrp_Qry_Mps.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  SelectFromSql:='select Mps.MpsMonth,Mps.ItemCode,Mps.MpsDATE,Mps.MpsQTY,'+
                   ' MpsStatus,'+
                   ' MpsBatchNO, '+
                   ' Item.ItemName,Uom.UomName,Mps.MpsremArk,'+
                   ' Itemflag=Mps.ItemCode+'' ''+Item.ItemName'+
                   ' from Mps  join Item  on Mps.ItemCode=Item.ItemCode'+
                   ' join Uom  on Item.UomCode=Uom.UomCode';
  OrderByFields:='MpsMonth';
  GetData;
end;

procedure TFrm_Mrp_Qry_Mps.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_Mps:=nil;
end;

end.