Content Supported by Sourcelens Consulting
u*Case StudySALESDETR TTRADESM.BMPxSALESSUMR;TTRADESM.BMPxINITfGETINVKDESTROYfORDERSR
CATGRY.ICOxbitmaps\rtscroll.bmpTTRADELG.BMPxlibs\tsbase.vcx2Application base classes with desired look & feelforms\customer.scxCustomer Maintenance Formforms\supplier.scxSupplier Maintenance Formforms\shipper.scxShipper Maintenance Formforms\product.scxProduct Maintenance Formforms\employee.scxEmployee Maintenance Formforms\category.scx"Product Category Maintenance Formprogs\main.prgThe main program of the systemmenus\main.mnx Invoices
Main menuprogs\utility.prgContains common UDFslibs\login.vcxLogin form classesforms\reports.scxReport Selection Formforms\behindsc.scx"Behind The Scenes" Formlibs\tsgen.vcxGeneral classesreports\orders.frxinclude\strings.h'Strings used in app (for localization)bitmaps\lfscroll.bmp Left scroll marker for splitterUNDO.BMPxc:\vfp98\tastrade!Right scroll marker for splitterreports\salessum.frxSummary Sales Informationreports\salesdet.frxDetailed Sales Informationlibs\orders.vcxOrder entry classesbitmaps\new.bmp"New" bitmap for toolbarbitmaps\save.bmp"Save" bitmap for toolbarforms\ordentry.scxOrder Entry Formlibs\about.vcxGeneric about boxdata\tastrade.dbc%Tasmanian Traders Database Containerbitmaps\frsrec_s.bmp""First Record" bitmap for toolbarbitmaps\prvrec_s.bmp%"Previous Record" bitmap for toolbarbitmaps\nxtrec_s.bmp!"Next Record" bitmap for toolbarbitmaps\lstrec_s.bmp!"Last Record" bitmap for toolbarinclude\tastrade.h+The main include file for this applicationdata\repolist.dbfInformation about Reportsdata\behindsc.dbfBehind the Scenes Information CLOSE.BMPxTTRADESM.BMPx TTRADESM.BMPxLISTCUSTRreports\listcat.frxProduct Category Listingreports\listcust.frxCustomer Listingreports\listempl.frxEmployee Listingreports\listprod.frxProduct Listingreports\listship.frxShipper Listingreports\listsupp.frxSupplier Listingforms\gettitle.scx(Employee Listing Report Parameters Formbitmaps\cust.icoCustomer Form Iconbitmaps\spplrs.icoSupplier Form Iconbitmaps\shpprs1.icoShipper Form Iconbitmaps\prod1.icoProduct Form Iconbitmaps\emply.icoEmployee Form Iconbitmaps\catgry.icoCategory Form Iconbitmaps\bhind.icoBehind the Scenes Iconbitmaps\orders.icoOrder Form Iconforms\getinv.scxInvoice Report Parameters Formbitmaps\bhind_s.bmpBehind the Scenes Bitmapforms\casestdy.scxCase Study Formmenus\intro.mnxc:\vfp98\tastradeBEHINDSCD1Menu displayed while the IntroForm is displayinglibs\main.vcxforms\custadd.scxAdd Customer Formforms\chngpswd.scxChange Password Formbitmaps\close.bmp"Close" bitmap for toolbarbitmaps\ttradelg.bmp4Tasmanian Traders large bitmap (used in intro form)forms\rebuild.scxDatabase Utilities Formbitmaps\ttradesm.bmp1Tasmanian Traders large bitmap (used in reports)reports\viewcode.frxBehind the Scenes Code Reportreports\casestdy.frxc:\vfp98\tastradeforms\viewcode.scxBehind the Scenes Code Windowbitmaps\undo.bmp"Undo" bitmap for toolbarmenus\ordentry.mnxOrder Entry menubitmaps\bhind_s.mskbitmaps\close.mskbitmaps\frsrec_s.mskbitmaps\lstrec_s.mskbitmaps\nxtrec_s.mskbitmaps\prvrec_s.mskc:\vfp98\tastradec:\vfp98\tastradec:\vfp\tastrade TTRADESM.BMPxCASESTDYR TTRADESM.BMPxLISTSHIPRc:\vfp\tastradeCUST.ICOxWINDOWfWINDOWM���� zS'qj%
e�($��Ms����"��\<Window�-�"��Window selection�
N����ALT+W��ALT+W��1��������s��
N�������,s�����"��This bar will be removed��-1���"*-- (c) Microsoft Corporation 1995�<������UWINDOW`�"���1c:\temp\window.mpxc:\temp\window.mpr)S menus\window.mnx STRINGS.HT@ACTIVATEfUNLOADfTSBASEVCLICKfTSGENVGETINVKNTSBASEVADDNEWfINITfERRORfLAERRORaSHPPRS1.ICOxSHIPPERKPRVREC_S.BMPxq
TSBASEVADDNEWfINITfERRORfLAERRORaREFRESHFORMf
CATGRY.ICOxCLICKfREFRESHfCATEGORYKforms\ordhist.scx
SPPLRS.ICOx�TSBASEVREFRESHFORMfDESTROYfREFRESHfADDNEWfINITfERRORfLAERRORa
PAGEFRAME1f EMPLY.ICOxCLICKfEMPLOYEEKNTSBASEVERRORfLAERRORaINITfADDNEWf
SPPLRS.ICOxSUPPLIERKSHPPRS1.ICOxNEW.MSKxbitmaps\new.mskRTSCROLL.BMPx PROD1.ICOxPRVREC_S.MSKxNXTREC_S.MSKxYinclude\tastrade.hA�($..\..\..\..\..\vfp6\foxpro.h�#include\strings.h"A�($..\..\..\..\..\temp\window.mpr!..\..\..\..\..\temp\navigate.mprZ1TSBASEVCLOSEfTTRADELG.BMPxCLICKfBEHINDSCKWRITEPRIVSTR UNLOADfLOADfDBLCLICKfOPTION1fOPTION2fTSGENVCMDOKfTSOPTIONGROUP1fERRORfLAERRORaINITfVALIDfGETLEFTEDGEfGETRIGHTEDGEfUPDATECONTROLSf MOUSEDOWNfGETDATEFROMf GETDATETOfVALIDATEfDOfCLEANUPfDOFORMfDOFORMRETVALfLOGINfRELEASETOOLBARSf ATOOLBARSaSHOWTOOLBARSfSHOWNAVTOOLBARfNAVIGATEMDOMENUfRELEASENAVTOOLBARfADDINSTANCEf
AINSTANCESaREMOVEINSTANCEfCLEANUP2fDESTROYfSETfUTILITYPMAINVLOGINVORDERSV
ONSHUTDOWNfRESETfYinclude\tastrade.h�A�($..\..\..\..\..\vfp6\foxpro.h
��#include\strings.h�A�($!..\..\..\..\..\temp\ordentry.mpr..\..\..\..\..\temp\intro.mprYinclude\tastrade.h2]A�($..\..\..\..\..\vfp6\foxpro.h:^�#include\strings.hB_A�($ORDERSVGRIDPOPfGRIDADDITEMfGRIDREMOVEITEMf
GETCUSTOMERIDfGETORDERNUMBERf CLEARLINKfGETCUSTOMERNAMEfINITfLOADfDESTROYfACTIVATEfORDENTRYM
DEACTIVATEf
ORDERS.ICOxTSBASEV
RIGHTCLICKfREFRESHfREMAININGCREDIT INTERACTIVECHANGEf LOSTFOCUSfCLICKfPROGRAMMATICCHANGEfVALIDfCUSTADDK
LOCATE.BMPx
LOCATE.MSKxORDENTRYK�
GETPRIVSTRfWRITEPRIVSTRfREGOPENKEYEXfREGQUERYVALUEEXfREGCLOSEKEYf GETPROSTRfSETPATHfMAINVTSGENVMAINfMAINP..\..\..\..\..\temp\main.mprSAVE.BMPxBHIND_S.MSKx
LOCATE.BMPxbitmaps\locate.bmpOTSBASEVREBUILDINDEXESfLATABLESaVALIDATEDBCfCLICKfREBUILDKx
TSGENVGETSTARTUPACTIONfGETUSERLEVELf
GETEMPLOYEEIDfLOGINfDOfINITfINTROM
GETPRIVSTR MAINV?TTRADESM.BMPxINITfGETTITLEKDESTROYfLISTEMPLRmenus\navigate.mnx�$NEWIDfREMAININGCREDITfVALORDERfCALCMINORDAMOUNTfCALCORDTOTALfDEFAULTEMPLOYEEfRIDELETEfRIUPDATEfRIERRORfGAERRORSaRIOPENfRIENDfRIREUSEf__RI_DELETE_CATEGORYfGAERRORSA__RI_UPDATE_CATEGORYf__RI_DELETE_CUSTOMERf__RI_UPDATE_CUSTOMERf__RI_DELETE_EMPLOYEEf__RI_UPDATE_EMPLOYEEf__RI_INSERT_EMPLOYEEf__RI_UPDATE_ORDER_LINE_ITEMSf__RI_INSERT_ORDER_LINE_ITEMSf__RI_DELETE_ORDERSf__RI_UPDATE_ORDERSf__RI_INSERT_ORDERSf__RI_DELETE_PRODUCTSf__RI_UPDATE_PRODUCTSf__RI_INSERT_PRODUCTSf__RI_DELETE_SHIPPERSf__RI_UPDATE_SHIPPERSf__RI_DELETE_SUPPLIERf__RI_UPDATE_SUPPLIERf__RI_DELETE_USER_LEVELf__RI_UPDATE_USER_LEVELfTASTRADEdNEW.BMPx���� �X+�w%
e�($���s����"��\<Items�-�9��2Add and delete line items for the Order Entry form���C�
frmorderentry�
�
N����ALT+I��ALT+I��1��������s��
N�������|s�����"��\<Add Line Item���#Add line items to the current order���C�
�
�9��
��CTRL+INS��Ctrl+Ins���s�����"��\<Remove Line Item���#Remove items from the current order���C�
�
�9��
�+C� _screen.Activeform.Activecontrolb�O�C�9���f�GRID��CTRL+DEL��Ctrl+Del��21������� _screen.Activeform.GridAddItem()�51�������#_screen.Activeform.GridRemoveItem()�-1���"*-- (c) Microsoft Corporation 1995�U
ORDERENTRYITEMSFORMISOBJECT
ACTIVEFORMLALLOWEDITSLALLOWDELETE
ACTIVECONTROL BASECLASS�Q"�d!Q�1c:\temp\ordentry.mpxc:\temp\ordentry.mpr)X C:\VFP\TASTRADE\TASTRADE.PJXreports\topcust.frxREPOLISTD CLOSE.MSKx\TSBASEVADDNEWfINITfERRORfCUST.ICOxTSGENVTXTCUSTOMER_IDfCUSTOMERK�FORMISOBJECT TOOLBARENABLED REPORTSK
_RRA1449RWf
_RRA1449RXf
_RRA1449SQfCHNGPSWDKREBUILDK
_RRA1449TAfABOUTVMAINfMAINM BHIND.ICOxbitmaps\locate.msk(��� �J��%[,/�P�($�U���������%�C��
��2�T��C���%�C����L�B�-���T��-��T��CC��f��
T�����T��C�����+�C��
����%�CC��f�����T��a��!��T������T��C������ B����U TCTAGNAMETCALIASLLISTAG
LCTAGFOUNDLNTAGNUM(!��C�Under Construction�@�x��B�Uo�������T��C�
COMPATIBLEv��GA �T��C����#SET COMPATIBLE &lcSetCompatible
B����U
TCFILENAMELCSETCOMPATIBLE
LNFILESIZE<9B�C�_screen.activeformb�O�C�9��f�FORM ��U
ACTIVEFORM BASECLASSn4�����+T���oApp.oToolBar.��.enabled��%�C�b�L��T�B�-���g�B�C�����UOOBJECTOTOOLOBJYV��C�3Cannot quit Visual FoxPro within Tasmanian Traders.�0�Tasmanian Traders�x��UIsTag,��NotYetZ��FileSize���FormIsObject"��ToolBarEnabledy��
OnShutdown���9���A�qA��!Q�AA!A�3A3q��a�1�3�3rq�Aq��A3e1���|)�/")�=$�D-�Pc:\temp\utility.fxpc:\specs\drop\vfp\samples\tastrade\progs\utility.prg)� Yinclude\tastrade.h��A�($..\..\..\..\..\vfp6\foxpro.h���#include\strings.h��A�($Yinclude\tastrade.h�mA�($..\..\..\..\..\vfp6\foxpro.h�n�#include\strings.h�oA�($C:\VFP\TASTRADE\TASTRADE.PJX
LOCATE.MSKxk BEFOREOPENTABLESfTSBASEVERRORfLAERRORaINITfADDNEWfDESTROYf PROD1.ICOxPRODUCTK,FORMISOBJECT NAVIGATEfNAVIGATEMTTRADESM.BMPxLISTCATRj��� Q&+?a%��e�($�Ows����"��\<Navigation�-�"��7Commands to navigate through records on the active form�
N����ALT+N��ALT+N��1��������s��
N��������s�����"��\<First���AMoves the record pointer of the current alias to the first record���C�
�C�
oApp.oToolBarb�O�����
�� CTRL+HOME�� Ctrl+Home���s�����"��\<Prior���DMoves the record pointer of the current alias to the previous record���C�
�C�
oApp.oToolBarb�O�����
�� CTRL+PGUP�� Ctrl+PgUp���s�����"��Ne\<xt���@Moves the record pointer of the current alias to the next record���C�
�C�
oApp.oToolBarb�O�����
�� CTRL+PGDN�� Ctrl+PgDn���s�����"��\<Last���@Moves the record pointer of the current alias to the last record���C�
�C�
oApp.oToolBarb�O�����
��CTRL+END��Ctrl+End��01�������oApp.oToolbar.cmdFirst.Click()�01�������oApp.oToolbar.cmdPrior.Click()�/1�������oApp.oToolbar.cmdNext.Click()�/1�������oApp.oToolbar.cmdLast.Click()�-1���"*-- (c) Microsoft Corporation 1995�U
NAVIGATIONFORMISOBJECTOAPPOTOOLBARCMDFIRSTENABLEDCMDPRIORCMDNEXTCMDLAST`q�"4d�
���1c:\temp\navigate.mpxc:\temp\navigate.mpr)& �BEFOREOPENTABLESfTSBASEVCALCBALANCEfDESTROYfQUERYUNLOADf
SAVEWINDOWPOSfRESTOREWINDOWPOSfREFRESHFORMfDATACHANGEDfINITfACTIVATEfREFRESHfAFTERROWCOLCHANGEfCLICKf
LOCATE.BMPx
LOCATE.MSKxORDHISTK^ISTAGfNOTYETfFILESIZEfFORMISOBJECTfTOOLBARENABLEDf
ONSHUTDOWNfUTILITYPNXTREC_S.BMPx TTRADESM.BMPxLISTPRODR�
BEFOREOPENTABLESfTSBASEVVALIDATEfLOADfACTIVATEfINITfINTERACTIVECHANGEfCLICKfBEHINDSCKCHNGPSWDK EMPLY.ICOx TTRADESM.BMPxVIEWCODER TTRADESM.BMPxLISTSUPPRXTSBASEVINITfDESTROYfREFRESHfCLICKfKEYPRESSfDBLCLICKfREPORTSK�LOGINVGETUSERLEVELfREFRESHfINITfCMDOKf CMDCANCELfTSBASEVUNLOADfLOADfCLICKfINTERACTIVECHANGEfreports\behindsc.frxFRSREC_S.MSKxBHIND_S.BMPx
TASTRADE.HTLSTREC_S.BMPx
ORDERS.ICOxLSTREC_S.MSKxFRSREC_S.BMPxLFSCROLL.BMPx:TSBASEVINITfCMDPRINTfVIEWCODERVIEWCODEK,FORMISOBJECT ORDENTRYfORDENTRYMtTSBASEVACTIVATEfDESTROYfUNLOADfINITfERRORfTSGENVCLICKfLAERRORaBEHINDSCKCUSTADDK TTRADESM.BMPxBEHINDSCRTTRADESM.BMPxTOPCUSTR}
TSBASEVUNLOADfINITfREGOPENKEYEX REGQUERYVALUEEX REGCLOSEKEY GETPROSTR ACTIVATEfCLICKfABOUTV;
_RRA144CRJf
_RRA144CRKfABOUTVINTROfINTROMNBEFOREOPENTABLESfTSBASEVLOADfCMDPRINTfCASESTDYRCASESTDYKu BEFOREOPENTABLESfACTIVATEfUNLOADfINITfINTERACTIVECHANGEfDESTROYfTSBASEVCLICKfGETTITLEKTSBASEVREFRESHCUSTOMERINFOfMOVEOFFGRIDfRESTOREWINDOWPOSf
SAVEWINDOWPOSfPRIORfLASTfFIRSTfNEXTfSAVEfLAERRORaADDNEWfRESTOREfDELETEfDATACHANGEDfGOTFOCUSfINITfREFRESHfORDERSVVALIDfDESTROYfPROGRAMMATICCHANGEf LOSTFOCUSf�<INITfVALIDfISTAG LOSTFOCUSfKEYPRESSfINTERACTIVECHANGEf SUMCOLUMNfREFRESHfOKTOSENDfFORMISOBJECT
SAVEWINDOWPOSfWRITEPRIVSTR RESTOREWINDOWPOSf
GETPRIVSTR DESTROYfTSBASEVCLICKfFRSREC_S.BMPxFRSREC_S.MSKxPRVREC_S.BMPxPRVREC_S.MSKxNXTREC_S.BMPxNXTREC_S.MSKxLSTREC_S.BMPxLSTREC_S.MSKxNEW.BMPxNEW.MSKxSAVE.BMPxUNDO.BMPx CLOSE.BMPx CLOSE.MSKxBHIND_S.BMPxBHIND_S.MSKxUNLOADfACTIVATEfADDNEWfPAGE1fPAGE2fRESIZEfQUERYUNLOADf MOUSEDOWNfMOUSEUPfNEXTfFIRSTfLASTfPRIORfSAVEfLAERRORaDELETEfRESTOREfWRITEBUFFERfREFRESHFORMfWAITMODEf ADDTOMENUfWINDOWMREMOVEFROMMENUfDATACHANGEDf ASKTOSAVEf
ISNEWANDEMPTYfERRORf�!TSBASEVREFRESHFEATURESfGETFILENAMEf GETMETHODfSHOWCODEfLAFILETYPESaVIEWCODEK GETOBJECTf
EXTRACTMETHODfEXTRACTALLMETHODSfEXTRACTALLPROPERTIESf
EXTRACTPRGfEXTRACTMULTIMETHODSfEXTRACTALLSTOREDPROCSfEXTRACTSTOREDPROCfEXTRACTMULTISTOREDPROCSf
PROCSTOMEMfFILESIZE REFRESHFORMfLOADfFORMISOBJECT INITfAFORMSa
AOBJSPLITMOVEaDESTROYfPROGRAMMATICCHANGEfINTERACTIVECHANGEfMOVEfREQUERYfCLICKfBEHINDSCRTSGENVBEHINDSCK
��� ��#��%U}[c�($��GY(�GY���s����"��\<File���WCreate, save, delete, and restore records, close forms, print reports, or quit Tastrade�
N����ALT+F��ALT+F��Ws����"��\<Edit���Edits text or current selection�
N����ALT+E��ALT+E��gs����"��\<Orders���-Access to Order Entry and Order History forms�
N����ALT+O��ALT+O��|s����"��\<Administration���;Login, change password, and access to all maintenance forms�
N����ALT+A��ALT+A���s����"��\<Utilities���DTrace, debug, and view windows, suspend, resume, and cancel programs�
N����ALT+U��ALT+U��Ps����"��\<Help���Displays help on Tastrade�
N����ALT+H��ALT+H��1��������1��������1��������1��������1��������1��������s��
N�������ws�����"��\<New���'Creates a new record in the active form���C�
�C�cmdNew�
��CTRL+N��Ctrl+N��Ts�����"��\<Close���Closes the active form���C�
�C�cmdClose�
��s�����"��\-��}s�����"��\<Save���+Saves the current record in the active form���C�
�C�cmdSave�
��CTRL+S��Ctrl+S���s�����"�� \<Restore���ERestores the original values of the current record in the active form���C�
�C�
cmdRestore�
��CTRL+E��Ctrl+E���s�����"��\<Delete���-Deletes the current record in the active form���C�
�C�
oApp.oToolBarb�O�
�9�
�
��s�����"��\-��js�����"��\<Print Reports ...���'Runs the report and list selection form��CTRL+P��Ctrl+P��Ss�� ���"��
Print Set\<up���,Changes the page layout and printer settings��s��
���"��\-��-s�����"��Return to Visual Fo\<xPro��.1�������oApp.oToolbar.cmdNew.Click()�01�������oApp.oToolbar.cmdClose.Click()�/1�������oApp.oToolbar.cmdSave.Click()�21������� oApp.oToolbar.cmdRestore.Click()�-1�������_screen.activeform.delete()�!1�������DO FORM Reports�`1��� ����NDO _rra1449rw IN LOCFILE("..\TEMP\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")�`1�������NDO _rra1449rx IN LOCFILE("..\TEMP\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")�s��
N�������zs��:���"��\<Undo���EUndoes the last change made to the current control of the active form��CTRL+Z��Ctrl+Z��{s��;���"��\<Redo���FRepeats the last change made to the current control of the active form��CTRL+R��Ctrl+R��s�����"��\-��js��=���"��Cu\<t���6Removes the selection and places it onto the clipboard��CTRL+X��Ctrl+X��\s��>���"��\<Copy���'Copies the selection onto the clipboard��CTRL+C��Ctrl+C��Zs��?���"��\<Paste���$Pastes the contents of the clipboard��CTRL+V��Ctrl+V��s�����"��\-��us��H���"��Select \<All���:Selects all text in the current control of the active form��CTRL+A��Ctrl+A��s��
N�������Vs�����"��
Order \<Entry���Runs the Order Entry form���C�
frmOrderEntry���Ds�����"��Order \<History���Runs the Order History form��)1�������oApp.DoForm("ordentry")�(1�������oApp.DoForm("ordhist")�s��
N�������@s�����"��\<Login���Log in as another user���CC��
��]s�����"��C\<hange Password���)Changes the password for the current user���CC��
��s�����"��\-��Xs�����"��\<Customers���Add, edit, or delete customers���C�frmCustomers���Ys�����"��C\<ategories���Add, edit, or delete categories���C�frmCategory���Ws�����"��\<Employees���Add, edit, or delete employees���C�frmEmployee���Us�����"��
\<Shippers���Add, edit, or delete shippers���C�frmShippers���Xs�����"��S\<uppliers���Add, edit, or delete suppliers���C�frmSuppliers���Us�� ���"��
\<Products���Add, edit, or delete products���C�frmProducts���s��
���"��\-��js�����"��\<Behind the Scenes���)Find out how this application was created���C�frmBehindSC���`1�������NDO _rra1449sq IN LOCFILE("..\TEMP\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")�"1�������DO FORM chngpswd�)1�������oApp.DoForm("customer")�)1�������oApp.DoForm("category")�)1�������oApp.DoForm("employee")�(1�������oApp.DoForm("shipper")�)1�������oApp.DoForm("supplier")�(1��� ����oApp.DoForm("product")�)1�������oApp.DoForm("behindsc")�s��
N�������9s�����"��\<Trace���Displays the trace window��9s�����"��De\<bug���Displays the debug window��7s�����"��\<View���Displays the view window��Us�����"�� \<Command���Displays the command window��CTRL+F2��Ctrl+F2��s�����"��\-��Is�����"�� \<Suspend���&Suspends the currently running program��Ns��t���"��\<Resume���-Resumes running the current suspended program��Bs��s���"��C\<ancel���!Stops running the current program��s�� ���"��\-��fs��
���"��Rebuild \<DBC/Reindex���.Rebuilds the database and reindexes all tables���CC��
��1�������suspend�!1���
����DO FORM rebuild�s��
N�������Bs�����"��
\<Contents���Displays Help table of contents��Ss�����"��\<Search for Help on...���
f�APPLICATIONS DEVELOPER����<������D%�CCC��
f�APPLICATIONS DEVELOPER�OPERATIONS MANAGER�
����<�����Administration�<�����Administration�<�����Administration��UPADEDITORDERS UTILITIESFILE
_QX713DAX1
_QX713DSUSHELPFORMISOBJECTTOOLBARENABLED
ACTIVEFORMLALLOWDELETEOAPPGETUSERLEVELL���T��C�ERROR��� 1�*���C�
]��ON ERROR &lcOldError
U
LCOLDERROR��UN���T��C����
��C����%�C�����G�
��C�����ULCUSERLEVELOAPPGETUSERLEVELLOGINDOMENU����G~(�about��T��C�AboutBox�Tasmanian Traders�1.1�$Copyright 1996 Microsoft Corporation�All rights reserved�BITMAPS\TTRADESM.BMP�N��
��C����<R� about.vcx�U
LOABOUTBOXABOUTSHOWVCX
_rra1449rwB��
_rra1449rx���
_rra1449sq���
_rra1449ta,�� aa�ss���"tCa�� a�2a���!�"��a���aS"cB��"�a��sS�Sa�!�������"��rSa��"ac�""2a�����AB���A�1qQ���1R�1q�R�A1q�f�1e{-1�l01�4o�4�8!w�8�9:c:\temp\main.mpxc:\temp\main.mpr)� ���� ��D��%�9,�O�($��E|��GetPrivateProfileString�Win32APIQ�
GetPrivStr�������D|��WritePrivateProfileString�Win32APIQ�WritePrivStr�����+|��RegOpenKeyEx�Win32API������1|��RegQueryValueEx�Win32API������� |��RegCloseKey�Win32API��;|��GetProfileString�Win32APIQ� GetProStr�������u,�Project Manager�%�C�TALKv�ON����G2�7�
�T�
��ON�����7�
�T�
��OFF���7���
���T��C�ESCAPEv��T��CC����T��C�PATHv��T�
�C�CLASSLIBv��T��a��%�C�����7��T��C�TasTrade�N��%�C�oAppb�O����<���
�
��
��C������V�<���UGETPRIVATEPROFILESTRINGWIN32API
GETPRIVSTRWRITEPRIVATEPROFILESTRINGWRITEPRIVSTRREGOPENKEYEXREGQUERYVALUEEXREGCLOSEKEYGETPROFILESTRING GETPROSTR GCOLDTALKGCOLDDIR GCOLDPATH
GCOLDCLASSLIBGCOLDESCAPEGTTRADESETPATHOAPPDO�����T��C�]��T��C�C�:��\����C�C�\��=��%�C��R�FXP��l� ��..��SG)(�JPROGS, FORMS, LIBS, MENUS, DATA, OTHER, REPORTS, INCLUDE, HELP, BITMAPS�G~(�MAIN�TSGEN�ULCSYS16 LCPROGRAMPROGSMAINTSGENSetPath���XC��Bt�aq��qArQ�1q��q��s�AARaQ2���B��A4a1"b#
Gc:\temp\main.fxpc:\specs\drop\vfp\samples\tastrade\progs\main.prg)� ���� ��%��%�=!�d�($�2GY(�GY��2s����"��\<File�
N����ALT+F��ALT+F��2s����"��\<Help�
N����ALT+H��ALT+H��1��������1��������s��
N�������-s�����"��Return to Visual Fo\<xPro��,1�������_screen.activeform.Close()�s��
N�������Ps�����"��
\<Contents���Displays Help table of contents��F1��F1��Ss�����"��\<Search for Help on...���
����<R� about.vcx�U
LOABOUTBOXLIBSSHOWABOUTVCXq���T��C���%�C�f�NEW��<�T���AddNew���$T���_screen.activeform.���
&lcCmd
ULCCMD
_rra144crjl��
_rra144crkW���aa
0GHNbc:\temp\intro.mpxc:\temp\intro.mpr)� Microsoft CorporationMicrosoft CorporationOne Microsoft WayRedmondWA98052USA