frmpopinvp.~pas

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

unit FrmPoPInvP;

interface

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

type
  TFrmPoPInv = class(TFrmRootAdd)
    dxDBGrid1: TdxDBGrid;
    DataSource1: TDataSource;
    dxDBGrid1cBarCode: TdxDBGridMaskColumn;
    sbOut: TSpeedButton;
    procedure sbOutClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPoPInv: TFrmPoPInv;

implementation

uses DataDmP, SUFunctionP;

{$R *.dfm}

procedure TFrmPoPInv.sbOutClick(Sender: TObject);
begin
  inherited;
  SUFunction.DBGridSaveToFile(dxDBGrid1,'条形码.xls');
end;

procedure TFrmPoPInv.BtnSaveClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.