[Yurk@]

Ребята, подскажите плиз-з-з-з
Имеется 2 TDBLookUpComboBox.
В одном из них содержится список отделов, а в другом - список сотрудников этих отделов.

??? Можло ли реализовать прогу так, чтобы при выборе определённого отдела - во втором LookUpComboBox оставались только сотрудники ИМЕННО ЭТОГО отдела. А остальные скрывалить ??? И как это сделать?

[The Shadow]

Попробуй хранить имена сотрудников в TStringList, а его первый элемент - название отдела. В событие OnChange ищи этот StringList по его первому элементу и остальные уже загружай в ComboBox.

[Yurk@]

А если понадобится изменить список - придётся перекомпилить прогу !!!

Мне говорили - можно как-то с помощю индексирования. Но как ???

[The Shadow]

В TStringList есть такие методы, как Add, Insert, Delete, и тому подобные.

[Aristarh Dark]

Насколько я помню (т.к. сам я этим компонентом не пользуюсь) TDBLookUpComboBox настраивается на конкретное поле датасета. Первый у тебя настроен на поле содержащее имена (наименования) отделов. Значит после выбора отдела, формируй запрос к таблице сотрудников с условием отфильтровки только тех кто в данном (выбранном) отделе работает и на поле с фамилией сформированного датасета настраивай второй TDBLookUpComboBox.

[The Shadow]

Я с этим компонентом не работал. Поэтому я и предложил такой вариант. Если он подходит, то вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     ListBox1: TListBox;     ListBox2: TListBox;     procedure FormCreate(Sender: TObject);     procedure ListBox1Click(Sender: TObject);     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);   private   public   end; var   Form1: TForm1;   All: array of TStringList; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin SetLength(All, 3); All[0]:=TStringList.Create; All[0].Add('I отдел'); All[0].Add('I сотрудник I отдела'); All[0].Add('II сотрудник I отдела'); All[1]:=TStringList.Create; All[1].Add('II отдел'); All[1].Add('II сотрудник II отдела'); All[2]:=TStringList.Create; All[2].Add('III отдел'); All[2].Add('I сотрудник III отдела'); All[2].Add('II сотрудник III отдела'); All[2].Add('III сотрудник III отдела'); for i:=0 to Length(All) - 1 do ListBox1.Items.Add(All[i].Strings[0]); end; procedure TForm1.ListBox1Click(Sender: TObject); var i: Integer; begin if ListBox1.ItemIndex = -1 then Exit; ListBox2.Items.Clear; for i:=1 to All[ListBox1.ItemIndex].Count - 1 do ListBox2.Items.Add(All[ListBox1.ItemIndex].Strings[i]) end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var i: Integer; begin for i:=0 to Length(All) - 1 do All[i].Destroy; All:=nil; end; end.

[Yurk@]

ОК.
Попробую.
Но это не то, что мне бы хотелось сделать !

[The Shadow]

Я понял. Только, как я уже и говорил, с TDBLookUpComboBox'ами я не работал.

[mav_c]

Сообщение от Yurk@

ОК.
Попробую.
Но это не то, что мне бы хотелось сделать !

Сделай так:
Обрабатывай событие AfterScrool 1-го датасэта и по нему делай выборку во втором.

Код:

1 2 3 4 5 6 7 8

DataSet1.SQL.Text := 'SELECT * FROM departments'; DataSet2.SQL.Text := 'SELECT * FROM employes WHERE department = :department'; ... procedure DataSet1AfterScrool(DataSet : TDataSet); begin  DataSet2.ParamByName('department').AsInteger :=   DataSet2.FieldByName('id').AsInteger; end;

Возможно не самый лаконичный вариант. Зато с любыми компонентами и НД.

[Yurk@]

ОЧЕНЬ даже неплохой вариант!
Обязательно попробую ...

[Yurk@]

ОЧЕНЬ даже неплохой вариант!
Обязательно попробую ...
Спасибо !!!

[Yurk@]

Имеется DBGrid и Форма которая эту же DBGrid заполняет (редактирование DBGrid запрещено) на разных формах.
Можно ли взять с DBGrid данные одного какого-то поля и передать на редактирование в заполняющую Форму.
И как это сделать ??????
Помогите плиз!

[Aristarh Dark]

Код:

1	Form2.Edit1.Text:=Form1.DBGrid1.DataSource.DataSet.FieldByName('SomeName').AsString;

[Yurk@]

Сообщение от Aristarh Dark

Код:

Немножко не то!
Ти передаёшь только одно значение в поле Edit, а у меня этих полей около 15. И мне нужно чтобы они мне открылись по одному полю.

Пример: Есть список анкет сотрудников (DBGrid) - мне нужно выбрать одного сотрудника и по нажатии кнопки РЕДАКТИРОВАТЬ данная анкета должна открыться в другой форме для редактирования (но не в DBGrid).

[mav_c]

Сообщение от Yurk@

Немножко не то!
Ти передаёшь только одно значение в поле Edit, а у меня этих полей около 15. И мне нужно чтобы они мне открылись по одному полю.

Пример: Есть список анкет сотрудников (DBGrid) - мне нужно выбрать одного сотрудника и по нажатии кнопки РЕДАКТИРОВАТЬ данная анкета должна открыться в другой форме для редактирования (но не в DBGrid).

Ну ты на второй форми располагай DBEdit'ы и превежи их к нужным полям. Вот, только не забудь в uses форму на кторой распалагается источник данных