pm_pc_entry_c.pas

一个MRPII系统源代码版本

unit Pm_Pc_Entry_C;


Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, Db, AdODB, StdCtrls, ExtEdit, linkedit;

Type
  TFrm_Pm_Pc_Entry_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Lbl_VendorName: TLabel;
    ExtEdt_VendorCode: TLinkEdit;
    Edt_VendorName: TEdit;
    Label2: TLabel;
    ExtEdt_ItemCode: TLinkEdit;
    Edt_ItemName: TEdit;
    procedure btn_okClick(Sender: TObject);
    procedure ExtEdt_VendorCodeExit(Sender: TObject);
    procedure ExtEdt_VendorCodeChange(Sender: TObject);
    procedure ExtEdt_ItemCodeExit(Sender: TObject);
    procedure ExtEdt_ItemCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ExtEdt_ItemCodeButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Pm_Pc_Entry_C: TFrm_Pm_Pc_Entry_C;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Pm_Pc_Entry_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='';
  ConditionHint:='';
  Condition:='( (Pc.VendorCode='''+ExtEdt_VendorCode.Text+''')'
            +'   or ('+QuotedStr(ExtEdt_VendorCode.Text)+'='''' )'
            +')'
            +' and ( exists (select * from PcLine '
            +'              where Pc.PcNo=PcLine.PcNo '
            +'                and PcLine.ItemCode='+QuotedStr(Extedt_ItemCode.Text)+')'
            +'    or ('+QuotedStr(ExtEdt_ItemCode.Text)+'='''' '+'))';
  ConditionHint:='供应商：'+Lbl_VendorName.Caption;
  ModalResult:=mrOk;
end;

procedure TFrm_Pm_Pc_Entry_C.ExtEdt_VendorCodeExit(Sender: TObject);
begin
  inherited;
  FindVendorCode(Sender);
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text := 'Select VendorName,VendorCode From Vendor Where VendorCode='''+ExtEdt_VendorCode.Text +''' And  VendorUsable=1  ';
  AdoQry_Tmp.Open;
  Lbl_VendorName.Caption :=AdoQry_Tmp.fieldbyname('VendorName').AsString;
  Edt_VendorName.Text :=AdoQry_Tmp.fieldbyname('VendorName').AsString;
end;

procedure TFrm_Pm_Pc_Entry_C.ExtEdt_VendorCodeChange(Sender: TObject);
begin
  inherited;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text := 'Select VendorName,VendorCode From Vendor Where VendorCode='''+ExtEdt_VendorCode.Text +''' And VendorUsable=1  ';
  AdoQry_Tmp.Open;
  Lbl_VendorName.Caption :=AdoQry_Tmp.fieldbyname('VendorName').AsString;
  Edt_VendorName.Text :=AdoQry_Tmp.fieldbyname('VendorName').AsString;
end;

procedure TFrm_Pm_Pc_Entry_C.ExtEdt_ItemCodeExit(Sender: TObject);
var SqlText : STring;
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  If Trim(ExtEdt_ItemCode.Text)='' then exit;
  SqlText:=' Select * from Item '
           +' where ItemUsable=1 And ItemCode='''+Trim(ExtEdt_ItemCode.Text)+''''
           +'   and PmCode in (1,2,3) ';
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text :=SqlText;
  AdoQry_Tmp.Open;
  if  AdoQry_Tmp.Eof then
  begin
    DispInfo('该物料无效，不能输入！',3);
    TwinControl(sender).setfocus;
    Abort;
  end
  else
    Edt_ItemName.Text :=  AdoQry_Tmp.fieldbyname('ItemName').AsString;

  CommonCodeCheck(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
    '物料代码','Item','PmCode In (1,2,3)');

end;

procedure TFrm_Pm_Pc_Entry_C.ExtEdt_ItemCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
  begin
    CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
      '物料代码','Item','PmCode In (1,2,3) and ItemUsable=1 ');
  end;
end;

procedure TFrm_Pm_Pc_Entry_C.ExtEdt_ItemCodeButtonClick(Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
    '物料代码','Item','PmCode In (1,2,3) and ItemUsable=1 ');

end;

end.