Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.04;
Скачать: CL | DM;

Вниз

Помогите пожалуйста срочно нужно. Очень срочно   Найти похожие ветки 

 
HDD ©   (2002-02-06 01:27) [0]

procedure TForm2.TreeView1Click(Sender: TObject);
begin
If TreeView1.Items.Item[1].Focused then
begin
Form1.ADOTable1.TableName:="Use";
Form1.ADOTable1.Active:=true;
end;
If TreeView1.Items.Item[2].Focused then
begin
Form1.ADOTable1.TableName:="Oil";
Form1.ADOTable1.Active:=true;
end;
If TreeView1.Items.Item[3].Focused then
begin
Form1.ADOTable1.TableName:="Fuel";
Form1.ADOTable1.Active:=true;
end;
end;
Ничего не пойму почему не работает?
Как распечатать содержимое DBGrid1?
Как организовать поиск по DBGrid1, к нему потключена база данных Access?
Заранее благодарен Кирилл


 
Леша   (2002-02-06 04:49) [1]

Поскольку ты не пишеш что именно не работает и выдается ли обшибка, то мосмотри нижеследующее.
Для ADOTable должен быть правильно подключен коннект. Это можно сделать через отдельный компонент ADOConnection и прописать его в свойстве ADOTable - Connection. Либо можно заполнить свойство
ConnectionString. Также проверь цепочку ADOTable -> DataSource -> DBGrid.
Распечатать можно через QReport. Привязываеш Band к набору данных а компоненты отображения на банде к полям набора данных.
Если есть FastReport то там есть компонент, который привязывается к DBGrid и печатает его содержимое.
Поиск по набору данных осуществляется методами ADOTable - Locate или Lookup.


 
HDD ©   (2002-02-06 08:20) [2]

Ошибки никакой нету просто глухо и всё. То есть не открывается база. А насчёт Qreport и LOcate, Lookup Можно по подробнее


 
amamed_3071 ©   (2002-02-06 08:57) [3]

TreeView1Click замени на TreeView1Change и в начале прибав
if TreeView1.selected=nil then exit;


 
HDD ©   (2002-02-06 16:19) [4]

Ну тоже самое просто молчит!
procedure TForm2.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if TreeView1.selected=nil then exit;
If TreeView1.Items.Item[1].Focused then
begin
Form1.ADOTable1.TableName:="Use";
Form1.ADOTable1.Active:=true;
end;

If TreeView1.Items.Item[2].Focused then
begin
Form1.ADOTable1.TableName:="Oil";
Form1.ADOTable1.Active:=true;
end;
If TreeView1.Items.Item[3].Focused then
begin
Form1.ADOTable1.TableName:="Fuel";
Form1.ADOTable1.Active:=true;
end;
end;


 
Набережных С.   (2002-02-06 18:35) [5]

А сколько итемов в TreeView? И, кстати, они начинаются с нуля...

if TreeView1.Selected <> nil then
case TreeView1.Selected.Index of
0: ...;
1: ...;
2: ...;
else ...;
end;



 
HDD ©   (2002-02-07 02:16) [6]

23 итема!


 
Севостьянов Игорь ©   (2002-02-07 11:07) [7]

Все правильно относительно того что сказал Набережных С.
23 Items - ну что ж из твоего кода можно сказать что тебе только три и надо ну так и укажи 3 штуки а на остальное ( else)скажи например DBGrid.DataSource := nil; Это чтобы ничего в гриде не было...
Вопросы по мылу...



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

Текущий архив: 2002.03.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
1-9173
Serd
2002-02-14 08:29
2002.03.04
Работа с DLL...


1-9167
DJ X
2002-02-11 16:30
2002.03.04
СУПЕР СРОЧНО!!!


1-9131
Димка777
2002-02-17 01:08
2002.03.04
Посоветуйте TreeView, у которого бы TreeNode содержали какой-то control (edit, button...)


3-9062
Rustik
2002-02-06 16:32
2002.03.04
Проблема с заполнением DBCombobox из модуля данных


6-9266
Artis
2001-12-12 18:46
2002.03.04
Возник такой вопрос - серверу посылается запрос на что он выдает информацию обратно как в цикле посылать запрос и переходить к следующему значению только после того как будет получен и обработан ответ???