Автозаполнение

← →
Dbrf (2002-11-20 08:54) [0]

Ув. Мастера! Подскажите, пожалуйста, можно ли при добавлении записей в БД организовать принцип автозаполнения?

← →
Reindeer Moss Eater (2002-11-20 08:58) [1]

автозаполнение можно реализовать:
Атрибут "Default" для поля, или триггеры.
А вот можно ли организовать принцип автозаполнения - не знаю.

← →
Victor_Cr (2002-11-20 09:04) [2]

Хороший вопрос... Что именно надо автозаполнять?

← →
Dbrf (2002-11-20 09:17) [3]

Для Victor_Cr:

Таблицу c помощью компонентов DBCombobox. Нужно организовать автозаполнение, как в HTML.

← →
Reindeer Moss Eater (2002-11-20 09:19) [4]

А в HTML есть автозаполнение???

← →
snake1977 (2002-11-20 09:20) [5]

Если IB то проще всего тригерами, если Paradox или DBF или чего то другое , то можно навесить событие AfterInsert или BeforePost с проверкой на Table1.State=dsInsert
Есть вариант, когда пользователь жмет кнопку "Добавить запись" и в обработчике onClick можно сделать с записью чего хош.
Т.е. проще говоря все зависит от конкретной задачи и ее реализации ;)

← →
Diest (2002-11-20 10:14) [6]

Если правильно понял, то вот:

nFile:TIniFile;

procedure TMForm.AddList(List: TDBComboBox); var i: integer; begin if List.Items.Count > 0 then begin try i := List.Items.IndexOf(List.Text); if List.Text <> List.Items[i] then List.Items.Add(List.Text); except List.Items.Add(List.Text); end; end else List.Items.Add(List.Text); end;

На событии нажатития ОК или т.п. (Данные уже использовались)
procedure TMForm.ComboBox1Click(Sender: TObject); begin if ComboBox1.Text="" then Exit; e1_Type.KeyValue:=nFile.ReadString(ComboBox1.Text,"Name","none"); ... ... e100_Type.KeyValue:=nFile.ReadInteger(ComboBox1.Text,"Year",0); end;

соответственно при закрытии формы ввода:
... AddList(ComboBox1); if (ComboBox1.Text <> "") and (ComboBox1 <> "0") then begin nFile.WriteString(ComboBox1.Text, "Name", e1_Type.KeyValue); ... end; ...

при активации:
... ComboBox1.Items.Clear; nFile.ReadSections(ComboBox1.Items); ...

nFile будет выглядеть соотв. так:

[ComboBox1.Text]
Name=
...
Year=0

[Diest]
Name = Vadim
...
Year = :)))

Если что, мыльте ...

← →
ShuraGrp (2002-11-20 10:15) [7]

onNewRecord

← →
KSergey (2002-11-20 14:07) [8]

> Dbrf (20.11.02 09:17)

Так что же такое автозаполнение в вашем понмании?! Не понятно!

← →
3JIA9I CyKA (2002-11-20 14:17) [9]

var
i : Integer;
begin
while BuHDbI_He_ynaJIu do
begin
Table1.Insert;
for i := 0 to Table1.Fields.Count - 1 do
Table1.Fields[i].Value = "BlaBlaBla";
Table1.Post;
end;
end;

Автозаполнение Найти похожие ветки