home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / fishfact.pak / FFACTWIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  1.1 KB  |  46 lines
  1. unit Ffactwin;
  2. {This application shows how to display Paradox style memo and graphic
  3.  fields in a form. Table1's DatabaseName property should point to the
  4.  Delphi sample database, normally \DELPHI\DEMOS\DATABASE. Table1's
  5.  TableName property should be set to the BIOLIFE table. See accompanying
  6.  FISHFACT.TXT for more information about this demo application}
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, StdCtrls, DBCtrls, DBGrids, DB, DBTables, Buttons, Grids, ExtCtrls;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     Panel1: TPanel;
  17.     Label1: TLabel;
  18.     DBImage1: TDBImage;
  19.     DBLabel1: TDBText;
  20.     DBMemo1: TDBMemo;
  21.     DataSource1: TDataSource;
  22.     Table1: TTable;
  23.     Table1Common_Name: TStringField;
  24.     Table1Graphic: TBlobField;
  25.     DBGrid1: TDBGrid;
  26.     BitBtn1: TBitBtn;
  27.     Table1Category: TStringField;
  28.     Table1SpeciesName: TStringField;
  29.     Table1Lengthcm: TFloatField;
  30.     Table1Length_In: TFloatField;
  31.     Table1Notes: TMemoField;
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form1: TForm1;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. end.
  46.