home *** CD-ROM | disk | FTP | other *** search
- unit Beastwin;
-
- interface
-
- uses
- DataSorc, SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
- Forms, StdCtrls, DBCtrls, DB, DBTables, Buttons, Mask, Menus, ExtCtrls,
- Wwdatsrc;
-
- type
- TForm1 = class(TForm)
- AnimalTable: TTable;
- DBNavigator1: TDBNavigator;
- Panel1: TPanel;
- DBImage1: TDBImage;
- DBEdit1: TDBEdit;
- Label1: TLabel;
- BitBtn1: TBitBtn;
- Animals: TDataSorcerer;
- AnimalTableNAME: TStringField;
- AnimalTableSIZE: TSmallintField;
- AnimalTableWEIGHT: TSmallintField;
- AnimalTableAREA: TStringField;
- AnimalTableBMP: TBlobField;
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.DFM}
-
- end.
-