[Yurk@]

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

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

[The Shadow]

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

[Yurk@]

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

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

[The Shadow]

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

[Aristarh Dark]

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

[The Shadow]

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

Код:

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-го датасэта и по нему делай выборку во втором.

Код:

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]

Код:

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

[Yurk@]

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

Код:

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

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

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

[mav_c]

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

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

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

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