home *** CD-ROM | disk | FTP | other *** search
/ Games 1995 to 2000 / Games.iso / SexTetris / CREATE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-09-16  |  4.0 KB  |  122 lines
  1. #include "microlib.h"
  2.  
  3. /*
  4.     F4FIELD_INFO
  5.         Field Name
  6.         Type
  7.         Width
  8.         Decimals
  9.  
  10.     T4TAG_INFO
  11.         Tag name
  12.         Key expression
  13.         Filter Expression
  14.         Unique
  15.         Descending
  16.  
  17. */
  18.  
  19. int incrow(void);
  20.  
  21. F4FIELD_INFO  dbf_institut[] = {
  22.     { "CODE",          'C',        7,          0 },
  23.     { "TITLE1",        'C',       50,          0 },
  24.     { "TITLE2",        'C',       50,          0 },
  25.     { "TITLE3",        'C',       50,          0 },
  26.     { "ADDRESS1",      'C',       50,          0 },
  27.     { "ADDRESS2",      'C',       50,          0 },
  28.     { "ZIP",           'C',       15,          0 },
  29.     { "CITY",          'C',       20,          0 },
  30.     { "COUNTRY",       'C',       20,          0 },
  31.     { "TOPIC",         'C',        7,          0 },
  32.     { "SUPERVISOR",    'C',        7,          0 },
  33.     { "PHONE1",        'C',       20,          0 },
  34.     { "PHONE2",        'C',       20,          0 },
  35.     { "FAX",           'C',       15,          0 },
  36.     { "TELEX",         'C',       15,          0 },
  37.     { 0, 0, 0, 0 },
  38. };
  39.  
  40. T4TAG_INFO  tag_institut[] = {
  41.     { "CODE_T",     "CODE",           ".NOT. DELETED()",  0,     0 },
  42.     { "NAME",       "TITLE1",         ".NOT. DELETED()",  0,     0 },
  43.     { 0, 0, 0, 0, 0 },
  44. };
  45.  
  46. F4FIELD_INFO  dbf_topics[] = {
  47.     { "CODE",          'C',        7,          0 },
  48.     { "ABBREV",        'C',       20,          0 },
  49.     { "DESCR",         'C',       40,          0 },
  50.     { 0, 0, 0, 0 },
  51. };
  52.  
  53. T4TAG_INFO  tag_topics[] = {
  54.     { "CODE_T",     "CODE",           ".NOT. DELETED()",  0,     0 },
  55.     { "NAME",       "ABBREV",         ".NOT. DELETED()",  0,     0 },
  56.     { 0, 0, 0, 0, 0 },
  57. };
  58.  
  59. F4FIELD_INFO  dbf_professions[] = {
  60.     { "CODE",          'C',        7,          0 },
  61.     { "DESCR",         'C',       40,          0 },
  62.     { 0, 0, 0, 0 },
  63. };
  64.  
  65. T4TAG_INFO  tag_professions[] = {
  66.     { "CODE_T",     "CODE",           ".NOT. DELETED()",  0,     0 },
  67.     { 0, 0, 0, 0, 0 },
  68. };
  69.  
  70. F4FIELD_INFO  dbf_persons[] = {
  71.     { "CODE",          'C',        7,          0 },
  72.     { "SURNAME",       'C',       50,          0 },
  73.     { "NAME",          'C',       50,          0 },
  74.     { "PROFESSION",    'C',       20,          0 },
  75.     { "HADDRESS",      'C',       50,          0 },
  76.     { "HCITY",         'C',       20,          0 },
  77.     { "HZIP",          'C',       10,          0 },
  78.     { "HCOUNTRY",      'C',       20,          0 },
  79.     { "HPHONE1",       'C',       20,          0 },
  80.     { "HPHONE2",       'C',       20,          0 },
  81.     { "HFAX",          'C',       15,          0 },
  82.     { "HTELEX",        'C',       15,          0 },
  83.     { "HENV_TITLE",    'C',       20,          0 },
  84.     { "HLET_TITLE",    'C',       20,          0 },
  85.     { "WADDRESS",      'C',       50,          0 },
  86.     { "WCITY",         'C',       20,          0 },
  87.     { "WZIP",          'C',       10,          0 },
  88.     { "WCOUNTRY",      'C',       20,          0 },
  89.     { "WPHONE1",       'C',       20,          0 },
  90.     { "WEXT1",         'C',        5,          0 },
  91.     { "WPHONE2",       'C',       20,          0 },
  92.     { "WEXT2",         'C',        5,          0 },
  93.     { "WFAX",          'C',       15,          0 },
  94.     { "WTELEX",        'C',       15,          0 },
  95.     { "WENV_TITLE",    'C',       20,          0 },
  96.     { "WLET_TITLE",    'C',       20,          0 },
  97.     { 0, 0, 0, 0 },
  98. };
  99.  
  100. T4TAG_INFO  tag_persons[] = {
  101.     { "CODE_T",     "CODE",           ".NOT. DELETED()",  0,     0 },
  102.     { "SURNAME",    "SURNAME",        ".NOT. DELETED()",  0,     0 },
  103.     { 0, 0, 0, 0, 0 },
  104. };
  105.  
  106. C4CODE set;
  107.  
  108. void main(void)
  109. {
  110.     int w_ref;
  111.  
  112.     d4init(&set);
  113.  
  114.     set.auto_open = 1;
  115.     set.safety    = 0;
  116.  
  117.     d4close(d4create(&set, "INSTITUT.DBF", dbf_institut,   tag_institut));
  118.     d4close(d4create(&set, "TOPICS.DBF",   dbf_topics,     tag_topics));
  119.     d4close(d4create(&set, "PROFESS.DBF",  dbf_professions,tag_professions));
  120.     d4close(d4create(&set, "PERSONS.DBF",  dbf_persons,    tag_persons));
  121. }
  122.