home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / CUSTOMER.IPS < prev    next >
Text File  |  1998-03-25  |  1KB  |  50 lines

  1. TYPE
  2.    customerRecord = RECORD
  3.       key firma   : string;
  4.       mesto       : string;
  5.    ENDRECORD
  6. ENDTYPE
  7. VAR
  8.    customer      : customerRecord;
  9.    query         : customerRecord;
  10.    customerTable : TABLE of customerRecord;
  11. ENDVAR
  12.  
  13. PROCEDURE main
  14.    ConsoleClear;
  15.    ConsoleShow;
  16.    customer.firma := 'OZOGAN';
  17.    customer.mesto := 'Liberec';
  18.    WriteRecord(customerTable, customer);
  19.  
  20.    customer.firma := 'SH PLUS';
  21.    customer.mesto := 'Liberec';
  22.    WriteRecord(customerTable, customer);
  23.  
  24.    customer.firma := 'G COMP';
  25.    customer.mesto := 'Praha';
  26.    WriteRecord(customerTable, customer);
  27.     
  28.    WRITELN('--- > zßznamy v tabulce p°ed aktualizacφ <---');
  29.    ForEachRecord(customerTable, query, 'printCustomerInfo');
  30.    SaveTable(customerTable, 'CUSTOMER.DTA');
  31.  
  32.    WRITELN('--- > zruÜenφ zßznamu <---');
  33.    customer.firma := 'SH PLUS';
  34.    SetKeysFromRecord(customerTable, customer);
  35.    DeleteRecord(customerTable);
  36.  
  37.    query.firma := 'SH PLUS';
  38.    SetKeysFromRecord(customerTable, query);
  39.    IF (readRecord(customerTable, query))
  40.       PrintCustomerInfo;
  41.    ELSE
  42.       WRITELN('Zßznam "' + query.firma + '" nebyl nalezen');
  43.    ENDIF
  44.    WRITELN('--- > zßznamy v tabulce po aktualizaci <---');
  45.    forEachRecord(customerTable, query, 'printCustomerInfo');
  46. ENDPROC
  47.  
  48. PROCEDURE PrintCustomerInfo;
  49.    WRITELN(query.firma, ', ', query.mesto);
  50. ENDPROC