Скачать: CL | DM;

как вывести   Найти похожие ветки 

← →
любитель   (2006-10-24 16:12) [0]

как правельно будет выводим дополнительную инфрмацию(поля которых нет в 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

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

---

← →
zdm ©   (2006-10-24 16:17) [1]

или я туплю, или .... вообщето события пиши на сам dbgrid

---

← →
zdm ©   (2006-10-24 16:17) [2]

oncellclick

---

← →
zdm ©   (2006-10-24 16:18) [3]

ondblclick

---

← →
zdm ©   (2006-10-24 16:20) [4]

а хотя ты параметры не словишь(лучше поюзай EHLib)
И вот статейка http://www.delphiplus.org/articles/components/multicolored_dbgrid/

---

← →
любитель   (2006-10-24 16:23) [5]

Не я для dbgrida пишу так

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

---

← →
любитель   (2006-10-24 16:30) [6]

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

---

← →
ANB ©   (2006-10-24 16:50) [7]

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

uses ?

---

← →
любитель   (2006-10-24 17:04) [8]

все нормально показывает и работает выводит данные
но как только пытаюсь делать что бы показывалось изобр
сразу же ошибка

if Fmain.ADOQuery1.FieldByName("status").AsInteger=1
Then
Image1.Visible:=true  вот тут загвоздка

---

← →
Anatoly Podgoretsky ©   (2006-10-24 17:06) [9]

Нет тут ничего, кроме поманды и почему комментария без скобок комментария
Напиши так
Image1.Visible:=true;  // вот тут загвоздка

---

← →
любитель   (2006-10-24 17:15) [10]

Подробно
на главной форме пишу так
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 18:44) [11]

У тебя эта ошибка.

---

← →
Любитель   (2006-10-25 10:26) [12]

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"

---

← →
Плохиш ©   (2006-10-25 11:18) [13]

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

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

---

← →
Anatoly Podgoretsky ©   (2006-10-25 12:18) [14]

Адрес 00000000 говорит, что у тебя не создан какой то объект.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c