inv_currentinvqry_c.pas

一个MRPII系统源代码版本

unit Inv_CurrentInvQry_C;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Inv_Base_WhSelect, Db, AdODB, StdCtrls, CheckLst, ExtEdit;

Type
  TFrm_Inv_CurrentInvQry_C = Class(TFrm_Inv_Base_WhSelect)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Lbl_ItemName: TLabel;
    ExtEdt_ItemCode: TExtEdit;
    CmBx_OnHandInv: TComboBox;
    CmBx_OnCheckInv: TComboBox;
    CmBx_TotalInv: TComboBox;
    Edt_OnHandInv: TEdit;
    Edt_OnCheckInv: TEdit;
    Edt_TotalInv: TEdit;
    procedure btn_okClick(Sender: TObject);
    procedure CmBx_OnHandInvChange(Sender: TObject);
    procedure CmBx_OnCheckInvChange(Sender: TObject);
    procedure CmBx_TotalInvChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Inv_CurrentInvQry_C: TFrm_Inv_CurrentInvQry_C;

implementation

{$R *.DFM}

procedure TFrm_Inv_CurrentInvQry_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='(CurrentInv.WHCode In '+Condition+')';
  if ExtEdt_ItemCode.Text<>'' then
  begin
    Condition:=Condition+'And(CurrentInv.ItemCode Like ''%'+ExtEdt_ItemCode.Text+'%'')';
  end;
  if (CmBx_OnHandInv.Text<>'')and(Edt_OnHandInv.Text<>'') then
  begin
    Condition:=Condition+'And(CurrentInv.OnHandInv '+CmBx_OnHandInv.Text+' '+Edt_OnHandInv.Text+')';
  end;
  if (CmBx_OnCheckInv.Text<>'')and(Edt_OnCheckInv.Text<>'') then
  begin
    Condition:=Condition+'And(CurrentInv.OnCheckInv '+CmBx_OnCheckInv.Text+' '+Edt_OnCheckInv.Text+')';
  end;
  if (CmBx_TotalInv.Text<>'')and(Edt_TotalInv.Text<>'') then
  begin
    Condition:=Condition+'And(CurrentInv.OnHandInv+CurrentInv.OnCheckInv '+CmBx_TotalInv.Text+' '+Edt_TotalInv.Text+')';
  end;
  ModalResult:=mrOk;
end;

procedure TFrm_Inv_CurrentInvQry_C.CmBx_OnHandInvChange(Sender: TObject);
begin
  inherited;
  Edt_OnHandInv.Text:='0';
end;

procedure TFrm_Inv_CurrentInvQry_C.CmBx_OnCheckInvChange(Sender: TObject);
begin
  inherited;
  Edt_OnCheckInv.Text:='0';
end;

procedure TFrm_Inv_CurrentInvQry_C.CmBx_TotalInvChange(Sender: TObject);
begin
  inherited;
  Edt_TotalInv.Text:='0';
end;

end.