请教一个存储过程关于image问题?

怎么都没人理我,好伤心哦

来我给你一段代码

自己看看，我也给你说了你自己就学不到东西了

我给你的这个代码已经很明白了！·

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, DB, DBTables, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Table1: TTable;
DataSource1: TDataSource;
DBImage1: TDBImage;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses XMconsts;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
begin
table1.edit;
Tblobfield(table1.fieldbyname(dbimage1.datafield)).loadfromfile(opendialog1.filename);
table1.post;
end;
dbimage1.loadpicture;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := '将图片导入到数据库中';
end;

end.