frmpopinventoryp.~pas

二次开发模块 一、条形码的批量生成

unit FrmPoPInventoryP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FrmRootAddP, StdCtrls, Buttons, ExtCtrls, dxExEdtr, dxTL,
  dxDBCtrl, dxDBGrid, dxCntner, DB, ADODB;

type
  TFrmPoPInventory = class(TFrmRootAdd)
    Label1: TLabel;
    Edit1: TEdit;
    btnFind: TButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1cInvCode: TdxDBGridMaskColumn;
    dxDBGrid1cInvName: TdxDBGridMaskColumn;
    dxDBGrid1cInvStd: TdxDBGridMaskColumn;
    QryInv: TADOQuery;
    dsQryInv: TDataSource;
    Label2: TLabel;
    procedure btnFindClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPoPInventory: TFrmPoPInventory;

implementation

uses DataDmP;

{$R *.dfm}

procedure TFrmPoPInventory.btnFindClick(Sender: TObject);
begin
  inherited;
  QryInv.Close;
  QryInv.SQL.Clear;
  QryInv.SQL.Add('SELECT cInvCode, cInvName, cInvStd');
  QryInv.SQL.Add('FROM dbo.Inventory');
  QryInv.SQL.Add('Where (Inventory.dEdate is null)');
  QryInv.SQL.Add(' And  (Inventory.cInvCCode like '''+Label2.Caption+'%'')');
  if Trim(Edit1.Text)<>'' then
    begin
      QryInv.SQL.Add(' And ((Inventory.cInvCode like ''%'+Edit1.Text+'%'')');
      QryInv.SQL.Add('  Or  (Inventory.cInvName like ''%'+Edit1.Text+'%'')');
      QryInv.SQL.Add('  Or  (Inventory.cInvStd  like ''%'+Edit1.Text+'%'')）');
    end;
  QryInv.SQL.Add('Order By cInvCode');
  QryInv.Open;
end;

procedure TFrmPoPInventory.BtnSaveClick(Sender: TObject);
begin
  inherited;
  ModalResult:=mrOk;
end;

procedure TFrmPoPInventory.dxDBGrid1DblClick(Sender: TObject);
begin
  inherited;
  BtnSave.Click;
end;

procedure TFrmPoPInventory.FormShow(Sender: TObject);
begin
  inherited;
  btnFind.Click;
end;

end.