home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / invex / ozogan / customer.ips < prev    next >
Text File  |  1997-07-13  |  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.    customer.firma := 'OZOGAN';
  16.    customer.mesto := 'Liberec';
  17.    writeRecord(customerTable, customer);
  18.  
  19.    customer.firma := 'SH PLUS';
  20.    customer.mesto := 'Liberec';
  21.    writeRecord(customerTable, customer);
  22.  
  23.    customer.firma := 'G COMP';
  24.    customer.mesto := 'Praha';
  25.    writeRecord(customerTable, customer);
  26.     
  27.    WRITELN('--- > zßznamy v tabulce p°ed aktualizacφ <---');
  28.    forEachRecord(customerTable, query, 'printCustomerInfo');
  29.    saveTable(customerTable, 'CUSTOMER.DTA');
  30.  
  31.    WRITELN('--- > zruÜenφ zßznamu <---');
  32.    customer.firma := 'SH PLUS';
  33.    setKeysFromRecord(customerTable, customer);
  34.    deleteRecord(customerTable);
  35.  
  36.    query.firma := 'SH PLUS';
  37.    setKeysFromRecord(customerTable, query);
  38.    IF (readRecord(customerTable, query))
  39.       printCustomerInfo;
  40.    ELSE
  41.       WRITELN('Zßznam "' + query.firma + '" nebyl nalezen');
  42.    ENDIF
  43.  
  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