inv_qry_opadjustbilllist_c.pas

一个MRPII系统源代码版本

unit Inv_Qry_OpAdjustBillList_C;

Interface

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

Type
  TFrm_Inv_Qry_OpAdjustBillList_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    LinkEdit1: TLinkEdit;
    LinkEdit2: TLinkEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label5: TLabel;
    procedure LinkEdit1Exit(Sender: TObject);
    procedure LinkEdit2Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Inv_Qry_OpAdjustBillList_C: TFrm_Inv_Qry_OpAdjustBillList_C;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Inv_Qry_OpAdjustBillList_C.LinkEdit1Exit(Sender: TObject);
begin
  inherited;
  if LinkEdit1.Text<>'' then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      sql.text:='select VendorName from Vendor where VendorCode='+
                QuotedStr(LinkEdit1.Text);
      open;
      if not eof then
        edit1.text:=fieldbyname('VendorName').AsString
      else
        DispInfo('供应商不存在！',1);
    end;
  end
  else
    Edit1.Text:='';
end;

procedure TFrm_Inv_Qry_OpAdjustBillList_C.LinkEdit2Exit(Sender: TObject);
begin
  inherited;
  if LinkEdit2.Text<>'' then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      sql.text:='select ItemName from Item where ItemCode='+
                QuotedStr(LinkEdit2.Text);
      open;
      if not eof then
        edit2.text:=fieldbyname('ItemName').AsString
      else
        DispInfo('物料不存在！',1);
    end;
  end
  else
     edit2.Text:='';
end;



procedure TFrm_Inv_Qry_OpAdjustBillList_C.FormShow(Sender: TObject);
begin
  inherited;
  MaskEdit1.Text:=FormatDateTime('yyyy.mm',now);
  MaskEdit2.Text:=FormatDateTime('yyyy.mm',now);
end;

procedure TFrm_Inv_Qry_OpAdjustBillList_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='';
  ConditionHint:='';
  if(LinkEdit1.Text<>'')then
  begin
    Condition:=Condition+' and o.VendorCode like '''+LinkEdit1.Text+'%''';
    ConditionHint:=ConditionHint+' 供应商代码： '+LinkEdit1.Text;
  end;

  if(LinkEdit2.Text<>'')then
  begin
    Condition:=Condition+' And ol.ItemCode like '''+LinkEdit2.Text+'%''';
    ConditionHint:=ConditionHint+' 物料代码： '+LinkEdit2.Text;
  end;

  if(MaskEdit1.Text<>'') and (MaskEdit2.Text<>'')then
  begin
    Condition:=Condition+' And o.opBillMonth>='+QuotedStr(MaskEdit1.Text)+
                         ' and o.opBillMonth<='+QuotedStr(MaskEdit2.Text);
  end;
  if Condition<>'' then
     delete(Condition,1,4);
  ModalResult:=mrOk;

end;

end.