onbuttonclick 的代码 var
lOpenDialog: TOpenDialog;
lpath:string;
begin
lOpenDialog := TOpenDialog.Create(nil);
try
if lOpenDialog.Execute then
begin
lPath := lOpenDialog.FileName;
DataSetzzfpsjj.edit;
DataSetzzfpsjj.fieldbyname('gzzd').asstring := lpath;
end
finally
lOpenDialog.Free;
end;
end;