OpenAccess.bas 47 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147
  1. Version =20
  2. VersionRequired =20
  3. Begin Form
  4. AllowFilters = NotDefault
  5. PopUp = NotDefault
  6. Modal = NotDefault
  7. RecordSelectors = NotDefault
  8. MaxButton = NotDefault
  9. MinButton = NotDefault
  10. AutoCenter = NotDefault
  11. NavigationButtons = NotDefault
  12. AllowDeletions = NotDefault
  13. DividingLines = NotDefault
  14. AllowAdditions = NotDefault
  15. AllowDesignChanges = NotDefault
  16. DefaultView =0
  17. BorderStyle =1
  18. PictureAlignment =2
  19. DatasheetGridlinesBehavior =3
  20. GridY =10
  21. Width =6645
  22. DatasheetFontHeight =11
  23. ItemSuffix =43
  24. Left =-21750
  25. Top =2430
  26. Right =-11625
  27. Bottom =14565
  28. DatasheetGridlinesColor =14806254
  29. RecSrcDt = Begin
  30. 0xeb366d1c54d7e440
  31. End
  32. Caption ="OpenAccess"
  33. OnCurrent ="[Event Procedure]"
  34. DatasheetFontName ="Calibri"
  35. PrtMip = Begin
  36. 0x6801000068010000680100006801000000000000201c0000e010000001000000 ,
  37. 0x010000006801000000000000a10700000100000001000000
  38. End
  39. FilterOnLoad =0
  40. ShowPageMargins =0
  41. DisplayOnSharePointSite =1
  42. DatasheetAlternateBackColor =15921906
  43. DatasheetGridlinesColor12 =0
  44. FitToScreen =255
  45. DatasheetBackThemeColorIndex =1
  46. BorderThemeColorIndex =3
  47. ThemeFontIndex =1
  48. ForeThemeColorIndex =0
  49. AlternateBackThemeColorIndex =1
  50. AlternateBackShade =95.0
  51. Begin
  52. Begin Label
  53. BackStyle =0
  54. FontSize =11
  55. FontName ="Calibri"
  56. ThemeFontIndex =1
  57. BackThemeColorIndex =1
  58. BorderThemeColorIndex =0
  59. BorderTint =50.0
  60. ForeThemeColorIndex =0
  61. ForeTint =50.0
  62. GridlineThemeColorIndex =1
  63. GridlineShade =65.0
  64. End
  65. Begin CommandButton
  66. Width =1701
  67. Height =283
  68. FontSize =11
  69. FontWeight =400
  70. FontName ="Calibri"
  71. ForeThemeColorIndex =0
  72. ForeTint =75.0
  73. GridlineThemeColorIndex =1
  74. GridlineShade =65.0
  75. UseTheme =1
  76. Shape =1
  77. Gradient =12
  78. BackThemeColorIndex =4
  79. BackTint =60.0
  80. BorderLineStyle =0
  81. BorderColor =16777215
  82. BorderThemeColorIndex =4
  83. BorderTint =60.0
  84. ThemeFontIndex =1
  85. HoverThemeColorIndex =4
  86. HoverTint =40.0
  87. PressedThemeColorIndex =4
  88. PressedShade =75.0
  89. HoverForeThemeColorIndex =0
  90. HoverForeTint =75.0
  91. PressedForeThemeColorIndex =0
  92. PressedForeTint =75.0
  93. End
  94. Begin OptionButton
  95. BorderLineStyle =0
  96. LabelX =230
  97. LabelY =-30
  98. BorderThemeColorIndex =1
  99. BorderShade =65.0
  100. GridlineThemeColorIndex =1
  101. GridlineShade =65.0
  102. End
  103. Begin CheckBox
  104. BorderLineStyle =0
  105. LabelX =230
  106. LabelY =-30
  107. BorderThemeColorIndex =1
  108. BorderShade =65.0
  109. GridlineThemeColorIndex =1
  110. GridlineShade =65.0
  111. End
  112. Begin OptionGroup
  113. SpecialEffect =3
  114. BorderLineStyle =0
  115. Width =1701
  116. Height =1701
  117. BackThemeColorIndex =1
  118. BorderThemeColorIndex =1
  119. BorderShade =65.0
  120. GridlineThemeColorIndex =1
  121. GridlineShade =65.0
  122. End
  123. Begin TextBox
  124. AddColon = NotDefault
  125. FELineBreak = NotDefault
  126. BorderLineStyle =0
  127. Width =1701
  128. LabelX =-1701
  129. FontSize =11
  130. FontName ="Calibri"
  131. AsianLineBreak =1
  132. BackThemeColorIndex =1
  133. BorderThemeColorIndex =1
  134. BorderShade =65.0
  135. ThemeFontIndex =1
  136. ForeThemeColorIndex =0
  137. ForeTint =75.0
  138. GridlineThemeColorIndex =1
  139. GridlineShade =65.0
  140. End
  141. Begin EmptyCell
  142. Height =240
  143. GridlineColor =12632256
  144. GridlineThemeColorIndex =1
  145. GridlineShade =65.0
  146. End
  147. Begin Section
  148. Height =5839
  149. Name ="Détail"
  150. AlternateBackColor =15921906
  151. AlternateBackThemeColorIndex =1
  152. AlternateBackShade =95.0
  153. BackThemeColorIndex =1
  154. Begin
  155. Begin Label
  156. OverlapFlags =85
  157. TextAlign =2
  158. TextFontFamily =49
  159. Width =6645
  160. Height =330
  161. FontSize =12
  162. FontWeight =700
  163. BorderColor =8355711
  164. ForeColor =8355711
  165. Name ="lbl_title"
  166. Caption ="OpenAccess - Generate your Source Code"
  167. FontName ="Consolas"
  168. GridlineColor =10921638
  169. LayoutCachedWidth =6645
  170. LayoutCachedHeight =330
  171. ThemeFontIndex =-1
  172. End
  173. Begin Label
  174. FontItalic = NotDefault
  175. OverlapFlags =85
  176. TextAlign =3
  177. TextFontFamily =49
  178. Left =1858
  179. Top =5442
  180. Width =4599
  181. Height =223
  182. FontSize =8
  183. BorderColor =8355711
  184. Name ="lbl_author"
  185. Caption ="Conseil départemental du Bas-Rhin, 2016"
  186. FontName ="Consolas"
  187. GridlineColor =10921638
  188. LayoutCachedLeft =1858
  189. LayoutCachedTop =5442
  190. LayoutCachedWidth =6457
  191. LayoutCachedHeight =5665
  192. ThemeFontIndex =-1
  193. ForeTint =100.0
  194. End
  195. Begin OptionGroup
  196. TabStop = NotDefault
  197. OverlapFlags =93
  198. Left =283
  199. Top =573
  200. Width =6123
  201. Height =1981
  202. BorderColor =10921638
  203. Name ="zne_export"
  204. DefaultValue ="1"
  205. GridlineColor =10921638
  206. LayoutCachedLeft =283
  207. LayoutCachedTop =573
  208. LayoutCachedWidth =6406
  209. LayoutCachedHeight =2554
  210. Begin
  211. Begin Label
  212. BackStyle =1
  213. OverlapFlags =215
  214. TextFontFamily =49
  215. Left =410
  216. Top =453
  217. Width =3165
  218. Height =315
  219. FontSize =9
  220. BorderColor =8355711
  221. Name ="lbl_export_title"
  222. Caption ="Generate the sources files"
  223. FontName ="Consolas"
  224. GridlineColor =10921638
  225. LayoutCachedLeft =410
  226. LayoutCachedTop =453
  227. LayoutCachedWidth =3575
  228. LayoutCachedHeight =768
  229. ThemeFontIndex =-1
  230. ForeTint =100.0
  231. End
  232. End
  233. End
  234. Begin OptionGroup
  235. TabStop = NotDefault
  236. OverlapFlags =93
  237. Left =283
  238. Top =2842
  239. Width =6123
  240. Height =1291
  241. TabIndex =1
  242. BorderColor =10921638
  243. Name ="zne_import"
  244. GridlineColor =10921638
  245. LayoutCachedLeft =283
  246. LayoutCachedTop =2842
  247. LayoutCachedWidth =6406
  248. LayoutCachedHeight =4133
  249. Begin
  250. Begin Label
  251. BackStyle =1
  252. OverlapFlags =215
  253. TextFontFamily =49
  254. Left =410
  255. Top =2721
  256. Width =4290
  257. Height =315
  258. FontSize =9
  259. BorderColor =8355711
  260. Name ="lbl_import_title"
  261. Caption ="Update your app from the sources files"
  262. FontName ="Consolas"
  263. GridlineColor =10921638
  264. LayoutCachedLeft =410
  265. LayoutCachedTop =2721
  266. LayoutCachedWidth =4700
  267. LayoutCachedHeight =3036
  268. ThemeFontIndex =-1
  269. ForeTint =100.0
  270. End
  271. End
  272. End
  273. Begin CommandButton
  274. OverlapFlags =223
  275. TextFontFamily =49
  276. Left =5281
  277. Top =680
  278. Width =804
  279. Height =739
  280. FontSize =9
  281. TabIndex =5
  282. Name ="cmd_export"
  283. Caption ="Make sources"
  284. OnClick ="[Event Procedure]"
  285. FontName ="Consolas"
  286. ControlTipText ="Run the OpenAccess export"
  287. LeftPadding =60
  288. RightPadding =75
  289. BottomPadding =120
  290. GridlineColor =10921638
  291. ImageData = Begin
  292. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  293. 0x0000000000000000c0a8a0ff807060ff807060ff807060ff807060ff807060ff ,
  294. 0x807060ff807060ff807060ff807060ff807060ff807060ff0000000000000000 ,
  295. 0x0000000000000000c0b0a0fffff8f0fffff8f0fffff8f0fffff8f0fffff8f0ff ,
  296. 0xfff8f0fffff8f0fffff0f0fffff0f0fffff0f0ff807060ff0000000000000000 ,
  297. 0x0000000000000000c0b0a0fffff8fffffff8f0fffff8f0fffff8f0fffff8f0ff ,
  298. 0xfff8f0fffff8f0fffff8f0fffff8f0fffff8f0ff807060ff0000000000000000 ,
  299. 0x0000000000000000c0b0a0fffff8ffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  300. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffb0a090ffffffff50ffffff20 ,
  301. 0xffffff0000000000c0b0a0fffff8fffffff8f0fffff8f0fffff8f0fffff8f0ff ,
  302. 0xfff8f0fffff8f0fffff0f0fffff0f0fffff8f0ffd0d0c0ff805030ffe0c0b090 ,
  303. 0xffffff1000000000c0b0a0fffff8ffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  304. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffe0e0e0ff905830ff905840ff ,
  305. 0xe0c8c0a000000000c0b0a0fffffffffffff8fffffff8f0fffff8f0fffff8f0ff ,
  306. 0xfff8f0fffff8f0fffff8f0fffff8f0fffff8f0ffe0e0e0ffb06030ffc06830ff ,
  307. 0x905840ffc0907040c0b8a0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  308. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8f0ffe0e0e0fff0a880ffe08050ff ,
  309. 0xc06030ff905840ffc0b8a0fffffffffffffffffffffffffffff8fffffff8ffff ,
  310. 0xfff8f0fffff8f0fffff8f0fffff8f0fffff8ffffe0e0e0ffffa880ffffb890ff ,
  311. 0xa07050ffc0907020d0b8b0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  312. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8fffff0e8e0ffc08060ffb07860ff ,
  313. 0xf0e0e09000000000d0b8b0ffffffffffffffffffffffffffffffffffffffffff ,
  314. 0xfff8fffffff8fffffff8f0fffff8f0fffff8ffffd0d0d0ffc09070fff0d8d080 ,
  315. 0xffffff2000000000d0b8b0ffffffffffe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0ff ,
  316. 0xe0d0d0ffe0d0d0ffe0d0d0ffe0d0d0fffff8ffffb0a8a0ffffffff60ffffff20 ,
  317. 0x0000000000000000d0b8b0ffffffffffffffffffffffffffffffffffffffffff ,
  318. 0xfffffffffffffffffff8fffffff8fffffff8ffff908870ffffffff30ffffff10 ,
  319. 0x0000000000000000d0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ffd0b8b0ff ,
  320. 0xd0b8a0ffd0b8a0ffc0b8a0ffc0b8a0ffc0b0a0ffc0b0a0ff0000000000000000 ,
  321. 0x0000000000000000909090ffe0e0e0ff909090ffffffffff707070e0ffffffff ,
  322. 0x808080ffffffffff808080ffffffffff707070ffd0c8c0ff0000000000000000 ,
  323. 0x0000000000000000d0c8d0ff505050ffb0b8b0ff202820ff30283050202820ff ,
  324. 0x30283040202820ff40404080202820ff40383060202820ff0000000000000000 ,
  325. 0x0000000000000000
  326. End
  327. LayoutCachedLeft =5281
  328. LayoutCachedTop =680
  329. LayoutCachedWidth =6085
  330. LayoutCachedHeight =1419
  331. ForeTint =100.0
  332. Gradient =0
  333. BackColor =14277081
  334. BackThemeColorIndex =1
  335. BackTint =100.0
  336. BackShade =85.0
  337. BorderColor =14277081
  338. BorderThemeColorIndex =1
  339. BorderTint =100.0
  340. BorderShade =85.0
  341. ThemeFontIndex =-1
  342. HoverColor =-2147483633
  343. HoverThemeColorIndex =-1
  344. HoverTint =100.0
  345. PressedColor =-2147483633
  346. PressedThemeColorIndex =-1
  347. PressedShade =100.0
  348. HoverForeColor =5855577
  349. HoverForeTint =65.0
  350. PressedForeColor =-2147483633
  351. PressedForeThemeColorIndex =-1
  352. PressedForeTint =100.0
  353. Shadow =-1
  354. QuickStyle =22
  355. QuickStyleMask =-113
  356. WebImagePaddingTop =1
  357. Overlaps =1
  358. End
  359. Begin CommandButton
  360. OverlapFlags =223
  361. TextFontFamily =49
  362. Left =5281
  363. Top =2947
  364. Width =805
  365. Height =739
  366. FontSize =9
  367. TabIndex =7
  368. Name ="cmd_import"
  369. Caption ="Update from sources"
  370. OnClick ="[Event Procedure]"
  371. FontName ="Consolas"
  372. ControlTipText ="Run the OpenAccess import"
  373. LeftPadding =60
  374. RightPadding =75
  375. BottomPadding =120
  376. GridlineColor =10921638
  377. ImageData = Begin
  378. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  379. 0x0000000000000000000000ff000000ff00000000000000ff000000ff00000000 ,
  380. 0x000000ff000000ff000000000000000000000000000000000000000000000000 ,
  381. 0x0000000000000000000000ff000000ff00000000000000ff000000ff00000000 ,
  382. 0x000000ff000000ff000000000000000000000000000000000000000000000000 ,
  383. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  384. 0x0000000000000000000000000000000000000000000000000000000000000020 ,
  385. 0x000000ff0000005000000000000000000000000000000000c0585080000000ff ,
  386. 0x00000030000000000000000000000000000000000000000000000020000000ff ,
  387. 0x808080ff000000ffc0585080000000ff0000003000000000c06050ffffc0c0ff ,
  388. 0x000000ff0000000000000000000000000000000000000020000000ff808080ff ,
  389. 0x000000ff00000010c06050ffffc0c0ff000000ff00000000e07070a0c06050ff ,
  390. 0xc060605000000000000000000000000000000020000000ff808080ff000000ff ,
  391. 0x0000001000000000e07070a0c06050ffc06060500000000000000000b0a090ff ,
  392. 0x604830ff604830ff604830ff604030ff000000ff808080ff000000ff604830ff ,
  393. 0x604830ff604830ff0000000000000000000000000000000000000000c0a890ff ,
  394. 0xfffffffff0e8e0ffd0d0d0ff000000ff808080ff000000ffe0d0c0fff0d0c0ff ,
  395. 0xf0d0c0ff604830ff0000000000000000c0585080000000ff00000030c0a8a0ff ,
  396. 0xffffffffe0e0e0ff000000ff808080ff000000ff907060ff907060ff806860ff ,
  397. 0xf0d0c0ff604830ff0000000000000000c06050ffffc0c0ff000000ffc0a8a0ff ,
  398. 0xe0e0e0ff000000ff40d8f0ff000000ffb08870ffe0d8d0fff0f0e0ff806860ff ,
  399. 0xf0d0c0ff604830ff0000000000000000e07070a0c06050ffc0606050b09890ff ,
  400. 0x000000ff40d8f0ff000000fff0f8f0ffc09080ffb08870ff907860ff807060ff ,
  401. 0xf0d8c0ff604830ff0000000000000000000000000000000000000000000000ff ,
  402. 0xf0f8f0ff000000fff0f8f0fffffffffffffffffffff8f0fffff0f0fffff0e0ff ,
  403. 0xf0d8d0ff604830ff0000000000000000000000000000000000000000c0a8a0ff ,
  404. 0x000000ffb09080ffb08870ffffffffffc09080ffb08870ff907860ff807060ff ,
  405. 0xf0d8d0ff604830ff0000000000000000000000000000000000000000d0b8a0ff ,
  406. 0xfffffffffffffffffffffffffffffffffffffffffffffffffff8f0fffff8f0ff ,
  407. 0xfff8f0ff604830ff0000000000000000000000000000000000000000b090e0ff ,
  408. 0x7040a0ff6038a0ff6038a0ff603890ff603890ff603890ff603890ff603890ff ,
  409. 0x603890ff603890ff0000000000000000000000000000000000000000b090e0ff ,
  410. 0xb090d0ffa088d0ffa080d0ffa078d0ff9078d0ff9068c0ff8058b0ff7048b0ff ,
  411. 0x7048b0ff7048b0ff
  412. End
  413. LayoutCachedLeft =5281
  414. LayoutCachedTop =2947
  415. LayoutCachedWidth =6086
  416. LayoutCachedHeight =3686
  417. ForeTint =100.0
  418. Gradient =0
  419. BackColor =14277081
  420. BackThemeColorIndex =1
  421. BackTint =100.0
  422. BackShade =85.0
  423. BorderColor =14277081
  424. BorderThemeColorIndex =1
  425. BorderTint =100.0
  426. BorderShade =85.0
  427. ThemeFontIndex =-1
  428. HoverColor =-2147483633
  429. HoverThemeColorIndex =-1
  430. HoverTint =100.0
  431. PressedColor =-2147483633
  432. PressedThemeColorIndex =-1
  433. PressedShade =100.0
  434. HoverForeColor =5855577
  435. HoverForeTint =65.0
  436. PressedForeColor =-2147483633
  437. PressedForeThemeColorIndex =-1
  438. PressedForeTint =100.0
  439. Shadow =-1
  440. QuickStyle =22
  441. QuickStyleMask =-113
  442. WebImagePaddingTop =1
  443. Overlaps =1
  444. End
  445. Begin Label
  446. FontItalic = NotDefault
  447. BackStyle =1
  448. OverlapFlags =93
  449. TextFontFamily =49
  450. Left =283
  451. Top =5102
  452. Width =6187
  453. Height =223
  454. FontSize =8
  455. BorderColor =8355711
  456. ForeColor =8355711
  457. Name ="lbl_log_path"
  458. Caption ="C:\\...\\Log"
  459. FontName ="Consolas"
  460. GridlineColor =10921638
  461. LayoutCachedLeft =283
  462. LayoutCachedTop =5102
  463. LayoutCachedWidth =6470
  464. LayoutCachedHeight =5325
  465. ThemeFontIndex =-1
  466. End
  467. Begin CommandButton
  468. OverlapFlags =87
  469. TextFontFamily =49
  470. Left =5442
  471. Top =4762
  472. Width =397
  473. FontSize =9
  474. TabIndex =8
  475. Name ="cmd_open_log"
  476. Caption ="Open log file"
  477. OnClick ="[Event Procedure]"
  478. FontName ="Consolas"
  479. ObjectPalette = Begin
  480. 0x000301000000000000000000
  481. End
  482. ControlTipText ="Open the log file with your default text editor"
  483. LeftPadding =60
  484. RightPadding =75
  485. BottomPadding =120
  486. GridlineColor =10921638
  487. ImageData = Begin
  488. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  489. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  490. 0x000000000000000000000000000000000000000030506050204860ff303040ff ,
  491. 0x3040505000000000000000000000000000000000000000000000000000000000 ,
  492. 0x0000000000000000000000000000000030506050305060ff4088a0ff3090b0ff ,
  493. 0x304050ff50809040000000000000000000000000000000000000000000000000 ,
  494. 0x00000000000000000000000030506050305060ff3088b0ff40b8e0ff90e0f0ff ,
  495. 0x90d0e0ff6090a0ff0000000000000000000000006068602060606070606060b0 ,
  496. 0x606060f0505850f0505850b0405050c03080a0ff40b8e0ff90e0f0ff90e0f0ff ,
  497. 0x6098b0ff6088a050000000000000000070707040707060b0a09090ffc0b0a0ff ,
  498. 0xe0c8b0ffe0c8b0ffc0a8a0ff908080ff505850b080c0d0ffa0d8f0ff6098b0ff ,
  499. 0x6088a050000000000000000080787020707870b0b0b0b0ffffe8e0ffffe0d0ff ,
  500. 0xf0e0d0fff0d8c0fff0d0c0fff0d0b0ffb09890ff505850c0608890ff6088a050 ,
  501. 0x00000000000000000000000080787070b0a8a0fffff8f0fffff0e0ffffe8e0ff ,
  502. 0xffe8e0ffffe0d0fff0d8d0fff0d8c0fff0d0c0ff908880ff50606080f0d8c000 ,
  503. 0x000000000000000000000000808070b0d0d0d0fffff8fffffff8f0fffff0f0ff ,
  504. 0xfff0e0ffffe8e0fff0e0d0fff0e0d0fff0d8c0ffc0b0a0ff605860c0f0d8c000 ,
  505. 0x000000000000000000000000808080f0f0f0f0fffffffffffff8fffffff8f0ff ,
  506. 0xfff0f0fffff0e0ffffe8e0fff0e0d0fff0d8d0ffe0c8b0ff606060f0f0d8c000 ,
  507. 0x000000000000000000000000908080f0f0f0f0fffffffffffffffffffff8ffff ,
  508. 0xfff8f0fffff0f0ffffe8e0ffffe8e0ffffe0d0fff0d0c0ff606060f000000000 ,
  509. 0x000000000000000000000000908880b0e0d8d0ffffffffffffffffffffffffff ,
  510. 0xfff8f0fffff8f0fffff0f0fffff0e0ffffe0d0ffd0b8b0ff606860c000000000 ,
  511. 0x00000000000000000000000090888070b0b0b0ffffffffffffffffffffffffff ,
  512. 0xfffffffffff8f0fffff8f0fffff0f0ffffe8e0ffa09890ff6068607000000000 ,
  513. 0x00000000000000000000000090888020908880b0c0c0c0ffffffffffffffffff ,
  514. 0xfffffffffffffffffff8fffffff8f0ffc0b8b0ff707070b07070702000000000 ,
  515. 0x0000000000000000000000000000000090888040908880b0b0b0b0ffe0d8d0ff ,
  516. 0xf0f0f0fff0f8f0ffd0d8d0ffb0a8a0ff807870b0807870400000000000000000 ,
  517. 0x00000000000000000000000000000000000000009088802090888070908880b0 ,
  518. 0x908880f0808080f0808080b08080707080787020000000000000000000000000 ,
  519. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  520. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  521. 0x0000000000000000
  522. End
  523. LayoutCachedLeft =5442
  524. LayoutCachedTop =4762
  525. LayoutCachedWidth =5839
  526. LayoutCachedHeight =5045
  527. ForeTint =100.0
  528. Gradient =0
  529. BackColor =14277081
  530. BackThemeColorIndex =1
  531. BackTint =100.0
  532. BackShade =85.0
  533. BorderColor =14277081
  534. BorderThemeColorIndex =1
  535. BorderTint =100.0
  536. BorderShade =85.0
  537. ThemeFontIndex =-1
  538. HoverColor =-2147483633
  539. HoverThemeColorIndex =-1
  540. HoverTint =100.0
  541. PressedColor =-2147483633
  542. PressedThemeColorIndex =-1
  543. PressedShade =100.0
  544. HoverForeColor =5855577
  545. HoverForeTint =65.0
  546. PressedForeColor =-2147483633
  547. PressedForeThemeColorIndex =-1
  548. PressedForeTint =100.0
  549. Shadow =-1
  550. QuickStyle =22
  551. QuickStyleMask =-113
  552. WebImagePaddingTop =1
  553. Overlaps =1
  554. End
  555. Begin CommandButton
  556. OverlapFlags =87
  557. TextFontFamily =49
  558. Left =6009
  559. Top =4762
  560. Width =454
  561. FontSize =9
  562. TabIndex =9
  563. Name ="cmd_open_log_dir"
  564. Caption ="Open log directory"
  565. OnClick ="[Event Procedure]"
  566. FontName ="Consolas"
  567. ControlTipText ="Open the log directory"
  568. LeftPadding =60
  569. RightPadding =75
  570. BottomPadding =120
  571. GridlineColor =10921638
  572. ImageData = Begin
  573. 0x2800000010000000100000000100200000000000000000000000000000000000 ,
  574. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  575. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  576. 0x0000000000000000708890ff608090ff607880ff507080ff506070ff405860ff ,
  577. 0x404850ff303840ff203030ff202030ff101820ff101010ff101020ff00000000 ,
  578. 0x0000000000000000708890ff90a0b0ff70b0d0ff0090d0ff0090d0ff0090d0ff ,
  579. 0x0090c0ff1088c0ff1080b0ff1080b0ff2078a0ff207090ff204860ff20303050 ,
  580. 0x0000000000000000808890ff80c0d0ff90a8b0ff80e0ffff60d0ffff50c8ffff ,
  581. 0x50c8ffff40c0f0ff30b0f0ff30a8f0ff20a0e0ff1090d0ff206880ff202830b0 ,
  582. 0x00000000000000008090a0ff80d0f0ff90a8b0ff90c0d0ff70d8ffff60d0ffff ,
  583. 0x60d0ffff50c8ffff50c0ffff40b8f0ff30b0f0ff30a8f0ff1088d0ff204860ff ,
  584. 0x10283020000000008090a0ff80d8f0ff80c8e0ff90a8b0ff80e0ffff70d0ffff ,
  585. 0x60d8ffff60d0ffff60d0ffff50c8ffff40c0f0ff40b8f0ff30b0f0ff206880ff ,
  586. 0x10486090000000008098a0ff90e0f0ff90e0ffff90a8b0ff90b8c0ff70d8ffff ,
  587. 0x60d8ffff60d8ffff60d8ffff60d0ffff50d0ffff50c8ffff40b8f0ff30a0e0ff ,
  588. 0x406070f0506070308098a0ff90e0f0ffa0e8ffff80c8e0ff90a8b0ff80e0ffff ,
  589. 0x80e0ffff80e0ffff80e0ffff80e0ffff80e0ffff80e0ffff70d8ffff70d8ffff ,
  590. 0x50a8d0ff506070a090a0a0ffa0e8f0ffa0e8ffffa0e8ffff90b0c0ff90b0c0ff ,
  591. 0x90a8b0ff90a8b0ff80a0b0ff80a0b0ff8098a0ff8098a0ff8090a0ff8090a0ff ,
  592. 0x808890ff708890ff90a0b0ffa0e8f0ffa0f0ffffa0e8ffffa0e8ffff80d8ffff ,
  593. 0x60d8ffff60d8ffff60d8ffff60d8ffff60d8ffff60d8ffff708890ff00000000 ,
  594. 0x000000000000000090a0b0ffa0f0f0ffb0f0f0ffa0f0ffffa0e8ffffa0e8ffff ,
  595. 0x70d8ffff90a0a0ff8098a0ff8098a0ff8090a0ff809090ff708890ff00000000 ,
  596. 0x000000000000000090a8b0ffa0d0e0ffb0f0f0ffb0f0f0ffa0f0ffffa0e8ffff ,
  597. 0x90a0b0ff80a8b0800000000000000000000000000000000000000000906850ff ,
  598. 0x906850ff906850ff90a8b05090a8b0ff90a8b0ff90a8b0ff90a8b0ff90a8b0ff ,
  599. 0x90a8b090000000000000000000000000000000000000000000000000a0787050 ,
  600. 0x906850ff906850ff000000000000000000000000000000000000000000000000 ,
  601. 0x000000000000000000000000907860ff9068506000000000a0787010a09080ff ,
  602. 0xa0887050907860ff000000000000000000000000000000000000000000000000 ,
  603. 0x000000000000000000000000a0988040a09080ffa08880ffb09880ffa0908080 ,
  604. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  605. 0x0000000000000000000000000000000000000000000000000000000000000000 ,
  606. 0x0000000000000000
  607. End
  608. LayoutCachedLeft =6009
  609. LayoutCachedTop =4762
  610. LayoutCachedWidth =6463
  611. LayoutCachedHeight =5045
  612. ForeTint =100.0
  613. Gradient =0
  614. BackColor =14277081
  615. BackThemeColorIndex =1
  616. BackTint =100.0
  617. BackShade =85.0
  618. BorderColor =14277081
  619. BorderThemeColorIndex =1
  620. BorderTint =100.0
  621. BorderShade =85.0
  622. ThemeFontIndex =-1
  623. HoverColor =-2147483633
  624. HoverThemeColorIndex =-1
  625. HoverTint =100.0
  626. PressedColor =-2147483633
  627. PressedThemeColorIndex =-1
  628. PressedShade =100.0
  629. HoverForeColor =5855577
  630. HoverForeTint =65.0
  631. PressedForeColor =-2147483633
  632. PressedForeThemeColorIndex =-1
  633. PressedForeTint =100.0
  634. Shadow =-1
  635. QuickStyle =22
  636. QuickStyleMask =-113
  637. WebImagePaddingTop =1
  638. Overlaps =1
  639. End
  640. Begin Label
  641. BackStyle =1
  642. OverlapFlags =85
  643. TextFontFamily =49
  644. Left =285
  645. Top =4815
  646. Width =4170
  647. Height =225
  648. FontSize =9
  649. BorderColor =8355711
  650. ForeColor =8355711
  651. Name ="lbl_log_path_see"
  652. Caption ="See the log file for more informations:"
  653. FontName ="Consolas"
  654. GridlineColor =10921638
  655. LayoutCachedLeft =285
  656. LayoutCachedTop =4815
  657. LayoutCachedWidth =4455
  658. LayoutCachedHeight =5040
  659. ThemeFontIndex =-1
  660. End
  661. Begin CheckBox
  662. OverlapFlags =85
  663. Left =283
  664. Top =5452
  665. Width =226
  666. Height =224
  667. TabIndex =10
  668. BorderColor =10921638
  669. Name ="chk_debug_mode"
  670. DefaultValue ="False"
  671. ControlTipText ="Activate debug mode (log file more verbose)"
  672. GridlineColor =10921638
  673. LayoutCachedLeft =283
  674. LayoutCachedTop =5452
  675. LayoutCachedWidth =509
  676. LayoutCachedHeight =5676
  677. Begin
  678. Begin Label
  679. BackStyle =1
  680. OverlapFlags =85
  681. TextFontFamily =49
  682. Left =558
  683. Top =5442
  684. Width =1155
  685. Height =270
  686. FontSize =9
  687. BorderColor =8355711
  688. ForeColor =8355711
  689. Name ="lbl_debug_mode"
  690. Caption ="Debug Mode"
  691. FontName ="Consolas"
  692. GridlineColor =10921638
  693. LayoutCachedLeft =558
  694. LayoutCachedTop =5442
  695. LayoutCachedWidth =1713
  696. LayoutCachedHeight =5712
  697. ThemeFontIndex =-1
  698. End
  699. End
  700. End
  701. Begin Label
  702. Visible = NotDefault
  703. BackStyle =1
  704. OverlapFlags =85
  705. TextAlign =2
  706. TextFontFamily =49
  707. Left =283
  708. Top =4308
  709. Width =6111
  710. Height =284
  711. FontSize =9
  712. FontWeight =700
  713. BorderColor =8355711
  714. Name ="lbl_progression_msg"
  715. Caption ="Running..."
  716. FontName ="Consolas"
  717. GridlineColor =10921638
  718. LayoutCachedLeft =283
  719. LayoutCachedTop =4308
  720. LayoutCachedWidth =6394
  721. LayoutCachedHeight =4592
  722. ThemeFontIndex =-1
  723. ForeTint =100.0
  724. End
  725. Begin Label
  726. BackStyle =1
  727. OverlapFlags =223
  728. TextFontFamily =49
  729. Left =396
  730. Top =1870
  731. Width =1995
  732. Height =285
  733. FontSize =9
  734. BorderColor =8355711
  735. Name ="lbl_include_tables"
  736. Caption ="Include data from:"
  737. FontName ="Consolas"
  738. GridlineColor =10921638
  739. LayoutCachedLeft =396
  740. LayoutCachedTop =1870
  741. LayoutCachedWidth =2391
  742. LayoutCachedHeight =2155
  743. ThemeFontIndex =-1
  744. ForeTint =100.0
  745. End
  746. Begin TextBox
  747. Locked = NotDefault
  748. OldBorderStyle =4
  749. OverlapFlags =215
  750. TextFontFamily =49
  751. BorderLineStyle =3
  752. IMESentenceMode =3
  753. Left =396
  754. Top =2154
  755. Width =5837
  756. Height =270
  757. FontSize =9
  758. TabIndex =4
  759. BorderColor =8355711
  760. ForeColor =8355711
  761. Name ="txt_include_tables"
  762. FontName ="Consolas"
  763. GridlineColor =10921638
  764. LayoutCachedLeft =396
  765. LayoutCachedTop =2154
  766. LayoutCachedWidth =6233
  767. LayoutCachedHeight =2424
  768. BorderThemeColorIndex =0
  769. BorderTint =50.0
  770. BorderShade =100.0
  771. ThemeFontIndex =-1
  772. ForeTint =50.0
  773. End
  774. Begin CheckBox
  775. OverlapFlags =215
  776. Left =453
  777. Top =877
  778. Width =283
  779. Height =226
  780. TabIndex =3
  781. BorderColor =10921638
  782. Name ="chk_zip"
  783. DefaultValue ="True"
  784. GridlineColor =10921638
  785. LayoutCachedLeft =453
  786. LayoutCachedTop =877
  787. LayoutCachedWidth =736
  788. LayoutCachedHeight =1103
  789. DatasheetCaption ="Compress a copy of the current project before exporting the sources"
  790. Begin
  791. Begin Label
  792. BackStyle =1
  793. OverlapFlags =215
  794. TextFontFamily =49
  795. Left =740
  796. Top =850
  797. Width =1800
  798. Height =270
  799. FontSize =9
  800. BorderColor =8355711
  801. Name ="lbl_zip"
  802. Caption ="Zip the app file"
  803. FontName ="Consolas"
  804. GridlineColor =10921638
  805. LayoutCachedLeft =740
  806. LayoutCachedTop =850
  807. LayoutCachedWidth =2540
  808. LayoutCachedHeight =1120
  809. ThemeFontIndex =-1
  810. ForeTint =100.0
  811. End
  812. End
  813. End
  814. Begin CheckBox
  815. OverlapFlags =215
  816. Left =453
  817. Top =1219
  818. Width =283
  819. Height =226
  820. TabIndex =2
  821. BorderColor =10921638
  822. Name ="chk_newer_only"
  823. DefaultValue ="True"
  824. ControlTipText ="Exports only the tables defs, queries, forms, reports, macros and modules modifi"
  825. "ed since the last Open Access export"
  826. GridlineColor =10921638
  827. LayoutCachedLeft =453
  828. LayoutCachedTop =1219
  829. LayoutCachedWidth =736
  830. LayoutCachedHeight =1445
  831. Begin
  832. Begin Label
  833. BackStyle =1
  834. OverlapFlags =215
  835. TextFontFamily =49
  836. Left =735
  837. Top =1190
  838. Width =2700
  839. Height =270
  840. FontSize =9
  841. BorderColor =8355711
  842. Name ="lbl_optimizer"
  843. Caption ="Export newer objects only"
  844. FontName ="Consolas"
  845. GridlineColor =10921638
  846. LayoutCachedLeft =735
  847. LayoutCachedTop =1190
  848. LayoutCachedWidth =3435
  849. LayoutCachedHeight =1460
  850. ThemeFontIndex =-1
  851. ForeTint =100.0
  852. End
  853. End
  854. End
  855. Begin CheckBox
  856. OverlapFlags =215
  857. Left =453
  858. Top =3201
  859. Width =283
  860. Height =226
  861. TabIndex =6
  862. BorderColor =10921638
  863. Name ="chk_backup"
  864. DefaultValue ="True"
  865. ControlTipText ="Create a backup of the current project before proceeding to the import"
  866. GridlineColor =10921638
  867. LayoutCachedLeft =453
  868. LayoutCachedTop =3201
  869. LayoutCachedWidth =736
  870. LayoutCachedHeight =3427
  871. Begin
  872. Begin Label
  873. BackStyle =1
  874. OverlapFlags =215
  875. TextFontFamily =49
  876. Left =735
  877. Top =3175
  878. Width =3015
  879. Height =270
  880. FontSize =9
  881. BorderColor =8355711
  882. Name ="lbl_backup"
  883. Caption ="Backup the app before import"
  884. FontName ="Consolas"
  885. GridlineColor =10921638
  886. LayoutCachedLeft =735
  887. LayoutCachedTop =3175
  888. LayoutCachedWidth =3750
  889. LayoutCachedHeight =3445
  890. ThemeFontIndex =-1
  891. ForeTint =100.0
  892. End
  893. End
  894. End
  895. Begin Label
  896. BackStyle =1
  897. OverlapFlags =215
  898. TextAlign =2
  899. TextFontFamily =49
  900. Left =5272
  901. Top =1530
  902. Width =794
  903. Height =226
  904. FontSize =9
  905. FontWeight =700
  906. BorderColor =8355711
  907. Name ="lbl_export"
  908. Caption ="Export"
  909. FontName ="Consolas"
  910. GridlineColor =10921638
  911. LayoutCachedLeft =5272
  912. LayoutCachedTop =1530
  913. LayoutCachedWidth =6066
  914. LayoutCachedHeight =1756
  915. ThemeFontIndex =-1
  916. ForeTint =100.0
  917. End
  918. Begin Label
  919. BackStyle =1
  920. OverlapFlags =215
  921. TextAlign =2
  922. TextFontFamily =49
  923. Left =5281
  924. Top =3800
  925. Width =825
  926. Height =225
  927. FontSize =9
  928. FontWeight =700
  929. BorderColor =8355711
  930. Name ="lbl_import"
  931. Caption ="Import"
  932. FontName ="Consolas"
  933. GridlineColor =10921638
  934. LayoutCachedLeft =5281
  935. LayoutCachedTop =3800
  936. LayoutCachedWidth =6106
  937. LayoutCachedHeight =4025
  938. ThemeFontIndex =-1
  939. ForeTint =100.0
  940. End
  941. Begin Label
  942. BackStyle =1
  943. OverlapFlags =223
  944. TextFontFamily =49
  945. Left =396
  946. Top =1530
  947. Width =1995
  948. Height =285
  949. FontSize =9
  950. BorderColor =8355711
  951. Name ="Étiquette41"
  952. Caption ="Source's date:"
  953. FontName ="Consolas"
  954. GridlineColor =10921638
  955. LayoutCachedLeft =396
  956. LayoutCachedTop =1530
  957. LayoutCachedWidth =2391
  958. LayoutCachedHeight =1815
  959. ThemeFontIndex =-1
  960. ForeTint =100.0
  961. End
  962. Begin TextBox
  963. Locked = NotDefault
  964. OldBorderStyle =0
  965. OverlapFlags =215
  966. TextFontFamily =49
  967. IMESentenceMode =3
  968. Left =1984
  969. Top =1530
  970. Width =3062
  971. Height =270
  972. FontSize =9
  973. TabIndex =11
  974. BorderColor =8355711
  975. ForeColor =8355711
  976. Name ="txt_sources_date"
  977. FontName ="Consolas"
  978. GridlineColor =10921638
  979. LayoutCachedLeft =1984
  980. LayoutCachedTop =1530
  981. LayoutCachedWidth =5046
  982. LayoutCachedHeight =1800
  983. BorderThemeColorIndex =0
  984. BorderTint =50.0
  985. BorderShade =100.0
  986. ThemeFontIndex =-1
  987. ForeTint =50.0
  988. End
  989. End
  990. End
  991. End
  992. End
  993. CodeBehindForm
  994. Attribute VB_GlobalNameSpace = False
  995. Attribute VB_Creatable = True
  996. Attribute VB_PredeclaredId = True
  997. Attribute VB_Exposed = False
  998. Option Compare Database
  999. Dim RUNNING_OP As Boolean
  1000. Private Sub cmd_export_Click()
  1001. Dim newer_only, zip As Boolean
  1002. newer_only = Me.chk_newer_only
  1003. zip = Me.chk_zip
  1004. If Me.chk_debug_mode Then
  1005. OA_Log.set_debug_mode
  1006. End If
  1007. RUNNING_OP = True
  1008. ' update log path
  1009. logger "cmd_export_Click", "INFO", "Start"
  1010. Me.lbl_log_path.Caption = OA_Log.log_file
  1011. ' update state
  1012. Call update_state
  1013. ' start export
  1014. Dim result As Variant
  1015. result = make_sources(newer_only, zip)
  1016. ' update state
  1017. RUNNING_OP = False
  1018. Call update_state
  1019. 'display result
  1020. Call display_status(result)
  1021. End Sub
  1022. Private Sub cmd_import_Click()
  1023. Dim backup As Boolean
  1024. backup = Me.chk_backup
  1025. If Me.chk_debug_mode Then
  1026. OA_Log.set_debug_mode
  1027. End If
  1028. RUNNING_OP = True
  1029. ' update log path
  1030. logger "cmd_import_Click", "INFO", "Start"
  1031. Me.lbl_log_path.Caption = OA_Log.log_file
  1032. ' update state
  1033. Call update_state
  1034. ' start export
  1035. Dim result As Variant
  1036. result = update_from_sources(backup)
  1037. ' update state
  1038. RUNNING_OP = False
  1039. Call update_state
  1040. 'display result
  1041. Call display_status(result)
  1042. End Sub
  1043. Private Sub cmd_open_log_Click()
  1044. 'open the current log file with the default text editor
  1045. Application.FollowHyperlink OA_Log.log_file()
  1046. End Sub
  1047. Private Sub cmd_open_log_dir_Click()
  1048. 'open the current log directory with file explorer
  1049. Shell "explorer.exe " & OA_Log.log_dir()
  1050. End Sub
  1051. Private Sub Form_Current()
  1052. Call update_state
  1053. Me.lbl_log_path.Caption = OA_Log.log_dir
  1054. Me.txt_include_tables = get_include_tables()
  1055. Me.txt_sources_date = oa_param("sources_date", "(No date)")
  1056. End Sub
  1057. Private Sub display_status(result As Variant)
  1058. On Error GoTo err
  1059. Dim msg As String
  1060. msg = "Operation ended with status: " & vbNewLine
  1061. Select Case CInt(result)
  1062. Case opCompleted
  1063. msg = msg & "> Done"
  1064. Case opCompletedWithErrors
  1065. msg = msg & "> Done (Error(s) occured)"
  1066. Case opInterrupted
  1067. msg = msg & "> Interrupted"
  1068. Case opCancelled
  1069. msg = msg & "> Cancelled"
  1070. Case Else
  1071. GoTo err
  1072. End Select
  1073. OA_MsgBox msg, vbInformation, "Open Access"
  1074. Exit Sub
  1075. err:
  1076. OA_MsgBox msg & "> (unable to read the returned status)", vbExclamation, "Open Access"
  1077. End Sub
  1078. Private Sub update_state()
  1079. Dim control As control
  1080. Dim enable As Boolean
  1081. Me.lbl_progression_msg.Visible = RUNNING_OP
  1082. For Each control In Me.Controls
  1083. If control.ControlType = acCheckBox Or _
  1084. control.ControlType = acCommandButton Or _
  1085. control.ControlType = acTextBox Then
  1086. enable = (Not RUNNING_OP)
  1087. If control.name = "cmd_open_log" Then
  1088. enable = enable And (Len(OA_Log.log_file) > 0)
  1089. End If
  1090. control.Enabled = enable
  1091. End If
  1092. Next control
  1093. DoCmd.Hourglass RUNNING_OP
  1094. End Sub