home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
cbsuite.lzh
/
SU1SRC.ZIP
/
UNIT02.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-12-30
|
1KB
|
49 lines
unit Unit02;
interface
uses
{$IFDEF WIN32} Windows, {$ENDIF}Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, PrnGridR, DBTables, DB, Grids, DBGrids, Cb_grid, CB_MFunc;
type
TCBDemo02 = class(TForm)
CB_SortGrid1: TCB_SortGrid;
DataSource1: TDataSource;
Query1: TQuery;
Query1Notes: TMemoField;
Query1Graphic: TGraphicField;
PrintGridReport1: TPrintGridReport;
Memo1: TMemo;
Preview: TButton;
Exit: TButton;
Query1Common_Name: TStringField;
Query1Category: TStringField;
Query1Lengthcm: TFloatField;
procedure PreviewClick(Sender: TObject);
procedure ExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CBDemo02: TCBDemo02;
implementation
{$R *.DFM}
procedure TCBDemo02.PreviewClick(Sender: TObject);
begin
PrintGridReport1.Execute;
end;
procedure TCBDemo02.ExitClick(Sender: TObject);
begin
Close;
end;
end.