Форум: "Базы";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
ВнизВ чем ошибка Найти похожие ветки
← →
ava (2002-02-25 23:05) [0]Пытаюсь сделать так что бы в базе данных была единственная запись с полями Data и Name
10: begin
if ActiveMDIChild <> nil then
ActiveMDIChild.Close;
if not DataModule1.Tfdr.FindKey([FMyn.DBLookupComboBox2.Text,FMyn.DBLookupComboBox1.Text]) then
begin
ShowMessage ("Ввод новых данных!!!");
begin
DataModule1.Tfdr.Insert;
DataModule1.TFdrName.Value := FMyn.DBLookupComboBox1.Text;
Form10 := TForm10.Create(self);
Form10.Button1.Visible := False;
Form10.Button2.Visible := True;
Form10.Button3.Visible := True;
end;
end
else
begin
Form10 := TForm10.Create(self);
FMyn.TreeView1.SetFocus;
end;
end;
Все вродебы нормально, но иногда ИМ всетаки удается сделать их 2,3...
В чем ошибка
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c