pm_enter_vendoritemassign.pas

一个MRPII系统源代码版本

unit Pm_Enter_VendorItemAssign;

Interface

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

Type
  TFrm_Pm_Enter_VendorItemAssign = Class(TFrm_Base_Detail)
    AdoQry_Vendor: TAdoQuery;
    DataSource1: TDataSource;
    DBGridEh1: TDBGridEh;
    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_Pm_Enter_VendorItemAssign: TFrm_Pm_Enter_VendorItemAssign;

implementation

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

procedure TFrm_Pm_Enter_VendorItemAssign.Showdbgrid;
begin
  if ItemCode<>'' then
  with AdoQry_Vendor do
  begin
    Close;
    sql.clear;
    sql.Add('select s.VendorCode,'+
                  ' v.VendorName,'+
                  ' s.Assignrate'+
            ' from VendorItemAssign s '+
            ' left join Vendor v on s.VendorCode=v.VendorCode '+
            '  where s.ItemCode='''+ItemCode+'''');
    open;
  end;
end;


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

end;

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

end;

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

end;

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

end;

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

end;

end.