代码如下:
procedure TFORMGYCT.Label6Click(Sender: TObject);
begin
if SaveDialog.Execute then
begin
TBlobField(Query.Fields[0]).SaveToFile(SaveDialog.FileName+'.doc');
end;
end;
procedure TFORMGYCT.BizFormShow(Sender: TObject);
begin
Query.Close;
Query.CommandText := 'SELECT YHSC FROM YHSC';
Query.Open;
end;