Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как вывести [D7, Access]

любитель © (2006-10-24 16:12:00)
как правельно будет выводим дополнительную инфрмацию(поля которых нет в dbgrid) в дополн. форму при двойном клике

Dbtext1.DataSource:=Fmain.DataSource1 ; Dbtext2.DataSource:=Fmain.DataSource1 ; ...... Dbtext1.DataField:='Nom'; Dbtext2.DataField:='Date';

в таблице есть поле 'KOD' - три значения 0 1 2 и как сделать
если было нажато на строчку где в поле 'KOD' 0 то делалось
Image1.Visible:=true;
если 2 то Image2.Visible:=true;

пробывал
if Fmain.ADOQuery1.FieldByName('status').AsInteger=1 Then Image1.Visible:=true

вываливаеться по ошибке

Anatoly Podgoretsky (2006-10-25 12:18:00) [1]
Адрес 00000000 говорит, что у тебя не создан какой то объект.

Плохиш (2006-10-25 11:18:00) [2]

> if Fmain.ADOQuery1.FieldByName('status').AsInteger=0 Then

И хто энто такой, этот Ваш Fmain?

Любитель (2006-10-25 10:26:00) [3]
Anatoly Podgoretsky [11]
когда прописываешь
if Fmain.ADOQuery1.FieldByName('status').AsInteger=0 Then begin Image1.Visible:=true

Project Doc.exe raised exception class EAccessViolation with message 'Access violation at address 0049D013 in module 'Doc.exe'. Read of addresss 00000000'

Anatoly Podgoretsky (2006-10-24 18:44:00) [4]
У тебя эта ошибка.

любитель (2006-10-24 17:15:00) [5]
Подробно
на главной форме пишу так
procedure TFmain.dbgrid1DblClick(Sender: TObject); begin Fmore.showmodal; end;

на второй форме

procedure TFmore.FormCreate(Sender: TObject); begin Dbtext1.DataSource:=Fmain.DataSource1 ; Dbtext2.DataSource:=Fmain.DataSource1 ; .... Dbtext1.DataField:='Nom'; Dbtext2.DataField:='Date'; if Fmain.ADOQuery1.FieldByName('status').AsInteger=0 Then begin Image1.Visible:=true
вываливаеться по ошибке

Anatoly Podgoretsky (2006-10-24 17:06:00) [6]
Нет тут ничего, кроме поманды и почему комментария без скобок комментария
Напиши так
Image1.Visible:=true; // вот тут загвоздка

любитель (2006-10-24 17:04:00) [7]
все нормально показывает и работает выводит данные
но как только пытаюсь делать что бы показывалось изобр
сразу же ошибка
if Fmain.ADOQuery1.FieldByName('status').AsInteger=1 Then Image1.Visible:=true вот тут загвоздка

ANB (2006-10-24 16:50:00) [8]

> нет мне не в dbgrid надо вывести на другую форму в зависимости
> от значения поля показывать то или иную картинку

uses ?

любитель (2006-10-24 16:30:00) [9]
нет мне не в dbgrid надо вывести на другую форму в зависимости от значения поля показывать то или иную картинку

любитель (2006-10-24 16:23:00) [10]
Не я для dbgrida пишу так

procedure TFmain.dbgrid1DblClick(Sender: TObject);
begin
Fmore.showmodal;
end;

zdm (2006-10-24 16:20:00) [11]
а хотя ты параметры не словишь(лучше поюзай EHLib)
И вот статейка http://www.delphiplus.org/articles/components/multicolored_dbgrid/

zdm (2006-10-24 16:18:00) [12]
ondblclick

zdm (2006-10-24 16:17:00) [13]
или я туплю, или .... вообщето события пиши на сам dbgrid

zdm (2006-10-24 16:17:00) [14]
oncellclick

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »