mrp_enter_informalmps.pas

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

unit Mrp_Enter_InformalMps;

Interface

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

Type
  TFrm_Mrp_Enter_InformalMps = Class(TFrm_Base_Outer)
    lbl_Count: TLabel;
    lbl_ItemCode: TLabel;
    lbl_qty: TLabel;
    AdoQry_MainMpsId: TBCDField;
    AdoQry_MainMpsMonth: TStringField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainMpsDATE: TDateTimeField;
    AdoQry_MainMpsQTY: TIntegerField;
    AdoQry_MainMouldCode: TStringField;
    AdoQry_MainMpsType: TIntegerField;
    AdoQry_MainMpsStatus: TIntegerField;
    AdoQry_MainMpsEquip2: TStringField;
    AdoQry_MainMpsRemArk: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
   procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
   function  SetDeleteSql:String;Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_InformalMps: TFrm_Mrp_Enter_InformalMps;

implementation

uses  Mrp_Enter_InformalMps_D;

{$R *.DFM}

procedure TFrm_Mrp_Enter_InformalMps.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  SelectFromSql:='select Mps.*,Item.ItemName,Uom.UomName '
               +' from Mps  join Item  on Mps.ItemCode=Item.ItemCode '
               +' and Mps.MpsType=1 '
               +' Left Outer Join Uom On Item.UomCode=Uom.UomCode ';
  OrderByFields:='MpsMonth';
  GetData;
  Frm_Sys_Detail:=TFrm_Mrp_Enter_InformalMps_D.Create(Application);
end;

function  TFrm_Mrp_Enter_InformalMps.SetDeleteSql:String;
begin
  Result:='Delete Mps '
         +' where MpsId='+''''+inttostr(AdoQry_Main.fieldbyname('Mpsid').asinteger)+'''';
end;

procedure TFrm_Mrp_Enter_InformalMps.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Enter_InformalMps:=nil;
end;

procedure TFrm_Mrp_Enter_InformalMps.DataSourceDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  Lbl_Count.Caption:='总计:'+IntToStr(AdoQry_Main.RecordCount)+'条记录';
  Lbl_ItemCode.Caption:='物料代码:'+AdoQry_Main.fieldbyname('ItemCode').asstring;
  Lbl_Qty.Caption:='生产订货量:'+IntToStr(AdoQry_Main.fieldbyname('MpsQty').asinteger);
end;

end.