【原】delphi增删改查

    //PageControl1.SelectNextPage(TabSheet3);

    PageControl1.TabIndex := 2;

    EDglzh.Text:=DBGrid1.DataSource.DataSet.FieldByName('ZhangHao').Value;

    EDglIP.Text:=DBGrid1.DataSource.DataSet.FieldByName('ZHIp').Value;

    EDglPW.Text:=DBGrid1.DataSource.DataSet.FieldByName('ZHPassword').Value;

   // CBglDate.DateTime:=strtodatetime(DBGrid1.DataSource.DataSet.FieldByName('ZHdate').Value);

    EDglAddress.Text:=DBGrid1.DataSource.DataSet.FieldByName('ZHAddress').Value;

    CBglType.Text:=DBGrid1.DataSource.DataSet.FieldByName('ZHType').Value;

    Memglms.Text:=DBGrid1.DataSource.DataSet.FieldByName('ZHDescribe').Value;

ADOQuery1.SQL.Add('select * from problems where Pname=:bb');//Ppicture is not null');

  ADOQuery1.Parameters.ParamByName('bb').Value:='aa';

  ADOQuery1.Open;

{ if  (ADOQuery1.FieldByName('Ppicture').AsString as TBlobField).IsNull then begin

    exit;

  end;}

  //Label18.Caption:=ADOQuery1.FieldByName('Ppicture').AsString;

  if   ADOQuery1.FieldByName('Ppicture').AsString='' then

  begin

     MessageBox(Handle,'图片为空','提示',MB_ICONASTERISK);

     exit;

  end;

  if not ADOQuery1.FieldByName('Ppicture').IsNull then

    begin

      image1.Picture.Graphic:=nil;

      ms:=TMemoryStream.Create;

      jpg:=TJPEGImage.Create ;

      TBlobField(ADOQuery1.FieldByName('Ppicture')).SaveToStream(ms);

      //ms=ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('Ppicture'),bmRead);

      ms.Position :=0;

      jpg.LoadFromStream(ms);

      image1.Picture.Assign(jpg);

     // delete Stream1;

    end