home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO06.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-23  |  1.9 KB  |  84 lines
  1. unit Fdemo06;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, PrnWin, Buttons, CB_Types,
  8.   DBPrnWin, CB_MFunc;
  9.  
  10. type
  11.   TForm06 = class(TForm)
  12.     ScrollBox: TScrollBox;
  13.     Label1: TLabel;
  14.     EditSpeciesNo: TDBEdit;
  15.     Label2: TLabel;
  16.     EditCategory: TDBEdit;
  17.     Label3: TLabel;
  18.     EditCommon_Name: TDBEdit;
  19.     Label4: TLabel;
  20.     EditSpeciesName: TDBEdit;
  21.     Label5: TLabel;
  22.     EditLengthcm: TDBEdit;
  23.     Label6: TLabel;
  24.     EditLength_In: TDBEdit;
  25.     DBNavigator: TDBNavigator;
  26.     Panel1: TPanel;
  27.     DataSource1: TDataSource;
  28.     Panel2: TPanel;
  29.     Table1: TTable;
  30.     DBImage1: TDBImage;
  31.     DBMemo1: TDBMemo;
  32.     View: TBitBtn;
  33.     Exit: TBitBtn;
  34.     Table1SpeciesNo: TFloatField;
  35.     Table1Category: TStringField;
  36.     Table1Common_Name: TStringField;
  37.     Table1SpeciesName: TStringField;
  38.     Table1Lengthcm: TFloatField;
  39.     Table1Length_In: TFloatField;
  40.     Table1Notes: TMemoField;
  41.     Table1Graphic: TGraphicField;
  42.     DBPrintWin1: TDBPrintWin;
  43.     procedure FormCreate(Sender: TObject);
  44.     procedure ViewClick(Sender: TObject);
  45.     procedure ExitClick(Sender: TObject);
  46.   private
  47.     { private declarations }
  48.   public
  49.     { public declarations }
  50.   end;
  51.  
  52. var
  53.   Form06: TForm06;
  54.  
  55. implementation
  56.  
  57. {$R *.DFM}
  58.  
  59. procedure TForm06.FormCreate(Sender: TObject);
  60. begin
  61.   Table1.Open;
  62. end;
  63.  
  64. procedure TForm06.ViewClick(Sender: TObject);
  65. var
  66.   MyBookMark: TBookmark;
  67. begin
  68.   MyBookmark := Table1.GetBookmark;
  69.   DBPrintWin1.BeginPrint;
  70.   DBPrintWin1.DrawWindow( 1.5, poCenter, ScrollBox);
  71.   Table1.Next;
  72.   DBPrintWin1.DrawWindow( 5.5, poCenter, ScrollBox);
  73.   DBPrintWin1.EndPrint;
  74.   Table1.GotoBookmark(MyBookmark);
  75.   Table1.FreeBookmark(MyBookmark);
  76. end;
  77.  
  78. procedure TForm06.ExitClick(Sender: TObject);
  79. begin
  80.    Close;
  81. end;
  82.  
  83.  
  84. end.