|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.10.2011, 20:25 | #1 |
Новичок
Джуниор
Регистрация: 13.10.2011
Сообщений: 1
|
Проверка первичного ключа в Delphi
procedure TForm1.Button1Click(Sender: TObject); //Добавить
begin reset(baz,sizeof(students)); reset(baz1); BlockRead(baz,stud1,filesize(baz)); found := False; k:=1; repeat if strtoint(edit1.Text)= stud1[k].zach then found := True else inc(k); until (k=filesize(baz)+2) or (found); if found = True then begin showmessage('Такой номер зачетной книжки уже существует') end else with stud do begin zach:= strtoint(edit1.Text); name:= edit2.Text; pol:= combobox1.Text; date:= maskedit1.Text; group:= strtoint (edit3.Text); stipendia:= combobox2.Text; end; seek(baz1,filesize(baz1)); Write(baz1,stud); closefile(baz); closefile(baz1); Пишет, что номер зачётки есть, но всё равно вносит эту запись. |
20.10.2011, 21:37 | #2 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 388
|
у вас код
Код:
на неконкретные вопросы даю неконкретные ответы ...
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Возврат первичного ключа | tokloo | PHP | 11 | 12.08.2011 22:12 |
Delphi считывание значения первичного ключа | world12_tk | Помощь студентам | 10 | 22.03.2011 09:23 |
Access + ADO, проверка ключа на уникальность | KiLLiR | БД в Delphi | 2 | 23.02.2009 10:36 |
вывод первичного ключа | ZBoris | SQL, базы данных | 3 | 09.02.2009 17:38 |
Проверка ключа в реестре | Marsik | Помощь студентам | 5 | 24.04.2008 18:46 |