bas_vendoritem_d.pas

一个MRPII系统源代码版本

unit Bas_VendorItem_D;

Interface

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

Type
  TFrm_Bas_VendorItem_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Lbl_ItemName: TLabel;
    ExtEdt_VendorCode: TExtEdit;
    Edt_VendorItemCode: TExtEdit;
    Label3: TLabel;
    Lbl_VendorName: TLabel;
    Label6: TLabel;
    ExtEdt_ItemCode: TExtEdit;
    procedure FormCreate(Sender: TObject);
    procedure ItemCodeCheck(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure InitControls; Override;
    procedure SaveData; Override;
  end;

var
  Frm_Bas_VendorItem_D: TFrm_Bas_VendorItem_D;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Bas_VendorItem_D.FormCreate(Sender: TObject);
begin
  inherited;
  SetFocus_Control:=ExtEdt_VendorCode;
end;



procedure TFrm_Bas_VendorItem_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    ExtEdt_VendorCode.Text:=fieldbyname('VendorCode').AsString;
    ExtEdt_ItemCode.Text:=fieldbyname('ItemCode').AsString;
    Lbl_VendorName.Caption:=fieldbyname('VendorName').AsString;
    Lbl_ItemName.Caption:=fieldbyname('ItemName').AsString;
    Edt_VendorItemCode.Text:=fieldbyname('VendorItemCode').AsString;
  end;
end;

procedure TFrm_Bas_VendorItem_D.SaveData;
begin
  inherited;
  if(Add)then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Insert into VendorItem(VendorCode,ItemCode,VendorItemCode) Values('
        +''''+ExtEdt_VendorCode.text+''''+','''+ExtEdt_ItemCode.Text+''','''+Edt_VendorItemCode.text+''')');
      //SQL.Add('….');
      ExecSQL;
    end;
  end
  Else
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add(' Update VendorItem set VendorCode='+''''+ExtEdt_VendorCode.text+''''+
       ',ItemCode='''+ExtEdt_ItemCode.text+''',VendorItemCode='''+Edt_VendorItemCode.text+''''+
       'where VendorCode='+''''+AdoQry_Maintain.fieldbyname('VendorCode').asstring+'''and '+
       'ItemCode='''+AdoQry_Maintain.fieldbyname('ItemCode').asstring+'''');
//      SQL.Add('….');
      ExecSQL;
    end;
  end;
 with AdoQry_Maintain do
  begin
    fieldbyname('VendorCode').AsString:= ExtEdt_VendorCode.Text;
    fieldbyname('ItemCode').AsString:= ExtEdt_ItemCode.Text;
    fieldbyname('VendorName').asstring:=Lbl_VendorName.Caption;
    fieldbyname('ItemName').asstring:=Lbl_ItemName.Caption;
    fieldbyname('VendorItemCode').AsString:=Edt_VendorItemCode.Text;
    Post;
  end;
end;

procedure TFrm_Bas_VendorItem_D.ItemCodeCheck(Sender: TObject);
begin
  inherited;
   if ActiveControl.Name='btn_Cancel' then
    exit;

  if(Add)or((not Add)and
    ((TEdit(Sender).Text<>AdoQry_Maintain.fieldbyname('ItemCode').AsString) or
     (ExtEdt_VendorCode.Text<>AdoQry_Maintain.fieldbyname('VendorCode').AsString)))then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Select Count(*) as RecCount From VendorItem Where '+
        'ItemCode='''+TEdit(Sender).Text+''' and VendorCode='''+ExtEdt_VendorCode.Text+'''');
      Open;
      if fieldbyname('RecCount').AsInteger<>0 then
      begin
        DispInfo('该供应商已经存在该物料代码!',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;
end;

end.