［急，在线等］delphi sql2000 图片

1、路径  imgPath:string;//比如已经得到了图片路径
2、SQL2000 数据库  表名 ttbtestimg  字段名  img  字段类型image
3、请给一个完整代码，将此路径下的图片，存入数据库，相应表的相应字段中
4、请给出一段完整代码，将此表中的图片显示在图片控件上
4、请给出注释
5、程序一通，立即给分

---

这个有很多人问过,给你一个参考吧
http://topic.csdn.net/t/20051215/18/4461795.html
.....程序还是要自己写的......

---

procedure TForm1.Button1Click(Sender: TObject);
var
  picstream:tadoblobstream;
  bmppic:tbitmap;
  jpgpic:tjpegimage;
  bmpstream:TMemoryStream;
  OpenPicDialog:TOpenPictureDialog;
begin
  try
    OpenPicDialog:=TOpenPictureDialog.Create(nil);
    OpenPicDialog.Filter:='All *.jpg;|*.jpg;)';
    with AdoQuery1 do
    begin
      close;
      sql.text := 'Insert into ttbtestimg(id) values(1)';
      ExecSql;
      SQL.Text := 'select id,img from ttbtestimg with(nolock) where id=1';
      Open;
      Edit;
      if OpenPicDialog.Execute then
      begin
        jpgpic:=tjpegimage.Create;
        bmppic: