OpenAccess.bas 46 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149
  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 =41
  24. Left =-16140
  25. Top =-1425
  26. Right =-6840
  27. Bottom =10920
  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 =1696
  202. BorderColor =10921638
  203. Name ="zne_export"
  204. DefaultValue ="1"
  205. GridlineColor =10921638
  206. LayoutCachedLeft =283
  207. LayoutCachedTop =573
  208. LayoutCachedWidth =6406
  209. LayoutCachedHeight =2269
  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 =2502
  239. Width =6123
  240. Height =1471
  241. TabIndex =1
  242. BorderColor =10921638
  243. Name ="zne_import"
  244. GridlineColor =10921638
  245. LayoutCachedLeft =283
  246. LayoutCachedTop =2502
  247. LayoutCachedWidth =6406
  248. LayoutCachedHeight =3973
  249. Begin
  250. Begin Label
  251. BackStyle =1
  252. OverlapFlags =215
  253. TextFontFamily =49
  254. Left =410
  255. Top =2381
  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 =2381
  266. LayoutCachedWidth =4700
  267. LayoutCachedHeight =2696
  268. ThemeFontIndex =-1
  269. ForeTint =100.0
  270. End
  271. End
  272. End
  273. Begin CommandButton
  274. OverlapFlags =215
  275. TextFontFamily =49
  276. Left =5225
  277. Top =793
  278. Width =804
  279. Height =739
  280. FontSize =9
  281. TabIndex =6
  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 =5225
  328. LayoutCachedTop =793
  329. LayoutCachedWidth =6029
  330. LayoutCachedHeight =1532
  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 =5225
  363. Top =2664
  364. Width =805
  365. Height =739
  366. FontSize =9
  367. TabIndex =8
  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 =5225
  414. LayoutCachedTop =2664
  415. LayoutCachedWidth =6030
  416. LayoutCachedHeight =3403
  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 =9
  475. Name ="cmd_open_log"
  476. Caption ="Commande8"
  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 =10
  563. Name ="cmd_open_log_dir"
  564. Caption ="Commande9"
  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 =11
  668. BorderColor =10921638
  669. Name ="chk_debug_mode"
  670. DefaultValue ="True"
  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 =4195
  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 =4195
  720. LayoutCachedWidth =6394
  721. LayoutCachedHeight =4479
  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 =1587
  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 =1587
  741. LayoutCachedWidth =2391
  742. LayoutCachedHeight =1872
  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 =1871
  755. Width =4082
  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 =1871
  766. LayoutCachedWidth =4478
  767. LayoutCachedHeight =2141
  768. BorderThemeColorIndex =0
  769. BorderTint =50.0
  770. BorderShade =100.0
  771. ThemeFontIndex =-1
  772. ForeTint =50.0
  773. End
  774. Begin CommandButton
  775. OverlapFlags =215
  776. TextFontFamily =49
  777. Left =4601
  778. Top =1866
  779. Width =280
  780. Height =235
  781. FontSize =9
  782. TabIndex =5
  783. Name ="cmd_see_include_tables"
  784. Caption ="+"
  785. FontName ="Consolas"
  786. LeftPadding =60
  787. RightPadding =75
  788. BottomPadding =120
  789. GridlineColor =10921638
  790. LayoutCachedLeft =4601
  791. LayoutCachedTop =1866
  792. LayoutCachedWidth =4881
  793. LayoutCachedHeight =2101
  794. ForeTint =100.0
  795. Gradient =0
  796. BackColor =14277081
  797. BackThemeColorIndex =1
  798. BackTint =100.0
  799. BackShade =85.0
  800. BorderColor =14277081
  801. BorderThemeColorIndex =1
  802. BorderTint =100.0
  803. BorderShade =85.0
  804. ThemeFontIndex =-1
  805. HoverColor =-2147483633
  806. HoverThemeColorIndex =-1
  807. HoverTint =100.0
  808. PressedColor =-2147483633
  809. PressedThemeColorIndex =-1
  810. PressedShade =100.0
  811. HoverForeColor =5855577
  812. HoverForeTint =65.0
  813. PressedForeColor =-2147483633
  814. PressedForeThemeColorIndex =-1
  815. PressedForeTint =100.0
  816. Shadow =-1
  817. QuickStyle =22
  818. QuickStyleMask =-113
  819. WebImagePaddingTop =1
  820. Overlaps =1
  821. End
  822. Begin CheckBox
  823. OverlapFlags =215
  824. Left =453
  825. Top =1217
  826. Width =283
  827. Height =226
  828. TabIndex =3
  829. BorderColor =10921638
  830. Name ="chk_zip"
  831. DefaultValue ="True"
  832. GridlineColor =10921638
  833. LayoutCachedLeft =453
  834. LayoutCachedTop =1217
  835. LayoutCachedWidth =736
  836. LayoutCachedHeight =1443
  837. DatasheetCaption ="Compress a copy of the current project before exporting the sources"
  838. Begin
  839. Begin Label
  840. BackStyle =1
  841. OverlapFlags =215
  842. TextFontFamily =49
  843. Left =740
  844. Top =1190
  845. Width =1800
  846. Height =270
  847. FontSize =9
  848. BorderColor =8355711
  849. Name ="lbl_zip"
  850. Caption ="Zip the app file"
  851. FontName ="Consolas"
  852. GridlineColor =10921638
  853. LayoutCachedLeft =740
  854. LayoutCachedTop =1190
  855. LayoutCachedWidth =2540
  856. LayoutCachedHeight =1460
  857. ThemeFontIndex =-1
  858. ForeTint =100.0
  859. End
  860. End
  861. End
  862. Begin CheckBox
  863. OverlapFlags =215
  864. Left =453
  865. Top =884
  866. Width =283
  867. Height =226
  868. TabIndex =2
  869. BorderColor =10921638
  870. Name ="chk_optimizer"
  871. DefaultValue ="True"
  872. ControlTipText ="Exports only the tables defs, queries, forms, reports, macros and modules modifi"
  873. "ed since the last Open Access export"
  874. GridlineColor =10921638
  875. LayoutCachedLeft =453
  876. LayoutCachedTop =884
  877. LayoutCachedWidth =736
  878. LayoutCachedHeight =1110
  879. Begin
  880. Begin Label
  881. BackStyle =1
  882. OverlapFlags =215
  883. TextFontFamily =49
  884. Left =735
  885. Top =855
  886. Width =2700
  887. Height =270
  888. FontSize =9
  889. BorderColor =8355711
  890. Name ="lbl_optimizer"
  891. Caption ="Export newer objects only"
  892. FontName ="Consolas"
  893. GridlineColor =10921638
  894. LayoutCachedLeft =735
  895. LayoutCachedTop =855
  896. LayoutCachedWidth =3435
  897. LayoutCachedHeight =1125
  898. ThemeFontIndex =-1
  899. ForeTint =100.0
  900. End
  901. End
  902. End
  903. Begin CheckBox
  904. OverlapFlags =215
  905. Left =453
  906. Top =2861
  907. Width =283
  908. Height =226
  909. TabIndex =7
  910. BorderColor =10921638
  911. Name ="chk_backup"
  912. DefaultValue ="True"
  913. ControlTipText ="Create a backup of the current project before proceeding to the import"
  914. GridlineColor =10921638
  915. LayoutCachedLeft =453
  916. LayoutCachedTop =2861
  917. LayoutCachedWidth =736
  918. LayoutCachedHeight =3087
  919. Begin
  920. Begin Label
  921. BackStyle =1
  922. OverlapFlags =215
  923. TextFontFamily =49
  924. Left =735
  925. Top =2835
  926. Width =3015
  927. Height =270
  928. FontSize =9
  929. BorderColor =8355711
  930. Name ="lbl_backup"
  931. Caption ="Backup the app before import"
  932. FontName ="Consolas"
  933. GridlineColor =10921638
  934. LayoutCachedLeft =735
  935. LayoutCachedTop =2835
  936. LayoutCachedWidth =3750
  937. LayoutCachedHeight =3105
  938. ThemeFontIndex =-1
  939. ForeTint =100.0
  940. End
  941. End
  942. End
  943. Begin Label
  944. BackStyle =1
  945. OverlapFlags =215
  946. TextAlign =2
  947. TextFontFamily =49
  948. Left =5216
  949. Top =1643
  950. Width =794
  951. Height =226
  952. FontSize =9
  953. FontWeight =700
  954. BorderColor =8355711
  955. Name ="lbl_export"
  956. Caption ="Export"
  957. FontName ="Consolas"
  958. GridlineColor =10921638
  959. LayoutCachedLeft =5216
  960. LayoutCachedTop =1643
  961. LayoutCachedWidth =6010
  962. LayoutCachedHeight =1869
  963. ThemeFontIndex =-1
  964. ForeTint =100.0
  965. End
  966. Begin Label
  967. BackStyle =1
  968. OverlapFlags =215
  969. TextAlign =2
  970. TextFontFamily =49
  971. Left =5215
  972. Top =3517
  973. Width =825
  974. Height =225
  975. FontSize =9
  976. FontWeight =700
  977. BorderColor =8355711
  978. Name ="lbl_import"
  979. Caption ="Import"
  980. FontName ="Consolas"
  981. GridlineColor =10921638
  982. LayoutCachedLeft =5215
  983. LayoutCachedTop =3517
  984. LayoutCachedWidth =6040
  985. LayoutCachedHeight =3742
  986. ThemeFontIndex =-1
  987. ForeTint =100.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 optimizer, zip As Boolean
  1002. Dim include_tables As String
  1003. optimizer = Me.chk_optimizer
  1004. zip = Me.chk_zip
  1005. If Me.chk_debug_mode Then
  1006. OA_Log.set_debug_mode
  1007. End If
  1008. RUNNING_OP = True
  1009. ' update include_tables
  1010. include_tables = Me.txt_include_tables
  1011. ' update log path
  1012. logger "cmd_export_Click", "INFO", "Run Export"
  1013. Me.lbl_log_path.Caption = OA_Log.log_file
  1014. ' update state
  1015. Call update_state
  1016. ' start export
  1017. Dim result As Variant
  1018. result = make_sources(include_tables, optimizer, zip)
  1019. ' update state
  1020. RUNNING_OP = False
  1021. Call update_state
  1022. 'display result
  1023. Call display_status(result)
  1024. End Sub
  1025. Private Sub cmd_import_Click()
  1026. Dim backup As Boolean
  1027. backup = Me.chk_backup
  1028. If Me.chk_debug_mode Then
  1029. OA_Log.set_debug_mode
  1030. End If
  1031. RUNNING_OP = True
  1032. ' update log path
  1033. logger "cmd_import_Click", "INFO", "Run Export"
  1034. Me.lbl_log_path.Caption = OA_Log.log_file
  1035. ' update state
  1036. Call update_state
  1037. ' start export
  1038. Dim result As Variant
  1039. result = update_from_sources(backup)
  1040. ' update state
  1041. RUNNING_OP = False
  1042. Call update_state
  1043. 'display result
  1044. Call display_status(result)
  1045. End Sub
  1046. Private Sub cmd_open_log_Click()
  1047. 'open the current log file with the default text editor
  1048. Application.FollowHyperlink OA_Log.log_file()
  1049. End Sub
  1050. Private Sub cmd_open_log_dir_Click()
  1051. 'open the current log directory with file explorer
  1052. Shell "explorer.exe " & OA_Log.log_dir()
  1053. End Sub
  1054. Private Sub Form_Current()
  1055. Call update_state
  1056. Me.lbl_log_path.Caption = OA_Log.log_dir
  1057. Me.txt_include_tables = get_include_tables()
  1058. End Sub
  1059. Private Sub display_status(result As Variant)
  1060. On Error GoTo err
  1061. Dim msg As String
  1062. msg = "Operation ended with status: " & vbNewLine
  1063. Select Case CInt(result)
  1064. Case opCompleted
  1065. msg = msg & "> Done"
  1066. Case opInterrupted
  1067. msg = msg & "> Interrupted"
  1068. Case opCancelled
  1069. msg = msg & "> Cancelled"
  1070. Case Else
  1071. GoTo err
  1072. End Select
  1073. MsgBox msg, vbInformation, "Open Access"
  1074. Exit Sub
  1075. err:
  1076. 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