OpenAccess.bas 46 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145
  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 =-22140
  25. Top =2415
  26. Right =-255
  27. Bottom =15150
  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 =5394
  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 =5394
  328. LayoutCachedTop =680
  329. LayoutCachedWidth =6198
  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 =5225
  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 =5225
  414. LayoutCachedTop =2947
  415. LayoutCachedWidth =6030
  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 ="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 =9
  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 =10
  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 =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_optimizer"
  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 =5385
  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 =5385
  912. LayoutCachedTop =1530
  913. LayoutCachedWidth =6179
  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 =5215
  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 =5215
  935. LayoutCachedTop =3800
  936. LayoutCachedWidth =6040
  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 =2057
  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 =4041
  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 optimizer, zip As Boolean
  1002. optimizer = Me.chk_optimizer
  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", "Run Export"
  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(optimizer, 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", "Run Export"
  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 opInterrupted
  1065. msg = msg & "> Interrupted"
  1066. Case opCancelled
  1067. msg = msg & "> Cancelled"
  1068. Case Else
  1069. GoTo err
  1070. End Select
  1071. OA_MsgBox msg, vbInformation, "Open Access"
  1072. Exit Sub
  1073. err:
  1074. OA_MsgBox msg & "> (unable to read the returned status)", vbExclamation, "Open Access"
  1075. End Sub
  1076. Private Sub update_state()
  1077. Dim control As control
  1078. Dim enable As Boolean
  1079. Me.lbl_progression_msg.Visible = RUNNING_OP
  1080. For Each control In Me.Controls
  1081. If control.ControlType = acCheckBox Or _
  1082. control.ControlType = acCommandButton Or _
  1083. control.ControlType = acTextBox Then
  1084. enable = (Not RUNNING_OP)
  1085. If control.name = "cmd_open_log" Then
  1086. enable = enable And (Len(OA_Log.log_file) > 0)
  1087. End If
  1088. control.Enabled = enable
  1089. End If
  1090. Next control
  1091. DoCmd.Hourglass RUNNING_OP
  1092. End Sub