You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
873 B
Plaintext
41 lines
873 B
Plaintext
11 months ago
|
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.
|