1 (edited by agatlogic101 2019-11-14 09:05:27)

Topic: Подтягивание данных в форму

Реально ли реализовать следующее.
1) Есть форма, на ней таблица и несколько TextBoxs, при кликанье на таблицу, данные из таблицы подтягиваются в эти TextBoxs?
То есть мы не переходим на следующую форму, а работаем в ней же
2) При открытие формы что бы как будто 1 строка в таблице была кликнута автоматически.

2 (edited by sibprogsistem 2019-11-14 11:53:46)

Re: Подтягивание данных в форму

при открытии формы происходит выбор первой записи  в гриде
если кликнить по записи один раз, то  записи выведутся в edit
двойной клик выводить запись в едит сохранения, тоесть можно отредактировать записи

Post's attachments

Attachment icon test.7z 3.07 kb, 10 downloads since 2019-11-14 

Re: Подтягивание данных в форму

а как правильно подставить не текстбокс а дату?
строка
мероприятие.DateTimePicker1.Date:=SQLExecute('SELECT IFNULL(дата, 0) FROM event WHERE id=' +мероприятие.TableGrid1.sqlValue );
не работает...

4 (edited by sibprogsistem 2019-11-14 16:23:07)

Re: Подтягивание данных в форму

  мероприятие.DateTimePicker1.Date:=SQLDateTimeToDateTime(SQLExecute('SELECT IFNULL(дата, 0) FROM event WHERE id=' +мероприятие.TableGrid1.sqlValue ));

Re: Подтягивание данных в форму

В принципе можно так, нужно только чтобы для компонентов на форме были присвоены свойства TableName и FieldName, тогда они все заполнятся автоматически

procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
    Form1.ShowRecord('TableName', Form1.TableGrid1.dbItemID);
end;

по второму вопросу, чтобы выбралась первая запись и заполнились компоненты

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    if Form1.TableGrid1.RowCount > 0 then
    begin
        Form1.TableGrid1.SelectedRow := 0;
        Form1_TableGrid1_OnCellClick (nil, 0, 0);
    end;
end;
Dmitry.