frmwmsqueryinfo.pas

物流供应链管理系统

unit frmWMSQueryInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrls, Grids, DBGrids;

type
  TFormWMSQueryInfo = class(TForm)
    CBCond: TComboBox;
    Label1: TLabel;
    EdtBarCode: TEdit;
    BtnSearch: TButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    ADOCon: TADOConnection;
    ADOQGoodsMaster: TADOQuery;
    DS: TDataSource;
    DBGrid1: TDBGrid;
    ADOQGoodsMasterBarCode: TWideStringField;
    ADOQGoodsMasterName: TWideStringField;
    ADOQGoodsMasterAmount: TLargeintField;
    ADOQGoodsMasterSafetyStock: TLargeintField;
    ADOQGoodsMasterMaxOrder: TLargeintField;
    ADOQGoodsMasterMinOrder: TLargeintField;
    ADOQGoodsMasterEOQ: TLargeintField;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure CBCondChange(Sender: TObject);
    procedure BtnSearchClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormWMSQueryInfo: TFormWMSQueryInfo;

implementation
uses CommonFunc, qrGoodsMaster, frmCreateRequestOrder;
{$R *.dfm}

procedure TFormWMSQueryInfo.CBCondChange(Sender: TObject);
begin
  if CBCond.ItemIndex = 1 then
  begin
    EdtBarCode.Enabled := true;
  end
  else if CBCond.ItemIndex = 0 then
  begin
    EdtBarCode.Enabled := false;
  end;
end;

procedure TFormWMSQueryInfo.BtnSearchClick(Sender: TObject);
begin
  if CBCond.ItemIndex = 1 then
  begin
    if not CheckInput(EdtBarCode) then Exit;
    ADOQGoodsMaster.Close;
    ADOQGoodsMaster.SQL.Clear;
    ADOQGoodsMaster.SQL.Add('select BarCode,Name,Amount,SafetyStock,MaxOrder,MinOrder,EOQ');
    ADOQGoodsMaster.SQL.Add('from t_GoodsMaster where BarCode=:BarCode');
    ADOQGoodsMaster.Parameters.ParamByName('BarCode').Value :=
      Trim(EdtBarCode.Text);
    ADOQGoodsMaster.Open;
  end
  else if CBCond.ItemIndex = 0 then
  begin
    ADOQGoodsMaster.Close;
    ADOQGoodsMaster.SQL.Clear;
    ADOQGoodsMaster.SQL.Add('select BarCode,Name,Amount,SafetyStock,MaxOrder,MinOrder,EOQ');
    ADOQGoodsMaster.SQL.Add('from t_GoodsMaster where Amount<SafetyStock');
    ADOQGoodsMaster.Open;
  end;
end;

procedure TFormWMSQueryInfo.Button2Click(Sender: TObject);
begin
  try
    ExportDataToExcel(ADOQGoodsMaster);
  except
    LCShowMessage('没有数据！');
  end;
end;

procedure TFormWMSQueryInfo.Button3Click(Sender: TObject);
var
  LQR: TGoodsMasterQR;
begin
  try
    LQR := TGoodsMasterQR.Create(nil);
    LQR.PreviewModal;
    LQR.Free;
  except
    LCShowMessage('没有数据！');
  end;
end;

procedure TFormWMSQueryInfo.Button1Click(Sender: TObject);
var
  LDlg: TFormCreateRequestOrder;
begin
  try
    LDlg := TFormCreateRequestOrder.Create(self);
    LDlg.ConvertQueryToRequestOrder(ADOQGoodsMaster);
    LDlg.Show;
  except
    LCShowMessage('没有数据！');
  end;
end;

end.