home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / UNIT02.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-12-30  |  1019 b   |  49 lines
  1. unit Unit02;
  2.  
  3. interface
  4.  
  5. uses
  6.   {$IFDEF WIN32} Windows, {$ENDIF}Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, PrnGridR, DBTables, DB, Grids, DBGrids, Cb_grid, CB_MFunc;
  8.  
  9. type
  10.   TCBDemo02 = class(TForm)
  11.     CB_SortGrid1: TCB_SortGrid;
  12.     DataSource1: TDataSource;
  13.     Query1: TQuery;
  14.     Query1Notes: TMemoField;
  15.     Query1Graphic: TGraphicField;
  16.     PrintGridReport1: TPrintGridReport;
  17.     Memo1: TMemo;
  18.     Preview: TButton;
  19.     Exit: TButton;
  20.     Query1Common_Name: TStringField;
  21.     Query1Category: TStringField;
  22.     Query1Lengthcm: TFloatField;
  23.     procedure PreviewClick(Sender: TObject);
  24.     procedure ExitClick(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   CBDemo02: TCBDemo02;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TCBDemo02.PreviewClick(Sender: TObject);
  39. begin
  40.     PrintGridReport1.Execute;
  41. end;
  42.  
  43. procedure TCBDemo02.ExitClick(Sender: TObject);
  44. begin
  45.     Close;
  46. end;
  47.  
  48. end.
  49.