Выпадающий список в таблице БД

[Antowka]

Здравствуйте, извините если такие вопросы уже задавались, неумею я искать
У меня такая проблема, не могу сделать так чтобы в какомто столбце выпадал список из другой таблицы созданной в той же БД в Access, в Аксесе все выпадает , а как сделать так чтобы и в делфи так же было?
И то же самое касательно маски ввода, в аксесе работает а в делфи нет.
Кто знает поджалуйста подскажите... Заранее благодарен

[D-mon]

PickList используй для Грида, будет те выпадающий список.

[Stilet]

+1 только наполняй его SELECT'ом из другой таблицы.

И то же самое касательно маски ввода, в аксесе работает а в делфи нет.

Какой маски?

[Antowka]

Спсибо

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

Какой маски?

Ну маска ввода например дата дд.мм.гггг делаю ее в acces все внорме а в делфи нет.
И еще один вопрос, мне нужно сделать маску ввода IP адреса типа aaa.bbb.vvv.ggg это все числа, aaa -от 0 до 233, bbb 0-255 vvv от 0-255 и ggg от 1-255, как это сделать?

[Domovoy]

А что лукапы уже не в моде?

[Antowka]

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

А что лукапы уже не в моде?

Да я вообще ламак, если можно поподробнее как это можно сделать?

[BarD]

У меня таже проблема, необходимо добавить выпадающий список в DBGrid.
Можно ли подробней описать как создать лукап на другую таблицу программно (!).

[AlexandrSid]

Создаешь на форме еще одну таблицу TADOTable2 например. Привязываешь ее к таблице в базе данных список которой должен выпадать. Добавляешь в первой (основной) таблице поле (NewField),
ПАРАМЕНТЫ:
fieldtype = lookup;
DataSet = TADOTable2;
KeyFields = Поле основной таблице по которому оно связано с таб. TADOTable2;
Lookup Keys = Поле таблицы TADOTable2 через которое она связана с осн. таблице;
Result Field = Поля таб. TADOTable2 которое будет показываться в выпадающем списке.

[BarD]

Это я прекрасно знаю.
Вопрос в другом, как это сделать программно (!!!). На это не отвечает даже справка Delphi.

Попытки играть с методами ничего не дали

Table1.FindField('Выпадающий список').Lookup:=true;
Table1.FindField('Выпадающий список').DataSet.Create(Table2);
Table1.FindField('Выпадающий список').LookupKeyFields:='Ключ';
Table1.FindField('Выпадающий список').LookupResultField:='Поле для замены';

Па-ма-ги-те!

[Domovoy]

procedure TForm1.FormCreate(Sender: TObject);
var
  F:TField;
begin
  qryWareHouse.close;
  qryWareHouse.FieldDefs.Update;
  F:=TStringField.Create(qryWareHouse);
  with f do
  begin
    FieldName:='name';
    DisplayLabel:='Сотрудник';
    FieldKind:=fkLookup;
    DisplayWidth:=10;
    LookupDataSet:=qryManager;
    KeyFields:='idManager';
    LookupKeyFields:='idManager';
    LookupResultField:='name';
    DataSet:=qryWareHouse;
  end;
  qryWareHouse.Open;
end;

Думаю всё ясно