[zxcvvbbnmm]

Нужно, чтобы фото отображалось после добавления button1 загрузка производится через button5

Код:

procedure TForm1.Button1Click(Sender: TObject);
    begin
     try
     if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='') then
     exit;
      ADOQuery1.Insert;
       ADOQuery1.FieldByName('fio').AsString:=Edit1.Text;
     ADOQuery1.FieldByName('oz').AsInteger:=StrToInt(Edit2.Text);
     ADOQuery1.FieldByName('фото').AsString:=Edit3.Text;
          DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
       Edit1.Clear;
        Edit2.Clear;
         Edit3.Clear;
         except
          on e:Exception do end;
 
          end;
 
    procedure TForm1.Button5Click(Sender: TObject);
    begin
    if OpenPictureDialog1.Execute then
 
            DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
            edit3.Text:=OpenPictureDialog1.FileName;
    end;
 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
 try
  Edit1.Text:=ADOQuery1.FieldByName('fio').AsString;
    Edit2.Text:=IntToStr(ADOQuery1.FieldByName('oz').AsInteger);
    Edit3.Text:=ADOQuery1.FieldByName('фото').AsString;
 
    except   on e:Exception do  end;
    end;

[poli-smen]

Сообщение от zxcvvbbnmm

Нужно, чтобы фото отображалось после добавления button1 загрузка производится через button5

TDBImage умеет отображать картинки только в формате bmp.

Сообщение от zxcvvbbnmm

Код:

procedure TForm1.Button1Click(Sender: TObject);
    begin
     try
     if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='') then
     exit;
      ADOQuery1.Insert;
       ADOQuery1.FieldByName('fio').AsString:=Edit1.Text;
     ADOQuery1.FieldByName('oz').AsInteger:=StrToInt(Edit2.Text);
     ADOQuery1.FieldByName('фото').AsString:=Edit3.Text;
          DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
       Edit1.Clear;
        Edit2.Clear;
         Edit3.Clear;
         except
          on e:Exception do end;
 
          end;

После внесения данных в новую запись не забывай сохранять изменения с помощью ADOQuery1.Post;

Сообщение от zxcvvbbnmm

Код:

    procedure TForm1.Button5Click(Sender: TObject);
    begin
    if OpenPictureDialog1.Execute then
 
            DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
            edit3.Text:=OpenPictureDialog1.FileName;
    end;

Здесь ошибка. Эти 2 строчки нужно заключить в begin..end иначе вторая строчка (edit3.Text:=...) будет срабатывать независимо от условия (т.е. даже если пользователь отменил диалог).

Сообщение от zxcvvbbnmm

Код:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
 try
  Edit1.Text:=ADOQuery1.FieldByName('fio').AsString;
    Edit2.Text:=IntToStr(ADOQuery1.FieldByName('oz').AsInteger);
    Edit3.Text:=ADOQuery1.FieldByName('фото').AsString;
 
    except   on e:Exception do  end;
    end;

Для этих целей лучше использовать событие TDataSet.AfterScroll, а не TDBGrid.OnCellClick.
И почему предпочтение отдано TEdit, а не TDBEdit, который специально для этого предназначен?

[zxcvvbbnmm]

что использовать тогда вместо DBImage
ADOQuery1.Post есть на другом button
edit и dbedit разница не большая, через них я только ввожу и редактирую данные

с Image можно будет эту операцию провернуть?

[poli-smen]

Сообщение от zxcvvbbnmm

с Image можно будет эту операцию провернуть?

Да. Если нужно работать не только с bmp, то используй TImage. А TDBImage тут не подойдёт.

[zxcvvbbnmm]

еще один вопрос по dbgrid, есть три поля, фио, оценка и фото, поле фио никак не могу сомкнуть что бы оно было меньше, другие поля смыкаются а здесь никак не выходит, можно как нибудь в коде задать эти параметры?

[poli-smen]

Сообщение от zxcvvbbnmm

еще один вопрос по dbgrid, есть три поля, фио, оценка и фото, поле фио никак не могу сомкнуть что бы оно было меньше, другие поля смыкаются а здесь никак не выходит, можно как нибудь в коде задать эти параметры?

Код:

  DBGrid1.Columns[Номер колонки].Width := Ширина;

Ещё можешь в дизайнере Delphi дважды кликнуть по TDBGrid и в появившемся окне правой кнопкой и "Add All Fields" - появятся все поля ширину которых можно тут же в дизайнере задавать по своему усмотрению.