附上一段我编程时的一个小例子:
procedure TForm1.AddButtonClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ADODataSet1.First;
if ADODataSet1.Bof then
ADODataSet1.Insert
else
ADODataSet1.Edit;
end;
CSBXImage.Picture.LoadFromFile(OpenDialog1.FileName); {CSBXImage:TDBImage}
end;
下面是在"保存"按钮中的部分代码:
ADODataSet1.FieldByName('CSBX').Assign(CSBXImage.Picture);
ADODataSet1.Post;
CSBXImage:datasource--->dataSource1
dataField---->CSBX