home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / MINICAD / MC7DEMO / MINICAD.1 / RECFLD.TXT < prev    next >
Text File  |  1997-04-22  |  1KB  |  48 lines
  1. <!-------------------------------------------------------->
  2. Function GetRecField(ObHd:HANDLE;RecordName,FieldName:STRING):STRING;
  3. VAR
  4.     Q,CriteriaString:STRING;
  5. BEGIN
  6.     Q:=Chr(39);
  7.     CriteriaString:=Concat('(',Q,RecordName,Q,'.',Q,FieldName,Q,')');
  8.     GetRecField:=EvalStr(ObHd,CriteriaString);
  9. END;
  10. <!-------------------------------------------------------->
  11. Function IsRecAttached(theObject:HANDLE;RecordName:STRING):BOOLEAN;
  12. VAR
  13.     Q,CriteriaString:STRING;
  14.     AttachStatus:REAL;
  15. BEGIN
  16.     Q:=Chr(39);
  17.     CriteriaString:=Concat('(R IN [',Q,RecordName,Q,'])');
  18.     AttachStatus:=Eval(theObject,CriteriaString);
  19.     IF AttachStatus = 1.0 THEN
  20.         IsRecAttached:=True
  21.     ELSE
  22.         IsRecAttached:=False;
  23. END;
  24. <!-------------------------------------------------------->
  25. Function BuildRecCrit(Record,Field:STRING;RecordOnly,UseEqual:BOOLEAN):STRING;
  26. VAR
  27.     Q,CriteriaString:STRING;
  28. BEGIN
  29.     Q:=Chr(39);
  30.     
  31.     IF RecordOnly THEN BEGIN
  32.         CriteriaString:=Concat('(R IN[',Q,Record,Q,'])');
  33.         IF UseEqual THEN
  34.             CriteriaString:=Concat('=',CriteriaString);
  35.     END
  36.     ELSE BEGIN
  37.         CriteriaString:=Concat('(',Q,Record,Q,'.',Q,Field,Q,')');
  38.         IF UseEqual THEN
  39.             CriteriaString:=Concat('=',CriteriaString);
  40.     END;
  41.     
  42.     BuildRecCrit:=CriteriaString;
  43. END;
  44. 
  45.  
  46.  
  47.  
  48.