podb File format Copyright (c) 1994,1995 by Oracle Corporation. i2w!;podbjBBjBAjjj dj djjjjj@2@:jjjjjjj@1@:    jjjjjjjj  jjjjjjj` #J @  Aw`b ~APPLID~00000008:000000000000.00010000 ~APPINF~0000000C:000000000000.000100010000000832C8FC5300000018:000000000000.00010065 clsCatalog0000000732C8F84500000014:000000000000.00010064#clsDeletePushbutton0000000932C8FDED00000013:000000000000.00010066nopict0000000A32CA95C000000020:000000000000.000100C8 clsDataHelp0000000B32CAF77100000024:000000000000.0001012C clsRequiredField0000000C32CCB0A800000028:000000000000.00010190"clsDataPushButtons0000000E32CE7DA400000033:000000000000.000101F5 frmLogin0000000F32D22F9900000035:000000000000.00010258 clsPickList j   jjjjjjjj   IBM1252proplistproptbli ajj&ʚ MasterLibraryjjjjjje IBM1252 cpprpscr_nlprtrecproptblb _AboutRLongfonttbl System FontArial MS Sans Serif Courier NewjjArial Rounded MT BoldApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensjjedCentury 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 gfjjAbadi 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 je 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 CasablancaCasperOpenFaceCottagecontrols  2STRX' The clsCatalog class can be used to display complete information for any item in the ' ITEMS table. The class will show a picture of the item if the picture exists ' and use a descriptive bitmap if there is no picture available for the item. You will ' have to specify the value that should control the retrieval of item information. lDefault6~Default%3:, D* Class8! # Orphan Details$ Orphan Details" On Master' clsCatalog+e4 ITEMSMCH ORDERDATQFetch As Needed u@ l@98f -;   2SSlDefault6 NOPICT~ Centered%3:, D*form1 hIF ISNULL(pctItem.Value) THEN pctItem.Visible = False ELSE pctItem.Visible = True END IF ! ITEM_NUMBER  ITEM_NUMBER#Refuse if Children Present frmItemDetail$Refuse if Children Present" On Master' frmItemPicture+  l@ \@4 ITEM_PICTURESMCHQFetch As Needed @]@ \@98 f -;  $ ""~DefaultU PICTUREa 3D Control:* pctItem  @4E [@ Y@98 f; ' %66nDefaultoAnymDefaultULJK ImmediateINone  CATALOG_DESCRIPTION String)a 3D Control:    ,*'1  CATALOG_DESCRIPTIONxy*  @ e@4E ie@ L@98 Start,;  ;zNone BottomStart8@ @f@ b@  @static4' Catalog Description*    : mDefault %66nDefaultoAnymDefaultULJK ImmediateINone PRICE Double)a 3D Control:     Currency,*'1 PRICExy*  @ ^@4EX@8@98  Right,;  mDefault :     * Price'static3  @ X@X@8@Start BottomzNone; %66nDefaultoAnymDefaultULJK ImmediateINone ( DESCRIPTION String)a 3D Control:    ,*'1 DESCRIPTIONxy*  @ @R@4E @s@8@98 Start,;  mDefault :     * Description'static2  @ H@X@8@Start BottomzNone; jeM%66;,Start8 98@X@E4 8@  @y*x ITEM_NUMBER1'*,   :a 3D Control) Long Integer ITEM_NUMBERINoneK ImmediateJLUjjmDefaultoAnynDefault  ;zNone BottomStart8@X@   @static1' Item Number*    : mDefaultBottomzNone;jjjjjjfjjjjjjjjdjjjjjjjjd IBM1252 cpprpscr_nlprtrecproptbl _About udpContainerMLongObjectjjfonttbl 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 MTImpactGaramondFootlijjght 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 OsjjakaVFONT @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 BTSqujd areSlab711 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 CasablancaCasperOpenFaceCottagecontrolsu  2SUM' The clsDeletePushbuttton class will delete the current row in the recordset for the ' container of the class instance. You can use the clsDeletePushbutton to delete ' a row in a different container by setting the udpRecordset property to the ' desired container lDefault6~Default *DIM oRecSet AS Object IF ISNULL(udpContainer) THEN oRecSet = GetContainer().GetRecordset() ELSE oRecSet = udpContainer.GetRecordset() END IF IF MSGBOX("Do you really want to delete the current record?", 36, & "Delete Record?") = 6 THEN oRecSet.DeleteRow() END IF %3:jd, D* Class7! #Refuse if Children Present$Refuse if Children Present" On Master'clsDeletePushbutton+4 =ContainjjerMCHQFetch As NeededX@ B@98f  -; ;8 9 B@X@   btnDelete' Delete+ *  :a 3D Control 6lDefaultDefaultjjjjjje@jjjjjjjfBM36(xd.@@@@@@@l 5M~TGD [[K[&]D [c6D g@W[#,(y [.g@섿,FJ.;?'?,?'?P;/ ; 0 THEN & sStatus = sStatus & " of " & STR(udpRowCount) & " records" lblRecordStats.Label = sStatus IF nCurRow = 1 THEN btnPrev.Enabled = False btnFirst.Enabled = False jj nReturn = 1 ELSE btnPrev.Enabled = True btnFirst.Enabled = True END IF IF nCurRow = udpRowCount THEN btnNext.Enabled = False btnLast.Enabled = False nReturn = 2 ELSE btnNext.Enabled = True btnLast.Enabled = True END IF udmSetStatus = nReturn ; :-;  mDefault :   *'lblRecordStatsjjB@e@8@CenterTopzNone; lDefault6IF ISNULL(udpContainer) THEN GetContainer().GetRecordset().FetchAllRows() GetContainer().udpRowCount = GetContainer().GetRecordset().GetRowCount() GetContainer().GetRecordset().SetCurRow(GetContainer().GetRecordset().GetRowCount()) udpRowCount = GetContainer().GetRecordset().GetRowCount() ELSE udpContainer.GetRecordset().Fetchjj,4AllRows() GetContainer().udpRowCount = udpContainer.GetRecordset().GetRowCount() udpContainer.GetRecordset().SetCurRow(GetContainer().GetRecordset().GetRowCount()) udpRowCount = udpContainer.GetRecordset().GetRowCount() END IF GetContainer().udmSetStatus() a 3D Control:  *+>>'btnLast]@@;@jj=@98; lDefault6DIM nCount As Integer IF ISNULL(udpContainer) THEN GetContainer().GoNxtLine() nCount = GetContainer().GetRecordset().GetCurRow() IF GetContainer().GetRecordset().GetCurRow() = nCount THEN & udpRowCount = nCount ELSE udpContainer.GoNxtLine() nCount = udpContainer.GetRecordset().GetCurRow() IF GetContainer().GetRecordset().GetCurRow() = nCount THEN & udpRowCount =jj nCount END IF GetContainer().udmSetStatus() a 3D Control:  *+>'btnNextW@@;@=@98; lDefault6IF ISNULL(udpContainer) THEN GetContainer().GoPrvLine() ELSE udpContainer.GoPrvLine() END IF GetContainer().udmSetStatus() a 3D Control:jj  *+<'btnPrev@P@@;@=@98; lDefault6IF ISNULL(udpContainer) THEN GetContainer().GetRecordset().SetCurRow(1) ELSE udpContainer.GetRecordset().SetCurRow(1) END IF GetContainer().udmSetStatus() a 3D Control:  *+<<j-.IBM1252 cpprpscr_nlprtrecproptbl  udpSession_About9Object:Longfonttbl 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 BTPoj./sterBodoni 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 OCRjj-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 TextKyBdjjOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols nkm:@ The frmLogin form will give your users 3 chances to log into a database. You will have to set the udpSession property to the name of the session you want to connect to the database. You should use the OpenModal() method to open the form. Afterjj the form returns from the call, you should open the next form. lDefault6~Default%5 3:,D*Log In To A Database! #Refuse if Children Present$Refuse if Children Presentjj/0" On Master'frmLogin+4MCHQFetch As Neededx@h@f9 ORDERDAT-;2 Automatic2Standjjard Documenthijk  ;89<@@T@a@@j@ btnCancel'Cancel+*  :a 3D ControlApplication.CloseApp()6lDefault lDefault6DIM sConnect As String DIM oSession As Object STATIC nFailures As Integer oSession jj= GetContainer().udpSession 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) IF ISNULL(GetContainer().udpSession) THEN MSGBOX("You have to specify a session in the " & & "udpSession prjjoperty of this form.", 16, "No Session") Application.CloseApp() END IF oSession.RunConnect = TRIM(sConnect) oSession.Connect() IF oSession.IsConnected() THEN GetContainer().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, & jj01 "Login Failure") nFailures = nFailures + 1 END IF END IF a 3D Control:  *+Connect' btnConnectR@a@@T@<@98;  ;zNoneCenterRight7@U@W@$@static3'jj Password:*  : mDefault  mDefault :   *User:'static2$@M@U@7@RightCenterzNone; %66;,Start89:@ o@Ejj4W@X@y*x fldPassword1'*,  :a 3D Control) masteropoStringINoneK ImmediateJLUmDefaultoAnynDefault %66;,Start89jj:@ o@E4M@X@y*xfldUser1'*,  :a 3D Control) masteropoStringINoneK ImmediateJLUmDefaultoAnynDefault  mDefault :j1B   * Database:'static1$@:@U@7@RightCenterzNone; --lDefaultUdString)a 3D Control:   *3' popDatabaseX@9@oIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF 4E@o@7@98';Local database = ODBC#ORDERDAT Remote database = Oracle# ,;lDefaultj2BeCenterRight7@U@:@$@static1' Database:*  : mDefault --;,'@Local database = ODBC#ORDERDAT Remote database = Oracle#local 897@@o@E4oIF NOT ISNULL(Self.Valujje) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF 9@X@ popDatabase'3*  :a 3D Control)StringdUlDefaultjjjjjj31-./01jjjjjjj4z'btnFirstC@@;@=@98;j5Xt:6789:jjjjjjjj6X7IBM1252 cpprpscr_nlprtrecproptblH > udmClearList_AboutudpMatchingList udmAddItem udmFindEntry udmDeleteItem udpSortedudmGetDisplayValue6Long7Long8Object9Long$sDisplay As String, sValue As String:LongsValue As String;Boolean<Boolean=StringsValue As Stringfonttbl System FontArial MS Sans Serif Courier NewApplication FontOCR A ExjjtendedGenevaChicagoTimesPalatinoAplication 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 SchoolbookCejjntury 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 Lighjjtlr 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 BTLj7X8ucia 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 CasablancaCasperOpenFaceCottagecontrols:  2S[7' The clsPickList class provides several functions that can be used to manipulate a list ' box,lstPickList, and its entries. The udmAddItem() method adds an entry to the list box; the ' udmDeleteItem() method deletes an entry from a list box, and the udmFindEntry() method returns ' the row number of an entry in the underlying recordset for the list box. The Sorted property ' controls whether the entries in the list box are displayed sorted alphabetically. ' The udmMatchingList property identifies another instance of this class that makes up the other ' part of a pick list. When a user double clicks on an entry in the list box, the entry is ' added to the udmMatchingList object and deleted from the list box. If no value is indicated ' for the udmMatchingList property, the double clic8X 9k has no effect. ' You cannot rename the lstPickList list box, since it is used in some of the internal methods of ' the clsPickList class. 9DIM nRowCount AS Integer, nPointer AS Integer DIM lstRecSet AS Object lstRecSet = lstPickList.GetRecordset() IF udpSorted THEN nRowCount = lstRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nRowCount lstRecSet.SetCurRow(nPointer) IF sDisplay < lstRecSet.GetColVal(1) THEN EXIT DO ELSE nPointer = nPointer + 1 END IF LOOP ELSE nPointer = lstRecSet.GetRowCount() + 1 END IF lstRecSet.SetCurRow(nPointer) lstRecSet.InsertRow() lstRecSet.SetColVal(1, sDisplay) lstRecSet.SetColVal(2, sValue) lstPickList.UpdateList() udmAddItem = nPointer 6DIM nCount AS Integer, nPointer AS Integer nCount = lstPickList.GetRecordset().GetRowCount() nPointer = 1 lstPickList.GetRecordset().SetCurRow(1) DO WHILE nPointer <= nCount lstPickList.GetRecordset().DeleteRow() nPointer = nPointer + 1 LOOP lstPickList.UpdateList() ;KDIM nPosition AS Integer nPosition = udmFindEntry(lstPickList.Value) IF nPosition THEN lstPickList.GetRecordset().SetCurRow(nPosition) lstPickList.GetRecordset().DeleteRow() lstPickList.UpdateList() ELSE MSGBOX("No entry was selected for deletion.", "Unable to Delete Entry", & 32) END IF :DIM nCount AS Integer, nPointer AS Integer DIM lstRecSet AS Object lstRecSet = lstPickList.GetRecordset() nCount = lstRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount lstRecSet.SetCurRow(nPointer) IF lstRecSet.GetColVal(2) = sValue THEN udmFindEntry = nPointer EXIT FUNCTION ELSE nPointer = nPointer + 1 END IF LOOP udmFindEntry = 0=DIM nRow AS Integer nRow = udmFindEntry(sValue) lstPickList.GetRecordset().SetCurRow(nRow) udmGetDisplayValue = lstPickList.GetReco9X :rdset().GetColVal(1) 8 <lDefault6~Default jDIM nRow AS Integer IF NOT ISNULL(udpMatchingList) THEN nRow = udmFindEntry(lstPickList.Value) IF nRow THEN lstPickList.GetRecordset().SetCurRow(nRow) udpMatchingList.udmAddItem(lstPickList.GetRecordset().GetColVal(1), & lstPickList.GetRecordset().GetColVal(2) ) udmDeleteItem() END IF END IF %3:, D* Class15! #Refuse if Children Present$Refuse if Children Present" On Master' clsPickList IF lstPickList.GetRecordset().GetColVal(1) = "This is a dummy value" & AND lstPickList.GetRecordset().GetColVal(2) = " 0" THEN lstPickList.GetRecordset().DeleteRow() lstPickList.UpdateList() Self.SetFocus() END IF +4MCHQFetch As Needed b@h@98f -; >,,lDefaultU String)a 3D Control:  *3' lstPickList@4E b@g@98 ' "This is a dummy value" = 0,;4@ lstPickList'3*  j:Xq:a 3D Control) StringUlDefaultjjjjjjj