mrp_enter_msitemassign.pas

一个MRPII系统源代码版本

unit Mrp_Enter_MSItemAssign;

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_MsItemAssign = Class(TFrm_Base_Outer)
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainAssignRate: TFloatField;
    AdoQry_MainAssignQty: TFloatField;
    AdoQry_MainPmCode: TIntegerField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainItemflag: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainHalfAssignRate: TFloatField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
     function SetDeleteSql:String;Override;
  end;

var
  Frm_Mrp_Enter_MsItemAssign: TFrm_Mrp_Enter_MsItemAssign;

implementation
uses Mrp_Enter_MsItemAssign_D;
{$R *.DFM}

{ TFrm_Mrp_Enter_MsItemAssign }

procedure TFrm_Mrp_Enter_MsItemAssign.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
Inherited;
selectfromsql:='select msItemAssign.*,  '
               +'        Item.ItemName,  '
               +'        Itemflag=msItemAssign.ItemCode+'' ''+Item.ItemName,'
               +'        Uom.UomName  '
               +' from msItemAssign '
               +'join Item on msItemAssign.ItemCode=Item.ItemCode '
              +' join Uom on Item.UomCode=Uom.UomCode';
AdoQry_Main.Connection:=AdOConnection;
getdata;
Frm_Sys_Detail:=TFrm_Mrp_Enter_MsItemAssign_D.Create(Application);
end;

procedure TFrm_Mrp_Enter_MsItemAssign.FormDestroy(Sender: TObject);
begin
  inherited;
   Frm_Mrp_Enter_MsItemAssign:=nil;
end;

function TFrm_Mrp_Enter_MsItemAssign.SetDeleteSql: String;
begin
  Result:='delete from msItemAssign where ItemCode='
         +''''+AdoQry_Main.fieldbyname('ItemCode').asstring+'''';
end;

end.