inv_mpshint.pas

一个MRPII系统源代码版本

unit Inv_MpsHint;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, Grids, DBGridEh, Db, AdODB, StdCtrls;

Type
  TFrm_Inv_MpsHint = Class(TFrm_Base_Dialog)
    DBGridEh: TDBGridEh;
    Label1: TLabel;
    Lbl_Item: TLabel;
    AdoQry_Hint: TAdoQuery;
    DS_Hint: TDataSource;
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }                                                        
    MpsId:String;
    procedure InitForm(AdOConnection:TAdOConnection;ItemCode,ItemName,MpsId:String);virtual;
  end;

var
  Frm_Inv_MpsHint: TFrm_Inv_MpsHint;

implementation

{$R *.DFM}

{ TFrm_Inv_MpsHint }

procedure TFrm_Inv_MpsHint.InitForm(AdOConnection: TAdOConnection;
  ItemCode,ItemName,MpsId: String);
begin
  Lbl_Item.Caption:=ItemCode+' '+ItemName;
  SetDBConnect(AdOConnection);
  AdoQry_Hint.Connection:=AdOConnection;
  AdoQry_Hint.Close;
  AdoQry_Hint.SQL.Text:='Select MpsId,MpsDate,MpsQty,MpsFinishQty,MpsOutQty'
    +',MpsOutQty,MpsQty-MpsFinishQty-MpsOutQty As Qty'
    +' From Mps'
    +' Where ItemCode='''+ItemCode+''''
    +' And MpsStatus=3'
    +' Order By MpsDate';
  AdoQry_Hint.Open;
  if MpsId<>'' then
    AdoQry_Hint.Locate('MpsId',MpsId,[loPArtialKey]);
end;

procedure TFrm_Inv_MpsHint.btn_okClick(Sender: TObject);
begin
  inherited;
  MpsId:=AdoQry_Hint.fieldbyname('MpsId').AsString;
  Self.ModalResult:=mrOk;
end;

end.