关于图片

Question

1.请问如何把DBImage中的图片写入到数据库呢？
   2.请问如何把通过SQL语句查询出来的数据通过DBGrid显示呢？（注：希望有源代码）

Answer 1

1、给你个例子，自己看function TfrmSbManager.InsertSbTb: Boolean;
var
sqltext : string;
begin
   //添加设备
   sqltext := '';
   Memo1.Lines.SaveToFile('c:\tempMemo.txt');
   with dtmd.qyinsertsb do
   begin
     Close;
     SQL.Clear;     if PicterFilename <> '' then
     begin
       SQL.Add('insert into sbtb(sbid,sbname,gmdate,dj,sl,fpsl,cjname,cfdb,tel,bz,tp)');
       SQL.Add('values(:#sbid,:#sbname,:#gmdate,:#dj,:#sl,:#fpsl,:#cjname,:#cfdb,:#tel,:#bz,:#tp)');
     end else begin
       SQL.Add('insert into sbtb(sbid,sbname,gmdate,dj,sl,fpsl,cjname,cfdb,tel,bz)');
       //
       SQL.Add('values(:#sbid,:#sbname,:#gmdate,:#dj,:#sl,:#fpsl,:#cjname,:#cfdb,:#tel,:#bz)');
       //  
     end;
     Parameters.ParamByName('#sbid').Value := Trim(edSbid.Text);
     Parameters.ParamByName('#sbname').Value := Trim(edSbname.Text);
     Parameters.ParamByName('#gmdate').Value := FormatDateTime('yyyy-mm-dd',dtpkGmrq.Date);
     Parameters.ParamByName('#dj').Value := StrToFloat(edDj.Text);
     Parameters.ParamByName('#sl').Value := StrToFloat(EdSl.Text);
     Parameters.ParamByName('#fpsl').Value := 0;
     Parameters.ParamByName('#cjname').Value := Trim(edCj.Text);
     Parameters.ParamByName('#cfdb').Value := Trim(edDb.Text);
     Parameters.ParamByName('#tel').Value := Trim(edTel.Text);
   //  Parameters.ParamByName('#memo').DataType := ftMemo;
     Parameters.ParamByName('#bz').Value := Memo1.Text;
     if PicterFilename <> '' then
       Parameters.ParamByName('#tp').LoadFromFile(PicterFilename,ftBlob);//图片
     try
       ExecSQL;
       Result := true;
     except
       Result := false;
     end;   end;
end;问题2，在窗体上放ADOQUERY1，DATASOURCE1,DBGRID1组件，设置datasource的dataset为adoquery1,设置dbgrid的datasource为datasource1，然后设置adoquery的连接字符串以及sql语句，并open之后，dbgrid就会显示相应查询结果了。

Answer 2

加载图片
DBImage.loadFromFile('FileName');

Answer 3

with DM.xxqry  do
    begin
      close;
      sql.Clear;
      sql.Add('select * from XSJBXX where ZY00=:xszy and NJ00=:xsnj and BJ00=:xsbj');
      parameters.ParamByName('xszy').Value:=edit1.Text;
      parameters.ParamByName('xsnj').Value:=edit2.Text;
      parameters.ParamByName('xsbj').Value:=edit4.Text;
      open;
      {}
      end;
请问其中还要加上什么语句？