Вход на сайт
Воспоминания лисица, 09.05.2024
1826 просмотров
Перейти к просмотру всей ветки
uscheswoi_82 коренной житель
в ответ uscheswoi_82 19.05.24 01:32
Всё приходится вспоминать, т.к. давно не программировал в Microsoft Visual FoxPro. Типа у нас программа база данных для полиции:
Есть таблица taeter (т.е. преступники) см.:
А вот так выглядет форма frmtaeter.scx:
Вот код frmtaeter.scx:
событие cmdSpeichern:
IF !USED("taeter") THEN USE taeter IN 0 ENDIF SELECT MAX(taeter_id)+1 AS newID FROM taeter INTO CURSOR temp SELECT taeter APPEND BLANK REPLACE taeter_id WITH temp.newID IN taeter REPLACE vorname WITH thisform.txtVorname.Value IN taeter REPLACE nachname WITH thisform.txtNachname.Value IN taeter REPLACE gebdatum WITH thisform.txtGebDatum.Value IN taeter REPLACE geschlecht WITH thisform.txtGeschlecht.Value IN taeter REPLACE datum WITH thisform.txtDatum.Value IN taeter thisform.Release()
Событие cmdAbbrechen:
Thisform.Release()
Пояснение, вроде бы в Microsoft Visual FoxPro нет авто увеличения счётчика для ключевого поле, как в Microsoft Access, поэтому делают так:
SELECT MAX(taeter_id)+1 AS newID FROM taeter INTO CURSOR temp
Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение
Дневник тяжелобольного инвалида