Table1.Active:=True;
with Table1do
begin
DisableControls;
insert;
Table1.FieldByName('No').AsInteger:=StrToInt(NoEdit.Text);
Table1.FieldByName('Function').AsString:=FuncEdit.Text;
Table1.FieldByName('Location').AsString:=LocEdit.Text;
//*********关键部分**********************
mem:=TMemoryStream.Create;//mem是TMemoryStream类型的
mem.LoadFromFile(FileOpenDialog.FileName);
TBlobField(Table1.Fields[3]).LoadFromStream(mem);
Post;
Next;
mem.Free;
end;
