SQL Server надо устоновить на сервере

[fobass]

Привет я прохожу практику министерстве. Меня попросили сделать БД для локального пользовние (для тех под.). В комнате есть 5 компов и 3 сервера Я могу сделать на SQL Server-е и связать с Delphi, тока я не могу понять SQL Server надо устоновить на сервере и для каждого компа скинуть exe-ник Delphi? кто знает можно по подробнее описать?

[edgy]

Сообщение от fobass

SQL Server надо устоновить на сервере и для каждого компа скинуть exe-ник Delphi?

Да, примерно так и должно быть. Но кроме как просто скинуть exe-шник, я бы посоветовал вам еще проверить связь с SQL-сервером с каждого компа. На практике иногда встречаются некоторые траблы.

[fobass]

Сообщение от edgy

Да, примерно так и должно быть. Но кроме как просто скинуть exe-шник, я бы посоветовал вам еще проверить связь с SQL-сервером с каждого компа. На практике иногда встречаются некоторые траблы.

да но только SQL-SERVER мне не разрешили устоновить на сервак я делаю на Accesse.
Да вопрос
У меня TreeView1
Местные

• 01_1
• 02_1
• ......
• (27 таблиц)

Регионные

• 01_2
• 02_2
• ......
• (6 таблиц)

И так такой код

PHP код:

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
begin
if TreeView1.Items[0].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 01_Rukovodstvo';

if TreeView1.Items[1].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 01_C_Sovetniki';
...............................
...............................
ADOQuery1.Active:=true;
end; 


когда выбираем сверху вниз то все работает если выбрать снизу вверх то таблицы выбирается хаотично.
В чем проблема?

[fobass]

помогите очень надо!

[S@fer]

Какие названия у итемов?
Если такие же как и названия таблиц. томожно сделать так

procedure TForm1.TreeView1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='SELECT *FROM '+TreeView1.Selected.Text+'';
end;

[fobass]

Сообщение от S@fer

Какие названия у итемов?
Если такие же как и названия таблиц. томожно сделать так

procedure TForm1.TreeView1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='SELECT *FROM '+TreeView1.Selected.Text+'';
end;

нет итемы не соответствует с именем таблиц есть другой вариант
я немогу обротица к дочерным веткам итемов

поиогите это очень важно для меня

[Stilet]

[QUOTE]я немогу обротица к дочерным веткам итемов/QUOTE]
Для чего? Selected.Text работает для любых веток в том числе и дочерних.

SQL-SERVER мне не разрешили устоновить на сервак я делаю на Accesse.

Правильно не разрешили. Зачем если все моделирование можно сделать на Акцессе, раз это контрольная.
А по поводу акцесса - это лучший выход ибо твою БД можно в локалке расшарить.

[fobass]

[QUOTE=Stilet;294415]

я немогу обротица к дочерным веткам итемов/QUOTE]
Для чего? Selected.Text работает для любых веток в том числе и дочерних.

Правильно не разрешили. Зачем если все моделирование можно сделать на Акцессе, раз это контрольная.
А по поводу акцесса - это лучший выход ибо твою БД можно в локалке расшарить.

Вот фото:
[IMG]C:\Documents and Settings\Admin\Рабочий стол\1.jpg[/IMG]
вот код:
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin

if TreeView1.Items[1].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 01_Rukovodstvo';

if TreeView1.Items[1].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 01_С_Советники';

if TreeView1.Items[2].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_1_Sentralnaia_Buhgalteria';

if TreeView1.Items[3].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_2_Otdel_deloproizvodstvo_i_kontr ola';

if TreeView1.Items[4].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_3_Otdel_informa_obespecheine';

ADOQuery1.Active:=true;
end;

[fobass]

[QUOTE=Stilet;294415]

я немогу обротица к дочерным веткам итемов/QUOTE]
Для чего? Selected.Text работает для любых веток в том числе и дочерних.

Правильно не разрешили. Зачем если все моделирование можно сделать на Акцессе, раз это контрольная.
А по поводу акцесса - это лучший выход ибо твою БД можно в локалке расшарить.

на счет Treeview
вот код:
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin

if TreeView1.Items[1].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 01_Rukovodstvo';

if TreeView1.Items[1].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 01_С_Советники';

if TreeView1.Items[2].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_1_Sentralnaia_Buhgalteria';

if TreeView1.Items[3].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_2_Otdel_deloproizvodstvo_i_kontr ola';

if TreeView1.Items[4].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_3_Otdel_informa_obespecheine';

ADOQuery1.Active:=true;
end;

этот код работает не коррекно

[fobass]

[QUOTE=Stilet;294415]

я немогу обротица к дочерным веткам итемов/QUOTE]
Для чего? Selected.Text работает для любых веток в том числе и дочерних.

Правильно не разрешили. Зачем если все моделирование можно сделать на Акцессе, раз это контрольная.
А по поводу акцесса - это лучший выход ибо твою БД можно в локалке расшарить.

на счет Treeview
вот код:
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin

if TreeView1.Items[1].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 01_Rukovodstvo';

if TreeView1.Items[1].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 01_С_Советники';

if TreeView1.Items[2].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_1_Sentralnaia_Buhgalteria';

if TreeView1.Items[3].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_2_Otdel_deloproizvodstvo_i_kontr ola';

if TreeView1.Items[4].Selected then
ADOQuery1.SQL.Text:='SELECT *FROM 02_3_Otdel_informa_obespecheine';

ADOQuery1.Active:=true;
end;

этот код работает не коррекно
вот фото: