procedure TForm1.Button1Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
begin
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
//通过选择的文件来获取文件的内容
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
picture1:tpicture;
picture2:tpicture;
begin
if (openpicturedialog1.FileName='') or(openpicturedialog1.FileName='') then
begin
showmessage('请选择分段及焊缝照片');
exit;
end;
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='') or (edit5.Text='') or (edit6.Text='') then
begin
showmessage('输入完整的录入信息');
exit;
end;
picture1:=tpicture.Create;
picture2:=tpicture.Create;
picture1.LoadFromFile(extractfilename(openpicturedialog1.Filename)); //获取图片内容
picture2.LoadFromFile(extractfilename(openpicturedialog2.Filename));
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from Subsection_Type');
adoquery1.Open; //通过查询的方法打开数据集，便于下面的插入操作
adoquery1.Insert; //打开插入状态
adoquery1.FieldByName('分段类型').AsString:=edit1.Text; //将分段类型插入到对应的字段里
adoquery1.FieldByName('分段三维示意图').Assign(picture1); //将选中的图片插入对应的字段
adoquery1.FieldByName('主要焊缝类型').AsString:=edit2.Text;
adoquery1.FieldByName('坡口角度').AsString:=edit3.Text;
adoquery1.FieldByName('钝边').AsString:=edit4.Text;
adoquery1.FieldByName('间隙').AsString:=edit5.Text;
adoquery1.FieldByName('焊缝示意图').Assign(picture2);
adoquery1.FieldByName('焊接方法').AsString:=edit6.Text;
adoquery1.FieldByName('主要作用').AsString:=edit7.Text;
adoquery1.Post; //提交操作
showmessage('保存完毕');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if openpicturedialog2.Execute then
begin
image2.Picture.LoadFromFile(openpicturedialog2.FileName);
//通过选择的文件来获取文件的内容
end;
end;
end.

路径明显有问题，检查一下

谢谢，已经解决