גישה לנתוני טבלה - קריאה ועריכה

• בדוגמאות בעמוד זה נעשה שימוש בטבלה בשם ClientTb, אך אותו עיקרון נכון לכל אובייקט טבלה.
• מספור השורות והעמודות מתחיל מ־0.
• כאשר מעבירים ערך שורה
  -1
  , המערכת משתמשת בשורה הפעילה הנוכחית של הטבלה.
• שינוי ערך בטבלה משנה את אובייקט הטבלה המקומי בזיכרון. שמירה למסד הנתונים היא פעולה נפרדת מול Server/DBconn.

מבנה הגישה לשורה ועמודה

ClientTb.Row:= 0;
Fman.SB_Message('Rows: ' + IntToStr(ClientTb.RowCount), False);
Fman.SB_Message('Columns: ' + IntToStr(ClientTb.ColCount), False);

Field - גישה לפי שם שדה

TableName.Field['Field Name', Row]

VAR ClientName: String;
Begin
  ClientName:= ClientTb.Field['Client Full Name', 0];
  Fman.SB_Message(ClientName, False);
End;

ClientTb.Field['Remarks', 0]:= 'Checked by script';

IF ClientTb.FldSet.Field_Exist('Client Full Name') Then
  Fman.SB_Message(ClientTb.Field['Client Full Name', 0], False);

Cell - גישה לפי מספר עמודה

TableName.Cell[Column, Row]

VAR FirstValue: String;
Begin
  FirstValue:= ClientTb.Cell[0, 0];
  Fman.SB_Message(FirstValue, False);
End;

ClientNumber:= ClientTb.IField['Client Number', 0];
ClientNumber:= ClientTb.ICell[0, 0];

סוגי הגישה לערכים

המרת נתונים מובנית בגישה לשדות

VAR S: String;
Begin
  S:= ClientTb.Field['Client Number', -1];
End;

VAR S: String;
    D: ThNumeric;
Begin
  S:= ServTicket.Field['Created On', -1];
  D:= ServTicket.RField['Created On', -1];
End;

VAR MyNum: Integer;
Begin
  MyNum:= ServTicket.IField['Created On', -1];
End;

ClientTb.Field['Client Number', 0]:= '1001';
ServTicket.Field['Created On', 0]:= '01/05/2026 08:30:00';
InvoiceTb.Field['Total Amount', 0]:= '1250.75';

ClientTb.IField['Client Number', 0]:= 1001;
ServTicket.RField['Created On', 0]:= Save_FixDT_Filter('01/05/2026 08:30:00', he_AutoDetect);
InvoiceTb.RField['Total Amount', 0]:= 1250.75;

• אם הערך מיועד להצגה, הדפסה או חיבור לטקסט, השתמש ב־Field.
• אם הערך הוא מפתח, סטטוס או מספר שלם, השתמש ב־IField.
• אם הערך הוא כסף, מספר עשרוני, שעה או FixDT, השתמש ב־RField.
• אם צריך לבדוק האם יש ערך בשדה, השתמש ב־BField.

קריאת נתונים מטבלה

IF ClientTb.Empty(0) Then  EXIT;

ClientName:= ClientTb.Field['Client Full Name', 0];
ClientNumber:= ClientTb.IField['Client Number', 0];
Balance:= ClientTb.RField['Balance', 0];

ClientTb.Row:= 0;

ClientName:= ClientTb.Field['Client Full Name', -1];
ClientNumber:= ClientTb.IField['Client Number', -1];

VAR Y: Integer;
Begin
  IF ClientTb.Empty(0) Then  EXIT;

  For Y:= 0 To ClientTb.RowCount-1 Do
    Begin
      Fman.SB_Message(ClientTb.Field['Client Full Name', Y], False);
    End;
End;

בדיקת קיום ערך באמצעות BField

IF ClientTb.BField['Mobile Phone', 0] Then
  Fman.SB_Message(ClientTb.Field['Mobile Phone', 0], False);

IF NOT ClientTb.BField['ID Number', 0] Then
  Fman.SB_Message('ID Number is missing.', True);

עריכת נתונים בטבלה

IF ClientTb.Empty(0) Then  EXIT;

ClientTb.Field['Remarks', 0]:= 'Updated by script';
ClientTb.IField['Status', 0]:= 1;
ClientTb.Modified_By_User:= True;

Server.Reset;
Server.Save(ClientTb, [], 'N');
IF NOT Server.Execute Then  EXIT;

הוספת שורה ועבודה עם טבלה פרטית

VAR WorkTb: ThPrvTable;
Begin
  WorkTb:= Fman.Create_PrvTable('hyp_Clients', 'WorkTb', ['Client Number', 'Client Full Name'], False);
  WorkTb.GlobalInit;

  WorkTb.IField['Client Number', 0]:= 1001;
  WorkTb.Field['Client Full Name', 0]:= 'First Client';

  WorkTb.Add;
  WorkTb.IField['Client Number', -1]:= 1002;
  WorkTb.Field['Client Full Name', -1]:= 'Second Client';
End;

טעויות נפוצות

תבניות קוד קצרות

ClientName:= ClientTb.Field['Client Full Name', 0];

ClientNumber:= ClientTb.IField['Client Number', 0];

CreatedOn:= ServTicket.RField['Created On', 0];

IF ClientTb.BField['Mobile Phone', 0] Then
  Phone:= ClientTb.Field['Mobile Phone', 0];

ClientTb.Field['Remarks', 0]:= 'Updated by script';

For Y:= 0 To ClientTb.RowCount-1 Do
  Fman.SB_Message(ClientTb.Field['Client Full Name', Y], False);