הוספת טבלה

עד כאן הטבלה.

באשר למסך –

על אחת מהעמודות שתמיד יהיה בהן ערך (אם מחמת שהן חובה או אם מחמת שיהיה טריגר שימלא אותן) תכניס POST-FIELD. תפקידו של טריגר זה יהיה למלא את :$.SEKNAME במספר הרץ. כדי לחשב אותו, מצא את הערך המקסימלי הקיים והוסף לו 1.

זה עדיין לא הכל – ב PRE-INSERT עליך לבדוק שוב שהערך אינו קיים בטבלה (הוא יכול להיות קיים כי שני משתמשים פותחים שורה חדשה, מקבלים את אותו מקסימלי + 1, הראשון הצליח להכנס, כשהשני יורד מהשורה, הוא מנסה להכניס נתון קיים למפתח U וההכנסה נכשלת). אם מצאת שהוא קיים, קדם אותו באחד עד אשר לא תמצא ערך זהה בטבלה.

/* CURDATE/POST-FIELD */
:$.SEKNAME = '1000' ;
/* this is the number of the first record change it to whatever you like*/
SELECT ITOA(MAX(ATOI(SEKNAME)) + 1) INTO :$.SEKNAME
FROM YOURTABLENAME ;

/* PRE-INSERT */
:«»SEKNAME = :$.SEKNAME ;
LABEL 10 ;
GOTO 20 WHERE NOT EXISTS
(SELECT 'X'
FROM YOURTABLENAME
WHERE SEKNAME = :«»SEKNAME)
;
:«»SEKNAME = ITOA(ATOI(:«»SEKNAME) + 1);
LOOP 10 ;
LABEL 20 ;

:$.SEKNAME =:«»SEKNAME ;
[/code:1]