טבלאות מערכת וטבלאות פרטיות

במערכת התסריטים של הייפר, טבלה היא האובייקט המרכזי לאחסון וטיפול בנתונים. לרוב, הנתונים המוצגים למשתמש במסך מקורם בטבלאות ומולן עובד קוד התסריט אם לטובת שינוי ערכים ואם לטובת בדיקות, חישובים ופלטים. שרת הנתונים ומודול התסריטים של הייפר מכיר שני סוגי טבלאות: ThTable ו־ThPrvTable המוסברות בהמשך. לצורך הדמיה דמיין שטבלת נתונים של הייפר היא כמו גליון EXCEL המכיל ריבוי טורים (שדות), ולכל טור יש מאפיינים כגון: סוג הנתון (טקסט/מספר) שיטת תצוגה (מחרוזת, מספר שלם, מספר עשרוני, תאריך, טלפון, MEMO ועוד) רשימת ערכי בחירה הרשאות גישה ערך ברירת מחדל ערכי מקסימום ומינימום ועוד עליך להבין כי טבלת נתונים בהייפר היא אינה טבלת SQL, אלא אובייקט יחודי של התוכנה ופעולות כגון שאילתות טעינת נתונים וגישה לנתוני טבלאות מתבצעות באמצעות סט פקודות ייחודי להייפר כמוסבר בהמשך ההדרכה. עץ הניווט של עורך התסריטים (המוצג בצד שמאל של החלון) מנגיש למתכנת את אובייקטי הטבלאות הרלוונטיות והזמינות לאותו המודול ממנו הוא נפתח. לדוגמה, כפי שניתן לראות בתמונה 1 - מודול התסריטים הנפתח מחלון הלקוח, מנגיש למתכנת (אוטומטית) גישה לרשומת הלקוח עצמו יחד עם רשומות קשורות מהטבלאות: ClientTb - טבלת נתוני לקוח ראשית. Record_ExtnsionTb - טבלת הרחבה לנתוני לקוח. ContactsTb - טבלת אנשי קשר. Monthly_BillingTb - טבלת הוראות קבע / חיובים מתחדשים. Agreement_ppTb - טבלת הסכמים / התחייבויות. למרות שמודול התסריטים מנגיש מספר טבלאות מצומצם לאותו החלון, ניתן לייצר גישה לכל הטבלאות בהייפר באמצעות קוד ייעודי כמודרך בהמשך (לדוגמה: תמונה 2).

תמונה 1: טבלאות מונגשות כברירת מחדל בהתאם למודול

תמונה 2: טבלאות שנוצרו ידנית על ידי כותב הקוד

• ההדרכה והדוגמאות בעמוד זה ניתנות על כרטיס לקוח, אך הן רלוונטית לכל שאר המודולים של הייפר בהתאמה.
• לפני שאתה מתחיל לעבוד על טבלת נתונים וודא שאתה מכיר את מבנה, תוכן וקשרי הטבלה לטבלאות נסמכות וקשורות !
  לרשותך מדריך הטבלאות המקוון שלנו כאן

ההבדל בין ThTable לבין ThPrvTable

סוג טבלה	מאפיין מרכזי	מה בפועל מקבלים
ThTable	טבלה מערכתית מלאה לפי סכימה קיימת	תכיל את כל שדות הטבלה כפי שהוגדרו בסכימת המערכת, לרבות המאפיינים והרשאות עבודה של שדות הטבלה
ThPrvTable	טבלה פרטית בשליטת התסריט	מקושרת לטבלת מערכת, אך מכילה רשימת שדות שנבחרו סלקטיבית (באמצעות קוד התסריט), ללא יישום הרשאות גישה ועריכה של טבלת המערכת

מתי משתמשים בכל סוג טבלה

• עובדים מול טבלת מערכת מלאה של ישות או כל מודול אחר למשל: ClientTb (לקוחות), ContactsTb (אנשי קשר), Monthly_BillingTb (הוראות קבע) וכיו"ב.
• נדרשת גישה מלאה לשדות הקיימים בטבלה כפי שהוגדרו בסכימה ובהתחשב בהרשאות.
• צריך לבצע Load/Query/Update על כל נתוני ישות/טבלה קיימת.
• צריך לבצע הוספת רשומות חדשות לאותה טבלה מערכתית קיימת.

• צריך טבלת עבודה מקומית לצורך דיאלוג, בחירה זמנית, עיבוד ביניים או תצוגת עזר.
• רוצים לעבוד רק עם תת־סט שדות במקום כל שדות טבלת המקור.
• נדרש מבנה שדות דינמי שמוגדר על ידי התסריט עצמו.
• נדרש לבצע עדכון נתונים נקודתי לשדה אחד או יותר ברשומה קיימת.

יצירת טבלה (ThTable / ThPrvTable)

יצירת טבלת מערכת (ThTable) באמצעות Fman.Create_Table

הנחיות ביצוע

תמונות להמחשה

בעץ הניווט השמאלי פתח את "Fman" ולחץ לחיצה כפולה על "Create_Table" בחלון "Select Table from Library" בחר את טבלת המערכת אליה יבוצע הקישור קבע שם לטבלה והרשאת גישה (קריאה בלבד או קריאה ועריכה). בשלב זה התרחשו 2 דברים: נוצר אובייקט טבלה חדשה וריקה מנתונים, המוצגת בתחתית התפריט של Fman. הועתק ללוח הגזירים הקוד הנדרש ליצירת הטבלה וכעת עליך להדביק אותו במקום הנדרש בתסריט כמודרך בהמשך. כעת עליך לבצע Compile ולאחר מכן שמירה באחד מלחצני ה- SAVE בראש החלון.

קוד יצירת הטבלה המיוצר ע"י האשף

Var ServTicket: ThTable;
ServTicket:= Fman.Create_Table('hyp_Service Ticket', 'ServTicket', False);
ServTicket:= Fman.Find_Table('ServTicket');

דוגמאות ליישום קוד יצירה (ThTable)

// הכרזה בראש התסריט
VAR ServTicket: ThTable;

//=== INIT ===
Procedure Init;
Begin
  // יצירה ואתחול הטבלה בשלב ה- Init
  ServTicket:= Fman.Create_Table('hyp_Service Ticket', 'ServTicket', False);
End;


Procedure GetClientServiceTickets;
Begin
  // כאן נעבוד מול הטבלה: טעינת נתונים וכיו"ב
End;

//=== INIT ===
Procedure Init;
VAR ServTicket: ThTable;
Begin
  // יצירה ואתחול הטבלה בשלב ה- Init
  ServTicket:= Fman.Create_Table('hyp_Service Ticket', 'ServTicket', False);
End;


Procedure GetClientServiceTickets;
VAR ServTicket: ThTable;
Begin
  ServTicket:= Fman.Find_Table('ServTicket');

  // המשך עבודה מול הטבלה...
End;

Procedure DoSomething;
Var ServTicket: ThTable;
Begin
  ServTicket:= Fman.Create_Table('hyp_Service Ticket', 'ServTicket', False);
  ServTicket:= Fman.Find_Table('ServTicket');
  // המשך עבודה מול הטבלה ...
End;

יצירת טבלה פרטית (ThPrvTable) באמצעות Fman.Create_PrvTable

הנחיות ביצוע

תמונות להמחשה

בעץ הניווט השמאלי פתח את "Fman" ולחץ לחיצה כפולה על "Create_PrvTable" בחלון "Select Table from Library" בחר את טבלת המערכת אליה יבוצע הקישור בחלון "Create Table" קבע: שם לטבלה, בחר את השדות שיתקיימו בה ואת הרשאת גישה (קריאה בלבד או קריאה ועריכה). בשלב זה התרחשו 2 דברים: נוצר אובייקט טבלה חדשה וריקה מנתונים, המוצגת בתחתית התפריט של Fman. הועתק ללוח הגזירים הקוד הנדרש ליצירת הטבלה וכעת עליך להדביק אותו במקום הנדרש בתסריט כמודרך בהמשך. כעת עליך לבצע Compile ולאחר מכן שמירה באחד מלחצני ה- SAVE בראש החלון.

קוד יצירת הטבלה המיוצר ע"י האשף

Var ServTicket: ThPrvTable;
ServTicket:= Fman.Create_PrvTable('hyp_Service Ticket', 'ServTicket',
  ['Ticket Number','Ticket Status','Priority','About Order No.','Ticket Source','Title','Subject / Complain'], True);
ServTicket:= Fman.Find_PrvTable('ServTicket');

הגדרת שדות לטבלה פרטית

1. באמצעות אשף יצירת הטבלה (השלב השלישי בתהליך)
2. באמצעות "Add_DB_Field" - המוסיפה שדה מהסכימה של הטבלה המקושרת
3. באמצעות "Add_Field" - המוסיפה שדה על פי הגדרה פרטנית.
   משמע: למרות שהטבלה הפרטית מקושרת לסכימה של טבלת מערכת עם שדה המפתח בלבד, אין חובה ליישם את שאר שדות הסכימה, וניתן להוסיף לטבלה הפרטית כל שדה שתרצה.
   רק קח בחשבון שלא ניתן לשמור למסד הנתונים שדות או רשומה שאינה זהה במבנה לסכימה של הטבלה המקושרת!

דוגמאות ליישום קוד יצירה (ThPrvTable)

//=== INIT ===//
Procedure Init;
VAR Clients_Found: ThPrvTable;
Begin
  // יצירה ידנית ללא שימוש באשף מצריכה להגדיר את שדה המפתח של הטבלה המקושרת (במקרה הזה 'Client Number')
  Clients_Found:= Fman.Create_PrvTable('hyp_Clients', 'Clients_Found', ['Client Number'], True);

  // הוספת שדות ידנית (מהסכימה) ללא שם ויזואלי...
  Clients_Found.Add_DB_Field('Client Full Name', '');
  Clients_Found.Add_DB_Field('ID Number', '');
  Clients_Found.Add_DB_Field('Handling Status', '');
  Clients_Found.Add_DB_Field('Gender', '');
  Clients_Found.Add_DB_Field('Created On', '');
  Clients_Found.Add_DB_Field('Created By', '');

  // הוספת שדה נוסף שאינו בסכימה של טבלת הלקוחות המקושרת
  Clients_Found.Add_Field('ID as Int', 'מספר זהות נומרי', he_Integer, False, 0, he_Edit);	// הוספת שדה מספר לטבלת הלקוחות לטובת המרה מטקסט למספר

  // אתחול הטבלה כמוסבר בהמשך
  Clients_Found.GlobalInit;
End;

הפרוצדורה GlobalInit

שחרור טבלה ידנית