podb File format Copyright (c) 1994,1995 by Oracle Corporation. 9 ~2B%podb@j@jj j j dj djjjj@0*?wj@0*?wjjjjjjj  3  jjjjjjjj  jjjjjjj` ?J @ k 9oO ~APPLID~00000008:000000000000.00010000 ~APPINF~0000000C:000000000000.000100010000001D32E0F3AB0000000E:000000000000.000105DCfrmItemDetail00000002327E0A5E00000013:000000000000.00010003frmMain0000001B32C10FF900000120:000000000000.00010516nopict0000001C32C1F80500000025:000000000000.00010578 frmLoginj <jjjjjjjj    jjjjjjj  IBM1252proplistproptbl+ B+frmLogin.OpenModal(0) frmMain.OpenWindow()Chap3 Chapter 3gORDERDAT%$p} Gregorian)+frmLogin.OpenModal(0) frmMain.OpenWindow()Chap3 Chapter 3gORDERDAT%$p} Gregorian)StarterfrmMain.OpenWindow()ain.OpenWindow()j 4  jjjjjjj IBM1252 cpprpscr_nlprtrecproptbl 5fonttbl System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr o @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshe  lf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols nkklDefault6~Default5 3:,D* Item Detail! ITEM_NUMBER  ORDER_ITEM#Orphan DetailsfrmMain.rptOrderItems$Orphan Details" On Master frmItemDetail+4ITEMSMCHORDERDATQFetch As Neededv@p@f-;2 Automatic2Standard Documenthijk%'   2SSlDefault6NOPICT~Centered3:,D*form1 ! ITEM_NUMBER  ITEM_NUMBER#Refuse if Children Present frmItemDetail$Refuse if Children Present" On MasterfrmItemPicture+l@\@4 ITEM_PICTURESMCHORDERDATQFetch As Needed@]@\@98f-;% '  $ "";f89Y@[@E4OIF ISNULL(SELF) THEN Self.Visible = False ELSE Self.Visible = True END IF@pctItem'*:a 3D ControlPICTUREU~Default  lDefault6GetContainer().CloseWindow()a 3D Control:   *+OK'btnOK@`@ m@X@:@98; %66';,Start89L@i@E4e@,@y*xCATALOG_DESCRIPTION1*,  :a 3D Control)StringCATALOG_DESCRIPTIONINoneK ImmediateJLUmDefaultoAnynDefault  '  ;zNoneBottomStart8@@f@b@,@static4Catalog Description*  : mDefault %66';,Right898@X@E4^@,@y*xPRICE1*,Currency  :a 3D Control)DoublePRICEINoneK ImmediateJLUmDefaultoAnynDefault  ';zNoneBottomStart8@X@X@,@static3Price*  : mDefault %66';,Start898@@s@E4@R@,@y*x DESCRIPTION1*,  :a 3D Control)String DESCRIPTION(INoneK ImmediateJLUmDefaultoAnynDefault  ';zNoneBottomStart8@X@H@,@static2 Description*  : mDefault %66';,me*23456KTUe IBM1252 cpprpscr_nlprtrecproptbl 8fonttbl System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr o @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolslS JnkklDefault6~Default DIM oRecSet As Object DIM nRows As Integer DIM nRowsLeft As Integer oRecSet = Self.GetRecordset() nRows = oRecSet.GetRowCountAdvice() IF oRecSet.GetRowCount() <> nRows THEN nRowsLeft = nRows - oRecSet.GetRowCount() IF nRowsLeft > 100 THEN IF MSGBOX("There are " & STR(nRowsLeft) & & " rows left. Do you want to retrieve them?", 33, & "Retrieve the rows?") = 2 THEN EXIT SUB END IF END IF oRecSet.FetchAllRows() END IF Inherited.CommitForm() %STATIC sSQL As String DIM oControl As Object STATIC oRecSet As Object DIM oCurRecSet As Object DIM nCountNew As Integer DIM nCountCur As Integer DIM nPointerNew As Integer DIM nPointerCur As Integer IF op = 9 THEN IF sSQL = "" THEN oControl = frmMain.FirstChild DO WHILE NOT ISNULL(oControl) IF oControl.ControlType = 2 OR (oControl.ControlType > 4 AND & oControl.ControlType < 10) THEN IF oControl.CompareOnLock = 0 AND oControl.DataSource <> "" THEN sSQL = oControl.DataSource & "," & sSQL END IF END IF oControl = oControl.NextControl() LOOP sSQL = LEFT(sSQL, LEN(sSQL) - 1) sSQL = "SELECT " & sSQL & " FROM " & & RecordSource & " WHERE ORDER_NUMBER " & & " = " & ORDER_NUMBER.Value END IF IF NOT ISNULL(oRecSet) THEN DELETE oRecSet END IF oRecSet = NEW DBRECORDSET( ORDERDAT ) oRecSet.SetQuery(sSQL, False) oRecSet.Requery() oCurRecSet = frmMain.GetRecordset() nCountNew = oRecSet.GetColCount() nCountCur = frmMain.GetRecordset.GetColCount() nPointerNew = 1 DO WHILE nPointerNew <= nCountNew nPointerCur = 1 DO WHILE nPointerCur <= nCountCur IF oRecSet.GetColName(nPointerNew) = & oCurRecSet.GetColName(nPointerCur) THEN IF oRecSet.GetColVal(nPointerNew) <> & oCurRecSet.GetColVal(nPointerCur) THEN sError = oCurRecSet.GetColName(nPointerCur ) & & " column has changed to " & & oRecSet.GetColVal(nPointerNew) END IF EXIT DO END IF nPointerCur = nPointerCur + 1 LOOP IF NOT ISNULL(sError) THEN EXIT DO ELSE nPointerNew = nPointerNew + 1 END IF LOOP IF NOT ISNULL(sError) THEN sError = "Some of your data has been changed by other users. " & & CHR(13) & CHR(10) & " The " & sError & & ". Do you want to change your data or cancel your update?" IF MSGBOX(sError, 17, "Data Changed By Others")= 1 THEN oCurRecSet.SetColVal(nPointerCur, oRecSet.GetColVal(nPointerNew)) oCurRecSet.LockRow() END IF END IF END IF 5 3:,D* Enter Orders! #Refuse if Children Present$Refuse if Children Present" On Master'frmMain+DIM oRecSet AS Object Inherited.Query() oRecSet = frmMain.GetRecordset() lblRecordStats.Label = "Record 1 of " & STR(oRecSet.GetRowCountAdvice()) btnFirst.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True 4ORDERSMCHORDERDATQFetch Count First@x@f-;2 Automatic2Standard Documenthijk JlDefault60frmMain.rptOrderItems.GetRecordset().DeleteRow()a 3D Control:  *+Delete' btnDelete@t@K@5@98; H mDefault :   *'lblRecordStatsh@o@[@8@CenterTopzNone; G;89=@;@ k@q@btnLast'>>+*  :a 3D ControlzDIM oRecSet As Object DIM nRow As Integer oRecSet = frmMain.GetRecordset() oRecSet.FetchAllRows() nRow = oRecSet.GetRowCountAdvice() oRecSet.SetCurRow(nRow) lblRecordStats.Label = "Record " & Str(nRow) & & " o?f " & Str(nRow) oRecSet.SetCurRow(oRecSet.GetRowCount()) Self.Enabled = False btnNext.Enabled = False btnPrev.Enabled = True btnFirst.Enabled = True 6lDefault F;89=@;@ k@n@btnNext'>+*  :a 3D ControlDIM oRecSet As Object oRecSet = frmMain.GetRecordset() oRecSet.SetCurRow(oRecSet.GetCurRow() + 1) lblRecordStats.Label = "Record " & & Str(oRecSet.GetCurRow()) & " of " & & Str(oRecSet.GetRowCountAdvice()) btnPrev.Enabled = True btnFirst.Enabled=True IF oRecSet.GetCurRow() = oRecSet.GetRowCountAdvice() THEN Self.Enabled = False btnLast.Enabled = False END IF 6lDefault E;89=@;@ k@`k@btnPrev'<+*  :a 3D ControlqDIM oRecSet As Object oRecSet = frmMain.GetRecordset() oRecSet.SetCurRow(oRecSet.GetCurRow() - 1) lblRecordStats.Label = "Record " & & Str(oRecSet.GetCurRow()) & " of " & & Str(oRecSet.GetRowCountAdvice()) btnNext.Enabled = True btnLast.Enabled=True IF oRecSet.GetCurRow() = 1 THEN Self.Enabled = False btnFirst.Enabled = False END IF 6lDefault D;89=@;@ k@h@btnFirst'<<+*  :a 3D ControlfrmMain.GetRecordset().SetCurRow(1) lblRecordStats.Label = "Record 1 of " & & Str(frmMain.GetRecordset().GetRowCountAdvice()) Self.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True 6lDefaultjL C%66nDefaultoAnymDefaultULJK ImmediateINoneString)Same As Customera 3D Control:FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.SetFocus()    ,*'1 fldDefaultxy*]@jjf@4Er@7@98 Start,; B%66;,Start898@q@E4[@^@y*xADDRESS21'*,  :a 3D Control)jjStringADDRESS2INoneK ImmediateJLUmDefaultoAnynDefault A%66;,Start899@q@E4Q@^@y*xADDRESS11'*,  :a 3D Controljj)StringADDRESS1INoneK ImmediateJLUmDefaultoAnynDefault ?%66nDefaultoAnymDefaultULJK ImmediateINone TELEPHONEString)a 3D Control:   ,*'1 Tj#ELEPHONExy* r@@4Ea@9@98Start,; .--;,.DIM sAddress1 AS String, sAddress2 AS String, sCity AS String DIM sState AS String, sZIP AS String, sCustomerName AS String DIM sTelephone AS String sCustomerName = newval EXEC SQL AT ORDERDAT SELECT ADDRESS1, ADDRESS2, CITY, STATE, ZIP, TELEPHONE & INTO :sAddress1, :sAddress2, :sCity, :sState, :sZIP, :sTelephone FROM CUSTOMERS WHERE & CUSTOMER_NAME = :sCustomerName ADDRESS1.Value = sAddress1 ADDRESS2.Value = sAddress2 CITY.Value = sCity STATE.Value = sState ZIP.Value = sZIP TELEPHONE.Value = sTelephone Validate = True'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS898@r@E4 B@^@popCustomerName'popCustomerName3*  :a 3D Control)String CUSTOMER_NAMEUlDefault ( mDefault :   * Line Total'static5x@r@X@8@StartCenterzNone; ' mDefault :   *Discount'static4@t@r@N@8@StartCenterzNone; & mDefault :   *Price'static12jpp@r@H@8@CenterCenterzNone; % mDefault :   *Quantity'static11h@r@N@8@StartCenterzNone; $ mDefault : jj  * Order Item'static10H@r@b@8@StartCenterzNone; 2]PPlDefault%3:,D*! ORDER_NUMBER  ORDER_NUMBER#Delete CascadefrmMain$Update Cjjascade" On Master' rptOrderItems+(@s@4 ORDER_ITEMSMCOLORSCHORDERDATQFetch As Needed~@R@98 f-;  s 'lDefaultf,jj98;:*UUUUUUſUUUUUUſ repeat_dummy1 s lDefault:,*' repeat_dummy2?@?98f; s lDefaultjw:,*' repeat_panel@?98f; "lIF NOT ISNULL(popOrderItem.Value) THEN frmItemDetail.OpenModal(0) ELSE MSGBOX("You can only view the catalog when you have selected an item.", & 64, "No Item Selected") END IF:*' curOrderItem???;  %66;,Right89??E4@y*x LINE_TOTAL1'*,Currency  :a 3D Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLUmDefaultoAnynDefault %66nDefaultoAnymDefaultULJK ImmediateINone~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )Double)a 3D Control:   Currency,*'1PRICExy*@4E??98Right,; --;,'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMS89??E4j$? popOrderItem'popup13*  :a 3D Control) Long Integer ORDER_ITEMUlDefault %66nDefaultoAnymDefaultULJK ImmediateINoneQUANTITY jjLong Integer)a 3D Control:   ,*'1QUANTITYxy*@4E??98Center,; %66nDefaultoAnymDefaultULJK ImmediateINonejjDISCOUNTDouble)a 3D Control:   Percent,*'1DISCOUNTxy* @4E??98Right,; %66nDefaultoAnymDefaultULJ ITEM_NUMBERSKjjDeferredINone ORDER_ITEM_ID Long Integer)a 3D Control:  ,*'1 ORDER_ITEM_IDxy*?4E??98Start,; %66;,Start8 9jC8@r@E4IF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF `f@]@y*x SHIP_NAME1'*,  :a 3D Control)String SHIP_NAME(INoneK ImmediateJLUmDefaultoAnynDefault  mDefault :   * Ship To Name:'static9 @f@[@8@RightCenterzNone;  mDefault :   * Telephone:'static8h@@X@8@RightBottomzNone; %66nDefaultoAnymDefaultULJK ImmediateINone ZIPString)a 3D Control:   ,*'1ZIPxy*@w@b@4EX@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*j*'1STATExy*@t@b@4EB@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateITable, MAX()+CounterIncByCITYString)a 3D Control:jj   ,*'1CITYxy*^@b@4Eh@8@98Start,;  mDefault :   *Address:'static34@R@jjX@8@RightCenterzNone;  mDefault :   * Customer:'static24@B@X@8@RightCenterzNone; %66nDefaultoAnymDefaultULJ ORDER_NUMBERSK ImmediateISequencejj ORDER_NUMBER Long Integer)a 3D Control:   ,*'1 ORDER_NUMBERxy*^@@4EN@8@98Center,;  mDefault :   *jj Start898@X@E48@,@y*x ITEM_NUMBER1*,  :a 3D Control) Long Integer ITEM_NUMBERINoneK ImmediateJLUmDefaultoAnynDefault  ';jjzNoneBottomStart8@X@,@static1 Item Number*  : mDefault': mDefault  mDefault :   * Item Numberstatic1,@X@8@jjStartBottomzNone;'X@8@StartBottomzNone;' Item Numberstatic1,@X@8@StartBottomzNone;'jjj!""##$j$*jjjjjjj%x_+&'(+j&x'IBM1252 cpprpscr_nlprtrecproptbl 8fonttbl System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Roujjnded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandjjtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr o @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial jjCarnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBj'x'(ookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsp nkklDefault6~Default5 3:,D*Log In To A Database! #Refuse if Children Present$Refuse if Children Present" On MasterfrmLogin+4MCHQFetch As Neededx@h@f-;2 Automatic2Standard Documenthijk%'  lDefault6Application.CloseApp()a 3D Control:  *+(x +Cancel' btnCancel@j@a@@T@<@98; lDefault6DIM sConnect As String STATIC nFailures As Integer IF NOT ISNULL(fldUser.Value) THEN sConnect = fldUser.Value IF NOT ISNULL(fldPassword.Value) THEN sConnect = sConnect & "/" & fldPassword.Value END IF END IF sConnect = MID(popDatabase.Value, 1, INSTR( popDatabase.Value, & "#") - 1) & ":" & sConnect & MID(popDatabase.Value, INSTR(popDatabase.Value, & "#") + 1) ORDERDAT.RunConnect = TRIM(sConnect) ORDERDAT.Connect() IF ORDERDAT.IsConnected() THEN frmLogin.CloseWindow() ELSE IF nFailures = 3 THEN MSGBOX("Your log in has failed 3 times. Please contact the " & & "system administrator.", 16, "Too Many Failures") application.CloseApp() ELSE MSGBOX("You could not log in successfully. Please try again", 32, & "Login Failure") nFailures = nFailures + 1 END IF END IF a 3D Control:  *+Connect' btnConnectR@a@@T@<@98;  mDefault :   * Password:'static3$@W@U@7@RightCenterzNone;  ;zNoneCenterRight7@U@M@$@static2'User:*  : mDefault %66nDefaultoAnymDefaultUL*2Order:'static14@@X@8@RightCenterzNone;UmDefaultoAnynDefault  ;zNoneCenterRight8@X@@4@static1'Order:*  : mDefaultlt 3;898@^@f@|@ btnExport'Export Current Rows+*  :a 3D Control8 DIM nFile AS Integer, nCount AS Integer, nPointer AS Integer DIM sListValue AS String, sValue AS String, sExportFile AS String nCount = frmMain.GetRecordset.GetColCount() REDIM sArray(nCount) AS String DIM objRecSet AS Object frmExportFile.OpenModal(0) ON ERROR RESUME NEXT sExportFile = frmExportFile.fldExportFile.Value IF NOT ISNULL(sExportFile) THEN frmSelectColumns.OpenModal(0) sListValue = frmSelectColumns.lstColumns.SelText nCount = 0 DO WHILE LEN(sListValue) > 0 nPointer = INSTR(sListValue, CHR(13)) IF nPointer <> 0 THEN sValue = LEFT(sListValue, nPointer - 1) sListValue = RIGHT(sListValue, LEN(sListValue) - (nPointer + 1)) ELSE sValue = sListValue sListValue = "" END IF sArray(nCount) = sValue nCount = nCount + 1 LOOP REDIM PRESERVE sArray(nCount - 1) nFile = FREEFILE OPEN sExportFile FOR OUTPUT AS nFile IF ERR <> 0 THEN MSGBOX("You could not open the " & sExportFile && " file.", 32, "Open File Failed") EXIT SUB ELSE ON ERROR GOTO 0 Ej+x 4JK ImmediateINoneString)a 3D Control:   ,*'1 fldPasswordxy*X@W@4E o@:@98Start,; %66nDefaultoAjjnymDefaultULJK ImmediateINoneString)a 3D Control:   ,*'1fldUserxy*X@M@4E o@:@98Start,;  ;zNojjneCenterRight7@U@:@$@static1' Database:*  : mDefault --lDefaultUdString)a 3D Control:   *3 popDatabaseX@9@4E@o@7@98jj';Local database = ODBC#ORDERDAT Remote database = Oracle# ,;'oIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF j,--..//0011723ND IF frmMain.GetRecordset().FetchAllRows() objRecSet = frmMain.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DIM nArrayCount AS Integer, nArrayPointer AS Integer nArrayCount = UBOUND(sArray) + 1 DO WHILE nPointer <= nCount objRecSet.SetCurRow(nPointer) DO WHILE nArrayPointer < nArrayCount DIM sLineValue AS String, sQuote AS String IF VARTYPE(objRecSet.GetColVal(sArray( & nArrayPointer))) = 8 THEN sQuote = "'" ELSE sQuote = "" END IF sLineValue = sLineValue & sQuote & FORMAT( & objRecSet.GetColVal(sArray(nArrayPointer))) & & sQuote & "," nArrayPointer = nArrayPointer + 1 LOOP sLineValue = LEFT(sLineValue, LEN(sLineValue) - 1) PRINT #nFile, sLineValue nPointer = nPointer + 1 sLineValue = "" nArrayPointer = 0 LOOP CLOSE nFile ELSE MSGBOX("Export cancelled.", 32, "No Export") END IF 6lDefault .--;,DIM sAddress1 AS String, sAddress2 AS String, sCity AS String DIM sState AS String, sZIP AS String, sCustomerName AS String sCustomerName = newval EXEC SQL AT ORDERDAT SELECT ADDRESS1, ADDRESS2, CITY, STATE, ZIP & INTO :sAddress1, :sAddress2, :sCity, :sState, :sZIP FROM CUSTOMERS WHERE & CUSTOMER_NAME = :sCustomerName clsAddress1.FirstChild.Value = sAddress1 clsAddress2.fldDataHelp.Value = sAddress2 CITY.Value = sCity STATE.Value = sState ZIP.Value = sZIP Validate = True'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS898@r@E4 B@^@popCustomerName'popCustomer34Name3*  :a 3D Control)String CUSTOMER_NAMEUlDefault ( ;zNoneCenterStart8@X@r@x@static5' Line Total*  : mDefault ' ;zNoneCenterStart8@N@r@@t@static4'Discount*  : mDefault & ;zNoneCenterCenter8@H@r@pp@static12'Price*  : mDefault % ;zNoneCenterStart8@N@r@h@static11'Quantity*  : mDefault $ ;zNoneCenterStart8@b@r@H@static10' Order Item*  : mDefault #%66;,Start8 98@r@E4f@^@y*x fldDefault1'*,  FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.Set45Focus() :a 3D Control)Same As CustomerStringINoneK ImmediateJLUmDefaultoAnynDefault 2]PP;-f8 9R@~@QFetch As NeededHORDERDATCMCOLORS ORDER_ITEMS4s@(@+ rptOrderItems'" On Master$Update CascadefrmMain#Delete Cascade  ORDER_NUMBER! ORDER_NUMBER*D,:3%lDefault  s  repeat_dummy1UUUUUUſUUUUUUſ*:;89,flDefault' s ;f89?@? repeat_dummy2'*,:lDefault s ;f89?@ repeat_panel'*,:lDefault "l;??? curOrderItem'*:IF NOT ISNULL(popOrderItem.Value) THEN frmItemDetail.Op56enModal(0) ELSE MSGBOX("You can only view the catalog when you have selected an item.", & 64, "No Item Selected") END IF  %66;,Right89??E4@y*x LINE_TOTAL1'*,Currency  :a 3D Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLUmDefaultoAnynDefault %66;,Right89??E4@y*xPRICE1'*,Currency  :a 3D Control)Double~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )INoneK ImmediateJLUmDefaultoAnynDefault --lDefaultU ORDER_ITEM Long Integer)a 3D Control:  *3popup1' popOrderItemIF keycode = 17 THEN frmCatalog.popItems.Value = Value frmCatalog.OpenModal(0) Value = frmCatalog.popItems.Value END IF?4E??98'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMS,; j6K%66;,Center89??E4@y*xQUANTITY1'*,   DIM nOrderItem AS Integer, nOrderNumber AS Integer, nOrderItemID AS Integer 'new DIM nHoldTotal AS Integer DIM nCount AS Integer, nPointer AS Integer DjjIM nColorNumber AS Integer REDIM sColor(9) AS String, nColorID(9) AS Integer nOrderItem = rptOrderItems.GetRecordset().GetColVal("ORDER_ITEM") nOrderNumber = rptOrderItems.GetRecordset().GetColVal("ORDER_NUMBER") nOrderItemID = rptOrderItems.GetRecordset().GetColVal("ORDER_ITEM_ID") IF NOT ISNULL(nOrderItem) THEN frmPickColors.clsColorsAvailable.udmClearList() frmPickColors.clsColorsSelected.udmClearList() frmPickColors.fldTotal.Value = 0 EXEC SQL AT ORDERDAT SELECT DESCRIPTIOjjN, COLORS.COLOR_ID INTO :sColor, :nColorID FROM ITEM_COLORS, COLORS WHERE & ITEM_COLORS.COLOR_ID = COLORS.COLOR_ID AND ITEM_NUMBER = :nOrderItem nCount = sqlrowcount() nPointer = 0 DO WHILE nPointer < nCount nColorNumber = nColorID(nPointer) nQuantity = 0 EXEC SQL AT ORDERDAT SELECT QUANTITY INTO :nQuantity FROM ORDER_ITEM_COLORS WHERE & ORDER_NUMBER = :nOrderNumber AND ORDER_ITEM_ID = :nOrderItemID AND & COLOR_jjID = :nColorNumber IF nQuantity > 0 THEN sColor(nPointer) = sColor(nPointer) & " - " & CSTR(nQuantity) frmPickColors.clsColorsSelected.udmAddItem(sColor(nPointer), CSTR(nColorID(nPointer))) frmPickColors.fldTotal.Value = frmPickColors.fldTotal.Value + nQuantity ELSE frmPickColors.clsColorsAvailable.udmAddItem(sColor(nPointer), CSTR(nColorID(nPointer))) END IF nPointer = nPointer + 1 LOOP 'new j78899::;;<<==>>??@@AABBCCDDEEFFGGHHIIJ JLKT nHoldTotal = frmPickColors.fldTotal.Value frmPickColors.OpenModal(0) 'if changed then, else no IF nHoldTotal <> frmPickColors.fldTotal.Value THEN DIM oRecSet AS Object DIM sSQL AS String oRecSet = NEW DBRECORDSET(ORDERDAT) sSQL = "select current_discount('" & frmMain.GetRecordset().GetColVal("CUSTOMER_NAME") & "'," & & nOrderItem & ", " & (Value - nHoldTotal) + 100 & ") from dual" oRecSet.SetQuery(sSQL, False) oRecSet.requery() rptOrderItems.GetRecordset().SetColVal("DISCOUNT", oRecSet.GetColVal(1)) msgbox rptOrderItems.GetRecordset().GetColVal("DISCOUNT") END IF ELSE MSGBOX( "You must have an Order Item ID before you can select colors", & 16, "Cannot Pick Colors") END IF:a 3D Control) Long IntegerQUANTITYINoneK ImmediateJLUmDefaultoAnynDefault %66;,Right89??E4 @y*xDISCOUNT1'*,Percent  :a 3D Control)DoubleDISCOUNTINoneK ImmediateJLUmDefaultoAnynDefault %66;,Start89??E4?y*x ORDER_ITEM_ID1'*,  :a 3D Control) Long Integer ORDER_ITEM_IDINoneKDeferredJ ITEM_NUMBERSLLMMNNOOPPQQRRSSVTUUmDefaultoAnynDefault %66;,Start8 98@r@E4IF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF f@^@y*x SHIP_NAME1'*,  :a 3D Control)String SHIP_NAME(INoneK ImmediateJLUmDefaultoAnynDefault  ;zNoneBottomRight8@[@f@static9' Ship To Name:*  : mDefault  ;zNoneBottomRight8@X@@h@static8' Telephone:*  : mDefault %66;,Start898@X@E4b@@w@y*xZIP1'*,  :a 3D Control)StringZIP INoneK ImmediateJLUmDefaultoAnynDefault  %66;,Start898@B@E4Ugeb@@t@y*xSTATE1'*,  :a 3D Control)StringSTATEINoneK ImmediateJLUmDefaultoAnynDefault  %66;,Start898@h@E4b@^@y*xCITY1'*,  :a 3D Control)StringCITYITable, MAX()+CounterIncByK ImmediateJLUmDefaultoAnynDefault  ;zNoneBottomRight8@X@R@(@static3'Address:*  : mDefault  ;zNoneBottomRight8@X@B@(@static2' Customer:*  : mDefault %66;,Center898@N@E4@^@y*x ORDER_NUMBER1'*,  :a 3D Control) Long Integer ORDER_NUMBERISequenceK ImmediateJ ORDER_NUMBERSLUmDeVWWXXYYZZ[[\\]]^^__``bbccddfe+faultoAnynDefault  ;zNoneBottomRight8@X@@*@static1'Order:*  : mDefault,*'1CITYxy*^@e@4Eh@8@98Start,;  mDefault :   *Address:'static3(@X@X@8@RightBottomzNone;  mDefault :   * Customer:'static2(@N@X@8@RightBottomzNone; %66nDefaultoAnymDefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   ,*'1 ORDER_NUMBERxy*^@8@4EN@8@98Center,;  mDefault :   *Order:'static1(@8@X@8@RightBottomzNone;fgghhiijjkkmmnnooppqqrrssttuuvvwwxxyyzz{{||}}~~