Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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...
В чем ошибка



ava   (2002-02-26 00:04) [1]

if not DataModule1.Tfdr.FindKey([FMyn.DBLookupComboBox2.Text,FMyn.DBLookupComboBox1.Text]) then

// если в таблице Tfdr нет строки содержащей запись FMyn.DBLookupComboBox2.Text (дата)= FMyn.DBLookupComboBox1.Text (имя) то "Ввод новых данных"

иначе показать данные соответствующей записи ( с возможностью дальнейшего редактирования)




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




Наверх





Память: 0.72 MB
Время: 0.019 c
1-80626           Eraser                2002-03-11 09:26  2002.03.25  
ско-ко размер файла


1-80565           Kalaha                2002-03-09 07:41  2002.03.25  
Регистр


3-80390           Malder                2002-02-20 21:25  2002.03.25  
Как управлять записями пользователей в Firebrid


6-80630           star                  2002-01-04 12:59  2002.03.25  
Как узнать, что outlook express отсылает письмо ?


3-80382           IronHawk              2002-02-22 11:04  2002.03.25  
Приветствую многоуважаемых Мастеров ! DBGrid->DataSource->Table ???