unit u_cq_items;

interface

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

type
  Tfrm_cq_items = class(TForm)
    Panel1: TPanel;
    bsSkinButton1: TbsSkinButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    DataSource1: TDataSource;
    bsSkinButton2: TbsSkinButton;
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cq_items: Tfrm_cq_items;

implementation
uses  my_sys_function;
{$R *.dfm}

procedure Tfrm_cq_items.bsSkinButton2Click(Sender: TObject);
begin
    grid_save_xls(dxdbgrid1);
end;

end.