home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MODUD0X.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-04-08  |  16KB  |  407 lines
  1. modud0x
  2. MODUD0X
  3. trMOD_SYS
  4. v)PREHLED
  5. ehled  d a t a b 
  6.   syst
  7. RIIS 0.0
  8. modud0x
  9. Zadejte n
  10. zev dbf :
  11. Funkce
  12. modud1x
  13. Aktual
  14. modud2x
  15. m_param
  16. ! flag &f_adr\data\m_dbf.dbf -t >nul
  17. m_dbf
  18. ! flag &f_adr\data\m_dbf.dbf t >nul
  19. m_dbf
  20. m_dbf
  21. nazev
  22. ! flag &f_adr\data\m_idx.dbf -t >nul
  23. m_idx
  24. ! flag &f_adr\data\m_idx.dbf t >nul
  25. m_idx
  26. m_idx
  27. cesta
  28. zev DB
  29. m_dbf.nazev_dbf
  30. m_dbf.nazev_dbf
  31. Popis datab
  32. m_dbf.popis_dbf
  33. m_dbf.popis_dbf
  34. Cesta 
  35. m_dbf.cesta
  36. m_dbf.cesta
  37. Dat.ind.
  38. tran(m_dbf.datum_akt,'@E')
  39. m_dbf.datum_akt
  40. POLEX
  41. trFREEZE
  42. v)LEVA
  43.   PRAVA
  44. * DOL
  45. elect RAMECEK
  46. _dNAZEVT
  47. stRIIS
  48. =ltriNADPIS
  49. lecPROCX
  50. deleF1
  51. ag all
  52. select F3
  53. seekF4
  54. esta+w_F6
  55. ile cesF9
  56. azev_dbF9KEY
  57. ta+wF10
  58. v and F10_JM
  59.    F10PRG
  60. lecDETAIL
  61. ldbDET_JM
  62. casENTER
  63.  ---SPACEBAR
  64. iM_PARAM
  65. --W_SIT
  66. se lPOLE0
  67. m(rtM_DBF
  68. dx.nCESTA
  69. g)))NAZEV_DBF
  70. NAZEV
  71. M_IDX
  72.    iNAZEV_IDX
  73. NAZEV_TAG
  74. JMENO
  75. 'comHODN
  76.  MOD_PSV
  77.  Indexace aktu
  78.  datab
  79.  Indexace v
  80. ech datab
  81.  Prohl
  82.  datab
  83.  Test integrity index
  84.  Konec 
  85. ba datab
  86. ba datab
  87. set order to &w_order
  88. set order to &w_order
  89. set order to &w_order
  90. trM_DBF
  91. v)W_ORDER
  92.   VOL
  93. W_MODUD1X
  94. W_POC_CH
  95.  INDEX_AKT
  96. INDEX_VSE
  97. ZOBR_DBF
  98. TEST_IDX
  99. cPS_RETURN
  100. c_chyby
  101. c_chyby
  102. nazev
  103. case !file('&w_dbf')
  104. Datab
  105. ze FF
  106.  neexistuje
  107. M_DBF   
  108. M_IDX   
  109. use &w_dbf 
  110. Datab
  111. ze se kop
  112. ruje ...
  113. c_test
  114. c_test
  115. RIIS 1.7
  116. et ? (a/N)  
  117. Chyby v datab
  118. hem testu integrity index
  119. nebyla nelezena 
  120.  chyba
  121. trMOD_SYS
  122. v)ST_REC
  123.   POC_CHYB
  124. MODUD1X
  125. POCET
  126.  POCETC
  127. NALLPZAZ
  128. C_CHYBY
  129. NAZEV
  130. cM_DBF
  131. T_PRERUS
  132. W_DBF
  133. ect STAN_DBF
  134. kCESTA
  135. a+w_NAZEV_DBF
  136. HLASKA
  137. cesC_TEST
  138. a+wPRER
  139. and W_WIN
  140. Datab
  141. Index
  142.  indexu
  143. Hodnota
  144. et chyb
  145.  for 
  146.  FOR 
  147. compact 
  148. ascending
  149. descending
  150. , index 
  151. : Sch
  152. use &w_dbf order &w_tag 
  153. , index 
  154. : Schazi klic
  155. \data\
  156. use &w_dbf index &w_idx
  157. w_klic2 = &w_klic1
  158. w_klic2f
  159. w_klic2f
  160. w_klic2f
  161. 9999999999
  162. c_chyby
  163. w_klic4 = &w_klic1
  164. 9999999999
  165. c_chyby
  166. M_IDX
  167. trM_DBF
  168. v)CESTA
  169.   NAZEV_DBF
  170. MODUD1X
  171. KLIC_IDX
  172. NAZEV_IDX
  173. NAZEV_TAG
  174. KONEC_IDX
  175. TYP_IDX
  176. cORD_IDX
  177. HLASKA
  178. W_KLIC
  179. kW_TAG
  180. _W_IDX
  181. F_ADR
  182. cesC_TEST
  183. W_KLIC1
  184. wW_KLIC3
  185. d W_KLIC2
  186.  POC_CHYB
  187. cC_CHYBY
  188. bW_KLIC4
  189. if !file('&w_dbf')
  190. Datab
  191. ze neexistuje
  192. M_DBF   
  193. M_IDX
  194. use &w_dbf again
  195. use &w_dbf 
  196. go top
  197. go bottom
  198. W_DBF
  199. trSTAN_DBF
  200. )M_DBF
  201.   CESTA
  202. NAZEV_DBF
  203. HLASKA
  204. W_WIN
  205. C_IDX
  206. case !file('&w_dbf')
  207. Datab
  208. ze neexistuje
  209. M_DBF   
  210. M_IDX   
  211. Tuto datab
  212. zi nelze indexovat, prob
  213.  automaticky
  214.  Prob
  215.  kondenzace datab
  216. ze ... 
  217. !flag &x_dbf -t >nul
  218. do chyba with error()
  219. use &w_dbf excl
  220. do moderror with sys(16),error(),lineno(1)
  221. &w_pom
  222. !flag &x_dbf t >nul
  223. use &w_dbf excl
  224. trMOD_SYS
  225. )W_DBF
  226.   STAN_DBF
  227. M_DBF
  228. CESTA
  229. NAZEV_DBF
  230. HLASKA
  231. X_DBF
  232. W_SIT
  233. KONT_HL
  234. MEXIT
  235. MAZANI
  236. kW_POM
  237. _INDEXACE
  238. FFFZ^D
  239.   Prob
  240.  indexace datab
  241. ze ...  
  242. cesta
  243. use &w_dbf excl
  244. FFFZ^D
  245. select &st_seldb
  246. compact 
  247. ascending
  248. descending
  249. , index 
  250. : Schazi klic
  251. CZECH
  252. index on &w_klic tag &w_tag &konec_idx
  253. MACHINE
  254. , index 
  255. : Schazi klic
  256. CZECH
  257. index on &w_klic to &w_idx
  258. MACHINE
  259. select &st_seldb
  260. select &st_sel
  261. W_CESTA
  262. trW_NAZEV
  263. )ST_SEL
  264.   ST_SELDB
  265. W_CESTA2
  266. STAN_PATH
  267. W_DBF
  268. M_IDX
  269. CESTA
  270. NAZEV_DBF
  271. NAZEV_IDX
  272. NAZEV_TAG
  273. KONEC_IDX
  274. TYP_IDX
  275. ORD_IDX
  276. KLIC_IDX
  277. HLASKA
  278. wM_DBF
  279. d W_KLIC
  280. W_TAG
  281. cORD_CES
  282. W_IDX
  283. DATUM_AKT
  284.   Prob
  285.  indexace datab
  286.  ...   
  287. case !file('&w_dbf')
  288. Datab
  289. ze FF
  290.  neexistuje
  291. M_DBF   
  292. M_IDX   
  293. !flag &x_dbf -t >nul
  294. do chyba with error()
  295. use &w_dbf excl
  296. do moderror with sys(16),error(),lineno(1)
  297. &w_pom
  298. !flag &x_dbf t >nul
  299. use &w_dbf excl
  300. trMOD_SYS
  301. )ST_REC
  302. _SELDB
  303. POCET
  304. POCETC
  305. NALLPZAZ
  306. M_DBF
  307. NAZEV_DBF
  308. W_DBF
  309. STAN_DBF
  310. CESTA
  311. HLASKA
  312. X_DBF
  313. W_SIT
  314. KONT_HL
  315. MEXIT
  316. PROCENTA
  317. MAZANI
  318. wW_POM
  319. d INDEXACE
  320.  Poru
  321.  hlavi
  322. ka, oprava ... 
  323. Oprava hlavi
  324. ky neprob
  325. , pou
  326. ijte HEADER-
  327. FILE_HANDLX_DBF
  328. )IFP_SIZE
  329. LIFP_TOP
  330. DLPOC_ZAZDB
  331. HANDLPOC2
  332. POCET_C
  333. POZICE1
  334. HANDLPOZ2
  335. W_POZ
  336. DELKA1
  337. HANDLDEL2
  338. W_DEL
  339. POCET_CV
  340. wOBRHL
  341.  MESS
  342. _HANDLST_POM
  343. ST_POC1
  344. ST_POC2
  345. ST_POC3
  346. iW_STRING
  347. LHLASKA
  348. colora
  349. set color to &Mcolor
  350. _HANDLMCOLOR
  351. POCET
  352. ANDLPOCETC
  353. colora
  354. SET COLOR TO &col
  355. CMESS
  356. ANDLCOL
  357. Nelze indexovat, se souborem F
  358.  se pracuje !
  359. do moderror with sys(16),error(),lineno(1)
  360. \data\
  361. delete file &sw_dbf
  362. ANDLHLASKA
  363. )W_DBF
  364. LMEXIT
  365. DLSW_DBF
  366. F_ADR
  367. ANDLM_DBF
  368. CESTA
  369. NAZEV_DBF
  370. MODERROR
  371. \data\
  372. if !file('&w_dbf') and id_org='NAST' and w_misto#'SOWA'
  373. R:\RIIS_MS\F
  374. W_CESTA
  375. DLW_NAZEV
  376. )W_DBF
  377. LF_ADR
  378. \data\
  379. if !file('&w_dbf') and id_org='NAST' and w_misto#'SOWA'
  380. R:\RIIS_MS\
  381. \data\
  382. W_CESTA
  383. DLW_NAZEV
  384. )W_CESTA2
  385. LW_DBF
  386. DLF_ADR
  387. PREHLED
  388. MODUD1X
  389. TEST_IDX
  390.    en\
  391. ZOBR_DBF
  392. INDEX_AKT
  393. INDEXACE
  394. INDEX_VSE
  395. KONT_HL
  396. HLASKA
  397. bstrk/
  398. PROCENTA
  399.  selecR1
  400. CHYBA
  401. do caB2
  402. STAN_DBF
  403. STAN_PATH
  404. X:\OBEC\
  405. MODUD0X.FXP
  406. X:\OBEC\MODUD0X.PRG
  407.