home *** CD-ROM | disk | FTP | other *** search
/ CICA 1996 August / CICA2_0896.bin / disc2 / program / delphi / dbfltcom.exe / SAMPLE.ZIP / FFACTWIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-30  |  2.1 KB  |  77 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.   DBFltCom, DataSorc;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     Panel1: TPanel;
  18.     Label1: TLabel;
  19.     DBImage1: TDBImage;
  20.     DBLabel1: TDBText;
  21.     DBMemo1: TDBMemo;
  22.     DataSource1: TDataSource;
  23.     Table1: TTable;
  24.     Table1Common_Name: TStringField;
  25.     Table1Graphic: TBlobField;
  26.     DBGrid1: TDBGrid;
  27.     BitBtn1: TBitBtn;
  28.     Table1Category: TStringField;
  29.     Table1SpeciesName: TStringField;
  30.     Table1Lengthcm: TFloatField;
  31.     Table1Length_In: TFloatField;
  32.     Table1Notes: TMemoField;
  33.     Table1Edible: TIntegerField;
  34.     Table1Habits: TIntegerField;
  35.     Table1Temperature: TIntegerField;
  36.     HelperSource: TDataSource;
  37.     HelperTable: TTable;
  38.     Edible: TDBFilterCombo;
  39.     Temperature: TDBFilterCombo;
  40.     Habits: TDBFilterCombo;
  41.     Label4: TLabel;
  42.     Label5: TLabel;
  43.     Label3: TLabel;
  44.     Label2: TLabel;
  45.     Label7: TLabel;
  46.     HelperTableDescription: TStringField;
  47.     HelperTableCounter: TIntegerField;
  48.     HelperTableType: TStringField;
  49.     procedure HabitsNewLookupRecord(Sender: TObject;
  50.       var Cancelled: Boolean);
  51.  
  52.   private
  53.     { Private declarations }
  54.   public
  55.     { Public declarations }
  56.   end;
  57.  
  58. var
  59.   Form1: TForm1;
  60.  
  61. implementation
  62.  
  63. {$R *.DFM}
  64.  
  65. procedure TForm1.HabitsNewLookupRecord(Sender: TObject; var Cancelled: Boolean);
  66. begin
  67.   Cancelled := False;
  68.   If UpperCase(TDBFilterCombo(Sender).Text) = 'FRED' then
  69.   begin
  70.     MessageBox(Handle, 'You cant type FRED here', 'DBFilterCombo Sample', MB_OK);
  71.     TDBFilterCombo(Sender).SetFocus;
  72.     Cancelled := True;
  73.   end;
  74. end;
  75.  
  76. end.
  77.