Content Supported by Sourcelens Consulting

u*Case StudySALESDETR TTRADESM.BMPxSALESSUMR;TTRADESM.BMPxINITfGETINVKDESTROYfORDERSR
CATGRY.ICOxbitmaps\rtscroll.bmpTTRADELG.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.BMPxTTRADESM.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.ICOxSHIPPERKPRVREC_S.BMPxq
TSBASEVADDNEWfINITfERRORfLAERRORaREFRESHFORMf
CATGRY.ICOxCLICKfREFRESHfCATEGORYKforms\ordhist.scx
SPPLRS.ICOx�TSBASEVREFRESHFORMfDESTROYfREFRESHfADDNEWfINITfERRORfLAERRORa
PAGEFRAME1f	EMPLY.ICOxCLICKfEMPLOYEEKNTSBASEVERRORfLAERRORaINITfADDNEWf
SPPLRS.ICOxSUPPLIERKSHPPRS1.ICOxNEW.MSKxbitmaps\new.mskRTSCROLL.BMPx	PROD1.ICOxPRVREC_S.MSKxNXTREC_S.MSKxYinclude\tastrade.hA�($..\..\..\..\..\vfp6\foxpro.h�#include\strings.h"A�($..\..\..\..\..\temp\window.mpr!..\..\..\..\..\temp\navigate.mprZ1TSBASEVCLOSEfTTRADELG.BMPxCLICKfBEHINDSCKWRITEPRIVSTR UNLOADfLOADfDBLCLICKfOPTION1fOPTION2fTSGENVCMDOKfTSOPTIONGROUP1fERRORfLAERRORaINITfVALIDfGETLEFTEDGEfGETRIGHTEDGEfUPDATECONTROLSf	MOUSEDOWNfGETDATEFROMf	GETDATETOfVALIDATEfDOfCLEANUPfDOFORMfDOFORMRETVALfLOGINfRELEASETOOLBARSf	ATOOLBARSaSHOWTOOLBARSfSHOWNAVTOOLBARfNAVIGATEMDOMENUfRELEASENAVTOOLBARfADDINSTANCEf
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�
GETPRIVSTRfWRITEPRIVSTRfREGOPENKEYEXfREGQUERYVALUEEXfREGCLOSEKEYf	GETPROSTRfSETPATHfMAINVTSGENVMAINfMAINP..\..\..\..\..\temp\main.mprSAVE.BMPxBHIND_S.MSKx
LOCATE.BMPxbitmaps\locate.bmpOTSBASEVREBUILDINDEXESfLATABLESaVALIDATEDBCfCLICKfREBUILDKx
TSGENVGETSTARTUPACTIONfGETUSERLEVELf
GETEMPLOYEEIDfLOGINfDOfINITfINTROM
GETPRIVSTR MAINV?TTRADESM.BMPxINITfGETTITLEKDESTROYfLISTEMPLRmenus\navigate.mnx�$NEWIDfREMAININGCREDITfVALORDERfCALCMINORDAMOUNTfCALCORDTOTALfDEFAULTEMPLOYEEfRIDELETEfRIUPDATEfRIERRORfGAERRORSaRIOPENfRIENDfRIREUSEf__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
ORDERENTRYITEMSFORMISOBJECT
ACTIVEFORMLALLOWEDITSLALLOWDELETE
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 NAVIGATEfNAVIGATEMTTRADESM.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	
NAVIGATIONFORMISOBJECTOAPPOTOOLBARCMDFIRSTENABLEDCMDPRIORCMDNEXTCMDLAST`q�"4d�
���1c:\temp\navigate.mpxc:\temp\navigate.mpr)&	�BEFOREOPENTABLESfTSBASEVCALCBALANCEfDESTROYfQUERYUNLOADf
SAVEWINDOWPOSfRESTOREWINDOWPOSfREFRESHFORMfDATACHANGEDfINITfACTIVATEfREFRESHfAFTERROWCOLCHANGEfCLICKf
LOCATE.BMPx
LOCATE.MSKxORDHISTK^ISTAGfNOTYETfFILESIZEfFORMISOBJECTfTOOLBARENABLEDf
ONSHUTDOWNfUTILITYPNXTREC_S.BMPx TTRADESM.BMPxLISTPRODR�
BEFOREOPENTABLESfTSBASEVVALIDATEfLOADfACTIVATEfINITfINTERACTIVECHANGEfCLICKfBEHINDSCKCHNGPSWDK	EMPLY.ICOx TTRADESM.BMPxVIEWCODER TTRADESM.BMPxLISTSUPPRXTSBASEVINITfDESTROYfREFRESHfCLICKfKEYPRESSfDBLCLICKfREPORTSK�LOGINVGETUSERLEVELfREFRESHfINITfCMDOKf	CMDCANCELfTSBASEVUNLOADfLOADfCLICKfINTERACTIVECHANGEfreports\behindsc.frxFRSREC_S.MSKxBHIND_S.BMPx
TASTRADE.HTLSTREC_S.BMPx
ORDERS.ICOxLSTREC_S.MSKxFRSREC_S.BMPxLFSCROLL.BMPx:TSBASEVINITfCMDPRINTfVIEWCODERVIEWCODEK,FORMISOBJECT ORDENTRYfORDENTRYMtTSBASEVACTIVATEfDESTROYfUNLOADfINITfERRORfTSGENVCLICKfLAERRORaBEHINDSCKCUSTADDK TTRADESM.BMPxBEHINDSCRTTRADESM.BMPxTOPCUSTR}
TSBASEVUNLOADfINITfREGOPENKEYEX REGQUERYVALUEEX REGCLOSEKEY 	GETPROSTR ACTIVATEfCLICKfABOUTV;
_RRA144CRJf
_RRA144CRKfABOUTVINTROfINTROMNBEFOREOPENTABLESfTSBASEVLOADfCMDPRINTfCASESTDYRCASESTDYKu	BEFOREOPENTABLESfACTIVATEfUNLOADfINITfINTERACTIVECHANGEfDESTROYfTSBASEVCLICKfGETTITLEKTSBASEVREFRESHCUSTOMERINFOfMOVEOFFGRIDfRESTOREWINDOWPOSf
SAVEWINDOWPOSfPRIORfLASTfFIRSTfNEXTfSAVEfLAERRORaADDNEWfRESTOREfDELETEfDATACHANGEDfGOTFOCUSfINITfREFRESHfORDERSVVALIDfDESTROYfPROGRAMMATICCHANGEf	LOSTFOCUSf�<INITfVALIDfISTAG 	LOSTFOCUSfKEYPRESSfINTERACTIVECHANGEf	SUMCOLUMNfREFRESHfOKTOSENDfFORMISOBJECT 
SAVEWINDOWPOSfWRITEPRIVSTR RESTOREWINDOWPOSf
GETPRIVSTR DESTROYfTSBASEVCLICKfFRSREC_S.BMPxFRSREC_S.MSKxPRVREC_S.BMPxPRVREC_S.MSKxNXTREC_S.BMPxNXTREC_S.MSKxLSTREC_S.BMPxLSTREC_S.MSKxNEW.BMPxNEW.MSKxSAVE.BMPxUNDO.BMPx	CLOSE.BMPx	CLOSE.MSKxBHIND_S.BMPxBHIND_S.MSKxUNLOADfACTIVATEfADDNEWfPAGE1fPAGE2fRESIZEfQUERYUNLOADf	MOUSEDOWNfMOUSEUPfNEXTfFIRSTfLASTfPRIORfSAVEfLAERRORaDELETEfRESTOREfWRITEBUFFERfREFRESHFORMfWAITMODEf	ADDTOMENUfWINDOWMREMOVEFROMMENUfDATACHANGEDf	ASKTOSAVEf
ISNEWANDEMPTYfERRORf�!TSBASEVREFRESHFEATURESfGETFILENAMEf	GETMETHODfSHOWCODEfLAFILETYPESaVIEWCODEK	GETOBJECTf
EXTRACTMETHODfEXTRACTALLMETHODSfEXTRACTALLPROPERTIESf
EXTRACTPRGfEXTRACTMULTIMETHODSfEXTRACTALLSTOREDPROCSfEXTRACTSTOREDPROCfEXTRACTMULTISTOREDPROCSf
PROCSTOMEMfFILESIZE REFRESHFORMfLOADfFORMISOBJECT 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...���#Searches for Help topics by keyword��s�����"��\-��~s�����"��\<About Tasmanian Traders...���HDisplays information about this application and the system configuration��`1�������NDO _rra1449ta  IN LOCFILE("..\TEMP\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")�-1���"*-- (c) Microsoft Corporation 1995�{�����-%�CC��
f�APPLICATIONS DEVELOPER����<������D%�CCC��
f�APPLICATIONS DEVELOPER�OPERATIONS MANAGER�
����<�����Administration�<�����Administration�<�����Administration��UPADEDITORDERS	UTILITIESFILE
_QX713DAX1
_QX713DSUSHELPFORMISOBJECTTOOLBARENABLED
ACTIVEFORMLALLOWDELETEOAPPGETUSERLEVELL���T��C�ERROR���	1�*���C�
]��ON ERROR &lcOldError
U
LCOLDERROR��UN���T��C����
��C����%�C�����G�
��C�����ULCUSERLEVELOAPPGETUSERLEVELLOGINDOMENU����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
GETPRIVSTRWRITEPRIVATEPROFILESTRINGWRITEPRIVSTRREGOPENKEYEXREGQUERYVALUEEXREGCLOSEKEYGETPROFILESTRING	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...���#Searches for Help topics by keyword��s�����"��\-��~s�����"��\<About Tasmanian Traders...���HDisplays information about this application and the system configuration��b1�������PDO _rra144crj  IN LOCFILE("..\TEMP\INTRO" ,"MPX;MPR|FXP;PRG" ,"WHERE is INTRO?")�-1���"*-- (c) Microsoft Corporation 1995�\1����PDO _rra144crk  IN LOCFILE("..\TEMP\INTRO" ,"MPX;MPR|FXP;PRG" ,"WHERE is INTRO?")�UPADHELPFILE����G~(�libs\about.vcx��T��C�AboutBox�Tasmanian Traders�1.0�$Copyright 1994 Microsoft Corporation�All rights reserved�BITMAPS\SMSWIRLT.BMP�N��
����<R�	about.vcx�U
LOABOUTBOXLIBSSHOWABOUTVCXq���T��C���%�C�f�NEW��<�T���AddNew���$T���_screen.activeform.���
&lcCmd
ULCCMD
_rra144crjl��
_rra144crkW���aa#""��"2a�#��?q�f�?q�d1AB�1�
0GHNbc:\temp\intro.mpxc:\temp\intro.mpr)�	Microsoft CorporationMicrosoft CorporationOne Microsoft WayRedmondWA98052USA