Форум: "Базы";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c