Topic: OnCellClick [решено]
не могу понять как сделать
не просто выделить а кликнуть скриптом первую запись в таблице...
My Visual Database → Russian → OnCellClick [решено]
не могу понять как сделать
не просто выделить а кликнуть скриптом первую запись в таблице...
Form1_tgQuestionList_OnCellClick(Form1.tgQuestionList,0,0);
не могу понять как сделать
не просто выделить а кликнуть скриптом первую запись в таблице...
Я вот не могу никак сделать такое условие: Кликаем на кнопку (поиск) показываеться таблица(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 ПРИНЯТО....Помогите
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 ПРИНЯТО....Помогите
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;
Владимир спасибо уже более понятно. А у меня действие происходит не по сохранению а по поиску. Я после нажатия кнопки поиск не могу нажать на первую строчку чтоб дальше уже передать 1 строчку в textbox
После нажатия кнопки Поиска - нужно чтоб именно кликалась 1 запись.
В оконцовке задача стоит чтоб не дать человеку выйти из программы пока у него в таблице checkbox = 0 (я сделал через вычисляемое поле 0 = "ОЖИДАЕТ"
Все бы ничего но именно как понять что у тебя в таблице остались записи которые ОЖИДАЮТ. Когда в ручную кликаешь в таблице то все работает, но ведь этих записей около 1000 как понять остались ли в таблице те которые ОЖИДАЮТ.
Можно сделать сортировку но нужно кликнуть же на первой записи чтоб сработала кнопка реакции....
Form1.TableGrid.SelectedRow:=0; не работает после поиска..
Владимир спасибо уже более понятно. А у меня действие происходит не по сохранению а по поиску. Я после нажатия кнопки поиск не могу нажать на первую строчку чтоб дальше уже передать 1 строчку в textbox
После нажатия кнопки Поиска - нужно чтоб именно кликалась 1 запись.
В оконцовке задача стоит чтоб не дать человеку выйти из программы пока у него в таблице checkbox = 0 (я сделал через вычисляемое поле 0 = "ОЖИДАЕТ"
Все бы ничего но именно как понять что у тебя в таблице остались записи которые ОЖИДАЮТ. Когда в ручную кликаешь в таблице то все работает, но ведь этих записей около 1000 как понять остались ли в таблице те которые ОЖИДАЮТ.
Можно сделать сортировку но нужно кликнуть же на первой записи чтоб сработала кнопка реакции....
Form1.TableGrid.SelectedRow:=0; не работает после поиска..
загрузите Ваш проект
Все разобрался нужно было добавить перебор
Спасибо.
Владимир спасибо уже более понятно. А у меня действие происходит не по сохранению а по поиску. Я после нажатия кнопки поиск не могу нажать на первую строчку чтоб дальше уже передать 1 строчку в textbox
После нажатия кнопки Поиска - нужно чтоб именно кликалась 1 запись.
В оконцовке задача стоит чтоб не дать человеку выйти из программы пока у него в таблице checkbox = 0 (я сделал через вычисляемое поле 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)
Большое спасибо за помощь Работает как надо!
А для checkboxa ?
SQLExecute('SELECT COUNT(id) FROM table_name WHERE file_name<>1'); ?? Как три состояния поймать ?
А для checkboxa ?
SQLExecute('SELECT COUNT(id) FROM table_name WHERE file_name<>1'); ?? Как три состояния поймать ?
у чекбокса состояния в таблице выглядит так
1
0
Null
для записи или обновление используется переменная
Form1.CheckBox1.sqlValue
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...
SQLExecute('SELECT COUNT(id) FROM bsm_off WHERE Rezerv =1'); Я все время так делал но все равно к кнопке приходилось привязывать checkbox...
SELECT используется для извлечения информации
UPDATE имя_таблицы SET имя_поля="" - обновление
INSERT INTO имя_таблицы("поле_1","поле_2")VALUES("значение_1", "значение_2") - новая запись
My Visual Database → Russian → OnCellClick [решено]
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi