Нужна помощь... (Page 3 of 4)

vovka3003, вот можешь ты интригу создать )))

Всем привет. Подскажите можно ли создать условие на TableGrid. К примеру если при нажатии кнопки Search в TableGrid1 ничего не найдено то Button1.Visible :=True;   если в TableGrid1 при нажатии кнопки нашлись записи то Button1.Visible :=False; ?

senseyesenseye1983 wrote:

senseyesenseye1983 wrote:

Всем привет. Подскажите можно ли создать условие на TableGrid. К примеру если при нажатии кнопки Search в TableGrid1 ничего не найдено то Button1.Visible :=True;   если в TableGrid1 при нажатии кнопки нашлись записи то Button1.Visible :=False; ?

Мне просто нужна проверка если пользователь уже проголосовал то кнопка не работает если еще не голосовал то работает.  (В таблицу при голосовании записывается значение 1 или 2. Вот как это реализовать ? Я пробовал вот так но не выходит

procedure voting_TableGridgolos_OnChange (Sender: TObject);
var
    i, cR : integer;
begin
        cR := voting.TableGridgolos.RowCount-1;

        for i := 0 to cR do
        begin
            If (voting.TableGridgolos.Cells[2,i] ='1') then voting.Button2.Enabled := False;
            If (voting.TableGridgolos.Cells[2,i] ='2') then voting.Button2.Enabled := False;
            If (voting.TableGridgolos.Cells[2,i] ='') then voting.Button2.Enabled := True;
        end;
end;

я думаю, что у Вас все работает, проблема в счетчике, он просто переберает все строки...

procedure voting_TableGridgolos_OnChange (Sender: TObject);
begin
     If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='1') then voting.Button2.Enabled := False;
     If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='2') then voting.Button2.Enabled := False;
     If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='') then voting.Button2.Enabled := True;
end;

и измените событие  с OnChange на OnCellClick

senseyesenseye1983 wrote:

Спасибо за совет. Попробовал ну работает когда нажимаешь на таблицу, у которрой в поиске нашлось что-лио. Если не нашлось и таблица пустая то все равно кнопка недоступна....

а Вы колонки точно правильно посчитали? начинается с 0

senseyesenseye1983 wrote:

Вот посмотрите пожалуйста. Я хотел бы чтобы пользователи голосовали, но при этом у каждого была всего одна попытка. Не получаеться с кнопками бороться
Я пошел немного другим путем сделав запрос к таблице:
vote.Edit2.Text := sqlexecute('select id from terminal_films_golos where lastname ='+frmLogin.edUser.sqlvalue);
Вроде заработало... Но все же как то голосование получается каким то странным Вам так не кажется ?
А вообще шкалу % проголосовавших реально сюда прицепить ? Так то я не встречал тут проектов про голосование может кому полезно будет.

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

procedure voting_Edit5_OnChange (Sender: TObject);
begin
       if voting.Edit5.Text = '' then voting.Label3.Visible :=False;
       if voting.Edit5.Text = '*' then voting.Label7.Visible :=True;
end;

Все работает. Спасибо!!! 
<> '  ' - это означает что в Edit - пусто ? Да?
а как указать что что либо есть ?
И вообще может сделать проверку по БД ? Я работаю в MySQL и может как то так:
if Table1.FieldValues['...'] <> null then
begin
...
end;