| Class TfrmLoadWebPics (unit WPLoad1) |
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);
procedure btnDeleteClick(Sender: TObject);
procedure btnInsertClick(Sender: TObject);
procedure dtsWebPicsDataChange(Sender: TObject; Field: TField);
procedure flbFilesChange(Sender: TObject);| 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;