Module Order.src
1Use OrderPrecompile.pkg
2
3Use DfAllent.pkg
4Use cCJStandardCommandBarSystem.pkg
5Use cToolTipController.pkg
6
7Object oHtmlHelp is a cHtmlHelp
8End_Object
9
10Object oApplication is a cApplication
11 Set psCompany to "Data Access Worldwide"
12 Set psProduct to "Visual DataFlex Examples"
13 Set psVersion to "16.1"
14 Set psProgram to "Order"
15 Set psHelpFile to "Examples.chm"
16 Set peHelpType to htHtmlHelp
17End_Object
18
19Object oToolTipController is a cToolTipController
20 Move Self to ghoToolTipController
21End_Object
22
23Use oEditContextMenu.pkg
24Use oDEOEditContextMenu.pkg
25
26Object oMain is a Panel
27 Set Label to "Order Entry Sample Application"
28 Set Location to 4 3
29 Set Size to 300 450
30
31 Object oCommandBarSystem is a cCJCommandBarSystem
32
33 Set pbTimerUpdate to True
34
35 Procedure OnCreateCommandBars
36 Handle hoOptions
37 Get OptionsObject to hoOptions
38 Forward Send OnCreateCommandBars
39 End_Procedure
40
41 Object oMenuBar is a cCJMenuBar
42
43 Object oFileMenu is a cCJMenuItem
44
45 Set peControlType to xtpControlPopup
46 Set psCaption to "&File"
47 Set psDescription to "Find, Save, Delete, Clear information or quit this application."
48 Set psCategory to "Menus"
49
50 Object oClearMenuItem is a cCJClearMenuItem
51 Set pbAddToDesignerMenu to True
52 End_Object
53
54 Object oClearAllMenu is a cCJClearAllMenuItem
55 Set pbAddToDesignerMenu to True
56 End_Object
57
58 Object oPromptMenuItem is a cCJPromptMenuItem
59 Set pbAddToDesignerMenu to True
60 Set pbControlBeginGroup to True
61 End_Object
62
63 Object oFindMenuItem is a cCJFindMenuItem
64 Set pbAddToDesignerMenu to True
65 Set pbControlBeginGroup to True
66 End_Object
67
68 Object oFindNextMenu is a cCJFindNextMenuItem
69 Set pbAddToDesignerMenu to True
70 End_Object
71
72 Object oFindPreviousMenu is a cCJFindPreviousMenuItem
73 Set pbAddToDesignerMenu to True
74 End_Object
75
76 Object oFindFirstMenu is a cCJFindFirstMenuItem
77 Set pbAddToDesignerMenu to True
78 End_Object
79
80 Object oFindLastMenu is a cCJFindLastMenuItem
81 Set pbAddToDesignerMenu to True
82 End_Object
83
84 Object oSaveMenuItem is a cCJSaveMenuItem
85 Set pbAddToDesignerMenu to True
86 Set pbControlBeginGroup to True
87 End_Object
88
89 Object oDeleteMenuItem is a cCJDeleteMenuItem
90 Set pbAddToDesignerMenu to True
91 End_Object
92
93 Object oExitMenu is a cCJExitMenuItem
94 Set pbControlBeginGroup to True
95 End_Object
96
97 End_Object
98
99 Object oViewMenu is a cCJMenuItem
100
101 Set peControlType to xtpControlPopup
102 Set psCaption to "&View"
103 Set psToolTip to "View"
104 Set psDescription to "Available Views"
105
106 Object oCustomerEntryViewMenuItem is a cCJMenuItem
107 Set psCaption to "Customer Entry View"
108 Set psShortcut to "Ctrl+1"
109 Set psDescription to "Add, edit and delete Customer data."
110 Set psToolTip to "Customer Entry View"
111
112 Procedure OnExecute Variant vCommandBarControl
113 Handle hoClient
114 Get Client_Id to hoClient
115 Send Activate_oCustomerView of hoClient
116 End_Procedure
117 End_Object
118
119 Object oInventoryItemViewMenuItem is a cCJMenuItem
120 Set psCaption to "Inventory Item View"
121 Set psShortcut to "Ctrl+2"
122 Set psDescription to "Add, edit and delete Inventory data."
123 Set psToolTip to "Inventory Item View"
124
125 Procedure OnExecute Variant vCommandBarControl
126 Handle hoClient
127 Get Client_Id to hoClient
128 Send Activate_oInventoryView of hoClient
129 End_Procedure
130 End_Object
131
132 Object oOrderEntryMenuItem is a cCJMenuItem
133 Set psCaption to "Order Entry"
134 Set psShortcut to "Ctrl+3"
135 Set psDescription to "Add, edit and delete Order data."
136 Set psToolTip to "Order Entry"
137
138 Procedure OnExecute Variant vCommandBarControl
139 Handle hoClient
140 Get Client_Id to hoClient
141 Send Activate_oOrderEntryView of hoClient
142 End_Procedure
143 End_Object
144
145 Object oSalesPersonEntryViewMenuItem is a cCJMenuItem
146 Set psCaption to "Sales Person Entry View"
147 Set psShortcut to "Ctrl+4"
148 Set psDescription to "Add, edit and delete Sales Person data."
149 Set psToolTip to "Sales Person Entry View"
150
151 Procedure OnExecute Variant vCommandBarControl
152 Handle hoClient
153 Get Client_Id to hoClient
154 Send Activate_oSalesPersonView of hoClient
155 End_Procedure
156 End_Object
157
158 Object oVendorEntryViewMenuItem is a cCJMenuItem
159 Set psCaption to "Vendor Entry View"
160 Set psShortcut to "Ctrl+5"
161 Set psDescription to "Add, edit and delete Vendor data."
162 Set psToolTip to "Vendor Entry View"
163
164 Procedure OnExecute Variant vCommandBarControl
165 Handle hoClient
166 Get Client_Id to hoClient
167 Send Activate_oVendorView of hoClient
168 End_Procedure
169 End_Object
170
171 End_Object
172
173 Object oReportMenu is a cCJMenuItem
174
175 Set peControlType to xtpControlPopup
176 Set psCaption to "&Report"
177 Set psToolTip to "Report"
178 Set psDescription to "Available Reports"
179
180 Object oBasicReportsMenuItem is a cCJMenuItem
181 Set psCaption to "Basic Reports"
182 Set peControlType to xtpControlPopup
183 Set psToolTip to "Basic Reports"
184 Set psDescription to "Reports based on the Basic Report class."
185
186 Object oCustomerListMenuItem is a cCJMenuItem
187 Set psCaption to "Customer List"
188 Set psToolTip to "Customer List (Basic)"
189
190 Procedure OnExecute Variant vCommandBarControl
191 Handle hoClient
192 Get Client_Id to hoClient
193 Send Activate_oCustomerListBR of hoClient
194 End_Procedure
195 End_Object
196 End_Object
197
198 Object oWinPrintReportsMenuItem is a cCJMenuItem
199 Set psCaption to "WinPrint Reports"
200 Set peControlType to xtpControlPopup
201 Set psToolTip to "WinPrint Reports"
202 Set psDescription to "Reports based on the WinPrint class."
203
204 Object oCustomerListMenuItem2 is a cCJMenuItem
205 Set psCaption to "Customer List"
206 Set psShortcut to "Ctrl+6"
207 Set psToolTip to "Customer List (WinPrint)"
208 Set psDescription to "Print Customer data."
209
210 Procedure OnExecute Variant vCommandBarControl
211 Handle hoClient
212 Get Client_Id to hoClient
213 Send Activate_oCustomerListWP of hoClient
214 End_Procedure
215 End_Object
216
217 Object oItemsperOrderMenuItem is a cCJMenuItem
218 Set psCaption to "Items per Order"
219 Set psShortcut to "Ctrl+7"
220 Set psToolTip to "Items per Order (WinPrint)"
221 Set psDescription to "Print line items for all Orders."
222
223 Procedure OnExecute Variant vCommandBarControl
224 Handle hoClient
225 Get Client_Id to hoClient
226 Send Activate_oItemsPerOrderWP of hoClient
227 End_Procedure
228 End_Object
229
230 Object oOrdersbyCustomerMenuItem1 is a cCJMenuItem
231 Set psCaption to "Orders by Customer"
232 Set psShortcut to "Ctrl+8"
233 Set psToolTip to "Orders by Customer (WinPrint)"
234 Set psDescription to "Print Order data sorted by Customer."
235
236 Procedure OnExecute Variant vCommandBarControl
237 Handle hoClient
238 Get Client_Id to hoClient
239 Send Activate_oOrdersByCustomerWP of hoClient
240 End_Procedure
241 End_Object
242
243 Object oOrdersbyOrderNumberMenuItem is a cCJMenuItem
244 Set psCaption to "Orders by Order Number"
245 Set psShortcut to "Ctrl+9"
246 Set psToolTip to "Orders by Order Number (WinPrint)"
247 Set psDescription to "Print Order data."
248
249 Procedure OnExecute Variant vCommandBarControl
250 Handle hoClient
251 Get Client_Id to hoClient
252 Send Activate_oOrdersWP of hoClient
253 End_Procedure
254 End_Object
255 End_Object
256
257 Object oCrystalReportsMenuItem is a cCJMenuItem
258 Set psCaption to "Crystal Reports"
259 Set peControlType to xtpControlPopup
260
261 Object oAddressLabelsMenuItem is a cCJMenuItem
262 Set psCaption to "Address Labels"
263 Set psToolTip to "Address Labels (Crystal)"
264 Set psDescription to "Print address labels for Customers or Vendors."
265
266 Procedure OnExecute Variant vCommandBarControl
267 Handle hoClient
268 Get Client_Id to hoClient
269 Send Activate_oAddressLabelsCR of hoClient
270 End_Procedure
271 End_Object
272
273 Object oCustomerListMenuItem1 is a cCJMenuItem
274 Set psCaption to "Customer List"
275 Set psToolTip to "Customer List (Crystal)"
276 Set psDescription to "Print or export Customer data."
277
278 Procedure OnExecute Variant vCommandBarControl
279 Handle hoClient
280 Get Client_Id to hoClient
281 Send Activate_oCustomerListCR of hoClient
282 End_Procedure
283 End_Object
284
285 Object oOrdersbyCustomerMenuItem is a cCJMenuItem
286 Set psCaption to "Orders by Customer"
287 Set psToolTip to "Orders by Customer (Crystal)"
288 Set psDescription to "Print Order data sorted by Customer."
289
290 Procedure OnExecute Variant vCommandBarControl
291 Handle hoClient
292 Get Client_Id to hoClient
293 Send Activate_oOrdersByCustomerCR of hoClient
294 End_Procedure
295 End_Object
296
297 Object oOrdersMenuItem is a cCJMenuItem
298 Set psCaption to "Orders"
299 Set psToolTip to "Orders (Crystal)"
300 Set psDescription to "Print Order data."
301
302 Procedure OnExecute Variant vCommandBarControl
303 Handle hoClient
304 Get Client_Id to hoClient
305 Send Activate_oOrdersCR of hoClient
306 End_Procedure
307 End_Object
308
309 Object oReportInformationMenuItem is a cCJMenuItem
310 Set psCaption to "Report Information"
311 Set psToolTip to "Report Information (Crystal)"
312 Set psDescription to "Select any Crystal Report and examine its structure.."
313
314 Procedure OnExecute Variant vCommandBarControl
315 Handle hoClient
316 Get Client_Id to hoClient
317 Send Activate_oReportInformationCR of hoClient
318 End_Procedure
319 End_Object
320
321 Object oCrystalReportsPreviewerMenuItem is a cCJMenuItem
322 Set psCaption to "Crystal Reports Previewer"
323 Set psToolTip to "Crystal Reports Previewer"
324 Set psDescription to "Select any Crystal Report to run in Preview."
325
326 Procedure OnExecute Variant vCommandBarControl
327 Handle hoClient
328 Get Client_Id to hoClient
329 Send Activate_oReportPreviewCR of hoClient
330 End_Procedure
331 End_Object
332 End_Object
333
334 End_Object
335
336 Object oNavigateMenu is a cCJMenuItem
337 Set peControlType to xtpControlPopup
338 Set psCaption to "&Navigate"
339 Set psTooltip to "Navigate"
340 Set psDescription to "Move to different areas of the application"
341
342 Object oNextAreaMenu is a cCJNextAreaMenu
343 End_Object
344
345 Object oPriorAreaMenu is a cCJPriorAreaMenu
346 End_Object
347
348 Object oNextViewMenu is a cCJNextViewMenu
349 End_Object
350
351 Object oPriorViewMenu is a cCJPriorViewMenu
352 End_Object
353
354 Object oPromptMenu is a cCJPromptMenuItem
355 Set pbControlBeginGroup to True
356 End_Object
357
358 Object oZoomMenu is a cCJZoomMenuItem
359 End_Object
360
361 End_Object
362
363 Object oWindowMenu is a cCJMDIWindowsMenuItem
364 Set peControlType to xtpControlPopup
365 Set psCaption to "&Window"
366 Set psToolTip to "Window"
367 Set psDescription to "Display Current Views and set other display options."
368
369 // These are the static windows items. More will be created in onInitPopup
370 Object oDisplayOptionsMenu is a cCJMenuItem
371 Set peControlType to xtpControlPopup
372 Set psCaption to "&Display Options"
373 Set psToolTip to "Display Options"
374 Set psDescription to "Set display options"
375
376 Object oStatusbarMenu is a cCJStatusbarMenuItem
377 End_Object
378
379 Object oAutoArrangeIconsMenu is a cCJAutoArrangeIconsMenuItem
380 End_Object
381
382 Object oRestoreMenusMenu is a cCJRestoreMenusMenuItem
383 Set pbControlBeginGroup to True
384 End_Object
385
386 End_Object
387
388 Object oCascadeMenu is a cCJCascadeMenuItem
389 Set pbControlBeginGroup to True
390 End_Object
391
392 Object oHorizTile is a cCJTileHorizontally
393 End_Object
394
395 Object oVertTile is a cCJTileVertically
396 End_Object
397
398 Object oMinimizeMenuItem is a cCJMinimizeWindowsMenuItem
399 Set pbControlBeginGroup to True
400 End_Object
401
402 Object oRestoreMenuItem is a cCJRestoreWindowsMenuItem
403 End_Object
404
405 Object oArrangeIconsMenuItem is a cCJAutoArrangeIconsMenuItem
406 Set pbControlBeginGroup to True
407 End_Object
408
409 End_Object
410
411 Object oHelpMenu is a cCJMenuItem
412 Set peControlType to xtpControlPopup
413 Set psCaption to "&Help"
414 Set psDescription to "Access Information for learning and using this DataFlex application."
415 Set psToolTip to "Help"
416
417 Object oHelpMenuItem is a cCJHelpMenuItem
418 End_Object
419
420 Object oAboutMenuItem is a cCJAboutMenuItem
421 End_Object
422
423 End_Object
424
425 End_Object
426
427 Object oFindToolBar is a cCJToolbar
428 Set psTitle to "Finding Toolbar"
429
430 Object oFindFirstTool is a cCJFindFirstMenuItem
431 End_Object
432
433 Object oFindPreviousTool is a cCJFindPreviousMenuItem
434 End_Object
435
436 Object oFindMenuTool is a cCJFindMenuItem
437 End_Object
438
439 Object oFindNextTool is a cCJFindNextMenuItem
440 End_Object
441
442 Object oFindLastTool is a cCJFindLastMenuItem
443 End_Object
444
445 Object oPromptToolItem is a cCJPromptMenuItem
446 Set pbControlBeginGroup to True
447 End_Object
448
449 End_Object
450
451 Object oFileToolBar is a cCJToolbar
452 Set psTitle to "Data Entry Toolbar"
453
454 Object oClearToolItem is a cCJClearMenuItem
455 Set peControlStyle to xtpButtonIconAndCaption
456 End_Object
457
458 Object oClearAllToolItem2 is a cCJClearAllMenuItem
459 Set peControlStyle to xtpButtonIconAndCaption
460 End_Object
461
462 Object oSaveToolItem is a cCJSaveMenuItem
463 Set peControlStyle to xtpButtonIconAndCaption
464 Set pbControlBeginGroup to True
465 End_Object
466
467 Object oDeleteToolItem is a cCJDeleteMenuItem
468 Set peControlStyle to xtpButtonIconAndCaption
469 End_Object
470
471 End_Object
472
473 Object oEditToolBar is a cCJToolbar
474 Set psTitle to "Edit Toolbar"
475
476 Object oCutToolbarItem is a cCJCutMenuItem
477 End_Object
478
479 Object oCopyToolbarItem is a cCJCopyMenuItem
480 End_Object
481
482 Object oPasteToolbarItem is a cCJPasteMenuItem
483 End_Object
484
485 Object oDeleteEditToolbarItem is a cCJDeleteEditMenuItem
486 Set pbControlBeginGroup to True
487 End_Object
488
489 End_Object
490
491 Object oStatusBar is a cCJStatusBar
492
493 Object oStatusPane1 is a cCJStatusBarPane
494 Set piID to sbpIDIdlePane
495 Set pbStyleStretch to True
496 End_Object
497
498 Object oStatusPane2 is a cCJStatusBarPane
499 Set phoViewPane to Self
500 Set pbStyleStretch to True
501 End_Object
502
503 End_Object
504
505 End_Object
506
507 Object oClientArea is a ClientArea
508 Use Customer.vw
509 Use Invt.vw
510 Use Order.vw
511 Use SalesP.vw
512 Use Vendor.vw
513
514 Use Basic\CustomerListBR.rv
515 Use Crystal\AddressLabelsCR.rv
516 Use Crystal\CustomerListCR.rv
517 Use Crystal\OrdersCR.rv
518 Use Crystal\OrdersByCustomerCR.rv
519 Use Crystal\ReportInformationCR.rv
520 Use Crystal\ReportPreviewCR.rv
521 Use WinPrint\CustomerListWP.rv
522 Use WinPrint\ItemsPerOrderWP.rv
523 Use WinPrint\OrdersWP.rv
524 Use WinPrint\OrdersByCustomerWP.rv
525
526 On_Key Key_Ctrl+Key_1 Send Activate_oCustomerView
527 On_Key Key_Ctrl+Key_2 Send Activate_oInventoryView
528 On_Key Key_Ctrl+Key_3 Send Activate_oOrderEntryView
529 On_Key Key_Ctrl+Key_4 Send Activate_oSalesPersonView
530 On_Key Key_Ctrl+Key_5 Send Activate_oVendorView
531 On_Key Key_Ctrl+Key_6 Send Activate_oCustomerListWP
532 On_Key Key_Ctrl+Key_7 Send Activate_oItemsPerOrderWP
533 On_Key Key_Ctrl+Key_8 Send Activate_oOrdersByCustomerWP
534 On_Key Key_Ctrl+Key_9 Send Activate_oOrdersWP
535
536 Use StdAbout.pkg
537
538 Procedure Activate_About
539 Send DoAbout "Order Entry Sample Application" "16.1.1.0" "Copyright (c) 2010 Data Access Corporation" "Data Access Worldwide" ""
540 End_Procedure
541
542 End_Object
543
544
545End_Object
546
547// open Order Entry view on application startup
548Send Activate_oOrderEntryView of (oClientArea(oMain))
549Start_UI
550