mrp_enter_assignalternative_mo.pas

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

unit Mrp_Enter_AssignAlterNative_Mo;

Interface

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

Type
  TFrm_Mrp_Enter_AssignAlterNative_Mo = Class(TFrm_Base_Detail)
    AdoQry_Mo: TAdoQuery;
    DataSource1: TDataSource;
    DBGridEh1: TDBGridEh;
    AdoQry_MoDeptCode: TStringField;
    AdoQry_Momodate: TDateTimeField;
    AdoQry_MoMONO: TStringField;
    AdoQry_MoMoLineNO: TIntegerField;
    AdoQry_MoItemCode: TStringField;
    AdoQry_MoMoLineDATE: TDateTimeField;
    AdoQry_MoMoLineSTATUS: TIntegerField;
    AdoQry_MoMOStArtWorkDate: TDateTimeField;
    AdoQry_MoCloseRemArk: TStringField;
    AdoQry_MoMoLinecheck: TIntegerField;
    AdoQry_MoBilllineremArk: TStringField;
    AdoQry_MoByProduct: TIntegerField;
    AdoQry_MoParentMoLineNo: TIntegerField;
    AdoQry_MoBackFlush: TIntegerField;
    AdoQry_MoMOQty: TBCDField;
    AdoQry_MoMoNoFinishQty: TBCDField;
    AdoQry_MoMoRealInQty: TBCDField;
    AdoQry_MoMoInQty: TBCDField;
    AdoQry_MoSSQty: TBCDField;
    AdoQry_Moconfirmtime: TDateTimeField;
    AdoQry_MomArk: TIntegerField;
    AdoQry_MoPassEmployeeCode: TStringField;
    AdoQry_MoRemArk: TStringField;
    AdoQry_MoItemName: TStringField;
    AdoQry_MoUomName: TStringField;
    AdoQry_MoDeptName: TStringField;
    procedure btn_CancelClick(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    LockFlag:Integer;
    ispost:boolean;
    oldValue:string;
    { Private declarations }
  public
    ItemCode:string;
    procedure showdbgrid;
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_AssignAlterNative_Mo: TFrm_Mrp_Enter_AssignAlterNative_Mo;

implementation

uses Sys_Global, Sys_QuickPick;
{$R *.DFM}

procedure TFrm_Mrp_Enter_AssignAlterNative_Mo.Showdbgrid;
begin
  if ItemCode<>'' then
  with AdoQry_Mo do
  begin
    Close;
    sql.clear;
    sql.Add(' select mo.DeptCode,Dept.DeptName,mo.modate,MoLine.*,Item.ItemName,Uom.UomName '
            +' from  MoLine  '
            +' join  mo on MoLine.mono=mo.mono '
            +' left join  Dept on mo.DeptCode=Dept.DeptCode '
            +' join  Item on MoLine.ItemCode=Item.ItemCode '
            +' left join Uom on Item.UomCode=Uom.UomCode '
            +' where MoLine.ItemCode in (select ite_ItemCode from Bom '
            +'                     where ItemCode='+quotedstr(ItemCode)+' )'
            +'   and MoLinestatus in (5,6) '
            );
    open;
  end;
end;

procedure TFrm_Mrp_Enter_AssignAlterNative_Mo.btn_CancelClick(Sender: TObject);
begin
//  inherited;

end;

procedure TFrm_Mrp_Enter_AssignAlterNative_Mo.btn_okClick(Sender: TObject);
begin
//  inherited;

end;

procedure TFrm_Mrp_Enter_AssignAlterNative_Mo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//  inherited;

end;

procedure TFrm_Mrp_Enter_AssignAlterNative_Mo.FormCreate(Sender: TObject);
begin
//  inherited;

end;

procedure TFrm_Mrp_Enter_AssignAlterNative_Mo.FormActivate(Sender: TObject);
begin
//  inherited;

end;

end.