שאילתות מתקדמות

• כל הדוגמאות בעמוד זה מניחות שאתה כבר מכיר את מבנה העבודה הבסיסי: Reset, Query, Where, Close_Query ו־Execute.
• בכל קריאת Query או Query_And_Remember יש להעביר את מאגר החיפוש במפורש, לדוגמה 'N', 'A' או 'NA'.
• בכל קריאת Where יש להעביר LogicGate במפורש, לדוגמה he_AND או he_OR.
• שם זיכרון (המוסבר בהמשך) חייב להיות שם חוקי ובאורך של 4 תווים לפחות.

Remember_Nickname - שמירת תוצאת Query לשימוש חוזר

Server.Query(HTable: ThTable; Clear_On_Init: Boolean; Remember_Nickname: String; Attrib: String);

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

Server.Reset;

Server.Query(ClientsTb, True, 'Clients_Buf', 'N');
Server.Where_SameVal('Handling Status', 1, he_AND);
Server.Close_Query;

Server.Query(ServTicket, True, '', 'N');
Server.Where_Included_In_Remembered_Query('Entity Number', 'Clients_Buf', 'Client Number', he_AND);
Server.Close_Query;

IF NOT Server.Execute Then  EXIT;

VAR Clients_Buf: ThPrvTable;
    I: Integer;
Begin
  Clients_Buf:= Fman.Create_PrvTable('hyp_Clients', 'Clients_Buf', ['Client Number'], False);
  Clients_Buf.GlobalInit;

  // שאילתה ראשונה על מאגר הלקוחות
  Server.Reset;
  Server.Query(Clients_Buf, True, '', 'N');
  Server.Where_SameVal('Handling Status', 1, he_AND);
  Server.Close_Query;
  IF NOT Server.Execute Then  EXIT;

  IF Clients_Buf.Empty(0) Then Exit; // אם לא נמצאו תוצאות בשאילתה ראשונה - צא

  // שאילתה שנייה על מאגר קריאות השירות
  Server.Reset;
  Server.Query(ServTicket, True, '', 'N');
  For I:= 0 To Clients_Buf.RowCount-1 Do  // הוספת כל ערכי הלקוחות לאותה שאילתה בלולאה
    Server.Where_SameVal('Entity Number', Clients_Buf.IField['Client Number', I], he_AND);

  Server.Close_Query;
  IF NOT Server.Execute Then  EXIT;
End;

Where_Included_In_Remembered_Query - שימוש בתוצאת זיכרון

Server.Where_Included_In_Remembered_Query(FieldName: String; From_Table_Nickname: String; From_Field_Name: String; LogicGate: Thds_Logic);

Query_And_Remember - שאילתה מקשרת ללא טעינה מקומית

Server.Query_And_Remember(TableName: String; Remember_Nickname: String; SelectFields: ThFlds_Name_Array; Attrib: String);

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

Server.Reset;

Server.Query_And_Remember('hyp_Client Contacts', 'Contact_Buf', ['File Number'], 'N');
Server.Where_String_Search('Contact Full Name', 'David', he_AND);
Server.Close_Query;

Server.Query(ClientsTb, True, '', 'N');
Server.Where_Included_In_Remembered_Query('Client Number', 'Contact_Buf', 'File Number', he_AND);
Server.Close_Query;

IF NOT Server.Execute Then  EXIT;

ההבדל בין Query עם Remember_Nickname לבין Query_And_Remember

טעויות נפוצות בשאילתות מקשרות

• שימוש בשם זיכרון קצר מדי. שם הזיכרון חייב להיות באורך של 4 תווים לפחות.
• שימוש בשם זיכרון שונה בין השאילתה ששומרת את התוצאה לבין השאילתה שמשתמשת בה.
• העברת From_Field_Name שאינו נמצא בתוצאה שנשמרה בזיכרון.
• העברת שדה לא קיים בתוך SelectFields של Query_And_Remember.
• השמטת LogicGate מקריאת Where_Included_In_Remembered_Query.
• השמטת Attrib מקריאת Query או Query_And_Remember.