pm_vendoritemassign.pas

一个MRPII系统源代码版本

unit Pm_VendorItemAssign;

Interface

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

Type
  TFrm_Pm_VendorItemAssign = Class(TFrm_Base_Outer)
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MaInvendorCode: TStringField;
    AdoQry_MaInvendorName: TStringField;
    AdoQry_MainAssignrate: TFloatField;
    procedure Act_NewExecute(Sender: TObject);
    procedure Act_ModifyExecute(Sender: TObject);
  private
    { Private declarations }
  public
    function  SetDeleteSql:String;Override;
    procedure initform(AdOConnection:TAdOConnection;ReadOnly:boolean);Override;

    { Public declarations }
  end;

var
  Frm_Pm_VendorItemAssign: TFrm_Pm_VendorItemAssign;

implementation

uses Pm_VendorItemAssign_D;
{$R *.DFM}

procedure TFrm_Pm_VendorItemAssign.initform(AdOConnection:TAdOConnection;ReadOnly:boolean);
begin//SQL初始化
  inherited;
  SelectFromSQL:='Select VendorItemAssign.ItemCode,i.ItemName,VendorItemAssign.VendorCode,v.VendorName,VendorItemAssign.Assignrate'+
                 ' from VendorItemAssign  left join Vendor v on VendorItemAssign.VendorCode=v.VendorCode '+
                 '                         left join Item i on VendorItemAssign.ItemCode=i.ItemCode ';

  //当前排序字段
  OrderByFields:='ItemCode,VendorCode';
  lbl_Order.Caption:='物料代码,供应商代码';
  GetData;
  //设置弹出窗体
  Frm_Sys_Detail:=TFrm_Pm_VendorItemAssign_D.Create(Application);
end;

function TFrm_Pm_VendorItemAssign.SetDeleteSql: String;
begin
  Result:='Delete VendorItemAssign Where VendorCode='''+AdoQry_Main.fieldbyname('VendorCode').AsString+''' and ItemCode='''+AdoQry_Main.fieldbyname('ItemCode').AsString+'''';
end;

procedure TFrm_Pm_VendorItemAssign.Act_NewExecute(Sender: TObject);
begin
  inherited;
  getdata;
end;

procedure TFrm_Pm_VendorItemAssign.Act_ModifyExecute(Sender: TObject);
var
  tmp_ItemCode:string;
begin
  tmp_ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
  inherited;
  getdata;
  AdoQry_Main.locate('ItemCode',tmp_ItemCode,[]);
end;

end.