mrp_enter_newnormalmps.pas

一个MRPII系统源代码版本

unit Mrp_Enter_NewNormalMps;
 
Interface

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

Type
  TFrm_Mrp_Enter_NewNormalMps = Class(TFrm_Base_Outer)
    AdoQry_MainMpsId: TBCDField;
    AdoQry_MainMpsMonth: TStringField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainMpsDATE: TDateTimeField;
    AdoQry_MainMpsStatus: TIntegerField;
    AdoQry_MainMpsRemArk: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainMpsQTY: TFloatField;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBText2: TDBText;
    DBText3: TDBText;
    Lbl_ItemFlag: TLabel;
    AdoQry_MainMpsBatchNo: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
    procedure Act_DeleteExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_NewNormalMps: TFrm_Mrp_Enter_NewNormalMps;

implementation

uses  Mrp_Enter_NewNormalMps_D, Sys_Global;

{$R *.DFM}


procedure TFrm_Mrp_Enter_NewNormalMps.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  Application.ProcessMessages;
  inherited;
  Frm_Mrp_Enter_NewNormalMps.Caption:='主生产计划准备';
  SelectFromSql := 'select Mps.*,Item.ItemName,Uom.UomName '
                +' from Mps '
                +' join Item on Mps.ItemCode=Item.ItemCode '
                +' left join Uom on Item.UomCode=Uom.UomCode ';
  OrderByFields:='MpsMonth,ItemCode,MpsDate';
  ConditionUserDefine:='( (MpsStatus=2) And (Item.ItemType=0))';
  GetData;
  Frm_Sys_Detail:=TFrm_Mrp_Enter_NewNormalMps_D.Create(Application);
end;

procedure TFrm_Mrp_Enter_NewNormalMps.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Enter_NewNormalMps:=nil;
end;

procedure TFrm_Mrp_Enter_NewNormalMps.DataSourceDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  Lbl_ItemFlag.Caption:=AdoQry_Main.fieldbyname('ItemCode').AsString+' '+AdoQry_Main.fieldbyname('ItemName').AsString;
end;

procedure TFrm_Mrp_Enter_NewNormalMps.Act_DeleteExecute(Sender: TObject);
var
  SqlText:String;
  tmPmpsid:integer;
begin
  If AdoQry_Main.RecordCount=0 Then
    Exit;
  IF DispInfo('真的要删除这条记录吗?',2)='y' Then
  begin
    Dbconnect.beginTrans;
    Try
      sqltext:='select * from Mps where Mpsid='+inttostr(AdoQry_Main.fieldbyname('Mpsid').asinteger);
      Executesql(AdoQry_tmp,sqltext,0);
      if AdoQry_tmp.fieldbyname('MpsFinishqty').asfloat>0 then
       begin
        if dbconnect.InTransaction then
         dbconnect.RollBackTrans;
        DispInfo('该主生产计划订单完成量不等于0，不可删除！',3);
        abort;
       end;
      saveMpshistory(dbconnect,AdoQry_Main.fieldbyname('Mpsid').asinteger,userCode,2);
      SqlText:='Delete Mps '
              +' where MpsId='+''''+inttostr(AdoQry_Main.fieldbyname('Mpsid').asinteger)+'''';
      AdoQry_Tmp.Close;
      AdoQry_Tmp.SQL.Text:=SqlText;
      AdoQry_Tmp.ExecSQL;
      DbConnect.CommitTrans;
      AdoQry_Main.Delete;
      tmPmpsid:=AdoQry_Main.fieldbyname('Mpsid').asinteger;
      AdoQry_Main.reQuery;
      AdoQry_Main.Locate('Mpsid',tmPmpsid,[loCaseInsensitive]);
    Except
      if dbconnect.InTransaction then
      DbConnect.RollBackTrans;
      DispInfo('删除数据过程中出错，记录未删除!',1);
      Abort;
    end;
  end;
end;

procedure TFrm_Mrp_Enter_NewNormalMps.FormCreate(Sender: TObject);
begin
  inherited;
  ExtendCaption:=False;
end;


end.