home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MOD_PREH.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-03-25  |  10KB  |  212 lines
  1. datez
  2. german
  3. w_cestinaf
  4. w_mistof
  5. id_orgf
  6. w_sit_osvf
  7. mm_autorf
  8. stanice7
  9. V pracovn
  10.  oblasti nen
  11.  otev
  12.  datab
  13. m chyst
  14. m datab
  15. zi ... 
  16. cx_xx
  17. RECNO()
  18. C_STRU
  19. C_STRU
  20. nazevtf
  21.  e h l e d   polo
  22. ek datab
  23. ze  FF
  24. ramecekf
  25. riisf
  26. RIIS    
  27. rtopf
  28. EXPORT
  29. mod2_2
  30. BROWSE
  31. BrousOrig
  32. mod_preh
  33.  Zadejte 
  34. jmeno(i) = "&_jmeno+'&_mezery'"
  35. jmeno(i) ="substr(&_jmeno,1,78)"
  36. jmeno(i) = "&_jmeno"
  37. jmeno(i) = "&_jmeno"
  38. jmeno(i) = "'&_mezery'+str(&_jmeno,&f_len,&f_dec)"
  39. jmeno(i) = "str(&_jmeno,&f_len,&f_dec)"
  40. jmeno(i) = "str(&_jmeno,&f_len,&f_dec)"
  41. jmeno(i) = "trans(&_jmeno,'@E') + '&_mezery'"
  42. jmeno(i) = "trans(&_jmeno,'@E')"
  43. jmeno(i) = "trans(&_jmeno,'@E')"
  44. IF &_jmeno
  45. jmeno(i) = " 'T' + '&_mezery'"
  46. jmeno(i) = " 'F' + '&_mezery'"
  47.  datab
  48. ze, zobraz
  49. me BROWSem (stiskni cokoliv) 
  50. del c_stru.dbf
  51. set date &_date
  52. del c_stru.dbf
  53. set date &_date
  54. chdir
  55. chdir
  56. _QOBR
  57. _DATE
  58. GERMAN
  59. W_CESTINA
  60. W_MISTO
  61. ID_ORG
  62. W_SIT_OSV
  63. MM_AUTOR
  64. W_KODPRN
  65. POLEX
  66. PROCX
  67. CLEFT
  68. CRIGHT
  69. FREEZE
  70. ORDER
  71. JMENO
  72. SPACEBAR
  73. TITLE
  74. TITLECOLORF1
  75. DETAIL
  76. F1PRG
  77. F4_JM
  78. F4PRG
  79. F7_JM
  80. F7PRG
  81. F9KEY
  82. F10_JM
  83. F10PRG
  84. DET_JM
  85. DETPRG
  86. RAMECEK
  87. F_INFO
  88. F_SIZE
  89. HLASKA
  90. CX_XX
  91. _KLIC
  92. C_STRU
  93. NAZEVT
  94. ENTER
  95. FIELD_NAMEFIELD_LEN
  96. _JMENO
  97. _MEZERY
  98. MEFIELD_TYPEF_LEN
  99. TYPEF_DEC
  100. FIELD_DEC
  101. BROUS
  102. AMEOBSAH
  103. MOD_PSV
  104. CHDIR
  105. pathz
  106. Chcete-li exportovat soubor
  107.  na disk nebo na disketu,
  108. vyberte p
  109. nou volbu. 
  110. ***  Pokud ne, zm
  111. te ESC.  ***
  112.  Pevn
  113.  disk 
  114.  Disketa    
  115. _PATH
  116. F_INFO
  117. F_SIZE
  118. W_EXP
  119. PRENOS1
  120. PRENOS2
  121. Zadejte 
  122. plnou cestu c
  123. le exportu:
  124. (Pokud adres
  125.  neexistuje,bude vytvo
  126. Cesta nebyla zad
  127. mkdir
  128.  Prob
  129.  export ... 
  130. copy to &naz_dbf
  131. set path to &Fadr,&Fadr\data   
  132. !copy &naz_dbf &plna_ces > null
  133. W_DISK
  134. CES_EXP
  135. HLASKA
  136. MKDIR
  137. _RECORD
  138. NAZ_DBF
  139. PANACEK
  140. PLNA_CES
  141. F_INFO
  142. pathz
  143. te disketu do 
  144. achty 
  145. Konec
  146. !&Fadr\test_d a:
  147. !&Fadr\test_d b:
  148. ERROR
  149. Disketa nebyla vlo
  150. copy to &naz_dbf
  151. set default to &sach
  152. set default to &drive
  153. =adir(f_info,'&naz_dbf')
  154. sta na disket
  155. set path to &Fadr,&Fadr\data   
  156.  Prob
  157.  export ... 
  158. !copy &naz_dbf &plna_ces >0
  159. _PATH
  160. W_DISK
  161. SACHTA
  162. HLASKA
  163. NAZ_DBF
  164. DRIVE
  165. FREESPACE
  166. F_SIZE
  167. F_INFO
  168. PLNA_CES
  169. PANACEK
  170.          - F9
  171.       - Esc
  172.        - F10
  173.       - Home,End,(Shift+)Tab,
  174. ipky,PgUp,PgDn
  175. Vyhled
  176. Konec
  177. Export
  178. Pohyb
  179. ty ... 
  180. t: FF
  181. ch): FFFQ^
  182. go top
  183. go bottom
  184. do mEXP_POL
  185. do seekni
  186. POCET
  187. NAZEVT
  188. colora
  189. COLOR
  190. OBRAZ
  191. colora
  192. CMESS
  193. PS_RETURN
  194. colora
  195. Zadejte kl
  196. MCOLOR
  197. OBRAZ
  198. MRECX
  199. W_EXP1
  200. MOD_PREH
  201. MEXP_POL
  202. PRENOS1
  203. PRENOS2
  204. BROUS
  205. HLASKA
  206. PANACEK
  207. BROUSORIG
  208. SEEKNI
  209. X:\OBEC\
  210. MOD_PREH.FXP
  211. X:\OBEC\MOD_PREH.PRG
  212.