照片加载问题

Question

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
if messagedlg('你确定要录入吗！',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
with dm.f3adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into 学生资料(学号,姓名,个人照片)'+ 'values(:A,:B,:L)');
parameters.ParamByName('A').Value :=trim(edit1.text);
parameters.ParamByName('B').Value:=trim(edit2.text);
if openpicturedialog1.Execute then
begin
parameters.ParamByName('L').LoadFromFile(openpicturedialog1.FileName,ftBlob);
end;
ExecSQL;
application.MessageBox('录入数据成功！','学生录入',MB_OK);
end;
end;
end;这段添加个人信息时都会弹出打开图片对话框，如何设置即可以不让他弹出，又可以添加照片。

Answer 1

不让他弹出你怎么选择文件呢?
你把if openpicturedialog1.Execute then 内的代码拿出来,然后把openpicturedialog1.FileName换成文件路径就行了

Answer 2

如果你知道图片的位置和名字，直接加载就可以了。
parameters.ParamByName('L').LoadFromFile(图片位置,ftBlob); 

Answer 3

OpenDiaLog  是為了選擇文件，不讓他跳出來也可以，你直接指定文件的路徑就行。

Answer 4

我在image1中click事情添加代码，可是还是不行