MyQuery while
Добавлено: Пн 05 дек 2011 21:23
Добрый вечер.
Пытаюсь сделать на основе выведенных данных, блокировать нужный Label.
В данный момент блокируется TLabel1, а второе значение TLabel6 не блокируется. ( не ставится переменная Enabled на false ).
Неоходимо сделать так что бы TLabel1 и TLabel6 , при совпадении ставилось значение Enabled:=false.
Спасибо.
Пытаюсь сделать на основе выведенных данных, блокировать нужный Label.
В данный момент блокируется TLabel1, а второе значение TLabel6 не блокируется. ( не ставится переменная Enabled на false ).
Неоходимо сделать так что бы TLabel1 и TLabel6 , при совпадении ставилось значение Enabled:=false.
Код: Выделить всё
MyQuery6.SQL.Clear;
MyQuery6.SQL.Add('SELECT * FROM `soft_admin_access` WHERE `id_user`="'+MyQuery5.FieldByName('id').AsString+'"');
MyQuery6.Execute;
MyQuery6.Open;
while not (MyQuery6.Eof) do
begin
if (MyQuery6.FieldByName('category').AsString = 'avto_vkl') then
begin
TLabel6.Enabled:=false;
end else
begin
TLabel6.Enabled:=true;
end;
if (MyQuery6.FieldByName('category').AsString = 'public1') then
begin
TLabel1.Enabled:=false;
end else
begin
TLabel1.Enabled:=true;
end;
MyQuery6.Next;