frmpoppop.pas

来自「二次开发模块 一、条形码的批量生成」· PAS 代码 · 共 50 行

unit FrmPoPPoP;

interface

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

type
  TFrmPoPPo = class(TFrmRootAdd)
    dxDBGrid1: TdxDBGrid;
    DataSource1: TDataSource;
    dxDBGrid1cOrderCode: TdxDBGridColumn;
    Label1: TLabel;
    sbOut: TSpeedButton;
    procedure BtnSaveClick(Sender: TObject);
    procedure sbOutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPoPPo: TFrmPoPPo;

implementation

uses FrmINp, SUFunctionP, FrmOutP;

{$R *.dfm}

procedure TFrmPoPPo.BtnSaveClick(Sender: TObject);
begin
//  inherited;

  if (DataSource1.DataSet.State = dsEdit) or (DataSource1.DataSet.State = dsInsert) then
      DataSource1.DataSet.Post;
  Close;    
end;

procedure TFrmPoPPo.sbOutClick(Sender: TObject);
begin
  inherited;
  SUFunction.DBGridSaveToFile(dxDBGrid1,'采购订单对应.xls');
end;

end.