1 Востаннє редагувалося Гордый Славянин (08.02.2015 21:59:29)

Тема: Delphi-treeview-БД

У бд є поле варіант, з одиyаковими значеннями, але з різними значеннями поля "НазваПР", так ось програмно
намагаюсь перевірити дочірній вузол як варіант з варіантом у бд, та головним вузлом яке є назвою практ. завдання, котре тежє в бд. (Access)
i

f (TreePracts.Items.Item[0].Level = 0) then //якщо рівень у дереві об'єкта дорівню 0,
begin //то
with ADOTable2 do
Begin
if Assigned(TreePracts.Selected) and Assigned(TreePracts.Selected.Parent) then
if Pos(AnsiUpperCase(fields[1].asstring),AnsiUpperCase(TreePracts.Selected.Parent.Text))<>0 then
if (Locate('Варіант№ п', TreePracts.Selected.Text, [])) then
begin
if FieldByName('УмоваЗадачі').AsString<>'' then
Begin
RichEdit1.Lines.Clear;
RichEdit1.Lines.Add(FieldByName('УмоваЗадачі').AsString);
end;
end;

у мене виводить у вміст одне теж по цим варіантам як і у одного, в бд дані різні(так як і має бути), що неправильного???
делал еще так:

if (TreePracts.Items.Item[0].Level = 0) then //якщо рівень у дереві об'єкта дорівню 0,
begin //то
with ADOTable2 do
Begin
if ((Locate('НазваПР', TreePracts.Parent.Selected.Text, [])) and (Locate('Варіант№', TreePracts.Selected.Text, []))) then
begin
if FieldByName('УмоваЗадачі').AsString<>'' then
Begin
RichEdit1.Lines.Clear;
RichEdit1.Lines.Add(FieldByName('УмоваЗадачі').AsString);
end;
end;

теж ніфіга, допоможіть колеги.

2

Re: Delphi-treeview-БД

По-перше перепишіть українською, бо ви наче зареєструвалися якось, тож це не є проблемою для вас. По-друге використовуйте теґ code для вищенаведених ділянок кода.

Подякували: Гордый Славянин1

Re: Delphi-treeview-БД

зробив, як веліли)\0

Подякували: Torbins1

4

Re: Delphi-treeview-БД

Можна приклад вмісту БД?

5 Востаннє редагувалося Гордый Славянин (09.02.2015 06:15:58)

Re: Delphi-treeview-БД

Ось, якщо між практичнимЗавданням і ПрВаріантом робити з'эднання, то в дельфі в додаванні нового запису виникає помилка, а коли окремо то ормально, і показ практичного завдання меня задовільнянтє, а з варіантами до кожного його, вже незнаю, як правильніше, все інше працює як годинник, хоть і на нелатинському.

Post's attachments

Снимокбдбд.JPG 38.27 kb, 283 downloads since 2015-02-09 

6

Re: Delphi-treeview-БД

Жаль на скріншоті не видно зв'язків між таблицями.
У другому куску коду ви намагаєтеся зробити два незалежні локейта один за одним. Але вам мабуть треба один локейт по двум полям одночасно. Це робиться отак: http://docwiki.embarcadero.com/RADStudi … ing_Locate
Ну й ще вам варто почитати про особливості роботи ADO, отут перші три статті: http://www.delphikingdom.com/asp/itemq. … itemid=128 Там в основному про роботу з SQL запитами, але й вам дещо буде корисним. До речі в Аццесі є можливість будувати ці запити мишкою. Щось типу такого: http://www.techonthenet.com/access/quer … ql2007.php