Class TfrmLoadWebPics (unit WPLoad1)

Inherits from

TForm

Allow JPEG and GIF files to be loaded into the WebPics database. Written by Keith Wood, 21 August, 1997.

Constructors



Functions

procedure btnCloseClick(Sender: TObject);

Close the form

procedure btnDeleteClick(Sender: TObject);

Delete the current record

procedure btnInsertClick(Sender: TObject);

Add a new record with the contents of the current file

procedure dtsWebPicsDataChange(Sender: TObject; Field: TField);

Dis/enable delete button

procedure flbFilesChange(Sender: TObject);

Dis/enable insert button

Properties

Events

Variables

btnClose : TBitBtn;


btnDelete : TBitBtn;


btnInsert : TBitBtn;


dbgWebPics : TDBGrid;


dlbDirectories : TDirectoryListBox;


drvDrives : TDriveComboBox;


dtsWebPics : TDataSource;


edtDescription : TEdit;


flbFiles : TFileListBox;


fltFilter : TFilterComboBox;


Label1 : TLabel;


tblWebPics : TTable;


tblWebPicsPicture_blob : TBlobField;


tblWebPicsPicture_no : TAutoIncField;


tblWebPicsPicture_text : TStringField;


tblWebPicsPicture_type : TStringField;



Constructors


Functions


procedure btnCloseClick(Sender: TObject);

Close the form


procedure btnDeleteClick(Sender: TObject);

Delete the current record


procedure btnInsertClick(Sender: TObject);

Add a new record with the contents of the current file


procedure dtsWebPicsDataChange(Sender: TObject; Field: TField);

Dis/enable delete button


procedure flbFilesChange(Sender: TObject);

Dis/enable insert button


Properties


Events


Variables


btnClose : TBitBtn;


btnDelete : TBitBtn;


btnInsert : TBitBtn;


dbgWebPics : TDBGrid;


dlbDirectories : TDirectoryListBox;


drvDrives : TDriveComboBox;


dtsWebPics : TDataSource;


edtDescription : TEdit;


flbFiles : TFileListBox;


fltFilter : TFilterComboBox;


Label1 : TLabel;


tblWebPics : TTable;


tblWebPicsPicture_blob : TBlobField;


tblWebPicsPicture_no : TAutoIncField;


tblWebPicsPicture_text : TStringField;


tblWebPicsPicture_type : TStringField;