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.
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
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;
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
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;