1 Topic by sibprogsistem (edited by sibprogsistem 2020-05-11 16:04:24)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: OnCellClick [решено]

не могу понять как сделать
не просто выделить а кликнуть скриптом первую запись в таблице...

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: OnCellClick [решено]

Form1_tgQuestionList_OnCellClick(Form1.tgQuestionList,0,0);
  • Registered: 2021-03-04
  • Posts: 140

Re: OnCellClick [решено]

sibprogsistem wrote:

не могу понять как сделать
не просто выделить а кликнуть скриптом первую запись в таблице...

Я вот не могу никак сделать такое условие: Кликаем на кнопку (поиск) показываеться таблица(TableGrid) и в ней нужно узнать если в cell 1 есть надпись ОЖИДАЕТ то мы отключаем кнопку выхода(bExit)

procedure frmBuxgalter_TableGrid_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
       frmBuxgalter.Edit5.Text := frmBuxgalter.TableGrid.cells[1,arow];
       if frmBuxgalter.Edit5.Text = 'ОЖИДАЕТ' then frmBuxgalter.bExit.Visible :=False;
end;

Немогу никак после нажатия кнопки поиск кликнуть на 1 строчку чтобы передать в Edit5  ПРИНЯТО....Помогите smile

4 Reply by pavlenko.vladimir.v (edited by pavlenko.vladimir.v 2022-08-22 06:59:14)

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 454

Re: OnCellClick [решено]

senseyesenseye1983 wrote:
sibprogsistem wrote:

не могу понять как сделать
не просто выделить а кликнуть скриптом первую запись в таблице...

Я вот не могу никак сделать такое условие: Кликаем на кнопку (поиск) показываеться таблица(TableGrid) и в ней нужно узнать если в cell 1 есть надпись ОЖИДАЕТ то мы отключаем кнопку выхода(bExit)

procedure frmBuxgalter_TableGrid_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
       frmBuxgalter.Edit5.Text := frmBuxgalter.TableGrid.cells[1,arow];
       if frmBuxgalter.Edit5.Text = 'ОЖИДАЕТ' then frmBuxgalter.bExit.Visible :=False;
end;

Немогу никак после нажатия кнопки поиск кликнуть на 1 строчку чтобы передать в Edit5  ПРИНЯТО....Помогите smile

procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
  if (Form1.TableGrid1.Cells[1,Form1.TableGrid1.SelectedRow] = '1') then
      Form1.Button2.Enabled := False else  Form1.Button2.Enabled := True;
end;
Post's attachments

Attachment icon test.rar 3.43 kb, 121 downloads since 2022-08-22 

5 Reply by senseyesenseye1983 (edited by senseyesenseye1983 2022-08-22 07:46:30)

  • Registered: 2021-03-04
  • Posts: 140

Re: OnCellClick [решено]

Владимир спасибо уже более понятно. А у меня действие происходит не по сохранению а по поиску. Я после нажатия кнопки поиск не могу нажать на первую строчку чтоб дальше уже передать 1 строчку в textbox

После нажатия кнопки Поиска - нужно чтоб именно кликалась 1 запись.

В оконцовке задача стоит чтоб не дать человеку выйти из программы пока у него в таблице checkbox = 0 smile (я сделал через вычисляемое поле  0 = "ОЖИДАЕТ"
Все бы ничего но именно как понять что у тебя в таблице остались записи которые ОЖИДАЮТ. Когда в ручную кликаешь в таблице то все работает, но ведь этих записей около 1000 как понять остались ли в таблице те которые ОЖИДАЮТ.
Можно сделать сортировку но нужно кликнуть же на первой записи чтоб сработала кнопка реакции....
Form1.TableGrid.SelectedRow:=0; не работает после поиска..

Post's attachments

Attachment icon test_search.rar 293.25 kb, 121 downloads since 2022-08-22 

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 454

Re: OnCellClick [решено]

senseyesenseye1983 wrote:

Владимир спасибо уже более понятно. А у меня действие происходит не по сохранению а по поиску. Я после нажатия кнопки поиск не могу нажать на первую строчку чтоб дальше уже передать 1 строчку в textbox

После нажатия кнопки Поиска - нужно чтоб именно кликалась 1 запись.

В оконцовке задача стоит чтоб не дать человеку выйти из программы пока у него в таблице checkbox = 0 smile (я сделал через вычисляемое поле  0 = "ОЖИДАЕТ"
Все бы ничего но именно как понять что у тебя в таблице остались записи которые ОЖИДАЮТ. Когда в ручную кликаешь в таблице то все работает, но ведь этих записей около 1000 как понять остались ли в таблице те которые ОЖИДАЮТ.
Можно сделать сортировку но нужно кликнуть же на первой записи чтоб сработала кнопка реакции....
Form1.TableGrid.SelectedRow:=0; не работает после поиска..

загрузите Ваш проект

  • Registered: 2021-03-04
  • Posts: 140

Re: OnCellClick [решено]

Все разобрался нужно было добавить перебор smile
Спасибо.

Post's attachments

Attachment icon test_fixed.rar 293.87 kb, 121 downloads since 2022-08-22 

8 Reply by pavlenko.vladimir.v (edited by pavlenko.vladimir.v 2022-08-22 08:06:09)

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 454

Re: OnCellClick [решено]

senseyesenseye1983 wrote:

Владимир спасибо уже более понятно. А у меня действие происходит не по сохранению а по поиску. Я после нажатия кнопки поиск не могу нажать на первую строчку чтоб дальше уже передать 1 строчку в textbox

После нажатия кнопки Поиска - нужно чтоб именно кликалась 1 запись.

В оконцовке задача стоит чтоб не дать человеку выйти из программы пока у него в таблице checkbox = 0 smile (я сделал через вычисляемое поле  0 = "ОЖИДАЕТ"
Все бы ничего но именно как понять что у тебя в таблице остались записи которые ОЖИДАЮТ. Когда в ручную кликаешь в таблице то все работает, но ведь этих записей около 1000 как понять остались ли в таблице те которые ОЖИДАЮТ.
Можно сделать сортировку но нужно кликнуть же на первой записи чтоб сработала кнопка реакции....
Form1.TableGrid.SelectedRow:=0; не работает после поиска..

Все работает

procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
  Form1.TableGrid1.SelectedRow:=0;
  Form1.TableGrid1.SetFocus;
  if (Form1.TableGrid1.Cells[1,Form1.TableGrid1.SelectedRow] = '1') then
      Form1.Button2.Enabled := False else  Form1.Button2.Enabled := True;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.TableGrid1.SetFocus;
  Form1.TableGrid1.SelectedRow:=0;
  if (Form1.TableGrid1.Cells[1,Form1.TableGrid1.SelectedRow] = '1') then
      Form1.Button2.Enabled := False else  Form1.Button2.Enabled := True;
end;


procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
  if (Form1.TableGrid1.Cells[1,Form1.TableGrid1.SelectedRow] = '1') then
      Form1.Button2.Enabled := False else  Form1.Button2.Enabled := True;
end;

Проверку записей можно сделать так ::

SQLExecute('SELECT COUNT(id) FROM table_name WHERE file_name<>1');

вернет колличество записей..

или в настройках самой таблицы
тогда таблица всегда будет показывать только те записи где нужное Вам поле не равняется (1)
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=8961&amp;download=0

Post's attachments

Attachment icon Без имени.png 81.03 kb, 54 downloads since 2022-08-22 

  • Registered: 2021-03-04
  • Posts: 140

Re: OnCellClick [решено]

Большое спасибо за помощь smile Работает как надо!

  • Registered: 2021-03-04
  • Posts: 140

Re: OnCellClick [решено]

А для checkboxa ?
SQLExecute('SELECT COUNT(id) FROM table_name WHERE file_name<>1');  ?? Как три состояния поймать ?

11 Reply by pavlenko.vladimir.v (edited by pavlenko.vladimir.v 2022-08-22 12:10:27)

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 454

Re: OnCellClick [решено]

senseyesenseye1983 wrote:

А для checkboxa ?
SQLExecute('SELECT COUNT(id) FROM table_name WHERE file_name<>1');  ?? Как три состояния поймать ?

у чекбокса состояния в таблице выглядит так
1
0
Null
 
для записи или обновление используется переменная
Form1.CheckBox1.sqlValue

  • Registered: 2021-03-04
  • Posts: 140

Re: OnCellClick [решено]

pavlenko.vladimir.v wrote:
senseyesenseye1983 wrote:

А для checkboxa ?
SQLExecute('SELECT COUNT(id) FROM table_name WHERE file_name<>1');  ?? Как три состояния поймать ?

у чекбокса состояния в таблице выглядит так
1
0
Null
 
для записи или обновление используется переменная
Form1.CheckBox1.sqlValue


SQLExecute('SELECT COUNT(id) FROM bsm_off WHERE Rezerv =1');  Я все время так делал но все равно к кнопке приходилось привязывать checkbox... smile

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 454

Re: OnCellClick [решено]

senseyesenseye1983 wrote:

SQLExecute('SELECT COUNT(id) FROM bsm_off WHERE Rezerv =1');  Я все время так делал но все равно к кнопке приходилось привязывать checkbox... smile

SELECT используется для извлечения информации
UPDATE  имя_таблицы SET имя_поля=""  - обновление
INSERT INTO имя_таблицы("поле_1","поле_2")VALUES("значение_1", "значение_2") - новая запись