#   X >0@-@-_        _      ,"Arial-\cc!@!@!@!@!@!@#P@-#P#P`#P`#P@-#P>-#P@-#P#P `P `P*v _Wv2?@  -          QD0000100001 QD0000100002 QD0000100003 QD0000100004 QD0000100006 QD0000100008 QD0000100010 QD0000100012 QD0000100014 QD0000100016 QD0000100018 QD0000100020 QD0000100022 QD0000100024 QD0000100026 QD0000100028 QD0000100030 QD0000100032 QD0000100034 QD0000100036 QD0000100038 QD0000100040 QD0000100042 QD0000100044 QD0000100046 QD0000100048 QD0000100050 QD0000100052 QD0000100054 QD0000100056 QD0000100058 QD0000100060 QD0000100062 QD0000100064 QD0000100066 QD0000100068 QD0000100070 QD0000100072 QD0000100074 QD0000100076 QD0000100078 QD0000100080 QD0000100082 QD0000100084 QD0000100086 QD0000100088 QD0000100090 QD0000100092 QD0000100094 QD0000100096 QD0000100098 QD0000100100 QD0000100102 QD0000100104 QD0000100106 QD0000100108 QD0000100110 QD0000100111 QD0000200001  QD0000200002 QD0000200004  QD0000200006  QD0000200007 QD0000200008 QD0000200009 QD0000200011 QD0000200013 QD0000200015 QD0000300001 QD0000300002  QD0000300003 QD0000300004 QD0000300005. QD0000300007. QD0000300008% QD0000300011% QD0000300013. QD0000300015. QD0000300017. QD0000300019. QD0000300021. QD0000300022) QD0000300027- QD0000300029- QD0000300030 QD0000300031- QD0000300033- QD0000300034# QD0000300038- QD0000300040- QD0000300042- QD0000300044- QD0000300046- QD0000300048- QD0000300049 QD0000300053- QD0000300055- QD0000300057- QD0000300059- QD0000300061- QD0000300063- QD0000300065- QD0000300066( QD0000300070- QD0000300072- QD0000300074- QD0000300076- QD0000300077 QD0000400001  QD0000400002) QD0000400005. QD0000400006) QD0000400007 QD0000400009 QD0000400013. QD0000400015. QD0000400017. QD0000400018  QD0000400022. QD0000400024. QD0000400026. QD0000400027) QD0000400031. QD0000400033. QD0000400034) QD0000400038. QD0000400040. QD0000400042. QD0000400043) QD0000500001 QD0000500002  QD0000500003 QD0000500004 QD0000500005 QD0000500008. QD0000500010. QD0000500011  QD0000500013 QD0000500015 QD0000500017 QD0000500019 QD0000500021 QD0000500023 QD0000500025 QD0000500027 QD0000500029 QD0000500031 QD0000500033 QD0000500035 QD0000500038 QD0000500040 QD0000500042 QD0000500044 QD0000500045 QD0000600001 QD0000600002 QD0000600003 QD0000600004 QD0000600005 QD0000600006 QD0000600008 QD0000600009 QD0000600011 QD0000600012 QD0000600014 QD0000600015 QD0000600017 QD0000600018 QD0000600020 QD0000600021 QD0000600023 QD0000600024 QD0000600026 QD0000600027 QD0000600029 QD0000600030 QD0000600032 QD0000600033 QD0000600035 QD0000600036 QD0000600038 QD0000600040 QD0000600042 QD0000700001  QD0000700002  QD0000700003 QD0000700004 QD0000700005 QD0000700007 QD0000700009 QD0000700010 QD0000700012 QD0000700013 QD0000700015 QD0000700016 QD0000700018 QD0000700019 QD0000700021 QD0000700022 QD0000700024 QD0000700026 QD0000700027 QD0000700029 QD0000700031 QD0000700032 QD0000700034 QD0000700036 QD0000700038 QD0000800001 QD0000800003 ( QD0000800005 ( QD0000800007 ( QD0000900001 QD0000900002  QD0000900003 QD0000900004 QD0000900006 QD0000900008 QD0000900010 QD0000900012 QD0000900014 QD0000900016 QD0000900018 QD0000900019 QD0001000001  QD0001100001 QD0001200001  QD0001200002 QD0001200003 QD0001300001 QD0001400001  QD0001500002 QD0001500003 QD0001500004 QD0001500006 QD0001500007 QD0001500009 QD0001600001  QD0001700001 QD0001700002 QD0001700003 QD0001900001 QD0001900002 QD0001900004 QD0001900006 QD0001900007 QD0002000001 QD0002000002  QD0002100001  QD0002100002 QD0002100004 QD0002100006 QD0002100007 QD0002200001  QD0002300001  QD0002400001  QD0002500001  QD0002600001  QD0002700001  QD0002800001  QD0002800002 QD0002800004 QD0002800006 QD0002800008 QD0002900001  QD0003000001  QD0003000003 QD0003000005 QD0003100001  QD0003100003 QD0003200001  QD0003900001 QD0004100001 QD0004200002 QD0004200004 QD0004800002 QD0004800004 QD0004800006 QD0004800007 QD0005400001 QUERY 100001 QUERY 200001  SUPPLIER0001 'SupplierID'CompanyName'ContactName'ContactTitle 'Address 'City 'Region'PostalCode 'Country 'Phone 'Fax%@'Exotic Liquids'Charlotte Cooper'Purchasing Manager'49 Gilbert St. 'London 'EC1 4SD'UK '(71) 555-2222  '54545% 'New Orleans Cajun Delights'Shelley Burke'Order Administrator'P.O. Box 78934'New Orleans'LA '70117 'USA '(100) 555-4822%'Grandma Kelly's Homestead'Regina Murphy'Sales Representative'707 Oxford Rd.'Ann Arbor'MI '48104 'USA '(313) 555-5735 '(313) 555-3349%'Tokyo Traders'Yoshi Nagase'Marketing Manager'9-8 Sekimai 'Tokyo '100 'Japan '(03) 3555-5011'SupplierID'CompanyName'ContactName'ContactTitle 'Address 'City 'Region%@('Cooperativa de Quesos 'Las Cabras'!'Antonio del Valle Saavedra 'Export Administrator'Calle del Rosal 4 'Oviedo'Asturias '33007 'Spain '(98) 598 76 54%@'Exotic Liquids'Charlotte Cooper'Purchasing Manager'49 Gilbert St. 'London%'Mayumi's'Mayumi Ohno'Marketing Representative'92 Setsuko 'Osaka '545 'Japan '(06) 431-7877% 'New Orleans Cajun Delights'Shelley Burke'Order Administrator'P.O. Box 78934'New Orleans'LA%'Pavlova, Ltd.'Ian Devling'Marketing Manager'74 Rose St.'Melbourne'Victoria '3058'Australia '(03) 444-2343 '(03) 444-6588%'Grandma Kelly's Homestead'Regina Murphy'Sales Representative'707 Oxford Rd.'Ann Arbor'MI%'Specialty Biscuits, Ltd.'Peter Wilson'Sales Representative'29 King's Way'Manchester 'M14 GSD'UK '(26) 555-4448%'Tokyo Traders'Yoshi Nagase'Marketing Manager'9-8 Sekimai 'Tokyo% @ 'PB Knckebrd AB 'Lars Peterson 'Sales Agent 'Kaloadagatan 13 'Gteborg 'S-345 67 'Sweden  '031-987 65 43 '031-987 65 91% @( 'Cooperativa de Quesos 'Las Cabras'! 'Antonio del Valle Saavedra  'Export Administrator 'Calle del Rosal 4 'Oviedo 'Asturias%  'Refrescos Americanas LTDA 'Carlos Diaz 'Marketing Manager 'Av. das Americanas 12.890 'So Paulo '5442 'Brazil '(11) 555 4640%  'Mayumi's 'Mayumi Ohno 'Marketing Representative '92 Setsuko 'Osaka% ! 'Heli Swaren GmbH & Co. KG 'Petra Winkler 'Sales Manager 'Tiergartenstrae 5 'Berlin 'D-W 1000 'Germany '(010) 9984510%  'Pavlova, Ltd. 'Ian Devling 'Marketing Manager '74 Rose St. 'Melbourne 'Victoria%  'Specialty Biscuits, Ltd. 'Peter Wilson 'Sales Representative '29 King's Way 'Manchester'select * from category'Supplierid<3'SupplierID'CompanyName'ContactName'ContactTitle 'Address 'City 'Region'PostalCode 'Country  'Phone  'Fax '+SupplierID*2%v'Pavlova, Ltd.'Ian Devling'Marketing Manager'74 Rose St.'Melbourne'Victoria '3058'Australia '(03) 444-2343 '(03) 444-6588% ,%, 'New Orleans Cajun Delights'Shelley Burke'Order Administrator'P.O. Box 78934'New Orleans'LA '70117 'USA '(100) 555-4822% X%!'Heli Swaren GmbH & Co. KG'Petra Winkler'Sales Manager'Tiergartenstrae 5 'Berlin'D-W 1000 'Germany '(010) 9984510% %'Refrescos Americanas LTDA'Carlos Diaz'Marketing Manager'Av. das Americanas 12.890'So Paulo '5442 'Brazil '(11) 555 4640% %@'PB Knckebrd AB'Lars Peterson'Sales Agent'Kaloadagatan 13'Gteborg'S-345 67 'Sweden  '031-987 65 43 '031-987 65 91% %'Specialty Biscuits, Ltd.'Peter Wilson'Sales Representative'29 King's Way'Manchester 'M14 GSD'UK '(26) 555-4448% %'Mayumi's'Mayumi Ohno'Marketing Representative'92 Setsuko 'Osaka '545 'Japan '(06) 431-7877% %@('Cooperativa de Quesos 'Las Cabras'!'Antonio del Valle Saavedra 'Export Administrator'Calle del Rosal 4 'Oviedo'Asturias '33007 'Spain '(98) 598 76 54% %'Tokyo Traders'Yoshi Nagase'Marketing Manager'9-8 Sekimai 'Tokyo '100 'Japan '(03) 3555-5011% %'Grandma Kelly's Homestead'Regina Murphy'Sales Representative'707 Oxford Rd.'Ann Arbor'MI '48104 'USA '(313) 555-5735 '(313) 555-3349% %@'Exotic Liquids'Charlotte Cooper'Purchasing Manager'49 Gilbert St. 'London 'EC1 4SD'UK '(71) 555-2222  '54545% BCA:A18 BCA:F13 $hp  LSOBENld$8TLotus ProductV0.0ldINCENDOBJECTTEB y64  h h*1ED7CD0lNEWDELETE INITIALIZE TERMINATEOBJECT (GLOBALS) (Globals) BINDEVENTS OBJECTNAME_SOURCE4RANGE MAIN123W.DLLSEDefaultClassControl p pzW#\\\\ ).i]).i]8h9"   Ҥ [\I   B@   BC A:P5..A:V13  BC A:P5..A:V13  88Pu ``?? opop            P PP PP PPPPPPPPP CC C C        6 )Query 1 {SUPPLIERA:A1..A:K12A:A18..A:L29/DSupplierID0!8CompanyName0!-ContactName1!ContactTitle,!Address)!9City+!Region/!PostalCode, !4Country* !zPhone( !Fax2 +SupplierID*2)Query 2{A:A1..A:G9A:P5..A:V13/SupplierID0!8CompanyName0!-ContactName1!ContactTitle,!Address)!9City+!RegionQuery 1Query 26Query 166Query 2662 BLB B>G{G{ G{ Criteria4).i] > '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions Set QT = Bind (Selection.Name) 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 If NewQueryCrit Then Criteria.RefreshCom.Enabled = False End If For y = (Criteria.Fie ldsCombo.ListCount -1) To 0 Step -1 Criteria.FieldsCombo.removeitem y Next y Forall x In QT.AllFields Criteria.FieldsCombo.AddItem x End Forall 'set fields list to 1st item Criteria.FieldsCombo.SelectItem 0 If Len( QT.Criteria) = 0 Then 'fill samples drop down for 1st item if no criteria has been ever set fillsamplelist Criteria.OpCombo.SelectItem 0 Else criteria.fieldscombo.enabled = False criteria.label3.enabled = False criteria.Opcombo.enabled = False criteria.Samplecombo.enabled = False criteria.label4.enabled = False Criteria.OpCombo.SelectItem 0 Criteria.ClearCom.SetFocus End If Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN6,P|$8T@ @@@Dhht|PPDP  PPLotus ProductV0.0INCENDOBJECTTE  d d d dBd d d@@,y U@J4 0 Then Criteria.FilterString.Text = StripQuotes(Selection.Criteria) OldCriteria = StripQuotes(Selection.Criteria) OpenCriteria = StripQuotes(Selection.Criteria) ActiveCriteria = OpenCriteria End If End Sub '++LotusScript Development Environment:2:2:CloseOnExternalError:1:8 Sub CloseOnExternalError(ErrorValue As Integer) On Error Goto TrapError If (ErrorValue=3000) Then 'If external database error occurs, reset to original criteria, close dialog QT.Criteria = ActiveCriteria'OpenCriteria QT.Refresh Qt.Criteria = OpenCriteria Criteria.Close End If TrapError: Msgbox (Error$) ,16, ProductID Criteria.Close 'Just in case we get an error, we still want to close this dialog. Exit Sub End Sub '++LotusScript Development Environment:2:2:CriteriaString:1:8 Sub CriteriaString Criteria.FilterStrin g.Text = OldCriteria + FieldName + Operator + Result1 End Sub '++LotusScript Development Environment:2:2:FillSampleList:1:8 Sub FillSampleList On Error Goto GenError FieldPick = Criteria.Fieldscombo.ListIndex + 1 Dim NumRows As Long Dim OutRange As range Dim Recordx As Range Dim StartColString As String Dim StartRow As Long Dim OutRangeSheet As String Dim FileRef As String Dim Counter As Integer Counter = 0 Forall X In QT.Allfields If Counter = Criteria.Fieldscombo.ListIndex Then FieldName = X End If Counter = Counter + 1 End Forall CriteriaString 'if samples is turned off then don't get them 'don't build sample list if computed field If QT.ReturnsSampleCriteria = False Then Exit Sub End If For y = (Criteria.SampleCombo.ListCount -1) To 0 Step -1 Criteria.SampleCombo.removeitem y Next y If Left$(Criteria.FieldsCombo.Text ,1 ) = "+" Then Exit Sub End If 'was set to outputlocation, but this resulted in only samples that met the current crit 'set up sample dat a combo box Set OutRange = Bind (QT.BaseSourceTable) 'Check for filereference If Left$( QT.BaseSourceTable,2) = "<<" Then FileRef = Left$ ( OutRange.CoordinateString, Instr( 1, OutRange.CoordinateString,">>") + 1) OutRangeSheet = Mid$ ( OutRange.CoordinateString, Instr( 1, OutRange.CoordinateString,">>") + 2, Instr( 5, OutRange.CoordinateString,":") - Instr( 1, OutRange.CoordinateString,">>") - 1) 'check for external table...if so can't get sample data Elseif OutRange.IsSelectable = False Then ExternalTable = 1 Else FileRef = "" ExternalTable = 0 OutRangeSheet = Left$ ( OutRange.CoordinateString, Instr( 1, OutRange.CoordinateString,":") ) End If If FieldPick <> 0 And ExternalTable = 0 Then StartColString = ConvertRef( OutRange.StartColumn + FieldPick - 1) StartRow = OutRange.StartRow + 1 NumRows = OutRange.EndRow - OutRange.StartRow For y = (Criteria.SampleCombo.ListCount -1) To 0 Step -1 Criteria.SampleCombo.removeitem y Next y 'cleanout lists Erase samples  Erase samples2 'Get sample data Dim Samp As String For y = 1 To NumRows Set recordX = Bind ( FileRef + OutRangeSheet +StartColString + Cstr(startrow + y) ) samp = recordx.celldisplay If recordx.cellvalue <> "" Then If Not Iselement ( Samples( Samp) ) Then If (Left$(recordx.contents,1) = "'" Or Left$(recordx.contents,1) = """" Or Left$(recordx.contents,1) = "^") And Isnumeric(samp) Then samp = + """" + samp End If Samples( Samp) = recordx.cellvalue Samples2( Samp) = Samp Criteria.SampleCombo.additem Samp End If End If Next y Elseif FieldPick <> 0 Then 'Get external sample data, set Result1 to last item on list (first item in combobox) Forall z In QT.FieldValues(FieldName) Criteria.SampleCombo.additem z End Forall End If Criteria.OpCombo.SelectItem 0 Operator = Criteria.opcombo.list (0) 'Don't want to check lists for samples if it's an external table or else we crash If ExternalTable = 0 Then 'want to leave the dates there for ease of viewing, but not times so look for colon If Isdate (Samples2(Criteria.SampleCombo.Text ) ) And Instr(1, Samples2(Criteria.SampleCombo.Text ),":") = 0 Then Result1 = Samples2(Criteria.SampleCombo.Text ) 'in case it's a string that looks like a number Elseif Left$(Criteria.SampleCombo.Text,1 ) = """" And Isnumeric(Mid$(Criteria.SampleCombo.Text,2) ) Then Result1 = +"""" + Samples(Criteria.SampleCombo.Text ) + """" Elseif Isnumeric (Samples(Criteria.SampleCombo.Text ) ) Then Result1 = Samples(Criteria.SampleCombo.Text ) Else Result1 = +"""" + Samples(Criteria.SampleCombo.Text ) + """" End If Else 'if its an external table then just check for numerics If Isnumeric( Criteria.SampleCombo.Text) Or Isdate( Criteria.SampleCombo.Text) Then Result1 = Criteria.SampleCombo.Text Else Result1 = """" + Criteria.SampleCombo.Text + """" End If End If CriteriaString Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub '++LotusScript Development Envi ronment:2:2:LoadCaptions:1:8 Sub LoadCaptions Criteria.Caption = CriteriaCap Criteria.Label1.Caption = CriteriaLabel1 Criteria.Label2.Caption = CriteriaLabel2 Criteria.Label3.Caption = CriteriaLabel3 Criteria.Label4.Caption = CriteriaLabel4 Criteria.OKCom.Caption = OKID Criteria.HelpCom.Caption = HelpID Criteria.CancelCom.Caption = CancelID Criteria.AndCom.Caption = "&" + AndID Criteria.OrCom.Caption = "&" + OrID Criteria.ClearCom.Caption = CriteriaCommand5 Criteria.RefreshCom.Caption = CriteriaCommand6 End Sub%LSOBENd& d0 $8T,l$dLD,<lxxPPllTT0 pp pp0 0 Lotus ProductV0.0& INCENDOBJECTTE1d1d1d1dBd1d1dyI4UA4 g, gf4<ff gLgg|f|ffffffdflffܛf  *20005E8lNEWDELETEL INITIALIZE TERMINATE|OBJECT0 (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module *d ERRORVALUEL FIELDPICK FIELDNAMEtRESULT1OPERATORD OLDCRITERIA OPENCRITERIA\ACTIVECRITERIASAMPLES4SAMPLES2 EXTERNALTABLE= SELECTIONCRITERIA LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGdTEXT STRIPQUOTESpCLOSEONEXTERNALERROR TRAPERRORQT DATAQUERY MAIN123W.DLLSEDefaultClassControlREFRESHCLOSEh PRODUCTIDdLotus 1-2-3 Release 9CRITERIASTRING FILLSAMPLELIST\GENERROR FIELDSCOMBO LISTINDEX(NUMROWSLOUTRANGERANGERECORDXSTARTCOLSTRINGSTARTROW OUTRANGESHEETFILEREFCOUNTER`X ALLFIELDS8RETURNSSAMPLECRITERIAY SAMPLECOMBO LISTCOUNTT REMOVEITEM+BASESOURCETABLE <<COORDINATESTRING>>:4 ISSELECTABLE CONVERTREF STARTCOLUMNDENDROWxSAMP CELLDISPLAY CELLVALUETCONTENTS'" ^ ADDITEMZp FIE LDVALUESOPCOMBO@ SELECTITEMLISTP LOADCAPTIONSCAPTION CRITERIACAP Set Criteria, LABEL1 CRITERIALABEL1 qSelect values for the criteria from the drop-down lists below. You can also edit the Criteria statement directly. LABEL2 CRITERIALABEL2 Criteria &statement:d LABEL3 CRITERIALABEL3x &Field: LABEL4 CRITERIALABEL4D &Value: OKCOM, OKIDl OK HELPCOMt HELPIDX &Help CANCELCOM CANCELID Cancel ANDCOM & ANDID, And ORCOM ORIDOrT CLEARCOM CRITERIACOMMAND5 &Clear REFRESHCOMCRITERIACOMMAND6t &Refresh Now STRINGS BASEOBJECT&And&Or@zgW#^4W<\PLh\0l || @ @ $8$< `P@Pxx px L L L x x 4).i]4).i]|!T5@T <<<<  4<@xh ppt( ( ( L L ).i]).i]dh6" P0dH l ` 00`P@@   (8   , , ` ` ).i]).i]dph9"  p P p0`,@P Ph$`( ,!!@ 8 C$ [XtD  0 T $|  D  d  0 H x      0 X  x:L PL x4Y*  4pd( pL  Q @ 4 q 0  4* 0 x ]).i]).i]dph@"  4  `  $qp <p `4 #*  0T*  ).i]d h"* 0,, P0,` $0* H4* d06*|R*_ 4pdM&  p w| DP=D >  ? h 8 w ? \ ?  =  Ҥ`[<}[\}X[L}{lU %8O{O Q )P{lU # [l)P{lU #![|)P{lU #"[G|#$) :?+W 8.-KT.( G!.KT,L #/KT.( G|!0{,x #134}5{,x #67;{O Q GlG<G\GL<@ :A`{O P Kb,LKT- #5 8MX,{O P 8 N[<F OPb,X,Q7 R)0#VKT- #8WXZ^ {O P ^ 4[{O T ^ '\^ 6^{O U J}X8_`d^KT- #pgKT- #J}8sh^PK- #K- #}Ji^@K- #K- #}K- #}K- #}M:XkK- #8l`$m:9n^P}o`$p^@K- #K- #}JqsVV$8ut^ )xK- #V#ub K- #vbK-, #K- #x^ {O P ^P 4y{O T ^ 'z^P 6}[w~[w^ X^ 4^JPJ@J X J p^K-` #K- #}8Jgx8~K- #J}K- #J}K- #J}^ 8^}JJlK- #JlJ{O T ^'^ 6':<V8-KT, G<#5 {O T Z '7 {O( T4 '[\{O( S@ %V$8{O P l{O P g}8[L{O P g:{O U J}{O U M 8 [L}{O P g}:N{O P l 8[L{O P g:[L}{O P g}:Z{O U  {O U 8[L{O P :[L}{O P })0#}{.L }t!{Op Q| }{O Q| } {O Q| }T {O Q| } {O Q| } {O Q| } {O Q| }H {O Q| } {O Q| } {O Q| } {O Q| }X OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.Criteria = Criteria.FilterString.Text NewQueryCrit = 0 Criteria.Close Exit Sub GenError: Msgbox (Error$) ,16, ProductID CloseOnExtern alError Err Exit Sub End Sub@ LSOBEN, $8T@@@DDD   ``Lotus ProductV0.0INCENDOBJECTTEffffBfffy Up|||4||d|D||||*20006A0lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *P *CRITERIA` *CriteriaSOURCE BINDEVENTSp OBJECTNAME_LOTUSCOMMANDBUTTON,%static_OCX_AdapterLCLICK8GENERRORQT DATAQUERY MAIN123W.DLLSEDefaultClassControl,CRITERIA LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGTEXTt NEWQUERYCRIT\CLOSE PRODUCTIDLotus 1-2-3 Release 9CLOSEON EXTERNALERRORѼh W A4^4 A44 A4x `8).i]4).i]P d ,,,,*d <@0 `T <```` ).i]).i]Tth6"@  T4).i]4).i]`|@0 d`x!,@4Y*L PP  Q  ҤL [I G˨  :.KD.`{OU![{,#}x)#8gOK OKR KQDB MS Sans Serifd2 CancelCom8).i] &'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutt on) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) Criteria.FilterString.Text = OpenCriteria QT.Criteria = Criteria.FilterString.Text Criteria.Close End Sub LSOBEN_<D,(4$T@@@DDD4ll44Lotus ProductV0.0_<DINCENDOBJECTTEjhlhjhlhBhlhjhy Uh.|}}}4} }T}<}}}}H8*22 10C30lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CRITERIA` *CriteriapSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON,%static_OCX_Adapter4CLICKCRITERIAH LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGTEXT OPENCRITERIAQT DATAQUERY MAIN123W.DLLSEDefaultClassControlCLOSE@SьWH@4^4H@44H@4x l8).i]4).i] d ,,,,*d @ lL404).i]4).i]`|,|@<@ 4` ).i]).i](lh6"tLP4Y*8 l`Q lcҤL [I G˨ {DOQGK.{DOU!{D,# 8G Cancel CancelR KQDB MS Sans Serifd2 FieldsCombo8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Pick(Source As Lotuscombobox, Index As Integer) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMBOBOX Set Source = Bind(Objectname_) On Event Pick From Source Call Pick End Sub '++LotusScript Development Environment:2:2:Pick:1:12 Sub Pick(Source As Lotuscombobox, Index As Integer) On Error Goto GenError 'while we're here lets fill in the sample. FillSampleList ' CriteriaString Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub LSOBENY,$8T@ll@@TTTT Lotus ProductV0.0YINCENDOBJECTTEhhhhBhhh$y Ud~~~4|~< ~<~\ ~\ ~ ~ ~d~*2210CD8lNEWDELETE0 INITIALIZE TERMINATE0OBJECTHt (GLOBALS) (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *d *CRITERIA` *CriteriaSOURCEINDEX BINDEVENTS OBJECTNAME_ LOTUSCOMBOBOX%static_OCX_AdapterTPICKGENERRORFILLSAMPLELISTRANGE MAIN123W.DLLSEDefaultClassControl PRODUCTIDLotus 1-2-3 Release 9G]%W>4^4>44>4 8).i]4).i] d ll ,<<<,, *\\\\<d x!,@4  hX ).i]).i]h9" A ]ҤL [I G  : )T#}85sFields ,FieldsR KQDB MS Sans Serifd2 SampleCombo8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Pick(Source As Lotuscombobox, Index As Integer) Declare Sub Change(Source As Lotuscombobox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMBOBOX Set Source = Bind(Objectname_) On Event Pick From Source Call Pick On Event Change From Source Call Change End Sub '++LotusScript Development Envir onment:2:2:Pick:1:12 Sub Pick(Source As Lotuscombobox, Index As Integer) On Error Goto GenError If ExternalTable = 0 Then 'want to leave the dates there for ease of viewing, but not times so look for colon If Isdate (Samples2(Criteria.SampleCombo.Text ) ) And Instr(1, Samples2(Criteria.SampleCombo.Text ),":") = 0 Then Result1 = Samples2(Criteria.SampleCombo.Text ) 'in case it's a string that looks like a number Elseif Left$(Criteria.SampleCombo.Text,1 ) = """" And Isnumeric(Mid$(Criteria.SampleCombo.Text,2) ) Then Result1 = +"""" + Samples(Criteria.SampleCombo.Text ) + """" Elseif Isnumeric (Samples(Criteria.SampleCombo.Text ) ) Then Result1 = Samples(Criteria.SampleCombo.Text ) Else Result1 = +"""" + Samples(Criteria.SampleCombo.Text ) + """" End If Else 'if its an external table then just check for numerics If Isnumeric( Criteria.SampleCombo.Text) Or Isdate( Criteria.SampleCombo.Text) Then Result1 = Criteria.SampleCombo.Text Else Result1 = """" + Criteria.Sample Combo.Text + """" End If End If CriteriaString Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:Change:1:12 Sub Change(Source As Lotuscombobox) On Error Goto GenError If Isnumeric( Criteria.SampleCombo.Text) Or Isdate( Criteria.SampleCombo.Text) Then Result1 = Criteria.SampleCombo.Text Else Result1 = """" + Criteria.SampleCombo.Text + """" End If CriteriaString Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN?, 4P@@@TdTThh<d||PPLotus ProductV0.0? *F67EF8hNEW|DELETE INITIALIZE TERMINATE,OBJECTDp (GLOBALS) (Globals)* DIALOG REGISTRY MODULE *8* Dialog Registry Module *x *CRITERIA\ *Criteria(SOURCEINDEX BINDEVENTS OBJECTNAME_ LOTUSCOMBOBOX@%static_OCX_AdapterPICK\CHANGEGENERROR` EXTERNALTABLESAMPLES2CRITERIA LOTUSDIALOG%static_ltsdlg31 SAMPLECOMBO$TEXT:tRESULT1"SAMPLESCRITERIASTRING PRODUCTIDLotus 1-2-3 Release 9 WC4^4C40C4 8).i]4).i] ` ,<<<,, 7<` t,@hD,@|d@@<| 4).i]4).i]|,L@Pd ,@d(@!,0@< ,`x||||  `  ,'PCҠH [I GG :^GT8{|OPlh{|OPgh}8[<{|OPgh:{|OU J} {|OU M 8 [<} {|OPgP} :N{|OPlP 8[<{|OPgP: [<} {|OPgP} !":Z${|OU {|OU8%[<{|OP&:'[<} {|OP} ()-)d#/01}x237 :b9{|OU {|OU8:[<{|OP;:<[<} {|OP} =?)d#ABC}xDE 8s Sample Data , Sample DataR KQDB MS Sans Serifd2OpCombo8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Pick(Source As Lotuscombobox, Index As Integer) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMBOBOX Set Source = Bind(Objectname_) On Event Pick From Source Call Pick End Sub '++L otusScript Development Environment:2:2:Pick:1:12 Sub Pick(Source As Lotuscombobox, Index As Integer) Operator = source.list (index) CriteriaString End Sub LSOBENGd,$8TPA@@@ThhhTTLotus ProductV0.0Gdh*22106E0lNEWDELETE INITIALIZE TERMINATE0OBJECTHt (GLOBALS) (Globals)* DIALOG REGISTRY MODULE *@* Dialog Registry Module * *CRITERIA` *CriteriaSOURCEINDEX BINDEVENTS OBJECTNAME_ LOTUSCOMBOBOX%static_OCX_Adapter0PICKOPERATORLISTCRITERIASTRING 4tW 4^4 44 4  8).i]4).i] d  ,<<<,, *<d x,\@h!,0@D  45!KҤL [I G [TK,-W#)h#8# s==,=R KQDB MS Sans Serifd2= > < >= <= <> FilterString8).i] g?   3 R KQDB MS Sans Serifd2AndCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private  Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) OldCriteria = Criteria.FilterString.Text + "#" + AndID + "#" FieldName = "" Operator = "" Result1 = "" CriteriaString criteria.fieldscombo.enabled = True criteria.label3.enabled = True criteria.Opcombo.enabled = True criteria.Samplecombo.enabled = True criteria.label4.enabled = True End Sub LSOBEN4,t$8T@@@DtDD`tXXLL88Lotus ProductV0.04INCENDOBJECTTEiiiiBiiiypU 8&4D t   *3710A00lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *0 *CRITERIA` *CriteriaSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTONH%static_OCX_AdapterCLICK$ OLDCRITERIACRITERIAd LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGTEXT#dANDIDAnd FIELDNAMExOPERATORRESULT1HCRITERIASTRING FIELDSCOMBOENABLEDLABEL3OPCOMBO SAMPLECOMBOLABEL48WH4^4H44H4x 8).i]4).i] d ,,,, *d ,l@X@84 hL4).i]4).i]t|,<@L,\@`,L@tt!,0@( LPLh~|?w8ҤL [I G˨ [D{XOP}}}[8}[L}[`})t#{XOQ{XOQ{XOQ{XOQ{XO(Q(&And &AndR KQDB MS Sans Serifd2OrCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) OldCriteria = Criteria.FilterString.Text + "#" + ORID + "#" FieldName = "" Operator = "" Result1 = "" CriteriaString criteria.fieldscombo.enabled = Tru e criteria.label3.enabled = True criteria.Opcombo.enabled = True criteria.Samplecombo.enabled = True criteria.label4.enabled = True End Sub LSOBEN4,t$8@@@DtDD`tXXLL88Lotus ProductV0.04T*3710AA0lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *0 *CRITERIA` *CriteriaSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTONH%static_OCX_AdapterCLICK OLDCRITERIACRITERIAd LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGTEXT#$ORID dOr FIELDNAMExOPERATORRESULT1HCRITERIASTRING FIELDSCOMBOENABLEDLABEL3OPCOMBO SAMPLECOMBOLABEL48wWP4^4P44P4x 8).i]4).i] d ,,,, *d ,l@X@84 hL4).i]4).i]t|,<@L,\@`,L@tt!,0@(LPLh~|?w8ҤL [I G˨ [D{XOP}}}[8}[L}[`})t#{XOQ{XOQ{XOQ{XOQ{XO(Q(&Or&OrR KQDB MS Sans Serifd2 ClearCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environmen t:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError 'reset other things OldCriteria = "" Criteria.FilterString.Text = "" criteria.fieldscombo.enabled = True criteria.label3.enabled = True criteria.Opcombo.enabled = True criteria.Samplecombo.enabled = True criteria.label4.enabled = True Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub& LSOBEN,t$8TH=@   @@DXDDXXLotus ProductV0.0 *3710B48lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *H *CRITERIA` *CriteriaSOURCE BINDEVENTS OBJECTNAME_,LOTUSCOMMANDBUTTON`%static_OCX_Adapter\CLICKGENERROR OLDCRITERIAtCRITERIA| LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGTEXT FIELDSCOMBO,ENABLEDHLABEL3OPCOMBO SAMPLECOMBOLABEL4 PRODUCTIDLotus 1-2-3 Release 9P&Wp54^4p544p54x 8).i]4).i]@ d  ,,,, * d ,l@X0@L d4).i]4).i]t| `xLP~?w0L8ҤL [I G˨  :d[D}{XOPQ\}{XOhQt{XOQt{XOQt{XOQt{XOQt}x a&Clear_&ClearR KQDB MS Sans Serifd2 RefreshCom8).i] V'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On E rror Goto GenError QT.Criteria = Criteria.FilterString.Text QT.Refresh Criteria.FilterString.Text = StripQuotes(QT.Criteria) ActiveCriteria = QT.Criteria Exit Sub GenError: Msgbox (Error$) ,16, ProductID CloseOnExternalError Err Exit Sub End Sub LSOBEN$, $8T@000@@DXXDD   ``Lotus ProductV0.0$*3710D00lNEWDELETE INITIALIZE TERMINATE0OBJECTH@ (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *P *CRITERIA` *CriteriaSOURCE BINDEVENTSp OBJECTNAME_LOTUSCOMMANDBUTTON,%static_OCX _Adapter,CLICK8GENERRORQT DATAQUERY MAIN123W.DLLSEDefaultClassControlCRITERIA LOTUSDIALOG%static_ltsdlg31\ FILTERSTRINGTEXTREFRESH STRIPQUOTESACTIVECRITERIA PRODUCTIDLotus 1-2-3 Release 9CLOSEONEXTERNALERROR(WH4^4H44H4x `8).i]4).i] d 0,,,,*    d <@0 `T < ).i]).i]Tth6"@X  T4).i]4).i]`|!T5@D,@X` !,@4Y*L P0 4`T( `ҤL [I G˨  :KKD.{OU!KD,#{OQ)KD-##[KD-#})X#_   &Refresh Now_ &Refresh NowR KQDB MS Sans Serifd2 Label18).i] QrSelect values for the criteria from the drop-down lists below. You can also edit the Criteria statement directly.iqSelect values for the criteria from the drop-down lists below. You can also edit the Criteria statement directly.R KQDB MS Sans Serifd2 Label28).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslab el) Criteria.FilterString.SetFocus End Sub LSOBEN;$,`l$T@@@DDDDlllLotus ProductV0.0;$8*37204C0lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CRITERIA` *CriteriahSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL$%static_OCX_Adapter GOTFOCUSCRITERIA@ LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGSETFOCUS((dW34^434434x  l8).i]4).i]  d ,,,, *d @ lD(4).i]4).i]`|lL5?ҤL [I G {DO T': Criteria &statement:TCriteria &statement:R KQDB MS Sans Serifd2 Label38).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus( Source As Lotuslabel) Criteria.FieldsCombo.SetFocus End Sub LSOBEN;$,`l8T@@@DDDDlllLotus ProductV0.0;$$*3720570lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *h* Dialog Registry Module * *CRITERIA` *CriteriaSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL$%static_OCX_Adapter GOTFOCUSCRITERIA@ LOTUSDIALOG%static_ltsdlg31 FIELDSCOMBOSETFOCUS(WP4^4P44P4x l8).i]4).i]  d ,,,, *d @ lD(4).i]4).i]`|l5?ҤL [I G {DO T'H)&Field: &Field:R KQDB MS Sans Serifd2Label48).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Sou rce As Lotuslabel) Criteria.SampleCombo.SetFocus End Sub LSOBEN;$,`l$8T@@@DDDDlllLotus ProductV0.0;$*3720620lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CRITERIA` *CriteriaSOURCE BINDEVENTSh OBJECTNAME_ LOTUSLABEL$%static_OCX_Adapter GOTFOCUSCRITERIA@ LOTUSDIALOG%static_ltsdlg31 SAMPLECOMBOSETFOCUS(C9+W4^4444x  l8).i]4).i]  d ,,,, *d @ lD(4).i]4).i]`|l5?ҤL [I G {DO T' H)&Value: &Value:R KQDB MS Sans Serifd2HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Sour ce As Lotuscommandbutton) ShowHelp H_123_SET_CRITERIA_DIALOG_BOX_CS End Sub LSOBEN 9t,$8T@@@DDDDLotus ProductV0.09tINCENDOBJECTTEByh.U< d h 4  x*37206C0lNEWDELETE INITIALIZE TERMINATE0OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CRITERIA` *CriteriaSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_Adapter,CLICKSHOWHELP H_123_SET_CRITERIA_DIALOG_BOX_CS3W*4^4*44*4x  G8).i]4).i] d ,,,,*d !6@02uL@=ҤL [I G˨ )D2u#  ? &Help_&HelpR KQDB MS Sans Serifd2RVRV RV Criteria4).i] > :| "(Criteria Globals)0I#%#T'zOKCom8).i] _z@ ; CancelCom8).i] &  FieldsCombo8).i] 8 ' SampleCombo8).i] vOpCombo8).i] Y ;  FilterString8).i] _ckAndCom8).i]  [=OrCom8).i] u  ClearCom8).i] <& . \" RefreshCom8).i] V# )7 Label18).i] 5999QA9 Label28).i] ; V@:}J Label38).i] K yPZLabel48).i] [ s`jHelpCom8).i] k p 6z ChooseFields4).i]  B^ (ChooseFields Globals)/ #0 OKCom8).i] 0 7_E CancelCom8).i] F mL Y SelectList8).i] VZZZbZ ClearCom8).i] ['g vAddCom8).i] [w% {   FormulaCom8).i] W E Label18).i] a3 1. FieldMover8).i]  u AliasCom8).i]  - HelpCom8).i]  R AddFields4).i]  <" (AddFields Globals)r z *OKCom8).i] <*:5YE CancelCom8).i] ~F K 5UAddList8).i] wV{VVLabel18).i] W @\4cfQTables4).i] 8(QTables Globals)J N!2 OKCom8).i] $ "3J<9M CancelCom8).i] uNE S `] QueriesList8).i] ^ VguSource8).i] HvLvTvOutput8).i] www SourceLabel8).i] xx'x OutputLabel8).i] IzMz0Uz SelectLabel8).i] h{ 1HH HelpCom8).i] ȋ 5 DelCom8).i] t B"Formula4).i] 86(Formula Globals) (  ReplaceCom8).i]  ),2 A CancelCom8).i] z C G Q FormText8).i] RRR AliasText8).i] :T>TFTLabel18).i] UE RZ-dLabel28).i] fE j-u InsertCom8).i] v<\ DeleteCom8).i] -' HelpCom8).i] z &  AliasField4).i] z>(AliasField Globals)j 2' CancelCom8).i] ' h, 6 AliasText8).i] 777Label18).i] &9*929Label28).i] z:U P?IOKCom8).i] J P]Field8).i] ^^^ HelpCom8).i] `u d #n Aggregate4).i]  <J (Aggregate Globals)r $1 OKCom8).i] 1T<L CancelCom8).i] ~CM Q [AggList8).i] )]-]5]Label18).i] l^ b1m ResetCom8).i] `nZ s F SumOption8).i]  AvgOption8 ).i] ڂނ CountOption8).i] *. 6 MinOption8).i] | MaxOption8).i] Ȇ̆ԆLabel28).i]  AliasText8).i] qu}HelpCom8).i] Ŋq O Ș QName4).i]  4R D(QName Globals)n T!+OKCom8).i] b, |1> CancelCom8).i] v? MD UNLabel18).i] O [T$j^ QNameText8).i] ___ QnameList8).i] ~"a hkuLabel28).i] ~v ${E3HelpCom8).i] a >  SQL4).i] 0AI(SQL Globals)k  &CopyCom8).i] E&n * _6 CancelCom8).i] r7 < FLabel18).i] HGLGNTGText18).i] HHHHelpCom8).i] *JI N  X BaseSource4).i] 6>xS(BaseSource Globals) cm'OKCom8).i] ' 3- 9 CancelCom8).i] ; ? ILabel18).i] J# O0Y BaseText8).i] [[#[Image18).i] i\Ad]tHelpCom8).i] |u   Options4).i]  80 J (Options Globals)~z!F &J4 OKCom8).i]  4@Q CancelCom8).i] zR \W pa UpdateCheck8).i] &b hXs UniqueCheck8).i] Tu zCz AutoCheck8).i]  UpdateCom8).i] ` l Spinner18).i] ɜ[  LimitText8).i]  $׿ LimitCheck8).i] 9A "@ SamplesCheck8).i] OHelpCom8).i] 7  QSort4).i] 4'(QSort Globals)L( -: OKCom8).i] :J\ CancelCom8).i] v] Jb Vl AddKeyCom8).i] mH Lt ResetCom8).i] >* * \ SortCombo8).i]  PV As cOption8).i] U  DescOption8).i] ZM V Label18).i] ~  SortList8).i] j RV Label28).i]  HelpCom8).i] a }  NewQuery4).i]  :e A(NewQuery Globals) J]&4OKCom8).i] 4q@rU CancelCom8).i] (V [ f SourceText8).i] g lv OutputText8).i] x |҆Label18).i] M i?Label38).i] ޘM x Label28).i] I }oθ NameText8).i] w 9 Spinner18).i]  < Label48).i] [I )-z LimitText8).i] &. $CLabel58).i] W FieldsCom8).i] `< -CritCom8).i] "'*9Image18).i]  ;BRImage38).i] [brHelpCom8).i] {  sJoin4).i] 2y(Join Globals)J%OKCom8).i] @% (+7 CancelCom8).i] t8 m= mG JoinText8).i] HHHLabel18).i] zJ N-XHelpCom8).i] YY ^ gChooseFields24).i]  D"" L(ChooseFields2 Globals) "-OKCom8).i] P-9 3@ CancelCom8).i] zOA F ZR FieldsList8).i] SSS ClearCom8).i] T ] ijLabel18).i] k; =p1z Spinner18).i]  {' HelpCom8).i] 1 Connect4).i]  8TV (Connect Globals)L"*<DTOKCom8).i] x|T- X-b CancelCom8).i] z~c g rLabel18).i] RsVs3^s ConnectList8).i] tE i~Text18).i]   RangeText8).i] HelpCom8).i] 9m ˢ @ Disconnect4).i]  >\ [(Discon nect Globals) cY'OKCom8).i] l' .: CancelCom8).i] ; j@ JLabel18).i] KK!K DisconList8).i] ;Me 3S_HelpCom8).i] `q ie nSendSQL4).i] D 81 (SendSQL Globals)* +OKCom8).i] D S+X4B CancelCom8).i] z;D H RLabel18).i] TTT TablesList8).i] rUvU~ULabel28).i] VV$VSQLText8).i] X!X)XOption18).i] qY o_jOption28).i] jk4 Zq| RangeText8).i] }}}Image38).i] ALabel38).i] +/67OutText8).i] Image18).i] HelpCom8).i] m g  CreateTable4).i]  @bV (CreateTable Globals)l,.nFc OKCom8).i] xcA Xhr CancelCom8).i] s$ xx Label18).i] 3 ConnectList8).i] e;Text18).i] 5( ӣ RangeText8).i] O0 -Image18).i] smtCheck18).i] XHelpCom8).i] 3} JCT14).i] l 0 ,(CT1 Globals)bZ L)ContCom8).i] ).:3pE CancelCom8).i] rF 7K #ULabel18).i] eViVqV RangeText8).i] gX \fImage18).i] ;hJo7HelpCom8).i] \Q K Crosstab4).i] x :y 7!(Crosstab Globals)v" &2 CancelCom8).i] ,2 7 BContCom8).i] "Dk 5ITLabel18).i] UUoULabel28).i] WW*WLabel38).i] YY3YCombo18).i] ZZZ Combo28).i] [[[ HelpCom8).i] ] a xk Options14).i] 0: n#(Options1 Globals)T^$+;Frame18).i] ;;;OKCom8).i] =NNqe CancelCom8).i] (f k vLabel18).i] ww3wCombo18).i] \y`yhySum8).i] z ?Average8).i] ! ˎu Count18).i]  m  Minimum8).i] a  Maximum8).i]  Q Purecount8).i]  S STD8).i] c VARS8).i]  VAR8).i]  f(STDS8).i] ^ HelpCom8).i]   %AppendR4).i] 8T&(AppendR Globals)\ h' OKCom8).i] J' .; CancelCom8).i] zM< @ JLabel18).i] !L%L?-L FromText8).i] MMMImage18).i] NVfLabel28).i] nn9nToText8).i] QpUp]pImage28) R.i] qgyR HelpCom8).i] wm ~DeleteR4).i] 83U%(DeleteR Globals)&&L!MnOKCom8).i]  o +u CancelCom8).i] =Y !  FieldsCombo8).i] ̗  SampleCombo8).i] vgOpCombo8).i]  n FilterString8).i] AndCom8).i] P i1OrCom8).i] Ni  ClearCom8).i] "   Label18).i] Q Label28).i] : Label38).i] %Label48).i] pt|Label58).i] l TableText8).i] {T3KImage18).i] X/M_xHelpCom8).i] m G cc c ChooseFields4).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 Set QT = Bind (Selection.Name) OpenFields = QT.SelectFields For y = (ChooseFields.SelectList.ListCount -1) To 0 Step  -1 ChooseFields.SelectList.removeitem y Next y 'Same code is in a few places Dim Temp1 As String Temp1 = QT.SelectFields While Len( Temp1) > 1 ChooseFields.SelectList.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend ChooseFields.SelectList.SelectItem 0 Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End SubLSOBEN+s\,$8T@Ttt@D|hhDD||DLotus ProductV0.0s\INCENDOBJECTTE\ c^ c\ c^ cBc^ c\ c33QOKUDK5w$6ww!Kww5w3w3wl4wl4w+w.w-w<-w)w`*2660A30lNEWDELETEP INITIALIZE TERMINATEHOBJECTpl (GL OBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS( *ChooseFieldsSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG@%static_ltsdlg31LOADXGENERROR LOADCAPTIONSLEFT0CURRENTAPPLICATION APPLICATION4 MAIN123W.DLL SEDefaultClassControl SCREENWIDTH,TWIPSPERPIXELXWIDTHLTOP SCREENHEIGHT TWIPSPERPIXELYpHEIGHTQT DATAQUERY SELECTIONNAMET OPENFIELDS SELECTFIELDSY CHOOSEFIELDS SELECTLIST LISTCOUNT REMOVEITEMTEMP1,ADDITEMSELECTFIELDSDELIM; SELECTITEM PRODUCTIDLotus 1-2-3 Release 9G-lHk(zKHw(zK4(zK PPtt4).i]4).i]| t T,,,*Tt !,L@,\ PZ,,,q).i]).i] ah"tp<@D  ).i]).i]h6"hPZ,,@|@8 P [0aPL `Li,t4nDkPLh,Y4n,08XTtq _.@l.@wҤT [I G  :%)D#)D#K,.{-,#~tK,-P#!K,.t{-#~K,-#![{DUʬ[hK-#^{|O P,^D4 {|O T8^'!^D6%^K-#&^%8H'{|O TTJJ}J'(^JJ}'M):+{|O T`'-./}002 Choose Fields(ChooseFields Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub loadcaptions '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim OpenFiel ds As String Dim dummy As String '++LotusScript Development Environment:2:2:loadcaptions:1:8 Sub loadcaptions ChooseFields.Caption = ChooseCap ChooseFields.Label1.Caption = ChooseLabel1 ChooseFields.OKCom.Caption = OKID ChooseFields.CancelCom.Caption = CancelID ChooseFields.ClearCom.Caption = ChooseCommand3 ChooseFields.AddCom.Caption = ChooseCommand4 ChooseFields.FormulaCom.Caption = ChooseCommand5 ChooseFields.AliasCom.Caption = ChooseCommand6 ChooseFields.HelpCom.Caption = HelpID End Sub LSOBENT$8T ,$$<<,dLDLotus Product V0.0TAQUERTlassControlREFRESHCLOSEh PRODUCTIDdLotus 1-2-3 Release 9CRITERIASTRING FILLSAMPLELIST\GENERROR FIELDSCOMBO LISTINDEX(NUMROWSLOUTRANGERANGERECORDXSTARTCOLSTRINGSTARTROW OUTRANGESHEETFILEREFCOUNTER`X ALLFIELDS8RETURNSSAMPLECRITERIAY SAMPLECOMBO LISTCOUN *2660B50lNEWDELETEL INITIALIZE TERMINATE|OBJECT (GLOBALS)0 (Globals) * DIALOG REGISTRY MODULE *`* Dialog Registry Module * OPENFIELDS\DUMMY LOADCAPTIONS CHOOSEFIELDS LOTUSDIALOG%static_ltsdlg31CAPTION CHOOSECAP, Choose Fields@LABEL1 CHOOSELABEL1S&elected fields:OKCOMOKIDOK CANCELCOMHCANCELID4CancelCLEARCOMCHOOSECOMMAND3\&Clear,ADDCOMCHOOSECOMMAND4&Add... FORMULACOMhCHOOSECOMMAND5 &Formula...ALIASCOMTCHOOSECOMMAND6&Show Field As...|HELPCOMHELPID&HelpXYkHk1HwHk<4LP` @ 4).i]4).i]|dDDd$D8d` 0lP0=$w0=LH=X?Ҥ { .}! {OQ}d{OQ}{O Q}{OQ}8{O$Q}{O0Q}{O<Q}0{OHQ} OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Dim FieldList As String FieldList = "" For x = 0 To (ChooseFields.SelectList.ListCount - 1) Step 1 FieldList = FieldList + ChooseFields.SelectList.List(x) + SelectFieldsDelim Next x QT.SelectFields = FieldList ChooseFields.Close Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub LSOBEN ,DP$8T@   @@T4TT44P||PPLotus ProductV0.0 INCENDOBJECTTE&c(c&c(cBc(c&cQ@2KU0*KwwwpKwwwww,w,ww|wwwlw$*2660C10lNEWDELETEP INITIALIZE TERMINATE\OBJECTp (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS *ChooseFields$SOURCE BINDEVENTS OBJECTNAME_TLOTUSCOMMANDBUTTON|%static_OCX_Adapter<CLICK@GENERROR FIELDLISTXX CHOOSEFIELDS LOTUSDIALOG%static_ltsdlg31 SELECTLIST, LISTCOUNTxLIST4SELECTFIELDSDELIM;QT DATAQUERY MAIN123W.DLLSEDefaultClassControl SELECTFIELDSCLOSE PRODUCTIDLotus 1-2-3 Release 9,Hk_K Hw_K4_K |8).i]4).i] [ t  , <<,  *X< t  @@4` |P4).i]4).i]p|0<@8 Pp\Ddddd ).i]).i]D||h6" (Xq(4n, |pQ |ҤT [I G˨  :d^<}^ {TO0P<^T4&^<J<{TO0SH^ %}0^T6K4.dJ<!{T,#}@ gOKzOKR KQDB MS Sans Serifd2 CancelCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScrip t Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If QT.SelectFields <> OpenFields Then QT.SelectFields = OpenFields End If ChooseFields.Close Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub LSOBEN}T,(4$8T@@@D   DD444``Lotus ProductV0.0}TINCENDOBJECTTEccccBcccQ`KUPKLwtwwHbKww$wDwDwwww *2660CC8lNEWDELETEP INITIALIZE TERMINATE`OBJECTp (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS *ChooseFields$SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON<%static_OCX_AdapterPCLICKHGENERRORQT DATAQUERY MAIN123W.DLLSEDefaultClassControl SELECTFIELDS  OPENFIELDSx CHOOSEFIELDS( LOTUSDIALOG%static_ltsdlg31`CLOSE PRODUCTIDLotus 1-2-3 Release 9X6Hk :KHw :K4 :K `8).i]4).i] [ t ,,,, *t <@@ `d4L ).i]).i]Th6",,@ @ 4T,((((4).i]4).i](`| (e d|4n,T 4(Q 4ҤT [I G˨  :/KD-#G8 KD.G!{ ,(#}| @ GCancelzCancelR KQDB MS Sans Serifd2 SelectList8).i] o  R KQDB MS Sans Serifd2 ClearCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error  Goto GenError Dim FieldName As String 'make sure at least one field is selected and that all fields aren't selected If ChooseFields.SelectList.ListCount = 1 Or ChooseFields.SelectList.SelCount = ChooseFields.SelectList.ListCount Then Msgbox FieldsError End If 'make sure at least one field is selected and that all fields aren't selected If ChooseFields.SelectList.SelCount > 0 And ChooseFields.SelectList.ListCount > 1 And ChooseFields.SelectList.SelCount < ChooseFields.SelectList.ListCount Then For x = 1 To ChooseFields.SelectList.SelCount For y = (ChooseFields.SelectList.ListCount -1) To 0 Step -1 If ChooseFields.SelectList.Selected(y) = True Then FieldName = ChooseFields.SelectList.List(y) ChooseFields.SelectList.removeitem y QT.RemoveSelectField FieldName End If Next y Next x End If Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End SubLSOBEN D,DP8T@  @@T4TT44P|| PPLotus ProductV0.0DINCENDOBJECTTE c c c cBc c c((Q@KUtK<2~d2~~(RK~~2~40~40~0~0~,~<-~-~$,~t,~L,~+~*~l*~%~%~$*2660E18lNEWDELETEP INITIALIZE TERMINATETOBJECTp< (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS *ChooseFields$SOURCE BINDEVENTS OBJECTNAME_xLOTUSCOMMANDBUTTONt%static_OCX_AdapterCLICKGENERROR FIELDNAME CHOOSEFIELDS LOTUSDIALOG%static_ltsdlg31  SELECTLISTh LISTCOUNTSELCOUNT FIELDSERROR(Cannot remove all the fields in a query.XYSELECTEDLIST REMOVEITEM@QT DATAQUERY MAIN123W.DLLSEDefaultClassControlREMOVESELECTFIELD PRODUCTIDLotus 1-2-3 Release 9=\Hk KHwK4K |8).i]4).i] [ t  ,T<<,DTT *<Dt D@@4X |Px4).i]4).i]p|$<@ Pp ).i]).i]D|h6" (,l|8q6T|(6D 4PD*( P8hHҤT [I G˨  :{TO P,{TO P8{TO P,8 }${TO P8{TO P,{TO P8{TO P,8^D{TO P8^4t^T{TO P,^4R{TO Sd^T%81^<{TO Sp^T%{TO T|^T'K4,J<# ^6!^6"#$%}&' @ '&Clearz&ClearR KQDB MS Sans Serifd2AddCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Develop ment Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) AddFields.Show 1 End Sub% LSOBEN9<,`l$8T}@@@DDDDlllLotus ProductV0.09<|dDDd$D8d` 0lP0=$w0=LH=X?OMCHOOSECOMMAND4&Add... FORMULACOMhCHOOSECOMMAND5 &Formula...ALIA*2660EB 8lNEWDELETEP INITIALIZE TERMINATEOBJECTp (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS *ChooseFieldsSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON<%static_OCX_Adapter$CLICK ADDFIELDSX LOTUSDIALOG%static_ltsdlg31SHOW@,HkPKHwPK4PK l8).i]4).i] [ t ,,,, *t @( l\@    4).i]4).i]`| l`i l=ҤT [I G˨ {D, # @ &Add...z&Add...R KQDB MS Sans Serifd2 FormulaCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Developme nt Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) If ChooseFields.SelectList.SelCount = 1 Then Formula.Show 1 End If End Sub LSOBENMx,`l$8T@@@DDDlllLotus ProductV0.0MxKcLҤ {.}! {OQ}d{OQ}{O Q}{OQ}8{O$Q}{O0Q}{O<Q}0{OHQ} @ 4).i]4).i] |dDDd*2660F60lNEWDELETEP INITIALIZE TERMINATE$OBJECTp (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS *ChooseFieldsSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICK CHOOSEFIELDS` LOTUSDIALOG%static_ltsdlg31 SELECTLISTSELCOUNTFORMULASHOW|p'Hk6KHw6K46K l8).i]4).i] [  t ,,,, *t @( ldHHHHH4).i]4).i]`|@ l6 l`i lQҤT [I G˨ {DO0P<8 {,H#@ P   &Formula...z &Formula...R KQDB MS Sans Serif d2Label18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) ChooseFields.SelectList.SetFocus End Sub3 LSOBEN;$,`l$T}@@@DDDDlllLotus ProductV0.0;$|dDDd$D8d` 0lP0=$ w0=LH=X?OMCHOOSECOMMAND4&Add... FORMULACOMhCHOOSECOMMAND5 &Formula...ALIA8*2661F50lNEWDELETEP INITIALIZE TERMINATEOBJECTp (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS *ChooseFieldsSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL<%static_OCX_AdapterGOTFOCUS CHOOSEFIELDSX LOTUSDIALOG%static_ltsdlg31 SELECTLISTSETFOCUS(HpHk _KHw _K4 _K l8).i]4).i] [  t ,,,, *t @  l\@4).i]4).i]`|5?ҤT [I G {DO T'1&Selected fields:_&Selected fields:R  KQDB MS Sans Serifd2 FieldMover8).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Spindown(Source As Lotusspinbutton) Declare Sub Spinup(Source As Lotusspinbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSSPINBUTTON Set Source = Bind(Objectname_) On Event Spindown From Source Call Spindown On Event Spinup From Source Call Spinup End Sub '++LotusScript Development Environment:2:2:Spindown:1:12 Sub Spindown(Source As Lotusspinbutton) Dim Temp1 As String Dim Temp2 As Integer On Error Goto GenError If ChooseFields.SelectList.SelCount = 1 And ChooseFields.SelectList.ListIndex < (ChooseFields.SelectList.ListCount - 1) Then Temp1 = ChooseFields.SelectList.Text Temp2 = ChooseFields.SelectList.ListIndex ChooseFields .SelectList.List(temp2) = ChooseFields.SelectList.List(temp2+1) ChooseFields.SelectList.List(temp2+1) = Temp1 ChooseFields.SelectList.SelectItem Temp2+1 End If Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:Spinup:1:12 Sub Spinup(Source As Lotusspinbutton) Dim Temp1 As String Dim Temp2 As Integer On Error Goto GenError If ChooseFields.SelectList.SelCount = 1 And ChooseFields.SelectList.ListIndex > 0 Then Temp1 = ChooseFields.SelectList.Text Temp2 = ChooseFields.SelectList.ListIndex ChooseFields.SelectList.List(temp2) = ChooseFields.SelectList.List(temp2-1) ChooseFields.SelectList.List(temp2-1) = Temp1 ChooseFields.SelectList.SelectItem Temp2-1 End If Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN,$8T}@L,,LL@@ddddLotus ProductV0.0 |dDDd$D8d` 0lP0=$w0=LH=X?OMCHOOSECOMMAND4&Add... FORMULACOMhCHOOSECOMMAND5 &Formula...ALIA*2B90EF8lNEWDELETEP INITIALIZE TERMINATE$OBJECTpH (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS  *ChooseFields SOURCE BINDEVENTS OBJECTNAME_8LOTUSSPINBUTTON%static_OCX_AdapterXSPINDOWNpSPINUPHTEMP1TEMP2GENERROR CHOOSEFIELDS LOTUSDIALOG%static_ltsdlg318 SELECTLISTSELCOUNTX LISTINDEXt LISTCOUNTTEXTLIST SELECTITEM PRODUCTIDLotus 1-2-3 Release 9}]HkPKHwPK4PK 8).i]4).i]4 t ,,LLL ,,<< 7<t L<L@t 4).i]4).i]| \Lx( t <L \$(h6 q$q<PL\ҤT [I GGL  :{dODPP{dODP\{dODPh8m^<{dODPtb{dODP\{dODـb({dODSX%{dODـX(J<{dODTX' !"}#%+  :-{dODPP{dODP\8m.^{dODPt/b{dODP\0{dODـb({dODSX%1{dODـX(J2{dODTX'3567}8:    Spinner1 iSpinner1d2 AliasCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129  Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) If ChooseFields.SelectList.SelCount = 1 Then AliasField.Show 1 End If End Sub LSOBENMx,`l$8T@@@DDDlllLotus ProductV0.0MxKcLҤ {.}! {OQ}d{OQ}{O Q}{OQ}8{O$Q}{O0Q}{O<Q}0{OHQ} @ 4).i]4).i]|d*2B90FA0lNEWDELETEP INITIALIZE TERMINATE$OBJECTp (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOO SEFIELDS *ChooseFieldsSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICK CHOOSEFIELDS` LOTUSDIALOG%static_ltsdlg31 SELECTLISTSELCOUNT ALIASFIELDSHOW|&L Hk6KHw6K46K l8).i]4).i] [  t ,,,, *t @( ldHHHHH4).i]4).i]`|@ l6 l`i lQҤT [I G˨ {DO0P<8 {,H#-@ 0  S&how Field As...zS&how Field As...R KQDB MS Sans Serifd2 HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(So urce As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_123_CHOOSE_FIELDS_DIALOG_BOX_CS End Sub LSOBEN 9,$8T}@@@DDDDLotus ProductV0.09|dDDd$D8d` 0lP0=$w0=LH=X?OMCHOOSECOMMAND4&Add... FORMULACOMhCHOOSECOMMAND5 &Formula...ALIA*2B918D0lNEWDELETEP INITIALI cZE TERMINATEOBJECTp (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module * *CHOOSEFIELDS *ChooseFields<SOURCE BINDEVENTS$ OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP!H_123_CHOOSE_FIELDS_DIALOG_BOX_CS>Hk _KHw _K4 _K 8).i]4).i] [ t ,,,,*t !6@(@3uL@=ҤT [I G˨ )D3u# @ &Help _&HelpR KQDB MS Sans Serifd2gg g AddFields4).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 For y = (AddFields.AddList.ListCount -1) To 0 Step -1 AddFields.AddList.L.removeitem y Next y Forall x In QT.AllFields  If Instr(1, QT.SelectFields, x + SelectFieldsDelim) = 0 Then AddFields.AddList.AddItem x End If End Forall If AddFields.AddList.ListCount > 0 Then AddFields.AddList.SelectItem 0 End If Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN+L,,$8@Ttt``@DDLotus ProductEV0.0L,OBJECT0T*4230040lNEWDELETE0 INITIALIZE TERMINATE@OBJECTLd (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE * * Dialog Registry Module *  *ADDFIELDSh *AddFieldsSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG 8%static_ltsdlg31|LOADPGENERROR LOADCAPTIONSLEFT(CURRENTAPPLICATION APPLICATION8 MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELX WIDTHDTOP SCREENHEIGHTTWIPSPERPIXELYHEIGHTY ADDFIELDSADDLIST LISTCOUNTPL REMOVEITEMXpQT DATAQUERY ALLFIELDS SELECTFIELDSSELECTFIELDSDELIM;ADDITEM SELECTITEM PRODUCTIDLotus 1-2-3 Release 9STRINGS}ROHkOKHwOK4OK ttt,,4).i]4).i]| l T,,*l !,,@$T PZPPPq).i]).i]ah"t`h@ <@ $ ).i]).i]h6"t  4 aD `PLi,,,nt<kHLh,Y6qL P< 4*]).i]).i]ah@"T4n,_.@.@PҤP [I G  :)D#)D#K,.{-#~K,-#!K,.,{-P#~K,-t#!^{OP^4{OOT^'^6 K-#5:!K-#F}8"{OTZ '#$7&{OP8'{OT'(*+,}-/X b* Add Fields(AddFields Globals)r'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions AddFields.Caption = AddCap AddFields.Label1.Caption = AddLabel1 AddFields.OKC om.Caption = OKID AddFields.CancelCom.Caption = CancelID End Subz LSOBENJX$8,,,Lotus ProductV0.0JXQmK(<Xp*5NEWDELETEINITIALIZET*4230160lNEWDELETE0 INITIALIZE TERMINATEOBJECTH (GLOBALS)h (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *P LOADCAPTIONSh ADDFIELDS LOTUSDIALOG%static_ltsdlg31CAPTIONADDCAPX Add FieldsLABEL1 ADDLABEL1&Available fields:tOKCOMOKIDOK CANCELCOMCANCELIDCancel\k,Hk1HwHk4 @T l4).i]4).i]| \lP=LwxNҤ {.}! {O(Q4}  {O@Q4}l{OLQ4}OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) Dim FieldName As String On Error Goto GenError If AddFields.AddList.SelCount > 0 Then For x = 1 To AddFields.AddList.SelCount For y = (AddFields.AddList.ListCount -1) To 0 Step -1 If AddFields.AddList.Selected(y) = True Then FieldName = AddFields.AddList.List(y) AddFields.AddList.removeitem y QT.AddSelectField FieldName End If Next y Next x End If 'Repopulate dialog 2 For y = (ChooseFields.SelectList.ListCount -1) To 0 Step -1 ChooseFields.SelectList.removeitem y Next y Dim Temp1 As String Temp1 = QT.SelectFields While Len( Temp1) > 1 ChooseFields.SelectList.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend AddFields.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN',$08T@$$$@@TT0||00Lotus ProductV0.0INCENDOBJECTTE> c@ c> c@ cBc@ c> c22 QHKUxKt;~;~~0VK~L ~L;~l9~l9~9~9~2~D4~3~|3~D/~~~\~~$*4230218lNEWDELETE0 INITIALIZE TERMINATEOBJECTL (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *ADDFIELDSh *AddFields4SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTONd%static_OCX_AdapterLCLICK$ FIELDNAMEGENERROR ADDFIELDS LOTUSDIALOG$%static_ltsdlg31ADDLISTLSELCOUNTXY LISTCOUNTdSELECTEDLIST@ REMOVEITEMQT DATAQUERY MAIN123W.DLLSEDefaultClassControlADDSELECTFIELDD CHOOSEFIELDSX SELECTLISTTEMP1 SELECTFIELDSADDITEMSELECTFIELDSDELIM;CLOSE PRODUCTIDLotus 1-2-3 Release 9k`Hk0KHw0K40K |8).i]4).i] [D l ,| <<,l||*<ll  @P |0hXXXX4).i]4).i]p|<@D 0phP((( ).i]).i]$|h6"@ |l$\ 8{66|(Lq6 (( 40$& 08h(4n,H_ |pQ |ҤP [I G˨   :E{TOTP`8^l{TOTP`^4v^|{TOTP^4T{TOTS^|%83^<{TOTS^|%{TOTT^|'K,J<#^6^6!^|{O P^4"{O T^|'#^6&^K-(#'^%8H({O TLJJ}J')^JJ}'M*:,{T,X#-./}01 gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] ~'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript D evelopment Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) AddFields.Close End Sub LSOBEN88,`l$8T}l@@@DDDDlllLotus ProductV0.04).i]88 \lP=LwxOKIDOK CANCELCOMCANCELIDCancelELETEINITIALIZE*42302C0lNEWDELETE0 INITIALIZE TERMINATEOBJECTL (GLOBALS)| (Globals)* DIALOG REGISTR Y MODULE ** Dialog Registry Module *  *ADDFIELDSh *AddFieldsSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON4%static_OCX_AdapterCLICKx ADDFIELDSP LOTUSDIALOG%static_ltsdlg31CLOSE<e kHkXKHwXK4XK l8).i]4).i] [ l ,,,,*l @  lT8    4).i]4).i]`|| l`Q l<ҤP [I G˨ {D, #  GCancel_CancelR KQDB MS Sans Serifd2AddList8).i] h R KQDB MS Sans Serifd2Label18).i] '++LotusScript Development Enviro nment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) AddFields.AddList.SetFocus End Sub LSOBEN;$,`l8TK@@@DDDDlllLotus ProductV0.0;$l8).i]4).i] [  l ,,,, *l @ lL04).i]4).i]`| t65K$*4230400lNEWDELETE0 INITIALIZE TERMINATEOBJECTL (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * *ADDFIELDSh *AddFieldsSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL,%static_OCX_AdapterGOTFOCUSp ADDFIELDSH LOTUSDIALOG%static_ltsdlg31ADDLISTSETFOCUS(@Hk5KHw5K45K l8).i]4).i] [  l ,,,, *l @ lL04).i]4).i]`|t65?ҤP [I G {DO T'4xc&Available fields:_&Available fields:R KQDB MS Sans Serifd299 9QTables4).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 CancelFlag = 1 BuildQueryList Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN4,$ 8@Ttt@DDDLotus ProductV0.04INCENDOBJECTTEccccBccc##Q@KUtK~~~(RK~~\~|~|~~~~8T*42304A0lNEWDELETE INITIALIZE TERMINATEHOBJECT`\ (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **QTABLES8*QTablesSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG0%static_ltsdlg31tLOADHGENERROR LOADCAPTIONSLEFT CURRENTAPPLICATION APPLICATION MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTH<TOP SCREENHEIGHTTWIPSPERPIXELYHEIGHT CANCELFLAGBUILDQUERYLIST DATAQUERY PRODUCTIDLotus 1-2-3 Rel ease 9HkKHwK4Kx   DD4).i]4).i]| d T,,,,*d !,@L PZxhhhq).i]).i]ah"t`l@!,,@  ).i]).i]ah6" a < `hLi,D$n4k@Lh,Y.@.@ҤL [I G  :n)D#)D#K,.{-#~K,- #!K,.D{-h#~K,-#![)# }!" ?OSelect Query Table(QTables Globals) J '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub BuildQueryList Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BuildQueryList:1:8 Sub BuildQueryList For y = (QTables.QueriesList.ListCount -1) To 0 Step -1 QTables.QueriesList.RemoveItem y Next y 'build list of query tables Forall x In CurrentDocument.dataquerynames QTables.QueriesList.AddItem x End Forall 'select 1st item in list If QTables.QueriesList.ListCount > 0 Then QTables.QueriesList.SelectItem 0 Dim QT1 As DataQuery Set QT1 = Bind ( QTables.QueriesList.Text) 'set output and base tables QTables.Source.Caption = QT1.BaseSourceTable QTables.Output.Caption = QT1.OutputLocation End If End Sub '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions QTables.Caption = QTCap QTables.SourceLabel.Caption = QTLabel1 QTables.OutputLabel.C aption = QTLabel2 QTables.SelectLabel.Caption = QTLabel3 QTables.OKCom.Caption = OKID QTables.CancelCom.Caption = CancelID QTables.HelpCom.Caption = HelpID End SubLSOBEN*<`$8 ,<<<||,,DDLotus ProductnKV0.0'#<`T*42305C0lNEWDELETE INITIALIZE TERMINATEHOBJECT (GLOBALS)\ (Globals)T* DIALOG REGISTRY MODULE *0* Dialog Registry Module *BUILDQUERYLIST YpQTABLES LOTUSDIALOG%static_ltsdlg31 QUERIESLISTl LISTCOUNT REMOVEITEMX0CURRENTDOCUMENThDOCUMENT MAIN123W.DLL4SEDefaultClassControlDAT AQUERYNAMESpADDITEM4 SELECTITEMQT1  DATAQUERYTEXTHSOURCECAPTIONBASESOURCETABLEOUTPUTOUTPUTLOCATION LOADCAPTIONSQTCAPSelect Query Table SOURCELABELQTLABEL1T Source table: OUTPUTLABEL,QTLABEL2Output location:x SELECTLABEL<QTLABEL3&Select the query table:HOKCOM`OKIDOK CANCELCOMCANCELIDCancelHELPCOMHELPID&HelpSTRINGSd{Hk1HwHk4\\ t@` t4).i]4).i]| PZLD4).i]).i]alh" ).i]).i]alh6"\ pD|  8t0@<d|Xgdq@ 4 G,]).i]).i]aDlh@"_P$ 08L4#*p4,8PgXǵ wTL?@Ҥ ^\{OlPx^4 {OlT^\'^6{-#5{OlTdZ '7{OlPx8N{OlTp'^{OlU|D{OQK-#{OQK-#{.}! {OQ}8!{O$Q}"{O0Q}#{O<Q}@${OHQ}|%{OTQ}& OKCom8).i] $ '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) Dim QueryObj As dataquery Dim QueryRange As Range Dim OutRange As R ange On Error Goto GenError CancelFlag = 0 CurrSelection = Selection.Name Set QueryObj = Bind (QTables.QueriesList.Text) QueryObj.Select Set QueryRange = Bind (QueryObj.OutputLocation) QueryRange.Goto 'determine if Source Table is an external table. If so we need to make sure it's connected by refreshing it If QueryObj.ExtTableConnected = False Then QueryObj.Refresh End If QTables.Close Exit Sub GenError: If (Error$) = BadQuery Then QTables.Close Exit Sub End If Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN$4,t8T@@@tHHttLotus ProductV0.04INCENDOBJECTTEh cj ch cj cBcj ch c..&Q@KUtKD%~l%~~(RK~L ~%~<#~<#~#~#~ ~~ 8$*4230678lNEWDELETE INITIALIZE TERMINATEHOBJECT`  (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **QTABLESD*QTables,SOURCE BINDEVENTSd OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKQUERYOBJ DATAQUERY MAIN123W.DLLSEDefaultClassControlH QUERYRANGElRANGEOUTRANGE,GENERRORD CANCELFLAG CURRSELECTION SELECTIONTNAMEhQTABLES LOTUSDIALOG%static_ltsdlg31  QUERIESLISTTEXTSELECTOUTPUTLOCATIONGOTOEXTTABLECONNECTED\REFRESHCLOSEBADQUERY#Named product object does not exist PRODUCTIDLotus 1-2-3 Release 9 BASEOBJECTLHkKHwK4Kx H8).i]4).i] [ d ,xx,, *0d H0$T 00$PTT ).i]).i]a<hh6"x H ).i]).i]a<Hhh9"  l@0PZ@X <tl4).i]4).i]| p HgPPP OH<J( H04,).i]<hh" t<e& tT$4*L 4H<( H` Q ҤL [I G˨  :}[^{P^{O UHK,$#^xK-P#Kx,#K-0#8  K,T#!#{,#$%&}8'{,#()*}+-` gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Envi ronment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) QTables.Close CancelFlag = 1 End SubE LSOBENAL,`l$8T@@@DDDlllLotus ProductV0.0ALK*4230720lNEWDELETE INITIALIZE TERMINATEHOBJECT` (GLOBALS)t (Globals)0* DIALOG REGISTRY  MODULE ** Dialog Registry Module **QTABLES*QTablesSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterlCLICK(QTABLESD LOTUSDIALOG|%static_ltsdlg31CLOSE CANCELFLAGPmc.HkPKHwPK4PKx l8).i]4).i] [ d ,,,,*d @ lH,    4).i]4).i]`|l@p l`Q lEҤL [I G˨ {D, #[ ` GCancel_CancelR KQDB MS Sans Serifd2 QueriesList8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuslistbox) Declare Su b Keyup(Source As Lotuslistbox, Keycode As Integer, Shift As Integer) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLISTBOX Set Source = Bind(Objectname_) On Event Click From Source Call Click On Event Keyup From Source Call Keyup End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuslistbox) Dim QT1 As DataQuery Set QT1 = Bind ( QTables.QueriesList.Text) QTables.Source.Caption = QT1.BaseSourceTable QTables.Output.Caption = QT1.OutputLocation End Sub '++LotusScript Development Environment:2:2:Keyup:1:12 Sub Keyup(Source As Lotuslistbox, Keycode As Integer, Shift As Integer) Dim QT1 As DataQuery Set QT1 = Bind ( QTables.QueriesList.Text) QTables.Source.Caption = QT1.BaseSourceTable QTables.Output.Caption = QT1.OutputLocation End Sub LSOBEN0, $8@@@ HHLotus ProductV0.00INCENDOBJECTTEccccBccc8QSKU0HK(##p%Kd#!L" T*42307C8lNEWDELETE INITIALIZE TERMINATEHOBJECT`, (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE *t* Dialog Registry Module **QTABLES`*QTablesHSOURCEKEYCODESHIFT BINDEVENTS OBJECTNAME_ LOTUSLISTBOX<%static_OCX_AdapterlCLICK4KEYUPQT1 DATAQUERY MAIN123W.DLLSEDefaultClassControlQTABLES LOTUSDIALOG$%static_ltsdlg31H QUERIESLISTTEXTCAPTIONBASESOURCETABLEOUTPUTOUTPUTLOCATION4.aHksKHwsK4sK  H8).i]4).i]  d  ,,, 7d dL    ).i]).i]a<h6"@ H@ <4).i]4).i] H|0@pPPpp@@`` {Pd `xp@ H 0 g(Pd 8 L4#*p4,ҤL [I G˨Gˤ^{OUH{OQK-#{OQK- #^p{OUH{OQKp-#{OQKp- #q R KQDB MS Sans Serifd2Source8).i] o  R KQDB MS Sans Serifd2Output8).i] @ o g  R KQDB MS Sans Serifd2 SourceLabel8).i] 'Source table:_ Source table:R KQDB MS Sans Serifd2 OutputLabel8).i] 0P ; Output location:_Output location:R KQDB MS Sans Serifd2 SelectLabel8).i] h'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuslabel) QTables.Quer iesList.SetFocus End Sub LSOBEN;$,`l$8@@@DDDDlllLotus Product&V0.04).i];$ PZLD4).i]).i]alh" ).i]).i]alh6"\ pD|  8tT*4230B10lNEWDELETE INITIALIZE TERMINATEHOBJECT` (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **QTABLES*QTables\SOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL%static_OCX_AdapterCLICKQTABLES4 LOTUSDIALOG%static_ltsdlg31x QUERIESLISTSETFOCUS(dfHk_KHw_K4_Kx l 8).i]4).i] [  d ,,,, *d @ l84).i]4).i]`|`g|5?ҤL [I G˨ {DO T'H&Select the query table: &Select the query table:R KQDB MS Sans Serifd2 HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusco mmandbutton) ShowHelp H_123_SELECTING_A_DQA_QUERY_TABLE_STEPS End Sub LSOBEN 9,$T@@@DDDDLotus ProductV0.098*4230BB0lNEWDELETE INITIALIZE TERMINATEHOBJECT` (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **QTABLES*QTablesSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_Adapter,CLICKSHOWHELP'H_123_SELECTING_A_DQA_QUERY_TABLE_STEPSCHkPKHwPK4PKx  8).i]4).i] [ d ,,,,*d !6@00uL@=ҤL [I G˨ )D0u# ` &Help _&HelpR KQDB MS Sans Serifd2 DelCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) .DeleteQuery QTables.Queries List.Text BuildQueryList End Sub LSOBENL,@,\h$8T@@@DDDhllhhLotus ProductV0.0L,@INCENDOBJECTTEccccBcccQ0JKU BK  `K,  d   D*4230C50lNEWDELETE INITIALIZE TERMINATEHOBJECT` (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **QTABLES*QTablesSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON0%static_OCX_AdapterCLICK DELETEQUERYDQTABLES` LOTUSDIALOG%static_ltsdlg31 QUERIESLISTTEXTBUILDQUERYLIST DATAQUERY MAIN123W.DLLSEDefaultClassControl0]fKHknKHwnK4nKx 9 l8).i]4).i] [ d ,,,,*d @4 ldhH4).i]4).i]`|!,,@ h` ).i]).i]a\lh6"pgPPҤL [I G˨ T{DOU ')#` '&Delete _&DeleteR KQDB MS Sans Serifd2ȷȷ ȷFormula4).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions Formula.FormText.Text = ChooseFields.SelectList.Text Formula.FormText.SelLength = -1 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 Exit Sub GenError: Msgbox (Error$), 16, Pr oductID Exit Sub End SubLSOBEN!Tl, <$8T@@DDD  Lotus ProductV0.0TlINCENDOBJECTTE>c@c>c@cBc@c>c##Q@KUtK  (RK ,,p*3110040lNEWDELETE INITIALIZE TERMINATEtOBJECT`0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *L*FORMULA*FormulaSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOGd%static_ltsdlg318LOADGENERRORp LOADCAPTIONSFORMULAFORMTEXTTEXT CHOOSEFIELDS SELECTLIST SELLENGTH LEFTCURRENTAPPLICATION@ APPLICATION< MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWID THTOP SCREENHEIGHTTWIPSPERPIXELY$HEIGHT PRODUCTIDLotus 1-2-3 Release 9XN}Hk0KHw0K40Kx   LLL4).i]4).i] | d ,,,,*d !,,@@< @x   PZ$pppq).i]).i]aDh" (@a(P=hPl `tLi,nkLh,Y.@$.@ҤL [I G  :)D#)D#{OQ({O4P({OQ@K,.L{-p#~,K,-#!K,.{-#~DK,-#!}@ " Formula(Formula Globals) '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions Formula.Caption = FormulaCap Formula.Label1.Caption = FormulaLabel1 Formula.Label2.Caption = FormulaLabel2 Formula.ReplaceCom.Caption = FormulaCommand1 Formula.CancelCom.Caption = CancelID Formula.InsertCom.Caption = FormulaCommand3 Formula.DeleteCom.Caption = FormulaCommand4 Formula.HelpCom.Caption = HelpID End Sub LSOBEN $8T ,dDDdd$$,Lotus ProductV0.0   K$*3110160lNEWDELETE0 INITIALIZE TERMINATEOBJECT (GLOBALS)d (Globals)P* DIALOG REGISTRY MODULE ** Dialog Registry Module * LOADCAPTIONSFORMULA LOTUSDIALOG%static_ltsdlg31CAPTIONx FORMULACAP FormulaXLABEL1D FORMULALABEL1&Enter formula:$LABEL2 FORMULALABEL2&Show field as: REPLACECOM FORMULACOMMAND1t&ReplaceP CANCELCOM8CANCELIDCancel INSERTCOMFORMULACOMMAND3&Insert DELETECOMFORMULACOMMAND4&Delete FormulaHELPCOMHELPID&Help DW Hk1HwHk4 @T h4).i]4).i]|$\|$(DTxdP=H> <?t{?Ҥ {.}! {OQ}$ {OQ}|{OQ}{OQ}({OQ}x{OQ}{OQ}  ReplaceCom8).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.CreateComputedField Formula.FormText.Text, Formula.AliasText.Text QT.RemoveSelectField ChooseFields.SelectList.Text 'refresh the Choose fields dialog For y = (ChooseFields.SelectList.ListCount -1) To 0 Step -1 ChooseFields.SelectList.removeitem y Next y Dim Temp1 As String Temp1 = QT.SelectFi elds While Len( Temp1) > 1 ChooseFields.SelectList.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend Formula.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN#0h, $8T@@@DDD   ``Lotus ProductV0.00hINCENDOBJECTTE\ c^ c\ c^ cBc^ c\ c''Q(cKU[KL,t,6K$,D*D***"%$T$ *3110220lNEWDELETE INITIALIZE TERMINATEPOBJECT`0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *$*FORMULA*FormulaSOURCE BINDEVENTSp OBJECTNAME_LOTUSCOMMA NDBUTTON,%static_OCX_AdapterCLICK8GENERRORQT DATAQUERYL MAIN123W.DLLSEDefaultClassControlCREATECOMPUTEDFIELDFORMULA LOTUSDIALOG<%static_ltsdlg31FORMTEXTdTEXT ALIASTEXTREMOVESELECTFIELD4 CHOOSEFIELDS SELECTLISTYp LISTCOUNTH REMOVEITEMTEMP1 SELECTFIELDSADDITEMSELECTFIELDSDELIMx;CLOSE PRODUCTIDLotus 1-2-3 Release 9lyHkPKHwPK4PKx `8).i]4).i] [4 d ,,,*Td <@0 `T <D DD   ).i]).i]Tth6"@  T<<<<4).i]4).i]`|@  PLt  4`T$& `(=@PP{ h 4`T*( `0q  4n,8_|  Q  4ҤL [I G˨  :KD,D{OtU{OU#KD,{OU#^{OP^4{OT^'^6^KD- #^%8H{OT0JJ}tJ'^JJ}t'M:!{,<#"#$}%& xw &Replace_&ReplaceR KQDB MS Sans Serifd2 CancelCom8).i] z'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) Formula.Close End Sub LSOBEN88|,`l$8T@ @@DDDDlllLotus ProductV0.088|K*31102D8lNEWDELETE INITIALIZE TERMINATEOBJECT`0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module **FORMULA*FormulaSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON(%static_OCX_AdapterlCLICKFORMULAD LOTUSDIALOG%static_ltsdlg31CLOSE<O@JiHkhKHwhK4hKx l8).i]4).i] [ d ,,,, *d @ lH,    4).i]4).i]`|p l`Q l<ҤL [I G˨ {D, #  8wCancel_CancelR KQDB MS Sans Serifd2 FormText8).i] hh_ R KQDB MS Sans Serifd2 AliasText8).i] h8_ _R KQDB MS Sans Serifd2Label18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) Formula.FormText.SetFocus Formula.FormText.SelLength = -1 End SubE LSOBENI0,`l$8}|@@@DDDDlllLotus ProductV0.04).i]I0$\|$(DTxdP=H><?t{?M8CANCELIDCancel INSERTCOMFORMULACOMMAND3&Insert DELETECOMFORMULACOMMAND4&Delete FormulaHELPCOMT*31104C8lNEWDELETE INITIALIZE TERMINATEOBJECT`0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *d*FORMULA*Formula|SOURCE BINDEVENTS  OBJEC TNAME_ LOTUSLABEL %static_OCX_AdapterGOTFOCUSFORMULA< LOTUSDIALOG%static_ltsdlg31FORMTEXTSETFOCUS SELLENGTH4'0HkPKHwPK4PKx l8).i]4).i] [  d ,,,, *d @ l@$4).i]4).i]`|h=5lMҤL [I G {DO T'{DO Q$-hx'c&Enter formula:_&Enter formula:R KQDB MS Sans Serifd2Label28).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Env ironment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) Formula.AliasText.SetFocus Formula.AliasText.SelLength = -1 End SubE LSOBENI0,`l$8K@@@DDDDlllLotus ProductV0.0I0XK8*2E00568lT*3110568lNEWDELETE INITIALIZE TERMINATEOBJECT`0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Modu le **FORMULA*Formula|SOURCE BINDEVENTS  OBJECTNAME_ LOTUSLABEL %static_OCX_AdapterdGOTFOCUSFORMULA< LOTUSDIALOG%static_ltsdlg31 ALIASTEXTSETFOCUS SELLENGTH4BHk5KHw5K45Kx l8).i]4).i] [  d ,,,, *d @ l@$4).i]4).i]`|h{5lMҤL [I G {DO T'{DO Q$-hH'3&Show field as:_&Show field as:R KQDB MS Sans Serifd2 InsertCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Developme nt Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.CreateComputedField Formula.FormText.Text, Formula.AliasText.Text 'refresh the choose fields dialog For y = (ChooseFields.SelectList.ListCount -1) To 0 Step -1 ChooseFields.SelectList.removeitem y Next y Dim Temp1 As String Temp1 = QT.SelectFields While Len( Temp1) > 1 ChooseFields.SelectList.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend Formula.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN"8, $8T@@@DDD    ``Lotus ProductV0.08INCENDOBJECTTEccccBccc''Q@2KU0*K),)pK(&&t't'!\! !*3110610lNEWDELETE INITIALIZE TERMINATEPOBJECT`0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *$*FORMULA*FormulaSOURCE BINDEVENTSp OBJECTNAME_LOTUSCOMMANDBUTTON,%static_OCX_AdapterCLICK8GENERRORQT DATAQUERYL MAIN123W.DLLSEDefaultClassControlCREATECOMPUTEDFIELDdFORMULA LOTUSDIALOG<%static_ltsdlg31FORMTEXTTEXTl ALIASTEXTY  CHOOSEFIELDS SELECTLISTH LISTCOUNT  REMOVEITEMTEMP1 SELECTFIELDSxADDITEMSELECTFIELDSDELIMP;`CLOSE PRODUCTIDLotus 1-2-3 Release 9< Hk_KHw_K4_Kx `8).i]4).i] [4 d ,,,*Td <@0 `T <DDD ).i]).i]Tth6"@  T    4).i]4).i]`|@p  P$L d| 4`T$& `(=@PP{hq 4n,_T  Q  ҤL [I G˨  :KD,D{OtU{OU#^{OP^4{OT^'^6^KD-#^%8H{OTJJ}LJ'^JJ}L'M: {, #!"#}|$& Xw&Insert_&InsertR KQDB MS Sans Serifd2 DeleteCom8).i] '++LotusScript Development Environment:2:5: (Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.DeleteComputedField Formula.FormText.Text 'refresh the Choose fields dialog For y = (ChooseFields.SelectList.ListCount -1) To 0 Step -1 ChooseFields.SelectList.removeitem y Next y Dim Temp1 As String Temp1 = QT.SelectFields While Len( Temp1) > 1 ChooseFields.SelectList.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend Formula.Close Exit Sub GenError: Msgbox (Error$), 16, Produ ctID Exit Sub End SubLSOBEN! ,, $T@@@DDD   ``Lotus ProductV0.0 ,INCENDOBJECTTEccccBccc&&QhKUX KL't'gK$'D%D%%% T8*31106B8lNEWDELETE INITIALIZE TERMINATEPOBJECT`0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *$*FORMULA*FormulaSOURCE BINDEVENTSp OBJECTNAME_LOTUSCOMMANDBUTTON,%static_OCX_AdapterCLICK8GENERRORQT DATAQUERYT MAIN123W.DLLSEDefaultClassControlDELETECOMPUTEDFIELDLFORMULA LOTUSDIALOG<%static_ltsdlg31FORMTEXTtTEXTY CHOOSEFIELDS SELECTLIST0 LISTCOUNT REMOVEITEM TEMP1 SELECTFIELDS`ADDITEMSELECTFIELDSDELIM8;HCLOSE PRODUCTIDLotus 1-2-3 Release 90:rHkP>KHwP>K4P>Kx `8).i]4).i] [4 d ,,,*Td <@0 `T <DDD ).i]).i]Tth6"@  T4).i]4).i]`|@X  P 4 Ld 4`T/& `(=@PPxq 4n,_<  Q  ҤL [I G˨  :KD,D{OtU#^{OP^4{OT^'^6^KD-#^%8H{OTJJ}4J'^JJ}4'M: {,#!"#}d$%' w&Delete Formula_&Delete FormulaR KQDB M S Sans Serifd2 HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_123_FORMULA_DIALOG_BOX_CS End Sub LSOBEN 9h,$8@@@DDDDLotus ProductEV0.0l AL9hSELECTLISTH LISTCOUNT  REMOVEITEMTEMP1 SELECTFIELDSxADDITEMSELECTFIELDSDELIMP;`CLOSE PRODUCTIDLotus 1-2-3 Release 9 lT*3110758lNEWDELETE INITIALIZE TERMINATEOBJECT`0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module **FORMULA*FormulaSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICK,SHOWHELPH_123_FORMULA_DIALOG_BOX_CSJRHk(KHw(K4(Kx 8).i]4).i] [ d ,,,,*d !6@0DuQ@=ҤL [I G˨ )DDu#  wo &Help _&HelpR KQDB MS Sans Serifd24o4o 4o AliasField4).i] z'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions AliasField.Field.Caption = ChooseFields.SelectList.Text AliasField.AliasText.Text = ChooseFields.SelectList.Text AliasField.AliasText.SelLength = -1 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsper pixely - Source.Height/2 Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN#l, T8T@@DD  Lotus ProductV0.0lINCENDOBJECTTEccccBccc##QhKUX K$$gK|$""##$*3110800lNEWDELETE0 INITIALIZE TERMINATE@OBJECThL (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *ALIASFIELDl *AliasFieldSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG%static_ltsdlg318LOAD\GENERROR LOADCAPTIONS ALIASFIELD FIELD CAPTION CHOOSEFIELDS SELECTLISTTEXT ALIASTEXT SELLENGTHTLEFTCURRENTAPPLICATION t APPLICATIONp MAIN123W.DLLSEDefaultClassControlD SCREENWIDTHTWIPSPERPIXELXWIDTHTOP SCREENHEIGHTTWIPSPERPIXELYXHEIGHT PRODUCTIDLotus 1-2-3 Release 9pHk>KHw>K4>K   ddd4).i]4).i] | l ,,,,*l !,,@$@D @   PZX<q).i]).i]axh"$  \ta`pP{l `Li,nkLh,HY.@<.@ҤP [I G  :)D#)D#{OQ({O4P@{OLQ@{O4P@{OLQXK,.d{-#~DK,-#!K,.{-#~\K,-#! }t!" 7 Show Field As(AliasField Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions AliasField.Caption = AliasCap AliasField.Label1.Caption = AliasLabel1 AliasField.Label2.Caption = AliasLabel2 AliasField.OKCom.Caption = OKID AliasField.CancelCom.Caption = CancelID AliasField.HelpCom.Caption = HelpID End Subj LSOBENj08T,$$$,,Lotus ProductV0.0j0 K4$*3110920lNEWDELETE0 INITIALIZE TERMINATEPOBJECT (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * LOADCAPTIONS ALIASFIELD LOTUSDIALOG,%static_ltsdlg31@CAPTIONpALIASCAP Show Field AsTLABEL1 ALIASLABEL1Field:LABEL2  ALIASLABEL2 &Show as:OKCOMOKIDOK CANCELCOMCANCELIDCancel HELPCOMHELPID&HelpsdKHk1HwHk4 @T pDDDD4).i]4).i]|0Xt$$P=D>w?nҤ {.D}! {OhQt}0 {OQt}t{OQt}{OQt}{OQt}$ CancelCom8).i] '++LotusScri pt Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) AliasField.Close End Sub LSOBEN88,`l8T@@@DDDDlllLotus ProductV0.088K0AKhKQCKQ Q$*31109E8lNEWDELETE0 INITIALIZE TERMINATEOBJECThL (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *ALIASFIELD *AliasFieldSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON8%static_OCX_Adapter|CLICK ALIASFIELDT LOTUSDIALOG%static_ltsdlg31CLOSE<vHkxKHwxK4xK l8).i]4).i] [ l ,,,,*l @  lX<    4).i]4).i]`| l`Q l<ҤP [I G˨ {D, #  XwCancel_CancelR KQDB MS Sans Serifd2 AliasText8).i] h8_ _ R KQDB MS Sans Serifd2Label18).i] hx'cField:_Field:R KQDB MS Sans Serifd2Label28).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) AliasField.AliasText.SetFocus AliasField.AliasText.SelLength = -1 End SubU LSOBENI0,`l$8TK@@@DD DDlllLotus ProductV0.0I0xK*2E00BD8lNEWDELETE0 INITIALIZE TERMINATEOBJECThL (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * *ALIASFIELD *AliasFieldSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL0*3110BD8lNEWDELETE0 INITIALIZE TERMINATEOBJECThL (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * *ALIASFIELD *AliasFieldSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL0%static_OCX_AdapterGOTFOCUSt ALIASFIELDL LOTUSDIALOG%static_ltsdlg31 ALIASTEXTSETFOCUS SELLENGTH4Mȡ(HknKHwnK4nK l8).i]4).i] [  l ,,,,  *l @ lP44).i]4).i]`|x{5lMҤP [I G {DO T'{DO Q$hH'3 &Show as:_ &Show as:R KQDB MS Sans Serifd2OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.FieldAlias AliasField.Field.Caption, AliasField.AliasText.Tex t AliasField.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBEN|, 8T}t@@@DD   ``Lotus ProductV0.04).i]|0Xt$$P=D>w? CANCELCOMCANCELIDCancel HELPCOMHELPID&HelpK$*3110C78lNEWDELETE0 INITIALIZE TERMINATEXOBJECThL (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *ALIASFIELD4 *AliasFieldSOURCE BINDEVENTSx OBJECTNAME_LOTUSCOMMANDBUTTON4%static_OCX_AdapterCLICK@GENERRORQT$ DATAQUERY MAIN123W.DLLSEDefaultClassControlp FIELDALIASH ALIASFIELD LOTUSDIALOG`%static_ltsdlg31FIELDCAP TION ALIASTEXTTEXTCLOSE PRODUCTIDLotus 1-2-3 Release 9UHkPKHwPK4PK `8).i]4).i] [ l ,,,,*l <@8 `\ D ).i]).i]T|h6"@  TPPPP4).i]4).i]`|  j 4`TL& `(8L{dPt  Q  ҤP [I G˨  :4KD,{O U,{O8UD#{,P#} xwOK_OKR KQDB MS Sans Serifd2Field8).i] hh_ R KQDB MS Sans Serifd2 HelpCom 8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_QSFA_STEPS End Subu LSOBEN 9T,$T@@@DDDDLotus ProductV0.09T8).i]4).i] [ l ,,,,*l !@ 8Eu@Q@K 4X8*3110DB8lNEWDELETE0 INITIALIZE TERMINATEOBJECThL (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *ALIASFIELD *AliasFieldSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON4%static_OCX_AdapterCLICKSHOWHELP H_QSFA_STEPS6b(2Hkh4KHwh4K4h4K 8).i]4).i] [ l ,,,,*l !6@ 8Eu@Q@=ҤP [I G˨ )DEu#  8w&Help_&HelpR KQDB MS Sans Serifd2ٙٙ ٙ Aggregate4).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError Dim y As Integer 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 Set QT = Bind (Selection.Name) For y = (Aggregate.AggList.ListCount -1) To 0 Step -1 Aggregate.AggList .removeitem y Next y 'Same code is in a few places Dim Temp1 As String Temp1 = QT.SelectFields While Len( Temp1) > 1 Aggregate.AggList.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend Aggregate.SumOption.Value = 1 Aggregate.AggList.SelectItem 0 Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN,vP,8T@d@TxxxTTTLotus ProductV0.0vPINCENDOBJECTTEN cP cN cP cBcP cN c44Q@KUtKd77(RK<7\5\555*,t,$,'T$*3110E60lNEWDELETE0 INITIALIZE TERMINATEHOBJECThl (GLOBALS)L ( Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *( *AGGREGATE| *AggregateSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG@%static_ltsdlg31 LOADXGENERRORY LOADCAPTIONSLEFT0CURRENTAPPLICATION APPLICATION MAIN123W.DLL SEDefaultClassControl SCREENWIDTHPTWIPSPERPIXELXWIDTHLTOP SCREENHEIGHT`TWIPSPERPIXELYHEIGHTQT DATAQUERY SELECTION4NAME AGGREGATEAGGLIST LISTCOUNT REMOVEITEMTEMP1 SELECTFIELDSADDITEMSELECTFIELDSDELIM;  SUMOPTIONVALUE SELECTITEM PRODUCTIDLotus 1-2-3 Release 9UHkKHwK4K LLpp4).i]4).i]| l d,,,<<*L<l $!,,@,\ PZ(((q).i]).i]a h"p<@T  ).i]).i]h6"xPZ0@ TH  ^ $aLL `Li,p4nDkPLh,YX f@ q8d4n,_te.@p.@zҤP [I G  :()T#)T#K,.{-(#~xK,-L#!K,.p{-#~K,-#![{TUʼb{xOP^ 4 {xOTb'!^ 6&^K-#'^%8H({xOT@JJ}J')^JJ}'M*:,{xOLQX-{xOTd'/01}$23  Aggregate(Aggregate Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Envi ronment:2:2:LoadCaptions:1:8 Sub LoadCaptions Aggregate.Caption = AggCap Aggregate.Label1.Caption = AggLabel1 Aggregate.Label2.Caption = AggLabel2 Aggregate.OKCom.Caption = OKID Aggregate.CancelCom.Caption = CancelID Aggregate.ResetCom.Caption = AggCommand3 Aggregate.SumOption.Caption = AggOption1 Aggregate.AvgOption.Caption = AggOption2 Aggregate.CountOption.Caption = AggOption3 Aggregate.MinOption.Caption = AggOption4 Aggregate.MaxOption.Caption = AggOption5 Aggregate.HelpCom.Caption = HelpID End Subr LSOBEN$8T$ ,Dd,,Lotus ProductV0.0 *3110F80lNEWDELETE0 INITIALIZE TERMINATEOBJECT (GLOBALS)h (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *P LOADCAPTIONST AGGREGATE LOTUSDIALOG%static_ltsdlg31@CAPTIONAGGCAP AggregateLABEL1l AGGLABEL1Selected &fields:LABEL2 AGGLABEL2 Sho&w as:OKCOMOKIDOK CANCELCOM CANCELIDpCancelRESETCOM( AGGCOMMAND3<&ResetT SUMOPTION AGGOPTION1&Suml AVGOPTION AGGOPTION2D&Avg( COUNTOPTION AGGOPTION3&Count MINOPTIONT AGGOPTION4&Min MAXOPTION AGGOPTION5Ma&xHELPCOMHELPID&Help]UHk1HwHk4 0@T l4).i]4).i]|XpD$$Dd,dXt,Hp P=D>wp5@tettuX4t?Ҥ {.}! {O(Q4} {O@Q4}p{OLQ4}{OXQ4}{OdQ4},{OpQ4}t{O|Q4}{OQ4}{OQ4}H{OQ4}{OQ4} OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If Aggregate.AggList.SelCount = 1 Then If Aggregate.SumOption.Value = 1 Then QT.FieldAggregateType Aggregate.AggList.Text, $SUM End If If Aggregate.AvgOption.Value = 1 Then QT.FieldAggregateType Aggregate.Agg List.Text, $AVG End If If Aggregate.CountOption.Value = 1 Then QT.FieldAggregateType Aggregate.AggList.Text, $COUNT End If If Aggregate.MinOption.Value = 1 Then QT.FieldAggregateType Aggregate.AggList.Text, $MIN End If If Aggregate.MaxOption.Value = 1 Then QT.FieldAggregateType Aggregate.AggList.Text, $MAX End If If Len(Aggregate.AliasText.Text) > 0 Then QT.FieldAlias Aggregate.AggList.Text, Aggregate.AliasText.Text End If End If Aggregate.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN%l, T$T@@@DDD ll  Lotus ProductV0.0lINCENDOBJECTTE c c c cBc c c,,"Q@KUtK::(RK:88D9D943$12<22 8*3111038lNEWDELETE0 INITIALIZE TERMINATEOBJECTh (GLOBALS)L (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *AGGREGATE| *AggregateSOURCE BINDEVENTS( OBJECTNAME_LOTUSCOMMANDBUTTONL%static_OCX_Adapter4CLICKGENERROR AGGREGATEh LOTUSDIALOG%static_ltsdlg31AGGLISTSELCOUNT SUMOPTIONVALUEXQT DATAQUERY MAIN123W.DLLSEDefaultClassControlFIELDAGGREGATETYPETEXT AVGOPTION COUNTOPTION MINOPTION MAXOPTIONT ALIASTEXT, FIELDALIAS<CLOSE PRODUCTIDLotus 1-2-3 Release 9pqxlHkPKHwPK4PK l8).i]4).i] [ l ,,,,*l 0@8 ll P4).i]4).i]`|<@   `     ).i]).i]l,h6"  @Xf6tteP\ 4 K&  \Pttu4t{ 4 L&  0 l`Q l $<ҤP [I G˨  :M{DOP8+{DOP8K, {DOUP~#{DO\P8K, {DOUP~#{DOhP8K, {DOUP~,#{DOtP8K, {DOUP~D#{DOP8 K, {DOUP~\#!"{DOUP%8&#K,{DOUP{DOUP#$%&{D,#'()}X*+ WgOK _OKR KQDB MS Sans Serifd2 CancelCom8).i] ~'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static S ource As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) Aggregate.Close End Sub LSOBEN88,`l$8@@@DDDDlllLotus ProductV0.088KqxlT*31110E0lNEWDELETE0 INITIALIZE TERMINATEOBJECTh (GLOBALS)L (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *AGGREGATE| *AggregateSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON4%static_OCX_AdapterCLICKx AGGREG ATEP LOTUSDIALOG%static_ltsdlg31CLOSE<4OHkPKHwPK4PK l8).i]4).i] [ l ,,,,*l 0@  lT8    4).i]4).i]`|| l`Q l<ҤP [I G˨ {D, #  WGCancel _CancelR KQDB MS Sans Serifd2AggList8).i] h  R KQDB MS Sans Serifd2Label18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2 :5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) Aggregate.AggList.SetFocus End Sub LSOBEN;$,`l$8TK@@@DDDDlllLotus ProductV0.0;$8K8*3111220lNEWDELETE0 INITIALIZE TERMINATEOBJECTh (GLOBALS)L (Globals)* DIALOG REGISTRY MODULE ** D ialog Registry Module * *AGGREGATE| *AggregateSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL,%static_OCX_AdapterpGOTFOCUS AGGREGATEH LOTUSDIALOG%static_ltsdlg31AGGLISTSETFOCUS(DmHkXhKHwXhK4XhK l8).i]4).i] [  l ,,,, *l 0@ lL04).i]4).i]`|tf5?ҤP [I G {DO T'1h'Selected &fields:_Selected &fields:R KQDB MS Sans Serifd2 ResetCom8).i] `'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Developmen t Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.ResetFieldAggregates Aggregate.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubZ LSOBENfH, $8T@@@DDD   ``Lotus ProductV0.0fHINCENDOBJECTTEccccBcccQ@KUtK|(RKTtt*311 12C8lNEWDELETE0 INITIALIZE TERMINATEXOBJECTh (GLOBALS)L (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *AGGREGATE| *AggregateSOURCE BINDEVENTSx OBJECTNAME_LOTUSCOMMANDBUTTON4%static_OCX_AdapterCLICK@GENERRORQT DATAQUERY\ MAIN123W.DLLSEDefaultClassControlRESETFIELDAGGREGATES4 AGGREGATE  LOTUSDIALOG%static_ltsdlg31DCLOSE PRODUCTIDLotus 1-2-3 Release 9L}Hk`KHw`K4`K `8).i]4).i] [ l ,,,,*l <@8 `\ D ).i]).i]T|h6"0@  T4).i]4).i]`|  NH` 4`T7( `8  Q  jҤP [I G˨  :KD,#{,#}`  W&Reset _&ResetR KQDB MS Sans Serifd2 SumOption8).i] ` h? &Sum&SumR KQDB MS Sans Serifd2 AvgOption8).i] ` H? &Avg&AvgR KQDB MS Sans Serifd2 CountOption8).i] ` (? &Count&CountR KQDB MS Sans Serifd2 MinOption8).i] ` ? &Min&MinR KQDB MS Sans Serifd2 MaxOption8).i] ` ? _ Ma&x Ma&xR KQDB MS Sans Serifd2Label28).i]  h '  Sho&w as:_ Sho&w as:R KQDB MS Sans Serifd2 AliasText8).i] h   R KQDB MS Sans Serifd2HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_QA_STEPS End Subq LSOBEN 9P,$8@@@DDD DLotus Product]V0.04).i]9P,,,,*l <@8 `\ D ).i]).i]T|h6"0@  T4).i]4).i]`|  NH` 4`TTT*31117F8lNEWDELETE0 INITIALIZE TERMINATE4OBJECTh (GLOBALS)L (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *  *AGGREGATE| *AggregateSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP H_QA_STEPS݇`|Hk`KHw`K4`K 8).i]4).i] [ l ,,,,*l !6@  85u@M@=ҤP [I G˨ )D5u#  W&Help _&HelpR KQDB MS Sans Serifd2   QName4).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 Set QT = Bind (Selection.Name) Forall x In CurrentDocument.dataquerynames QName.QnameList.AddItem x End Forall Qname.Qnam eList.SelectItemString QT.Name, 0 QName.QnameText.Text = QT.Name QName.QnameText.SelLength = -1 Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN-"L\,D4$8T@HTHtt@DhhDDDDDDLotus ProductV0.0"L\INCENDOBJECTTE^ c` c^ c` cBc` c^ c++Q8.KU(&K**hKl*(())l\`*3111898lNEWDELETE INITIALIZE TERMINATE0OBJECTXT (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *D*QNAME*QNameSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG(%static_ltsdlg31lLOAD@GENERROR LOADCAPTIONSLEFTCURRENTAPPLICATION APPLICATION MAIN123W. DLLSEDefaultClassControlx SCREENWIDTHTWIPSPERPIXELXWIDTH4TOP SCREENHEIGHTTWIPSPERPIXELYHEIGHTQT DATAQUERY, SELECTION@NAME|XCURRENTDOCUMENTDOCUMENTPDATAQUERYNAMESQNAMEh QNAMELISTADDITEMSELECTITEMSTRING QNAMETEXTTEXT SELLENGTH PRODUCTID@Lotus 1-2-3 Release 9STRINGS BASEOBJECTPb͝HkCKHwCK4CKp x,xx,,4).i]4).i]h| \ T,\,\*@8888\\\ !,,@D PZpq).i]).i]ah"tHHX<@D  ).i]).i]h6"hPZ PZllll).i]).i]ah"H@D   a4 `Li,n,,k8Lh,|Y  4G,D0]).i]).i]ah@"Thl_D).i]h" ,hPl.@.@&ҤH [I G  :)D#)D#K,.x{-#~$K,-#!K,.{-#~<K,-,#![{DUPʬ{h-l#5\{O T,Z\ ' 7\"{O T8K-#'#{OQK-#${OQ&'(})* o Query Name(QName Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions QName.Caption = QNameCap QNam e.Label1.Caption = QNameLabel1 QName.Label2.Caption = QNameLabel2 QName.OKCom.Caption = OKID QName.CancelCom.Caption = CancelID QName.HelpCom.Caption = HelpID End Sub LSOBENjH$8T,$$,,Lotus ProductV0.0jHKL*31119B8lNEWDELETE0 INITIALIZE TERMINATEOBJECT (GLOBALS)P (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * LOADCAPTIONS`QNAME| LOTUSDIALOGl%static_ltsdlg31<CAPTIONQNAMECAP Query Name$LABEL1 QNAMELABEL1 &Query name:PLABEL2 QNAMELABEL2&Existing query tables :OKCOMOKIDOK CANCELCOMCANCELIDCancel8HELPCOMHELPID&HelpelHk1HwHk4 H@T dDDDD4).i]4).i]|$ Tp$(<P=@>w?nҤ {.D}! {OhQt}  {OQt}p{OQt}{OQt}{OQt}<OKCom8).i] b'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2 :Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.Name = QName.QnameText.Text QName.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBENs,$8T@@@DDD  ``Lotus ProductV0.0sINCENDOBJECTTEccccBcccQ`KUPK 4HbK||*3111A68lNEWDELETE INITIALIZE TERMINATEHOBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *D*QNAME*QName SOURCE BINDEVENTSh OBJECTNAME_LOTUSCOMMANDBUTTON$%static_OCX_AdapterCLICK0GENERRORQT DATAQUERYL MAIN123W.DLLSEDe faultClassControlNAMEQNAME LOTUSDIALOG%static_ltsdlg31$ QNAMETEXTTEXT4CLOSE PRODUCTID|Lotus 1-2-3 Release 9 BASEOBJECTѝHkx:KHwx:K4x:Kp `8).i]4).i] [ \ ,,,,*\ <@( `L 4 ).i]).i]Tlh6"H@  T4).i]4).i]`| [8P).i]T lh" ,hP(  Q  wҤH [I G˨  :%KD.{OU!{,#}P gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] v'++LotusScript Develo pment Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) QName.Close End Sub LSOBEN88p,`l$T}p@@@DDDDlllLotus ProductV0.04).i]88p$ Tp$(<P=@>w?OKIDOK CANCELCOMCANCELIDCancel8HELPCOMHELPID&Help Kt8*3111B30lNEWDELETE INITIALIZE TERMINATEOBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *D*QNAME*QNameSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON %static_OCX_Adapter`CLICKQNAME8 LOTUSDIALOG%static_ltsdlg31CLOSE<[E;Hk`KHw`K4`Kp l8).i]4).i] [ \ ,,,,*\ H@ l<     4).i]4).i]`|d l`Q l<ҤH [I G˨ {D, #  GCancel_CancelR KQDB MS Sans Serifd2Label18).i] '++LotusScript Development Environment:2:5:(Options ):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) QName.QNameText.SetFocus ' QName.QNameText.SelLength = -1 End Sub LSOBEN;$,`l$8TK@@@DDDDlllLotus ProductV0.0;$ K*2860A28lNEWDELETEX INITIALI*3111BD0lNEWDELETEX INITIALIZE TERMINATEOBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *D*QNAME*QNamepSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL%static_OCX_AdapterGOTFOCUSQNAME0 LOTUSDIALOG%static_ltsdlg31 QNAMETEXTSETFOCUS(4Hk`5KHw`5K4`5Kp l8).i]4).i] [  \ ,,,, *\ H@ l44).i]4).i]`|\ht5?ҤH [I G {DO T'$xx7w &Query name:_ &Query name:R KQDB MS Sans Serifd2 QNameText8).i] xh )R KQDB MS Sans Serifd2 QnameList8).i] ~'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Keyup(Source As Lotuslistbox, Keycode As Integer, Shift As Integer) Declare Sub Click(Source As Lotuslistbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLISTBOX Set Source = Bind(Objectname_) On Event Keyup From Source Call Keyup On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Keyup:1:12 Sub Keyup(Source As Lotuslistbox, Keycode As Integer, Shift As Integer) QName.QNameText.Text = QName.QNameList.Text Set QT = Bind (QName.QNameText.Text) End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuslistbox) QName.Q NameText.Text = QName.QNameList.Text Set QT = Bind (QName.QNameText.Text) End Sub LSOBEN<,4@$8T}p@@@d$dd$$@@@Lotus ProductV0.04).i]<$ Tp$(<P=@>w?OKIDOK CANCELCOMCANCELIDCancel8HELPCOMHELPID&HelpK@*3111D20lNEWDELETE INITIALIZE TERMINATEOBJECTX (GLOBALS) (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *D*QNAMEl*QNameSOURCEKEYCODE$SHIFT BINDEVENTS OBJECTNAME_  LOTUSLISTBOX4%static_OCX_AdapterKEYUPCLICKDQNAME` LOTUSDIALOG%static_ltsdlg31 QNAMETEXTTEXT QNAMELISTQT DATAQUERY MAIN123W.DLLSEDefaultClassControl  Hk_KHw_K4_K 8).i]4).i]  \ ,L<<,,LL 7<\ LpH@$8 d@H4).i]4).i]|<@ @ ).i]).i]4h6"(hhhh i\ x(hPhҤH [I GˤG˨{dOQ{dOP[${dOU@{dOQ{dOP[${dOU@x8 )* R KQDB MS Sans Serifd2Label28).i] ~'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScrip t Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) QName.QNameList.SetFocus End Sub LSOBEN;$,`l$8T}p@@@DDDDlllLotus ProductV0.04).i];$$ Tp$(<P=@>w?OKIDOK CANCELCOMCANCELIDCancel8HELPCOMHELPID&HelpK*3111DD0lNEWDELETE INITIALIZE TERMINATEOBJECTX (GLOBALS)l (Globals)* DIALOG  REGISTRY MODULE *0* Dialog Registry Module *D*QNAME*QNamepSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL%static_OCX_AdapterXGOTFOCUSQNAME0 LOTUSDIALOG%static_ltsdlg31 QNAMELISTSETFOCUS(]LiHkPKHwPK4PKp l8).i]4).i] [  \ ,,,, *\ H@ l44).i]4).i]`|\ht5?ҤH [I G {DO T'ExH3&Existing query tables: &Existing query tables:R KQDB MS Sans Serifd2HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) ' ++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_QN_STEPS End Suba LSOBEN 9@,$8T@@@DDDDLotus ProductV0.09@ [ \ ,,,,*\ !@(6uM@KD*3111E70lNEWDELETE INITIALIZE TERMINATEOBJECTX$ (GLOBALS)l (Global s)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *D*QNAME*QNameSOURCE BINDEVENTS  OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP H_QN_STEPS`Hk4KHw4K44Kp 8).i]4).i] [ \ ,,,,*\ !6@(6uM@=ҤH [I G˨ )D6u#  '&Help_&HelpR KQDB MS Sans Serifd2 YY Y SQL4).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 Set QT = Bind (Selection.Name) SQL.Text1.Caption = QT.SQL Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub ALSOBEN#8,8T@Ttt@DhhhDDDLotus ProductV0.08INCENDOBJECTTEccccBccc%%Q(cKU[K|4KTtt\<$*3111F08lNEWDELETE INITIALIZE TERMINATEOBJECT@< (GLOBALS)T (Globals)p* DIALOG REGISTRY MODULE *0* Dialog Registry Module **SQLSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG%static_ltsdlg31TLOAD(GENERROR LOADCAPTIONSpLEFTCURRENTAPPLICATION APPLICATION MAIN123W.DLLSEDefaultClassControl` SCREENWIDTHTWIPSPERPIXELXWIDTHTOPt SCREENHEIGHTTWIPSPERPIXELYHEIGHTQT DATAQUERY SELECTIONNAMESQLTEXT1CAPTION  PRODUCTIDLotus 1-2-3 Release 9}VHkPKHwPK4PKX txxx  004).i]4).i]| D T,,,,*D !,,@, PZtXTTTq).i]).i]ah"t@<@Dx  ).i]).i]h6"hPZ`@   a  `TLi,0nxk Lh,dY4,.@.@Ҥ4 [I G  :)D#)D#K,.{-#~K,- #!K,.0{-T#~K,-x#![{DUʬ{hOQK-# !} "$ wo Show SQL (SQL Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions SQL.Caption = SQLCap SQL.Label1.Caption = SQLLabel1 SQL.CopyCom.Caption = SQLCommand1 SQL.CancelCom.Caption = CancelID SQL.HelpCom.Caption = HelpID End Sub LSOBENZ$8T,,,Lotus ProductV0.0Z KF$*3112028lNEWDELETE0 INITIALIZE TERMINATEOBJECT (GLOBALS)\ (Globals)P* DIALOG REGISTRY MODULE * * Dialog Registry Module * LOADCAPTIONSSQLx LOTUSDIALOG%static_ltsdlg31xCAPTIONSQLCAPShow SQLLABEL1 SQLLABEL1HStructured Query Language:\COPYCOM SQLCOMMAND1&Copy CANCELCOMCANCELIDCancelHELPCOMHELPID&Help,Hk1HwHk4 `@T |`$$$$4).i]4).i]|`|P=L7x?^Ҥ {.$}! {OHQT} {O`QT}|{OlQT}{OxQT}CopyCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declaration s):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) QT.CopySQLToClipboard SQL.Close End Subn LSOBENB, $8@@@DDD   ``Lotus ProductV0.0BKcLҤ {.$}! {OHQT} {O`QT}|{OlQT}{OxQT} `@T |`$$$$4).i]4).i]|`|T*31120D8lNEWDELETE INITIALIZE TERMINATEOBJECT@ (GLOBALS)T (Globals)p* DIALOG REGISTRY MODULE *0* Dialog  Registry Module **SQLSOURCE BINDEVENTS8 OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKQT DATAQUERYh MAIN123W.DLLSEDefaultClassControlCOPYSQLTOCLIPBOARDSQL LOTUSDIALOG%static_ltsdlg31CLOSEXfHkiKHwiK4iKX t`8).i]4).i] [ D ,,,,*D <@ `  ).i]).i]T<h6"`@  T4).i]4).i]`|l 4`T"& `  Q  FҤ4 [I G˨ KD,#{,# g&Copy_&CopyR KQDB MS Sans Serifd2 CancelCom8).i] r'++LotusScript Development Environment:2:5:( Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) SQL.Close End Sub LSOBEN88T,`l$8T}|@@@DDDDlllLotus ProductV0.04).i]88T`|P=L7x?y CANCELCOMCANCELIDCancelHELPCOMHELPID&Help KF$X*3112180lNEWDELETE INITIALIZE TERMINATEOBJECT@ (GLOBALS)T (Globals)p* DIALOG REGISTRY MODULE *0* Dialog Registry Module **SQLSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterDCLICKSQL LOTUSDIALOG%static_ltsdlg31CLOSE<.HkPKHwPK4PKX tl8).i]4).i] [ D ,,,,*D `@ l     4).i]4).i]`|H l`Q l<Ҥ4 [I G˨ {D, # GCancel_CancelR KQDB MS Sans Serifd2Label18).i] N_ Structured Query Language: Structured Query Language:R KQDB MS Sans Serifd2Text18).i] / )R KQDB MS Sans Serifd2HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_QSS_STEPS End SubI LSOBEN 9(,$8@@@DDDDLotus Product V0.09( D ,,,,*D !@8uN@K,T*3112360lNEWDELETE INITIALIZE TERMINATE OBJECT@ (GLOBALS)T (Globals)p* DIALOG REGISTRY MODULE *0* Dialog Registry Module **SQLSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP H_QSS_STEPSuHk3KHw3K43KX t8).i]4).i] [ D ,,,,*D !6@8uN@=Ҥ4 [I G˨ )D8u#  '&Help_&HelpR KQDB MS Sans Serifd2   BaseSource4).i] 6'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 Set QT = Bind (Selection.Name) BaseSource.BaseText.Text = QT.BaseSourceTable BaseSource.BaseText.SelLength = -1 Exit Sub G enError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN$ ,$8T@Ttt@DhhhDDDLotus ProductV0.0 INCENDOBJECTTEzc|czc|cBc|czc%%Q(cKU[K$"L"4K!    \*3112408lNEWDELETE  INITIALIZE TERMINATE@OBJECThd (GLOBALS)| (Globals)0* DIALOG REGISTRY MODULE *L* Dialog Registry Module * *BASESOURCE *BaseSourceSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG8%static_ltsdlg31|LOADPGENERROR LOADCAPTIONSLEFT(CURRENTAPPLICATION APPLICATION MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTHDTOP SCREENHEIGHTTWIPSPER PIXELYhHEIGHTQT DATAQUERY, SELECTIONNAME BASESOURCEBASETEXTPTEXTBASESOURCETABLE SELLENGTH PRODUCTIDLotus 1-2-3 Release 9$O2HkPKHwPK4PK xxx  004).i]4).i]| l T,,,,*l !,,@$T PZTTTq).i]).i]ah"th<@D  ).i]).i]h6"hPZx@   la D `TLi,0,nx<kHLh,Y < P04#*Tl.@.@ҤP [I G  :)D#)D#K,.{-#~K,- #!K,.0{-T#~K,-x#![{D Uʬ{hOQK-#{hOQ !}"$ 7Set Database Table(BaseSource Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions BaseSource.Caption = BaseCap BaseSource.Label1.Caption = BaseLabel1 BaseSource.OKCom.Caption = OKID BaseSource.CancelCom.Caption = CancelID BaseSource.HelpCom.Caption = HelpID End Sub LSOBENZ$8T,,,Lotus ProductV0.0Z KF$*3112528lNEWDELETE0 INITIALIZE TERMINATElOBJECT (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE *P* Dialog Registry Module *| LOADCAPTIONS BASESOURCE LOTUSDIALOG4%static_ltsdlg31CAPTIONBASECAPSet Database TableLABEL1\ BASELABEL1&Database table:OKCOMOKIDOK CANCELCOMCANCELIDCancelHELPCOMHELPID&HelpHk1HwHk4 x@T p$$$$4).i]4).i]|8pP=`wx?^Ҥ {.$}! {OHQT}8 {O`QT}{OlQT}{OxQT}OKCom8).i] '++LotusScript Development Environment:2:5:( Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.BaseSourceTable = BaseSource.BaseText.Text BaseSource.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBENsX, $T@@@DDD   ``Lotus ProductV0.0sXINCENDOBJECTTEccccBccc QP:KU@2K 4K||8*31125E8lNEWDELETE  INITIALIZE TERMINATEXOBJECTh, (GLOBALS)| (Globals)0* DIALOG REGISTRY MODULE *L* Dialog Registry Module * *BASESOURCE *BaseSourceSOURCE BINDEVENTSx OBJECTNAME_LOTUSCOMMANDBUTTON4%static_OCX_AdapterTCLICK@GENERRORQT DATAQUERY| MAIN123W.DLLSEDefaultClassControlBASESOURCETABLE BASESOURCE LOTUSDIALOGD%static_ltsdlg31BASETEXTTEXTdCLOSE PRODUCTIDLotus 1-2-3 Release 9\~HkxjKHwxjK4xjK `8).i]4).i] [ l ,,,,*l <@8 `\ D ).i]).i]T|h6"x@   T,,,,4).i]4).i]`|  [h4#*0 <HPX  Q  wҤP [I G˨  :%KD.{OU !{,,#}P gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) BaseSource.Close End Sub LSOBEN88,`l8T@ @@DDDDlllLotus ProductV0.088K*27D0A18lNEWDELETE  INITIALI$*31126A0lNEWDELETE  INITIALIZE TERMINATEOBJECTh (GLOBALS)| (Globals)0* DIALOG REGISTRY MODULE *L* Dialog Registry Module * *BASESOURCE *BaseSourceSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON8%static_OCX_Adapter|CLICK BASESOURCET LOTUSDIALOG%static_ltsdlg31CLOSE<&1Hkx=KHwx=K4x=K l8).i]4).i] [ l ,, ,,*l x@  lX<    4).i]4).i]`| l`Q l<ҤP [I G˨ {D, # P GCancel_CancelR KQDB MS Sans Serifd2Label18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) BaseSource.BaseText.SetFocus End Sub# LSOBEN;$,`l$8T}@@ @DDDDlllLotus ProductV0.04).i];$8pP=`wx? CANCELCOMCANCELIDCancelHELPCOMHELPID&HelpKF$*3112740lNEWDELETE INITIALIZE TERMINATEOBJECTht (GLOBALS)| (Globals)0* DIALOG REGISTRY MODULE *L* Dialog Registry Module * *BASESOURCE *BaseSourceSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL0%static_OCX_AdapterGOTFOCUS BASESOURCEL LOTUSDIALOG%static_ltsdlg31BASETEXTSETFOCUS(@AHk_KHw_K4_K l8).i]4).i] [  l ,, ,, *l x@ lP44).i]4).i]`|x <5?ҤP [I G {DO T'0xx7c&Database table:_&Database table:R KQDB MS Sans Serifd2 BaseText8).i] xh FR KQDB MS Sans Serifd2Image18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusimage) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSIMAGE Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript De velopment Environment:2:2:Click:1:12 Sub Click(Source As Lotusimage) On Error Goto GenError Dim Range1 As range Dim GetRange As RangeSelector Dim PreHeight As Long 'get height of dialog to reset after range pointer PreHeight = BaseSource.Height 'Shrink dialog BaseSource.Height = 100 Set GetRange = CurrentApplication.RangeSelector BaseSource.BaseText.Text = GetRange.getrangeString(currentdocument) 'reset dialog BaseSource.Height = PreHeight BaseSource.SetFocus Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End SubLSOBEN ,0$8T@@@``0HH|00Lotus ProductV0.0INCENDOBJECTTEccccBccc##Q(cKU[K4Kt   *3112888lNEWDELETE INITIALIZE TERMINATEHOBJECTh (GLOBALS)| (Globals)0* DIALOG REGISTRY MODULE *L* Dialog Registry Module * *BASESOURCE *BaseSource SOURCE BINDEVENTS$ OBJECTNAME_ LOTUSIMAGE%static_OCX_AdapterHCLICK\GENERROR8RANGE1hRANGE MAIN123W.DLLSEDefaultClassControlGETRANGE\ RANGESELECTOR PREHEIGHT BASESOURCE  LOTUSDIALOG%static_ltsdlg31HEIGHT,CURRENTAPPLICATION APPLICATIONBASETEXTTEXTDGETRANGESTRINGCURRENTDOCUMENTDOCUMENTSETFOCUS PRODUCTIDLotus 1-2-3 Release 9 wHkPKHwPK4PK H8).i]4).i] [  l ,,,xx *l L< ).i]).i]a<lh9"x( H`` ``s).i]).i]a<Hlh<" x@` <$||4).i]4).i]|` |PZ0$$$$q).i]).i]a<lh" 0PZ).i]).i]a<|lh" H`LY K, <P<c&  00 h ҤP [I G˨  :^b{-#{.d!^x{`-$#{OHQTKx,`z#{.X!{,# }`!"hImage1aImage1R KQDB MS Sans Serifd2 c:\range2.bmpR KQltBM6(@@@@@@@ʦ`a+e[[[&] [c _?[#y [._.FJ.'?'.?'P;G ;<y.PA}?A g  Set Options(Options Globals)~'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions Options.Caption = OptionsCap Options.UpdateCheck.Caption = OptionsCheck1 Options.UniqueCheck.Caption = OptionsCheck2 Options.AutoCheck.Caption = OptionsCheck3 Options.SamplesCheck.Caption = OptionsCheck5 Options.LimitCheck.Caption = OptionsCheck4 Options.OKCom.Caption = OKID Options.CancelCom.Caption = CancelID Options.UpdateCom.Caption = OptionsCommand3 Options.HelpCom.Caption = HelpID End SubF LSOBEN`$8T9 ,$$DDd, Lotus ProductV0.0` *3112AE8lNEWDELETE0 INITIALIZE TERMINATEOBJECT (GLOBALS)P (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D LOADCAPTIONSdOPTIONS LOTUSDIALOG%static_ltsdlg31xCAPTION OPTIONSCAP0 Set Options$ UPDATECHECK OPTIONSCHECK1 &Allow updates to database table UNIQUECHECKd OPTIONSCHECK2&Show unique records only AUTOCHECK$ OPTIONSCHECK3 Auto-&refreshD SAMPLESCHECK OPTIONSCHECK5Show sample &values in filter LIMITCHECK OPTIONSCHECK44&Limit recordsPOKCOMhOKIDOK CANCELCOMCANCELIDCancel UPDATECOMOPTIONSCOMMAND3&Update HELPCO MHELPID&HelpdmHk1HwHk4 @T h4).i]4).i]|d4($hDd8HlP |ȳ0pHl(wTTb?Ҥ {.}! {OQ}4 {OQ}{O Q}({OQ}{O$Q}{O0Q}H{O<Q}{OHQ}{OTQ} OKCom8).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Cli ck End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If Options.UpdateCheck.Value Then QT.AllowsUpdates = True End If If Options.UpdateCheck.Value = 0 Then QT.AllowsUpdates = False End If If Options.UniqueCheck.Value = 1 Then QT.ExtractingUniqueRecords = True End If If Options.UniqueCheck.Value = 0 Then QT.ExtractingUniqueRecords = False End If If Options.AutoCheck.Value = 1 Then QT.AutoRefresh = True End If If Options.AutoCheck.Value = 0 Then QT.AutoRefresh = False End If If Options.LimitCheck.Value = 0 Then QT.RecordsLimited = False End If If Options.LimitCheck.Value = 1 Then QT.RecordsLimited = True QT.RecordsLimitMax = Clng( Options.LimitText.Text) End If If Options.SamplesCheck.Value = 1 Then QT.ReturnsSampleCriteria = True End If If Options.SamplesCheck.Value = 0 Then QT.ReturnsSampleCriteria = False End If Options.Close Exit Sub GenError: Msgbox (Error$), 16, Pro ductID If Error$ = AllowUpdateID Then Options.Close Exit Sub End SubLSOBEN#t, $8T@@@DDD ll  Lotus ProductV0.0tINCENDOBJECTTEJ cL cJ cL cBcL cJ cBB?Q8.KU(&KLEtEhK$EDCC@1L1*3112BA0lNEWDELETE INITIALIZE TERMINATEOBJECT`D (GLOBALS)0 (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *t*OPTIONS*OptionsSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON,%static_OCX_Adapter`CLICKGENERROR@OPTIONS\ LOTUSDIALOG%static_ltsdlg31 UPDATECHECKVALUEDQT$ DATAQUERY MAIN123W.DLLSEDefaultClassControl ALLOWSUPDATES UNIQUECHECK EXTRACTINGUNIQUERECORDS AUTOCHECK AUTOREFRESH LIMITCHECKTRECORDSLIMITED,RECORDSLIMITMAX LIMITTEXTtTEXT SAMPLESCHECKRETURNSSAMPLECRITERIACLOSE PRODUCTIDLotus 1-2-3 Release 9 ALLOWUPDATEIDPAllow updates is turned on. Update the database table or turn off Allow updates.xkeHkBKHwBK4BKx l8).i]4).i] [ d ,,,,*d @0 l` DHHHH4).i]4).i]`|<@  `($X$(( ).i]).i]lh6"  | X(4 *Hȳ$d4*p4*4N,$ 4O,0tHPXlx 4  l`Q lҤL [I G˨  :V{DOP8 K.(!{DOP8 K.(!{DOLP8 K.X!{DOLP8 K.X! "{DO|P8 #K.!$&{DO|P8 'K.!(*{DOP8 +K.!,.{DOP8/K.!0K.{DOP !13{DOP8 4K.$!57{DOP8 8K.$!9;{D,H#<=>}?} 8{D,H#@AGgOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] z'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) Options.Close End Sub LSOBEN88|,`l$8T@@@DDDD lllLotus ProductV0.088|K*28B0F78lNEWDELETE INITIALIZE TE*3112C48lNEWDELETE INITIALIZE TERMINATEOBJECT` (GLOBALS)0 (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *t*OPTIONS*OptionsSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterlCLICK(OPTIONSD LOTUSDIALOG%static_ltsdlg31CLOSE<cҷHk85KHw85K485Kx l8).i]4).i] [ d ,,,,* d @ lH,    4).i]4).i]`|p l`Q l<ҤL [I G˨ {D, # GGCancel_CancelR KQDB MS Sans Serifd2 UpdateCheck8).i] &'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscheckbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCHECKBOX Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscheckbox) If Options.UpdateCheck.Value = 1 Then Options.UniqueCheck.Enabled = False Options.LimitCheck.Enabled = False End If If Options.U pdateCheck.Value = 0 Then Options.UniqueCheck.Enabled = True Options.LimitCheck.Enabled = True End If End Sub LSOBENH,`l$8T}@@@DDDDllLotus ProductV0.04).i]Hd4($hDd8HlP |ȳ0pHl(wTTb? OPTIONSCHECK5Show sample &values in filter LIMITCHECK OPTIONSCHECK*3112CF0lNEWDELETE INITIALIZE TERMINATE`OBJECT` (GLOBALS)0 (Globals)H* DIALOG REGISTRY MODULE *|* Dialog Registry Module *t*OPTIONS*OptionsSOURCE BINDEVENTS OBJECTNAME_ LOTUSCHECKBOX%static_OCX_AdapterCLICKOPTIONS8 LOTUSDIALOG%static_ltsdlg31 UPDATECHECKVALUE UNIQUECHECKENABLED LIMITCHECKL Hk_KHw_K 4_Kx ll8).i]4).i] d ,,,, *d @  l< 4).i]4).i]`|dȳ~ҤL [I G˨ {DO P8{DO$Q0{DO<Q0{DO P8{DO$Q0{DO<Q0Xh I!&Allow updates to database tablea &Allow updates to database tableR KQDB MS Sans Serifd2 UniqueCheck8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscheckbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Stat ic Source As LOTUSCHECKBOX Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscheckbox) If Options.UniqueCheck.Value = 1 Then Options.UpdateCheck.Enabled = False End If If Options.UniqueCheck.Value = 0 Then Options.UpdateCheck.Enabled = True End If End Sub LSOBENr<,`l$8T@@@DDDDllLotus ProductV0.0r<*3112D98lNEWDELETE INITIALIZE TERMINATEOBJECT`` (GLOBALS)0 (Globals)H* DIALOG REGISTRY MODULE *|* Dialog  Registry Module *t*OPTIONS*OptionsSOURCE BINDEVENTS OBJECTNAME_ LOTUSCHECKBOX%static_OCX_AdapterCLICKOPTIONS8 LOTUSDIALOG%static_ltsdlg31 UNIQUECHECKVALUE UPDATECHECKENABLED@0^SHkPKHwPK4PKx ll8).i]4).i] d ,,,, *d @  l< 4).i]4).i]`|dȳ~vҤL [I G˨ {DO P8{DO$Q0{DO P8{DO$Q0ChX/ &Show unique records onlya&Show unique records onlyR KQDB MS Sans Serifd2 AutoCheck8).i] h/ Auto-&refresha Auto-&refreshR KQDB MS Sans Serifd2  UpdateCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.Update Options.UpdateCheck.Value = 0 Options.UniqueCheck.Enabled = True Options.UpdateCom.Enabled = False Options.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBEN, $8T@@@DDD   ``Lotus ProductV0.0 INCENDOBJECTTELcNcLcNcBcNcLcQCKU;K$Kll*3112EE8lNEWDELETE INITIALIZE TERMINATEPOBJECT` (GLOBALS)0 (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *t*OPTIONS*OptionsSOURCE BINDEVENTSp OBJECTNAME_(LOTUSCOMMANDBUTTON,%static_OCX_AdapterCLICK8GENERRORQT DATAQUERY  MAIN123W.DLLTSEDefaultClassControl8UPDATEOPTIONS LOTUSDIALOG%static_ltsdlg31 UPDATECHECKhVALUE UNIQUECHECKENABLED UPDATECOMCLOSE PRODUCTIDLotus 1-2-3 Release 9DfHk`oKHw`oK4`oKx `8).i]4).i] [ d  ,,,, *d <@0 `T < ).i]).i]Tth6"@  TXXXX4).i]4).i]`| x 4`Tw( `,<ȳX~lb  Q  ҤL [I G˨  :BKD,#{OQ({O4Q@{OLQ@{,X#}G'&Update _&UpdateR KQDB MS Sans Serifd2 Spinner18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Spindown(Source As Lotusspinbutton) Declare Sub Spinup(Source As Lotusspinbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSS PINBUTTON Set Source = Bind(Objectname_) On Event Spindown From Source Call Spindown On Event Spinup From Source Call Spinup End Sub '++LotusScript Development Environment:2:2:Spindown:1:12 Sub Spindown(Source As Lotusspinbutton) If Clng( Options.LimitText.Text) > 1 Then Options.LimitText.Text = Cstr( Clng( Options.LimitText.Text) - 1) End If End Sub '++LotusScript Development Environment:2:2:Spinup:1:12 Sub Spinup(Source As Lotusspinbutton) If Clng( Options.LimitText.Text) < 65535 Then Options.LimitText.Text = Cstr( Clng( Options.LimitText.Text) + 1) End If End Sub[ LSOBEN,`l$8T@@@DDDDlllLotus ProductV0.0Q Q`oKQIzK`QzK*3112F90lNEWDELETE INITIALIZE TERMINATEOBJECT` (GLOBALS)0 (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *t*OPTIONS*OptionsSOURCE BINDEVENTS OBJECTNAME_LOTUSSPINBUTTON(%static_OCX_AdapterSPINDOWNSPINUP<OPTIONSX LOTUSDIALOG%static_ltsdlg31 LIMITTEXTTEXT;HkhHKHwhHK4hHKx l8).i]4).i] d ,,,, 7d @, l\@4).i]4).i]`| jd tP@ҤL [I GG{DOP8{DOQ{DOP{DOP~8{DOQ{DOP    Spinner1 Spinner1d2 LimitText8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) Options.LimitText.SELLENGTH = -1 End Sub LSOBEN<$,`l$8T@@@DDDDlllLotus ProductV0.0<$INCENDOBJECTTE ccccBcccQ@KUtK|  (RK T < *3113038lNEWDELETE INITIALIZE TERMINATEOBJECT` (GLOBALS)0 (Globals)H* DIALOG REGISTRY MODULE *h* Dialog Registry Module *t*OPTIONS*OptionsSOURCE BINDEVENTS OBJECTNAME_ LOTUSTEXTBOX%static_OCX_AdapterGOTFOCUS$OPTIONS@ LOTUSDIALOG%static_ltsdlg31 LIMITTEXT SELLENGTH(6r\HkKHwK4Kx l8).i]4).i] [ d ,,,, *d @ lD(4).i]4).i]`|ltl@ҤL [I G {DO Q$  65535=6553565535R KQDB MS Sans Serifd2 LimitCheck8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscheckbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCHECKBOX Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscheckbox) Options.LimitText.SetFocus Options.LimitText.SelLength = -1 End SubA LSOBENI0,`l$8T8@@@DDDDllLotus ProductV0.0I0 K 1 QSort.SortCombo.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend 'Preset sort flag to false PreSetSort = 0 Forall x In QT.SortedFields If Right$(x, 1) = AscSortLetter Then Qsort.SortList.Additem Left$(x, Len(x) - 2) + SortAscID Else Qsort.SortList.Additem Left$(x, Len(x) - 2) + SortDescID End If 'if we get in loop then Sort does exist PreSetSort = 1 End Forall 'if there's an existing sort then set list and buttons to correct settings If PreSetSort = 1 Then QSort.SortList.SelectItem (QSort.SortList.ListCount - 1) QSort.SortCombo.SelectItemString Left$(QSort.SortList.Text, Instr(1, QSort.SortList.Text, " ") - 1), 0 If Instr(1, QSort.SortList.Text, SortAscID) > 0 Then QSort.AscOption.Value = 1 Else QSort.DescOption.Value = 1 End If QSort.SortList.Selected(-1) = False Else QSort.SortCombo.SelectItem (0) QSort.AscOption.Value = 1 End If Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN9$, 8T @8T8tt@DhDDDLotus ProductV0.0$QPQIQ@ ENQ$8T,x99 @$*31132D0lNEWDELETE INITIALIZE TERMINATE0OBJECTXT (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT0*QSortSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG(%static_ltsdlg31lLOAD@GENERROR LOADCAPTIONS LEFTCURRENTAPPLICATION APPLICATION MAIN123W.DLLSEDefaultClassControlx SCREENWIDTHTWIPSPERPIXELXWIDTH4TOP SCREENHEIGHTTWIPSPERPIXELYDHEIGHTQT DATAQUERY8 SELECTIONNAME OPENFIELDS SELECTFIELDSxY,QSORT\ SORTCOMBO LISTCOUNT REMOVEITEMTEMP1ADDITEMhSELECTFIELDSDELIMx;0 PRESETSORTX SORTEDFIELDS ASCSORTLETTERPASORTLIST( SORTASCID ASC SORTDESCID\ DESC SELECTITEMSELECTITEMSTRINGTEXT ASCOPTIONVALUED DESCOPTIONtSELECTED PRODUCTIDLotus 1-2-3 Release 9STRINGS(7 HklKHwlK4lKp hhh4).i]4).i]X| \ T,LL,*((((\ !,<@hD PZpq).i]).i]ah"t X<@D \\\ ).i]).i]h6"hPZ@  L|`,,@4Tl88| `xa4 `Li,n,k8Lh,|Y4n, 07mHq`0_h 4,]).i]).i]ah@"<6Pw,H6.@.@ҤH [I G  :w)D#)D#K,.h{-#~K,-#!K,.{-#~K,-#![{DU@ʬ^LK-\# ^{hOP^4!{hOT^'"^6&^K-\#'^%8H({hOTJJ}J')^JJ}'M*:-[/K-#5t0FP}48*1{hOTFZ %J}l'2:'3{hOTFZ %J}'46[77:G8;{hOT{hOP'<{hOT{hOU {hOU}J'={hOU}l8>{hOQ?:@{hOQAB{hO(C:D{hOT'E{hOQFHIJ}xKM ?Sort (QSort Globals)L'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim PreSetSort As Integer '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions QSort.Caption = SortCap QSort.Label1.Caption = SortLabel1 QSort.Label2.Caption = SortLabel2 QSort.AscOption.Caption = SortOption1 QSort.DescOption.Caption = SortOption2 QSort.OKCom.Caption = OKID QSort.CancelCom.Caption = CancelID QSort.AddKeyCom.Caption = SortCommand3 QSort.ResetCom.Caption = SortCommand4 QSort.HelpCom.Caption = HelpID End Sub LSOBENpt$8T- ,4Tt,,<<Lotus ProductV0.0+ pt Yx*3113440lNEWDELETEL INITIALIZE TERMINATE0OBJECTT (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE *(* Dialog Registry Module * PRESETSORT LOADCAPTIONS|QSORT LOTUSDIALOGp%static_ltsdlg31 CAPTIONSORTCAPSortLABEL1@ SORTLABEL1 &Sort by:LABEL2 SORTLABEL2( A&ll keys: ASCOPTION0 SORTOPTION1 &Ascending@ DESCOPTIONP SORTOPTION2< &Descending\OKCOMtOKIDOK CANCELCOMCANCELIDCancel ADDKEYCOM SORTCOMMAND3Add &KeyRESETCOMP SORTCOMMAND4R&esetdHELPCOMHELPID&HelptHk1HwHk<4P @p 4).i]4).i] |,Xt44TDTttx ,ThP=D>w4wd`X'|5@?Ҥ {.}! {OQ}, {OQ}t{OQ}{O(Q}{O4Q}T{O@Q}{OLQ}{OXQ},{OdQ}h OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Dim SortFlag1 As Integer 'if previously defined sort then we must reset befo re doing the new sort If PreSetSort = 1 Then QT.SortReset End If If QSort.SortList.ListCount > 0 Then For y = 1 To QSort.SortList.ListCount Step 1 If Instr(1, QSort.SortList.list(y-1), SortDescID) Then QT.QuerySortDefineKey Left$(QSort.SortList.List(y-1),Instr(1,QSort.SortList.List(y-1)," ") -1), y , $Descend Else QT.QuerySortDefineKey Left$(QSort.SortList.List(y-1),Instr(1,QSort.SortList.List(y-1)," ") -1), y, $Ascend End If Next 'check to see that the current field name isn't the same as any existing sort key. if so skip SortFlag = 0 For x = 1 To QSort.SortList.ListCount Step 1 If QSort.SortCombo.Text = Left$(QSort.SortList.list(x-1), Instr(1, QSort.SortList.list(x-1), " ") - 1) Then SortFlag = 1 End If Next If SortFlag = 0 Then If QSort.AscOption.Value = 1 Then QT.QuerySortDefineKey QSort.SortCombo.Text, QSort.SortList.ListCount + 1, $Ascend Else QT.QuerySortDefineKey QSort.SortCombo.Text, QSort.SortList.ListCount + 1, $Descend  End If End If 'single sort key situation Else If QSort.AscOption.Value = 1 Then QT.QuerySortDefineKey QSort.SortCombo.Text, 1, $Ascend Else QT.QuerySortDefineKey QSort.SortCombo.Text, 1, $Descend End If End If QT.SortData QSort.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID QT.SortReset Exit Sub End SubLSOBEN,,,8D$8T@@@TTThhDDDLotus ProductV0.0,INCENDOBJECTTEccccBcccDD4Q@GKU0?Ka bpKa`_^^WWlWVUTVLJIt6867d7'&'$'*31134F0lNEWDELETE INITIALIZE TERMINATE0OBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QS ORT<*QSort SOURCE BINDEVENTS$ OBJECTNAME_LOTUSCOMMANDBUTTONX%static_OCX_AdapterCLICKdGENERROR SORTFLAG1| PRESETSORTQT8 DATAQUERY MAIN123W.DLLhSEDefaultClassControlP SORTRESETQSORT LOTUSDIALOG%static_ltsdlg31SORTLIST LISTCOUNTpYLIST SORTDESCIDh DESCPQUERYSORTDEFINEKEY (SORTFLAG@X SORTCOMBOTEXT ASCOPTIONVALUESORTDATAxCLOSE PRODUCTIDLotus 1-2-3 Release 90imHkrKHwrK4rKp 8).i]4).i] [$ \ ,<<,xx*<\ x(,,@h@<@\ Dh488844 ).i]).i]xh6"@ Dxpppp4).i]4).i]8| | 4xc( <6T qlt8 4x( (Xh7m,Px,wDT 4xb(  l D8Q DҤH [I G˨  :qGT8 Kh,4#{O`Pl8^x{O`Pl^4{O`SJx&}8MKh,{O`SJx& {O`SJx&}JJx~#:JKh,{O`SJx& {O`SJx&}JJx~# ^6=#^$^{O`Pl^4Z%{OP{O`SJ& {O`SJ&}J8&^'(^6*J8h+{O P,8-,Kh,{OU{O`Pl~#-:*.Kh,{OU{O`Pl~#/03:U4{O P,8"5Kh,{OU~#6:7Kh,{OU~#89;Kh,8#<{,p#>?@}AKh,4#BC gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] v'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEve nts:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) QSort.Close End Sub LSOBEN88p,`l$8T@@@DDDDlllLotus ProductV0.088pt*3113598lNEWDELETE INITIALIZE TERMINATE0OBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT*QSortSOURCE BINDEVENTS OBJECTNAME_ LOTUSCOMMANDBUTTON %static_OCX_Adapter`CLICKQSORT8 LOTUSDIALOG%static_ltsdlg31CLOSE<ܭ_HkOKHwOK4OKp l8).i]4).i] [ \ ,,,,*\ @ l<     4).i]4).i]`|d l`Q l<ҤH [I G˨ {D, #  GCancel_CancelR KQDB MS Sans Serifd2 AddKeyCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub Bin dEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If QSort.AscOption.Value = 1 Then Qsort.SortList.Additem QSort.SortCombo.Text + SortAscID Else Qsort.SortList.Additem QSort.SortCombo.Text + SortDescID End If QSort.SortList.Selected(-1) = False Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubH LSOBEN,`l$8T@LL@@DDDDlllLotus Product V0.0ODUCTI113640 *3113640lNEWDELETE INITIALIZE TERMINATE0OBJECTXx (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT*QSort SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON$%static_OCX_AdapterCLICKGENERROR4QSORTP LOTUSDIALOG%static_ltsdlg31 ASCOPTIONVALUESORTLISTADDITEM SORTCOMBO TEXTH SORTASCID ASC8 SORTDESCID` DESCxSELECTED PRODUCTIDLotus 1-2-3 Release 99zQHkxxKHwxxK4xxKp l8).i]4).i] [l \ ,,,,*<<<<\ @( lT84).i]4).i]`|LL < d||w6_7mPL6ҤH [I G˨  :b{DO|P8 {DOT{DOP}':{DOT{DOP}<'{DO(}|  Add &Key _Add &KeyR KQDB MS Sans Serifd2 ResetCom8).i] >'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError QT.SortReset QSort.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub* LSOBENfH\, $8@@@DDD    ``Lotus ProductV0.0fH\INCENDOBJECTTEccccBcccQ@KUtK|(RKTtt`T*31136E8lNEWDELETE INITIALIZE TERMINATE0OBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORTH*QSort SOURCE BINDEVENTSh OBJECTNAME_LOTUSCOMMANDBUTTON$%static_OCX_AdapterCLICK0GENERRORQT DATAQUERY, MAIN123W.DLLSEDefaultClassControl SORTRESETQSORT LOTUSDIALOG%static_ltsdlg31CLOSE PRODUCTIDLotus 1-2-3 Release 9L}HkKHwK4Kp `8).i]4).i]  [ \ ,,,,*\ <@( `L 4 ).i]).i]Tlh6"@  T4).i]4).i]`| N0 4`Tc( `  Q  jҤH [I G˨  :KD,#{,#}0  o R&eset _R&esetR KQDB MS Sans Serifd2 SortCombo8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Pick(Source As Lotuscombobox, Index As Integer) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMBOBOX Set Source = Bind(Objectname_) On Event Pi ck From Source Call Pick End Sub '++LotusScript Development Environment:2:2:Pick:1:12 Sub Pick(Source As Lotuscombobox, Index As Integer) If QSort.SortList.SelCount > 0 Then If QSort.AscOption.Value = 1 Then Qsort.SortList.Replaceitem QSort.SortList.ListIndex, QSort.SortCombo.Text + SortAscID Else Qsort.SortList.Replaceitem QSort.SortList.ListIndex, QSort.SortCombo.Text + SortDescID End If End If End Sub LSOBENl,p|$8T}t@,,  @@TTTT|||Lotus ProductV0.0l|,Xt44TDTttx ,ThP=D>w4wd`X'|5@?MCANCELIDCancel ADDKEYCOM SORTCOMMAND3Add &KeyRESEp*3113790lNEWDELETE@ INITIALIZE TERMINATE0OBJECTXl (GLOBALS) | (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT*QSortdSOURCEINDEX BINDEVENTS OBJECTNAME_ LOTUSCOMBOBOX%static_OCX_AdapterPICK QSORT< LOTUSDIALOG%static_ltsdlg31|SORTLISTSELCOUNT ASCOPTIONVALUE REPLACEITEM LISTINDEX SORTCOMBO0TEXT SORTASCID ASC\ SORTDESCID DESC]Hk`KHw`K4`K |8).i]4).i] [L \  ,,<<<,,*<\ p@ |@$4).i]4).i]p|,4D`h66wq7m PҤH [I G {TOdPp8h{TO|P8-{TOdT{TOdU{TOP}4':*{TOdT{TOdU{TOP}`'h_ ,R K QDB MS Sans Serifd2 AscOption8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) If QSort.SortList.ListCount = 0 Then Exit Sub End If If QSort.SortList.SelCount > 0 And QSort.SortList.ListCount >0 Then Qsort.SortList.Replaceitem QSort.SortList.ListIndex, QSort.SortCombo.Text + SortAscID End If End SubU LSOBEN(,`l$8T@@@DDDDlllLotus ProductV0.0 (KcLҤ {.}! {OQ}, {OQ}t{OQ}{O(Q}{O4Q}T{O@Q}{OLQ}{OXQ},{OdQ}h,*3113838lNEWDELETE INITIALIZE TERMINATE0OBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT*QSort\SOURCE BINDEVENTS OBJECTNAME_LOTUSOPTIONBUTTON%static_OCX_AdaptertCLICKQSORT4 LOTUSDIALOG%static_ltsdlg31SORTLIST LISTCOUNTSELCOUNT REPLACEITEM LISTINDEX SORTCOMBOTEXT SORTASCID ASCzpHk7KHw7K47Kp l8).i]4).i]  \ ,,,,* \ @  l84).i]4).i]`|`6DxqP6q7mPҤH [I G˨ {DO,P88{DO,PD{DO,P88'{DO,TP{DO,U\{DOhPt}'H &Ascending_ &AscendingR KQDB MS Sans Serifd2 DescOption8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) 'comment line If QSort.SortList.ListCount =  0 Then Exit Sub End If If QSort.SortList.SelCount > 0 Then Qsort.SortList.Replaceitem QSort.SortList.ListIndex, QSort.SortCombo.Text + SortDescID End If End SubM LSOBEN,,`l$8T@@@DDDDlllLotus ProductV0.0,INCENDOBJECTTE<a>a<a>aBa>a<a@'Ux 7 |Dt0*2D502F0lNEWDELETE INITIALIZE TERMINATE0OBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT*QSort\SOURCE BINDEVENTS OBJECTNAME_LOTUSOPTIONBUTTON%static_OCX_AdaptertCLICKQSORT4 LOTUSDIALOG%static_ltsdlg31SORTLIST LISTCOUNTSELCO UNT REPLACEITEM LISTINDEX SORTCOMBOTEXT SORTDESCID DESCl`j0uD&0u4op l8).i]4).i] [  \ ,,,,*\ @  l84).i]4).i]`| `6DxqP6q7mPҤH [I G˨ {DO,P88{DO,PD8'{DO,TP{DO,U\{DOhPt} '' &Descending_ &DescendingR KQDB MS Sans Serifd2 Label18).i] ~'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Envir onment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) QSort.SortCombo.SetFocus End Sub LSOBEN;$,`l$8T}t@@@DDDDlllLotus ProductV0.0;$|,Xt44TDTttx ,ThP=D>w4wd`X'|5@?MCANCELIDCancel ADDKEYCOM SORTCOMMAND3Add &KeyRESE*3113980lNEWDELETE INITIALIZE TERMINATE0OBJECTX (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT*QSortpSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL%static_OCX_AdapterGOTFOCUSQSORT0 LOTUSDIALOGX%static_ltsdlg31 SORTCOMBOSETFOCUS(2hHkPKHwPK4PKp l8).i]4).i] [  \ ,,,, *\ @ l44).i]4).i]`|\7mt5?ҤH [I G {DO T'x7c &Sort by: &Sort by:R KQDB MS Sans Serifd2 SortList8).i] j'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Pick(Source As Lotuslistbox, Index As Integer) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development En vironment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLISTBOX Set Source = Bind(Objectname_) On Event Pick From Source Call Pick End Sub '++LotusScript Development Environment:2:2:Pick:1:12 Sub Pick(Source As Lotuslistbox, Index As Integer) If QSort.SortList.ListCount > 0 Then QSort.SortCombo.SelectItemString Left$(QSort.SortList.Text,Instr(1,QSort.SortList.Text," ") -1), 0 'Set Radio button depending on ASC or DESC If Instr(1, QSort.SortList.Text, SortDescID) Then QSort.DescOption.Value = 1 QSort.AscOption.Value = 0 Else QSort.DescOption.Value = 0 QSort.AscOption.Value = 1 End If End If End Sub LSOBEN\,p|$8@  @@TTTT|||Lotus ProductV0.0\ `T*3113A28lNEWDELETE| INITIALIZE TERMINATE0OBJECTXl (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT*QSortdSOURCEDINDEX BINDEVENTS OBJECTNAME_ LOTUSLISTBOX%static_OCX_AdapterPICK QSORT< LOTUSDIALOG%static_ltsdlg31SORTLIST LISTCOUNT SORTCOMBOSELECTITEMSTRINGTEXT4  SORTDESCID DESC DESCOPTIONVALUE ASCOPTIONǩ|Hk8KHw8K48K |8).i]4).i],  \   ,<<<,,*<\ p@ |@$4).i]4).i]p|  h6q7mP8HwҤH [I G {TODPP8{TO\Th{TODUt {TODUt}J'{TODUt} 8"{TOQ{TOQ:{TOQ{TOQ?   R KQDB MS Sans Serifd2 Label28).i] q A&ll keys:_ A&ll keys:R KQDB MS Sans Serifd2 HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Clic k(Source As Lotuscommandbutton) ShowHelp H_QS_STEPS End Suba LSOBEN 9@,$T}t@@@DDDDLotus ProductV0.09@|,Xt44TDTttx ,ThP=D>w4wd`X'|5@?MCANCELIDCancel ADDKEYCOM SORTCOMMAND3Add &KeyRESED8*3113B68lNEWDELETE INITIALIZE TERMINATE0OBJECTX$ (GLOBALS)l (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *D*QSORT*QSortSOURCE BINDEVENTS  OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP H_QS_STEPSV@Hk _KHw _K4 _Kp  8).i]4).i] [ \ ,,,,*\ !6@(4uM@=ҤH [I G˨ )D4u#  O &Help _&HelpR KQDB MS Sans Serifd2  NewQuery4).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError Dim QueryRange As Range 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 If Typename (Selection) = "DATAQUERY" Then NewQuery.SourceText.Text = Selection.OutputLocation Set QueryRange = Bind (Selection.OutputLocation) NewQuery.SourceText.SETFOCUS NewQuery.SourceText.SelLength = -1 QueryRange.Select Else NewQuery.SourceText.Text = Selection.Name NewQuery.OutputText.Text = Selection.Name If Instr(1, Selection.name, "..") = 0 Then NewQuery.SourceText.SetFocus NewQuery.SourceText.SelLength = -1 Else NewQuery.OutputText.SetFocus NewQuery.OutputText.SelLength = -1 End If End If For x = 1 To 1000 Step 1 Set QT = Bind (QueryID + Cstr(x)) Next x Exit Sub GenError: NewQuery.NameText.Text = QueryID + Cstr(x) QueryCounter = x Exit Sub End SubeLSOBEN-,H,<$8T@$$$@\HH<`\HHdLotus ProductV0.0,HINCENDOBJECTTE c c c cBc c c::'QX>KUH6KD$EK DAA<d<<<L*3113C10lNEWDELETE INITIALIZE TERMINATEDOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG\%static_ltsdlg314LOADGENERROR QUERYRANGEdRANGE MAIN123W.DLLSEDefaultClassControl  LOADCAPTIONSLEFTLCURRENTAPPLICATION( APPLICATION SCREENWIDTHTWIPSPERPIXELXWIDTHhTOP SCREENHEIGHTTWIPSPERPIXELYHEIGHT SELECTIONX DATAQUERYNEWQUERY$ SOURCETEXT4TEXTpOUTPUTLOCATIONSETFOCUS SELLENGTHSELECTNAME OUTPUTTEXT..XQTQUERYID(Query NAMETEXT QUERYCOUNTER0uL9 HkiKHwiK4iKx Hdx,xx,,4).i]4).i]h| d , ,*XDDDDd Hd8 ).i]).i]a<hh9" H!,L@H< dPZq).i]).i]a<Hhh",$``PZ@ <@\\  ).i]).i]<dhh6" ,<@,a `Li,Pn,`klLh,Y `(P8\5tl OH<J( H(9.@.@ҤL [I G  :p)#)#K,.x{H-#~K,-#!K,.{H-#~K,-,#!|<:}8S{`OPQ\{<Ph ^{<UhH!{`OPTt'"{`OPQ#K,#$:%{`OPQ\{<P&{`OQ\{<P'{<U}8!({`OPTt'){`OPQ*:+{`OTt',{`OQ-.0^^41[}Jʔ2^6456{`OQ\}J7[\J89 wNew Query Assistant (NewQuery Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim LimitRecs As Integer Dim QueryCounter As Integer '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions NewQuery.HelpCom.Caption = HelpID NewQuery.Caption = QACap NewQuery.Label1.Caption = QALabel1 NewQuery.Label2.Caption = QALabel2 NewQuery.Label3.Caption = QALabel3 NewQuery.Label4.Caption = QALabel4 NewQuery.Label5.Caption = QALabel5 NewQuery.OKCom.Caption = OKID NewQuery.CancelCom.Caption = CancelID NewQuery.FieldsCom.Caption = QACommand3 NewQuery.CritCom.Caption = QACommand4 End SubJLSOBEN$8T-,$$Ddd,<Lotus ProductV0.0K V@ _K _K4p 8).i]4).i] [ \ ,,,,*\ !6@*3113D30lNEWDELETEh INITIALIZE TERMINATEtOBJECTH (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module *  LIMITRECS QUERYCOUNTER LOADCAPTIONSNEWQUERY LOTUSDIALOG%static_ltsdlg31 HELPCOMCAPTION0HELPID@&HelplQACAPNew Query AssistantLABEL1`QALABEL1#1. &Select database table to query:LABEL24QALABEL2%2. &Enter a name for the query table:LABEL3QALABEL3H(4. Select &location for new query table:LABEL4QALABEL4Limit &records:`LABEL5QALABEL5(3. Select fields and records:OKCOMOKIDlOK CANCELCOMCANCELIDCancel FIELDSCOMD QACOMMAND3Choose &Fields...CRITCOM QACOMMAN D4Set &Criteria...pm9Hk1HwHk<4LLLl @ 4).i]4).i]|D$4D$DxdLd,H?Pp=>d?|889wG}poҤ {OQ}$ {.}D!{O@Q}{OLQ}{OXQ}{OdQ}{OpQ}d{O|Q}{OQ}{OQ}H{OQ}OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind (Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Dim SourceRange As Range Set SourceRange = Bind( NewQuery.SourceText.Text) If SourceRange.IsSelectable = False Then limitrecs = 1 NewQuery.LimitText.Text = "15" End If If Typename (Selection) <> "DATAQUERY" Then Source1 = NewQuery.SourceText.Text QName1 = NewQuery.NameText.Text CurrentDocument.NewQuery Qname1, Source1 Set QT = Bind DataQuery( QName1) QT.ReturnsSampleCriteria = True FieldList = QT.SelectFields End If If LimitRecs = 1 Then QT.RecordsLimited = True QT.RecordsLimitMax = Cint( NewQuery.LimitText.Text) End If QT.OutputLocation = NewQuery.OutputText.Text QT.Refresh QT.SelectFields = FieldList QT.Select NewQuery.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Dim y As dataquery Forall x In CurrentDocument.dataquerynames Set y = Bind(x) If y.outputlocation = "" Then  .DeleteQuery x End If End Forall Exit Sub End SubLSOBEN14, P$8@```@@DDDPHHPPLotus Product V0.04x4 DY4n, 07mHq`0_h 4,]).i]).i]ah@"<6Pw,H6.@8T*3113DE8lNEWDELETE INITIALIZE TERMINATEXOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTSH OBJECTNAME_LOTUSCOMMANDBUTTON,%static_OCX_AdapterCLICK0GENERROR SOURCERANGExRANGE MAIN123W.DLLPSEDefaultClassControlhNEWQUERY LOTUSDIALOG%static_ltsdlg31  SOURCETEXT8TEXT ISSELECTABLE LIMITRECS LIMITTEXT t15 SELECTION  DATAQUERYSOURCE1QNAME1NAMETEXT CURRENTDOCUMENTDOCUMENTDQTRETURNSSAMPLECRITERIA FIELDLISTH SELECTFIELDSRECORDSLIMITEDRECORDSLIMITMAXOUTPUTLOCATION4 OUTPUTTEXT\REFRESHSELECTlCLOSE PRODUCTIDLotus 1-2-3 Release 9YXDATAQUERYNAMES DELETEQUERY BASEOBJECTSTRINGSEQHk_KHw_K4_Kx H8).i]4).i] [ d `,xx,*pPPPPd \L ).i]).i]a<|h9"0 H@ <4).i]4).i] H|,,@TPZ PZ$,,,).i]).i]a<|h"<@D<   DDh ).i]).i]<|h6" @x Ypx 8`$PPHHHH).i]<|h"4*lt(9, 4<&  H 4  4n,D4N,h4O,4,8 4<( L O<J( `  Q @ 4G,P$]).i]).i]a<|h@"pҤL [I G˨  :#^{OUHK-H#8[{OlQ}|:}8Z^x{OP^{OP{,JJx#1[JʬK.! [DK-#!"G8 #K. !$K.D{OlP!%'K.h{OU!)K,#*K.GD!+K,#,{,#-./}1{-,#592^Fʬ3K-h#}84TZ '56778 gOK _OKR KQDB MS Sans Serifd2 CancelCom8).i] ('++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '+ +LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError NewQuery.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBEN\h,`l$8@   @@DDDDlllLotus ProductV0.0\hINCENDOBJECTTElcnclcncBcnclcQ8.KU(&KhK  4 4 T*3113E90 lNEWDELETE INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_,LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICKGENERRORNEWQUERY` LOTUSDIALOG%static_ltsdlg31CLOSE PRODUCTIDLotus 1-2-3 Release 9lAHk&Hw&4&x l8).i]4).i] [, d  ,,,,*d @0 ldH<<<<4).i]4).i]`| D l`Q l`ҤL [I G˨  :{D,<#}  GCancel _CancelR KQDB MS Sans Serifd2 SourceText8).i] '++Lot usScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) NewQuery.SourceText.SELLENGTH = -1 End Sub LSOBEN<$,`l$8TK@@@DDDDlllLotus ProductSV0.0 OBJE<$tic_OCX_AdapterGOTFOCUSNEWQUERYD LOTUSDIALOGl%static_ltsdlg31 SOURCETEXT SELLENGTH*3113F38 *3113F38lNEWDELETE INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSTEXTBOX(%static_OCX_AdapterGOTFOCUSNEWQUERYD LOTUSDIALOGl%static_ltsdlg31 SOURCETEXT SELLENGTH(LSHk5KHw5K45Kx l8).i]4).i] [ d ,,,, *d @ lH,4).i]4).i]`|p`l@ҤL [I G {DO Qhh_ FR KQDB MS Sans Serifd2 OutputText8).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) NewQuery.OutPutText.SelLength = -1 End Sub LSOBEN<$,`l$8T}@@@DDDDlllLotus ProductV0.0<$|D$4D$DxdLd,H?Pp= >d?|889wG}poation for new query table:LABEL4*4230CF0lNEWDELETEl INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSTEXTBOX(%static_OCX_AdapterGOTFOCUSNEWQUERYD LOTUSDIALOG%static_ltsdlg31 OUTPUTTEXT SELLENGTH(/Hk _KHw _K4 _Kx l8).i]4).i] [ d ,,,, *d @ lH,4).i]4).i]`|pl@ҤL [I G {DO QhP _ FR KQDB MS Sans Serifd2Label1 8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) NewQuery.SourceText.SetFocus NewQuery.SourceText.SelLength = -1 End SubM LSOBENI0,`l$8TK@@@DDDDlllLotus ProductV0.0I0 *4230F58lNEWDELETE INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *  *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL$%static_OCX_AdapterGOTFOCUSNEWQUERY@ LOTUSDIALOGh%static_ltsdlg31 SOURCETEXTSETFOCUS SELLENGTH4b9}HkPKHwPK4PKx l8).i]4).i] [  d ,,,, *d @ lD(4).i]4).i]`|l`5lMҤL [I G {DO T'{DO Q$ixO c$1. &Select database table to query: K#1. &Select database table to query:R KQDB MS Sans Serifd2Label38).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) NewQuery.OutputText.SetFocus NewQuery.OutputText.SelLength = -1 End SubM LSOBENI0,`l$TK@@@DDDDlllLotus ProductV0.0I0 hK8*2B91A88lNEWDELETEh INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *  *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL$%static_OCX_AdapterGOTFOCUSNEWQUERY@ LOTUSDIALOG%static_ltsdlg31 OUTPUTTEXTSETFOCUS SELLENGTH4:wHkhKHwhK4hKx l8).i]4).i] [  d ,,,, *d @ lD(4).i]4).i]`|l5lMҤL [I G {DO T'{DO Q$ xB ? - )4. Select &location for new query table:(4. Select &location for new query table:R KQDB MS Sans Serifd2 Label28).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) NewQuery.NameText.SetFocus NewQuery.NameText.SelLength = -1 End SubI LSOBENI0,`l8TK@@@DDDDlllLotus ProductV0.0I0 $*2B91F40lNEWDELETE INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *  *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL$%static_OCX_AdapterGOTFOCUShNEWQUERY@ LOTUSDIALOG%static_ltsdlg31NAMETEXTSETFOCUS SELLENGTH4ӘKHk`KHw`K4`Kx l8).i]4).i] [  d ,,,, *d @ lD(4 ).i]4).i]`|$l95lMҤL [I G {DO T'{DO Q$oH? 3&2. &Enter a name for the query table:%2. &Enter a name for the query table:R KQDB MS Sans Serifd2 NameText8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) NewQuery.NameText.SelLength = -1 End Sub LSOBEN<$,`l$TK@@@DDDDlll Lotus ProductV0.0<$8K8*3251EB0lNEWDELETE INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSTEXTBOX(%static_OCX_AdapterGOTFOCUSlNEWQUERYD LOTUSDIALOG%static_ltsdlg31NAMETEXT SELLENGTH(HkXhKHwXhK4XhKx l8).i]4).i] [ d ,,,, *d @ lH,4).i]4).i]`|p9l@ҤL [I G {DO Qh8 _KR KQDB MS Sans Serifd2 Spinner18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Spindown(Source As Lotusspinbutton) Declare Sub Spinup(Source As Lotusspinbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSSPINBUTTON Set Source = Bind(Objectname_) On Event Spindown From Source Call Spindown On Event Spinup From Source Call Spinup End Sub '++LotusScript Development Environment:2:2:Spindown:1:12 Sub Spindown(Source As Lotusspinbutton) If Clng( NewQuery.LimitText.Text) > 1 Then NewQuery.Li mitText.Text = Cstr( Clng( NewQuery.LimitText.Text) - 1) limitrecs = 1 End If End Sub '++LotusScript Development Environment:2:2:Spinup:1:12 Sub Spinup(Source As Lotusspinbutton) If Clng( NewQuery.LimitText.Text) < 65535 Then NewQuery.LimitText.Text = Cstr( Clng( NewQuery.LimitText.Text) + 1) limitrecs = 1 End If End Sub LSOBEN,`l$8T@@@DDDlllLotus ProductV0.0INCENDOBJECTTETcVcTcVcBcVcTcQ@KUtK(RKT*3251F58lNEWDELETE INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *( *NEWQUERY` *NewQue rySOURCE BINDEVENTS OBJECTNAME_LOTUSSPINBUTTON@%static_OCX_AdapterSPINDOWNSPINUPNEWQUERY\ LOTUSDIALOG%static_ltsdlg31 LIMITTEXTTEXT LIMITRECS S~]Hk`KHw`K4`Kx l8).i]4).i] d ,,,, 7d @, l`D4).i]4).i]`|,,@ sd tP@ҤL [I GG{DOP8#{DOQ{DOP[{DOP~8#{DOQ{DOP[,P +  Spinner1Spinner1d2 Label48).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Develop ment Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) NewQuery.LimitText.SetFocus NewQuery.LimitText.SelLength = -1 End SubI LSOBENI0,`l$8TK@@@DDDDlllLotus ProductV0.0I0 K*3250058lNEWDELETE INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *  *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL$%static_OCX_AdapterGOTFOCUShNEWQUERY@ LOTUSDIALOG%static_ltsdlg31 LIMITTEXTSETFOCUS SELLENGTH4i0Hk`KHw`K4`Kx l8).i]4).i] [  d ,,,, *d @ lD(4).i]4).i]`|lt5lMҤL [I G {DO T'{DO Q$- ` WA Limit &records: _Limit &records:R KQDB MS Sans Serifd2 LimitText8).i] &'++LotusScrip t Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Change(Source As Lotustextbox) Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Change From Source Call Change On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Change:1:12 Sub Change(Source As Lotustextbox) limitrecs = 1 End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) NewQuery.LimitText.SelLength = -1 End Sub. LSOBENV,($8TK@PPP@@DDD(((Lotus ProductrV0.0SOURV_  LOTUSTEXTBOXT%static_OCX_AdapterCHANGE GOTFOCUS LIMITRECSNEWQUERYp LOTUSDIALOG%static_ltsdlg31 LIMITTEXT SELLENGTH*3250100*3250100lNEWDELETE INITIALIZE TERMINATEOBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module *< *NEWQUERY` *NewQuerySOURCE BINDEVENTS$ OBJECTNAME_  LOTUSTEXTBOXT%static_OCX_AdapterCHANGEGOTFOCUS LIMITRECSNEWQUERYp LOTUSDIALOG%static_ltsdlg31 LIMITTEXT SELLENGTH OHklKHwlK4lKx (8).i]4).i] [ d P,,,,7d ,,@( Dd @@ ( tX4).i]4).i]|tlZҤL [I GGP[D{OQ$ P 1 65535 =6553565535R KQDB MS Sans Serifd2Label58).i] W 3. Select fields and records:3. Select fields and records:R KQDB MS Sans Serifd2 FieldsCom8).i] `'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Developm ent Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If Typename (Selection) <> "DATAQUERY" Then Source1 = NewQuery.SourceText.Text QName1 = NewQuery.NameText.Text CurrentDocument.NewQuery Qname1, Source1 Set QT = Bind DataQuery( QName1) QT.Select QT.ReturnsSampleCriteria = True End If ChooseFields2.Show 1 Exit Sub GenError: Msgbox (Error$), 16, ProductID Dim y As dataquery Forall x In CurrentDocument.dataquerynames Set y = Bind(x) If y.outputlocation = "" Then .DeleteQuery x End If End Forall Exit Sub End SubLSOBEN& ,D($8T@@@D((Dh(((PPLotus ProductV0.0 INCENDOBJECTTEccccBccc))#Q@KUtK4&\&(RK &$$,$#D  *3250268lNEWDELETE INITIALIZE TERMINATE`OBJECTH\ (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTS$ OBJECTNAME_pLOTUSCOMMANDBUTTON%static_OCX_AdapterCLICK,GENERRORD SELECTION DATAQUERYSOURCE1NEWQUERY LOTUSDIALOG%static_ltsdlg31 SOURCETEXTTEXT QNAME1NAMETEXTHCURRENTDOCUMENTDOCUMENTH MAIN123W.DLLxSEDefaultClassControlQT SELECTRETURNSSAMPLECRITERIA0 CHOOSEFIELDS2SHOW PRODUCTIDLotus 1-2-3 Release 9YXDATAQUERYNAMESOUTPUTLOCATION DELETEQUERYSTRINGS%hHkXKHwXK4XKx 8).i]4).i] [ d ,$$, *hd  hh0PZ@(t P4).i]4).i]|( PPZdL@@@).i]).i]aDh"<@ (Htt ).i]).i]DPh6"@  4L| 0$``P 9t 4PD&  P ODJ(  4 $ i 8 4G,(]).i]).i]aDh@"4,pҤL [I G˨  :w|D:}H8V^{hO P^${hO4P{(,@J$J#1[J$K,t#K.!{,#}L!{(-#59"^F#K-#}8$TZ '%&7'(-haChoose &Fields... aChoose &Fields...R KQDB MS Sans Serifd2CritCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forwar d):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If Typename (Selection) <> "DATAQUERY" Then Source1 = NewQuery.SourceText.Text QName1 = NewQuery.NameText.Text CurrentDocument.NewQuery Qname1, Source1 Set QT = Bind DataQuery( QName1) FieldList = QT.SelectFields QT.Select QT.ReturnsSampleCriteria = True End If NewQueryCrit = 1 Criteria.Show 1 Exit Sub GenError: Msgbox (Error$), 16, ProductID Dim y As dataquery Forall x In CurrentDocument.dataquerynames Set y = Bind(x) If y.outputlocation = "" Then .DeleteQuery x End If End Forall Exit Sub End SubLSOBEN)$4P ,Dt$8T@@@D((DhtttPPLotus ProductV0.0$4PINCENDOBJECTTEccccBccc++%Q@KUtK|))(RKT)'(t'\&#T*3250308lNEWDELETE INITIALIZE TERMINATE`OBJECTH\ (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTS$ OBJECTNAME_pLOTUSCOMMANDBUTTON%static_OCX_AdapterCLICK,GENERRORD SELECTION< DATAQUERYSOURCE1NEWQUERY LOTUSDIALOG%static_ltsdlg31 SOURCETEXTTEXT QNAME1NAMETEXTHCURRENTDOCUMENTDOCUMENT8 MAIN123W.DLLSEDefaultClassControlQT FIELDLIST SELECTFIELDSpSELECTRETU RNSSAMPLECRITERIAX NEWQUERYCRITCRITERIASHOW PRODUCTIDLotus 1-2-3 Release 9Y XDATAQUERYNAMESOUTPUTLOCATION DELETEQUERYSTRINGS8VHkKHwK4Kx 8).i]4).i] [ d ,@$$LL,@ *h@d hh0PZ@(t P4).i]4).i]|( PPZdLhPPPhh).i]).i]aDh"<@ tH ).i]).i]DPh6"@@<@\  $ 0L``P@ 9Pt 4PD&  P4n, ODJ(   4 t i 8 4G,t@ ]).i]).i]aDh@"4,$p(ҤL [I G˨  :|D:}H8d^${hO4P@^L{hO\P@{(,hJLJ$#1[JL[K-#K,#K.![{,# !}#{(-P#5@9$^F@%K-#}8&T(Z@ ''(7@)** aSet &Criteria..._aSet &Criteria...R KQDB MS Sans Serifd2Image18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusimage) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSIMAGE Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusimage) On Error Goto GenError Dim Range1 As range Dim GetRange As RangeSelector Dim PreHeight As Long 'get height of dialog to reset after range pointer PreHeight = NewQuery.Height 'shrink dialog NewQuery.Height = 100 Set GetRange = CurrentApplication.RangeSelector NewQuery.SourceText.Text = GetRange.getrangeString(currentdocument) 'reset dialog NewQuery.Height = PreHeight NewQuery.SourceText.SetFocus Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End SubLSOBEN ,0$8T@@@``0HH|00Lotus ProductV0.0INCENDOBJECTTE c"c c"cBc"c c##Q@KUtK<d(RK44*32503B0lNEWDELETE INITIALIZE TERMINATE@OBJECTH (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *0* Dial og Registry Module * *NEWQUERY` *NewQuerySOURCE BINDEVENTS OBJECTNAME_ LOTUSIMAGE%static_OCX_Adapter<CLICKPGENERROR0RANGE1`RANGE MAIN123W.DLL|SEDefaultClassControlGETRANGET RANGESELECTOR PREHEIGHTNEWQUERY LOTUSDIALOG%static_ltsdlg31HEIGHT$CURRENTAPPLICATION APPLICATION SOURCETEXTTEXT<GETRANGESTRING CURRENTDOCUMENTDOCUMENTSETFOCUS PRODUCTIDLotus 1-2-3 Release 9HkPKHwPK4PKx H8).i]4).i] [  d ,,,xx *d D4 ).i]).i]a<dh9"x  H````s).i]).i]a<Hdh<" @` <||4).i]4).i]|T | PZ0$$$$q).i]).i]a<dh" 0PZ).i]).i]a<|dh" @X@Y K,`P<c&  0(5ҤL [I G˨  :ab{-#{.d!^x{`-$#{OHQTKx,`z#{.X!{OHT' }X!"P h Image1aImage1R KQDB MS Sans Serifd2 c:\range2.bmpR KQltBM6(@@@@@@@ʦ`a+e[[[&] [c _?[#y [._.FJ.'?'.?'P;G ;<y.PAKHw>K4>Kh    TTxx4).i]4).i]| T D,,,,*T !,<@ <@P, P8 ).i]).i]ph6"tPZ@ 0 PZ\000q).i]).i]aph"d ,DaP8P4*T  `xLi,xnkLh,Y.@.@ҤD [I G  :)D#)D#[{PUʸ{tOQK-#K,. {-0#~K,-T#!K,.x{-#~K,-#! }D!# 2Join (Join Globals)J'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim JoinString As String '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions Join.HelpCom.Caption = HelpID Join.OKCom.Caption = OKID Join.CancelCom.Caption = CancelID End SubLSOBEN=$|$8TX-,,<<Lotus ProductV0.0=$| K*32506E0lNEWDELETEL INITIALIZE TERMINATE0OBJECT l (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * JOINSTRING, LOADCAPTIONSJOIN LOTUSDIALOG%static_ltsdlg31HELPCOMhCAPTIONHELPID&Help8OKCOMPOKIDOK CANCELCOMCANCELIDCancel(sEHk1HwHk<4P @p 4).i]4).i]| 0Tl?w<AҤ {OQ} {O Q}0 {OQ}lOKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static So urce As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If Len(Join.JoinText.Text ) < 2 Then QT.Join Else QT.Join Join.JoinText.Text End If Join.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBENdd, $8T@@@DDD ll  Lotus ProductV0.0ddINCENDOBJECTTE(c*c(c*cBc*c(cQ@KUtK\(RK4TT,dh*32508B8lNEWDELETE INITIALIZE TERMINATEOBJECTP0 (GLOBALS)d (Globals)* DIAL OG REGISTRY MODULE ** Dialog Registry Module *@*JOIN*JoinSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON,%static_OCX_AdapterpCLICKGENERRORJOINH LOTUSDIALOG%static_ltsdlg31 JOINTEXTTEXTQT DATAQUERY4 MAIN123W.DLLSEDefaultClassControlCLOSE PRODUCTIDLotus 1-2-3 Release 9h<Hk(KHw(K4(Kh l8).i]4).i] [ T ,,,,*T @  lL 088884).i]4).i]`|<@  ` ).i]).i]lh6"  8tP8P  4 t&   l`Q lҤD [I G˨  :S{DOU%8K,#:K,{DOU#{D,8#}8 gOK _OKR KQDB MS Sans Serifd2 CancelCom8).i] t'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) Join.Close End Sub LSOBEN88h,`l$8TQ@@@DDDDlllLotus ProductV0.088h| 0Tl?w<IDOK CANCELCOMCANCELIDCancel Kl*3250960lNEWDELETE INITIALIZE TERMINATEOBJECTP0 (GLOBALS)d (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *@*JOIN*JoinSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterXCLICKJOIN0 LOTUSDIALOG%static_ltsdlg31CLOSE<lHk`KHw`K4`Kh l8).i]4).i] [ T ,,,,*T @ l4    4).i]4).i]`|\ l`Q l<ҤD [I G˨ {D, #  GCancel_ CancelR KQDB MS Sans Serifd2 JoinText8).i] h? R KQDB MS Sans Serifd2Label18).i] z'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) Join.JoinText.SetFocus End Sub LSOBEN;$,`l$TK@@@DDDDlllLotus ProductV0.0;$ 8).i]4).i] [  T ,,,, *T @ l,4).i]4).i]`|TP8l5K8*3250AC8lNEWDELETEP INITIALIZE TERMINATEOBJECTP0 (GLOBALS)d (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *@*JOIN*JoinhSOURCE BINDEVENTS OBJECTNAME_ LOTUSLABEL %static_OCX_AdapterGOTFOCUSJOIN( LOTUSDIALOG%static_ltsdlg31JOINTEXTSETFOCUS(HkH5KHwH5K4H5Kh l8).i]4).i] [  T ,,,, *T @ l,4).i]4).i] `|TP8l5?ҤD [I G {DO T'-x'c&Join criteria:3 &Join criteria:R KQDB MS Sans Serifd2HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_QJ_STEPS End SubY LSOBEN 98,8T@@@DDDDLotus ProductV0.098  GH^?Tvi<$*3250B78lNEWDELETE INITIALIZE TERMINATEOBJECTP0 (GLOBALS)d (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *@*JOIN*JoinSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP H_QJ_STEPSr?Hk(HKHw(HK4(HKh 8).i]4).i] [ T ,,,,*T !6@ :uN@=ҤD [I G˨ )D:u#  ' &Help_&HelpR KQDB MS Sans Serifd2 ChooseFields24).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 OpenFields = QT.SelectFields For y = (ChooseFields2.FieldsList.ListCount -1) To 0 Step -1 ChooseFields2.FieldsList.re moveitem y Next y 'Same code is in a few places Dim Temp1 As String Temp1 = QT.SelectFields While Len( Temp1) > 1 ChooseFields2.FieldsList.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend ChooseFields2.FieldsList.SelectItem 0 Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub"LSOBEN)^h<,P$8T@Tttpp@DDDDDLotus ProductV0.0^h<INCENDOBJECTTE c c c cBc c c11QP:KU@2K34K311d2d2)++4+&@*3250C38lNEWDELETE0 INITIALIZE TERMINATEPOBJECTxt (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module *0*CHOOSEFIELDS2*ChooseFields2SOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOGH%static_ltsdlg31LOAD`GENERROR LOADCAPTIONSLEFT8CURRENTAPPLICATION APPLICATION MAIN123W.DLLSEDefaultClassControl SCREENWIDTH TWIPSPERPIXELXWIDTHTTOP SCREENHEIGHTTWIPSPERPIXELYHEIGHT OPENFIELDShQT4 DATAQUERY SELECTFIELDSYP CHOOSEFIELDS2 FIELDSLIST LISTCOUNT REMOVEITEMTEMP1 ADDITEMSELECTFIELDSDELIM; SELECTITEM PRODUCTIDLotus 1-2-3 Release 9lYo4HkiKHwiK4iK <<4).i]4).i]| | T ,,,``*d`| !,,@4d PZ```q).i]).i]ah"tpx <@D  ).i]).i]h6"@ ` F aT ``Li,<<nLkXLh,Y4n, 8 Tql0_.@8.@bҤX [I G  :)D#)D#K,.{-#~@K,-#!K,.<{-`#~XK,-#!^K-#^{DOP^4{DOT^'^6#^`K-#$^`%8H%{DOT J`J`}J'&^`J`J`}'M':){DOT,'+,-}.0 Choose Fields(ChooseFields2 Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions 'Choose Fields2  Dialog...steal from ChooseFields constants as they are the same ChooseFields2.Caption = ChooseCap ChooseFields2.Label1.Caption = ChooseLabel1 ChooseFields2.HelpCom.Caption = HelpID ChooseFields2.OKCom.Caption = OKID ChooseFields2.CancelCom.Caption = CancelID ChooseFields2.ClearCom.Caption = ChooseCommand3 End Sub LSOBENjT$8T,$$$,Lotus ProductV0.0jTKX*3250D58lNEWDELETE0 INITIALIZE TERMINATEOBJECT (GLOBALS)p (Globals)* DIALOG REGISTRY MODULE *4* Dialog Registry Module *P LOADCAPTIONS CHOOSEFIELDS2  LOTUSDIALOG%static_ltsdlg31CAPTION CHOOSECAP Choose FieldsLABEL1p CHOOSELABEL1\S&elected fields:HELPCOMHELPID&HelpOKCOMOKIDOK CANCELCOMCANCELID@CancelCLEARCOMCHOOSECOMMAND3&Clear:Hk1HwHk4 @T tDDDD4).i]4).i]|8t$ DP=`?w=nҤ {.D}! {OhQt}8{OQt}{OQt}{OQt}{OQt}DOKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) S tatic Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError FieldList = "" For x = 0 To (ChooseFields2.FieldsList.ListCount - 1) Step 1 FieldList = FieldList + ChooseFields2.FieldsList.List(x) + SelectFieldsDelim Next x ChooseFields2.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub9 LSOBEN,t$8T@@@@@@DXXXDDLotus ProductV0.0(K$*23B0700lNEWDELETE0 INITIALIZE TERMINATEdOBJECTx (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module **CHOOSEFIELDS2*ChooseFields2,SOURCE BINDEVENTS OBJECTNAME_\LOTUSCOMMANDBUTTON%static_OCX_AdapterDCLICKGE*3250F58l NEWDELETE0 INITIALIZE TERMINATEdOBJECTx (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module **CHOOSEFIELDS2*ChooseFields2,SOURCE BINDEVENTS OBJECTNAME_\LOTUSCOMMANDBUTTON%static_OCX_AdapterDCLICKGENERRORd FIELDLISTX CHOOSEFIELDS2 LOTUSDIALOG %static_ltsdlg31 FIELDSLIST4 LISTCOUNTLISTSELECTFIELDSDELIM<;LCLOSE PRODUCTIDLotus 1-2-3 Release 9(HkAKHwAK4AK 8).i]4).i] [` |  ,p,p *P0000pp| @XH@h 4).i]4).i]t|@8 0Ph `q @ tQ ҤX [I G˨  :W[D}^p{XOP^4&[DGD{XOS^p%}8^6{X,#} h@ gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] z'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError FieldList = Selection.SelectFields ChooseFields2.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBENiP,$8T}@DDD@@D|||DDXX Lotus ProductV0.04).i]iP8t$ DP=`?w=OK CANCELCOMCANCELID@CancelCLEARCOMCHOOSECOMMAND3&ClearKT*3251000lNEWDELETE0 INITIALIZE TERMINATE OBJECTxt (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module **CHOOSEFIELDS2*ChooseFields2,SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterDCLICK\GENERROR FIELDLIST SELECTION SELECTFIELDS CHOOSEFIELDS2 LOTUSDIALOG%static_ltsdlg31CLOSE PRODUCTIDLotus 1-2-3 Release 9:Hk_KHw_K4_K 8).i]4).i] [d | D ,, ,, *4444| @XH|`PZ@ 4).i]4).i]| 0Q $ xj Q mҤX [I G˨  :[D{XPt{|,#}$ @ GCancel_CancelR KQDB MS Sans Serifd2 FieldsList8).i] ho  R KQDB MS Sans Serifd2 ClearCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bin d(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Dim FieldName As String If ChooseFields2.FieldsList.SelCount > 0 Then For x = 1 To ChooseFields2.FieldsList.SelCount For y = (ChooseFields2.FieldsList.ListCount -1) To 0 Step -1 If ChooseFields2.FieldsList.Selected(y) = True Then FieldName = ChooseFields2.FieldsList.List(y) ChooseFields2.FieldsList.removeitem y 'can't actually remove field because table hasn't been built yet in this case ' Selection.RemoveSelectField FieldName End If Next y Next x End If Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBEN,p|$8T}@@@TTTT|||Lotus ProductV0.04).i]8t$  DP=`?w=OK CANCELCOMCANCELID@CancelCLEARCOMCHOOSECOMMAND3&ClearK*3251170lNEWDELETE0 INITIALIZE TERMINATEOBJECTxD (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module **CHOOSEFIELDS2*ChooseFields2,SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON|%static_OCX_Adapter\CLICKGENERROR FIELDNAME CHOOSEFIELDS2 LOTUSDIALOGD%static_ltsdlg31 FIELDSLISTSELCOUNTX4Y` LISTCOUNTxSELECTEDLIST REMOVEITEM PRODUCTIDLotus 1-2-3 Release 9*HkPKHwPK4PK |8).i]4).i] [< |  ,t<<,dtt *    <d| dH@` |4).i]4).i]p| 0d| 6t(q 68H8hҤX [I G˨  :{TOLPX8~^d{TOLPX^4g^t{TOLP^4E{TOLS^t%8$^<{TOLS^t%{TOLT^t'^6^6 !}|"# @ '&Clear_&ClearR KQDB MS Sans Serifd2Label18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotuslabel) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLABEL Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotuslabel) ChooseField s2.FieldsList.SetFocus End Sub; LSOBEN;$,`l$8TK@@@DDDDlllLotus ProductV0.0;$xKT*2060EC8lNEW*3251210lNEWDELETE0 INITIALIZE TERMINATEOBJECTx (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module *$*CHOOSEFIELDS2*ChooseFields2SOURCE BINDEVENTS OBJECTNAME_  LOTUSLABELD%static_OCX_AdapterGOTFOCUS CHOOSEFIELDS2` LOTUSDIALOG%static_ltsdlg31 FIELDSLISTSETFOCUS(FHk5KHw5K45K  l8).i]4).i] [  | ,,,, *| @( ldH4).i]4).i]`|5?ҤX [I G {DO T'1xc&Selected fields:_&Selected fields:R KQDB MS Sans Serifd2 Spinner18).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Spindown(Source As Lotusspinbutton) Declare Sub Spinup(Source As Lotusspinbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSSPINBUTTON Set Source = Bind(Objectname_) On Event Spindown From Source Call Spindown On Event Spinup From So urce Call Spinup End Sub '++LotusScript Development Environment:2:2:Spindown:1:12 Sub Spindown(Source As Lotusspinbutton) Dim Temp1 As String Dim Temp2 As Integer On Error Goto GenError If ChooseFields2.FieldsList.SelCount = 1 And ChooseFields2.FieldsList.ListIndex < (ChooseFields2.FieldsList.ListCount - 1) Then Temp1 = ChooseFields2.FieldsList.Text Temp2 = ChooseFields2.FieldsList.ListIndex ChooseFields2.FieldsList.List(temp2) = ChooseFields2.FieldsList.List(temp2+1) ChooseFields2.FieldsList.List(temp2+1) = Temp1 ChooseFields2.FieldsList.SelectItem Temp2+1 End If Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:Spinup:1:12 Sub Spinup(Source As Lotusspinbutton) Dim Temp1 As String Dim Temp2 As Integer On Error Goto GenError If ChooseFields2.FieldsList.SelCount = 1 And ChooseFields2.FieldsList.ListIndex > 0 Then Temp1 = ChooseFields2.FieldsList.Text Temp2 = ChooseFields2.FieldsList.ListIndex ChooseFields2. FieldsList.List(temp2) = ChooseFields2.FieldsList.List(temp2-1) ChooseFields2.FieldsList.List(temp2-1) = Temp1 ChooseFields2.FieldsList.SelectItem Temp2-1 End If Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub'LSOBEN,$8@L,,LL@@ddddLotus ProductV0.04).i]8t$ DP=`?w=OK CANCELCOMCANCELID@CancelCLEARCOMCHOOSECOMMAND3&ClearKT*32512B8lNEWDELETE0 INITIALIZE TERMINATE,OBJECTxP (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module *x*CHOOSEFIELDS2*ChooseFields2SOURCE BINDEVENTS OBJECTNAME_@LOTUSSPINBUTTON%static_OCX_Adapte r`SPINDOWNSPINUPPTEMP1TEMP2GENERROR( CHOOSEFIELDS2 LOTUSDIALOG@%static_ltsdlg31 FIELDSLISTSELCOUNT` LISTINDEX| LISTCOUNTTEXTLIST SELECTITEM PRODUCTIDLotus 1-2-3 Release 9zHk_KHw_K4_K 8).i]4).i]4 | ,,LLL,,<< 7<| LDT@| 4).i]4).i]| dL0 | DT d$0h6q,qDPTdҤX [I GGL  :{dODPP{dODP\{dODPh8m^<{dODPtb{dODP\{dODـb({dODSX%{dODـX(J<{dODTX' !"}#$*  :,{dODPP{dODP\8m-^{dODPt.b{dODP\/{dODـb({dODSX%0{dODـX(J1{dODTX'2456} 79   Spinner1iSpinner1d2 HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_123_CHOOSE_FIELDS_DIALOG_BOX_CS End Sub LSOBEN 9,$8}@@@DDDDLotus ProductV0.04).i]98t$  DP=`?w=OK CANCELCOMCANCELID@CancelCLEARCOMCHOOSECOMMAND3&ClearKT*3251358lNEWDELETE0 INITIALIZE TERMINATEOBJECTx (GLOBALS) (Globals)T* DIALOG REGISTRY MODULE ** Dialog Registry Module **CHOOSEFIELDS2*ChooseFields2DSOURCE BINDEVENTS, OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP!H_123_CHOOSE_FIELDS_DIALOG_BOX_CSI]HkPKHwPK4PK 8).i]4).i] [ |  ,,,,*| !6@0H3uL@ =ҤX [I G˨ )D3u# @ &Help _&HelpR KQDB MS Sans Serifd2QQ QConnect4).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions ConnectString = "" 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 'just have to fill dialog .connectstring = "" Forall x In .ExtConnectionList Connect.ConnectList.Add Item x End Forall Connect.ConnectList.SelectItem 0 Connect.Text1.Text = Connect.ConnectList.Text Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubTLSOBEN%x,`$8T :@h@DDDLotus ProductV0.08).i]xd  ,,,,*d @0 ldH<<<<4).i]4).i]`| D l`Q lINITIALIZE*32513F8lNEWDELETE INITIALIZE TERMINATEHOBJECT`| (GLOBALS)0 (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *t*CONNECTX*ConnectSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOGP%static_ltsdlg31LOADhGENERROR8 LOADCAPTIONS CONNECTSTRINGLEFT@CURRENTAPPLICATION A PPLICATION MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTH\TOPD SCREENHEIGHT(TWIPSPERPIXELYdHEIGHTXEXTCONNECTIONLISTCONNECT CONNECTLIST|ADDITEM SELECTITEMTTEXT1TEXT PRODUCTIDLotus 1-2-3 Release 9|-~xHk@#KHw@#K4@#Kx    TTxx4).i]4).i]| d h,,*@d !,<@,,@<l PZ000q).i]).i]ah" @  haT\ `Li,xDnTk`Lh,Y<ȑ<'_,HXP.@H.@ҤL [I G :)D#)D#[}K,. {-0#~P K,-T#!K,.x{-#~hK,-#!Q} P5!{O TZ '"7#{O T$'${O0Q<{O P<%&'}() R!Connect(Connect Globals)L"'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub ContinueSub Declare Function ProperText () As Integer Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim ConnectString As String Dim DriverID As String Dim TableID As String Dim DataBaseID As String '++LotusScript Development Environment:2:2:ContinueSub:1:8 Sub ContinueSub On Error Goto GenError 'if state = Range then we just need to set the name and quit If [].PromptState = $Range Then DriverID = Left$( [].ConnectString, Instr(1, [].ConnectString, " ") -1) DatabaseID = Mid$( [].ConnectString, Instr(1, [].ConnectString, " ") +1, Instr(Instr(1, [].ConnectString, " ") + 1, [].Conn ectString, " ") - (Instr(1, [].ConnectString, " ") +1)) TableID = Right$( [].ConnectString, Len([].ConnectString) - Instr(Instr(1, [].ConnectString, " ") + 1, [].ConnectString, " ")) .Connect DriverID,,,,DatabaseID,,,,TableID, Connect.RangeText.Text Connect.Close Exit Sub End If 'we need to see if we're coming or going 1st 'if state is drivers or the 1st item isn't the selected item then forward we go If [].PromptState = $Driver Or propertext()=1 Then If [].PromptState = $Driver Then Connect.Label1.Caption = ConnectLabel2 Connect.Label1.Caption = ConnectLabel2 Elseif [].PromptState = $Database Then Connect.Label1.Caption = ConnectLabel3 Connect.Label1.Caption = ConnectLabel3 End If 'move the connection along ConnectString = Trim$(Connect.Text1.Text) 'else we're going back Else If [].PromptState = $Table Then Connect.Label1.Caption = ConnectLabel2 Connect.Label1.Caption = ConnectLabel2 'back up the connection one level ConnectString = Trim$(Left$(Connec tString, Instr(1,ConnectString," ") -1 )) Elseif [].PromptState = $Database Then Connect.Label1.Caption = ConnectLabel1 Connect.Label1.Caption = ConnectLabel1 'back up the connection to the beginning ConnectString = "" End If End If 'do the connection [].ConnectString = ConnectString 'User ID will always come before Password...I am going to just set a dummy 'and let the ODBC admin handle the actual PW/UI If [].PromptState = $DriverUI Then [].DriverUserID = "" [].ConnectString = ConnectString End If If [].PromptState = $DriverPW Then [].DriverPasswd = "" [].ConnectString = ConnectString End If 'Remove all names from list For y = (Connect.ConnectList.ListCount - 1) To 0 Step -1 Connect.ConnectList.removeitem y Next y 'populate the dialog list based upon the state unless State is RangeName 'then exit sub If [].PromptState <> $Range Then Forall x In [].ExtConnectionList Connect.ConnectList.Additem x End Forall If Connect.ConnectList.ListCount > 0 Then Co nnect.ConnectList.SelectItem 0 End If If [].PromptState = $Database Then Connect.ConnectList.Additem "[Show drivers]", 0 Elseif [].PromptState = $Table Then Connect.ConnectList.Additem "[Show databases]", 0 End If Connect.Text1.Text = Trim$(ConnectString + " " + Connect.ConnectList.Text) Connect.ConnectList.SetFocus Exit Sub End If 'if we're here we must be in rangename state so Convert dialog Connect.OKCom.Caption = OKID Connect.Label1.Caption = ConnectLabel4 Connect.Label1.Caption = ConnectLabel4 Connect.Height = 2050 Connect.ConnectList.Visible = False Connect.Text1.Visible = False Connect.RangeText.Visible = True TableID = Right$( [].ConnectString, Len([].ConnectString) - Instr(Instr(1, [].ConnectString, " ") + 1, [].ConnectString, " ")) Connect.RangeText.Text = TableID Connect.RangeText.SelLength = -1 Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:1:ProperText:1:8 Function ProperText () As Int eger ProperText = 0 If (Connect.ConnectList.ListIndex >0) Then ProperText = 1 Else 'Check to make sure the zeroeth item is NOT in Connect.Text1.Text If Instr(Connect.Text1.Text,Connect.ConnectList.list(0))=0 Then ProperText =1 End If End If End Function '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions Connect.Caption = ConnectCap Connect.Label1.Caption = ConnectLabel1 Connect.OKCom.Caption = ConnectCom Connect.CancelCom.Caption = CancelID Connect.HelpCom.Caption = HelpID End SubLSOBENA D(4$8T,4\L4<<,,ll<    4444Lotus ProductV0.0 D KH*3251578lNEWDELETE0 INITIALIZE TERMINATEOBJECThH (GLOBALS) (Globals)* DIALOG REGISTRY MODULE *|* Dialog Registry Module *P CONNECTSTRINGpDRIVERIDTABLEID DATABASEID CONTINUESUBGENERROR, PROMPTSTATE CONNECT  LOTUSDIALOG`%static_ltsdlg31 RANGETEXTtTEXTCLOSE PROPERTEXTLABEL1CAPTIONL CONNECTLABEL2 &Select a database or directory:l CONNECTLABEL3&Select a table:HTEXT1d CONNECTLABEL10&Select a driver: DRIVERUSERID  DRIVERPASSWDY CONNECTLIST LISTCOUNT REMOVEITEM XEXTCONNECTIONLIST8ADDITEM SELECTITEMH[Show drivers][Show databases](SETFOCUSdOKCOMTOKIDOKt CONNECTLABEL4 &Refer to as:HEIGHT4VISIBLE SELLENGTHD PRODUCTIDLotus 1-2-3 Release 9 LISTINDEXLIST LOADCAPTIONS CONNECTCAPConnect CONNECTCOM  &Continue CANCELCOMCANCELIDCancel4HELPCOMHELPID&Help$VeHk1HwHk<4LT\Dllt  <<< dddd@ 4$4).i]4).i](|<0P$$D<LtXx <4,,,, H =h4$8xx4ȑvLnLdPt 4(Q 4=dx%p-< X4qL hPp'_|5,wY l q8P ?0H`xҤ :ȄPT~ 8[<ȄU` ȄU`}J[\ȄU` ȄU`}ȄU`}ȄU`}ȄU`}M[LȄU` ȄU`%ȄU`}ȄU`}PTl[<[\[L{ OxU'{ ,#ȄPT~8) #8 ȄPT~P8$!{ OQ}"{ OQ}:3#ȄPT~h8 ${ OQ}P%{ OQ}P&)[,{ OU W,:-ȄPT~8D.{ OQ}/{ OQ}1[,G,G,}JW:=2ȄPT~8*3{ OQ}4{ OQ}6[,}78;ȄQ`G,?ȄPT~8@ȄQ}AȄQ`G,BDȄPT~8EȄQ}FȄQ`G,GJ^{ OP^,4K{ OT ^'L^,6PȄPT~8QȄPL5<R{ OTXZ< 'S7<T{ OP8U{ OTd'VYȄPT~8Z{ OTX}':$[ȄPT~8\{ OTX}']_{ OQG,}{ OPW`{ OTp'abe{ O|Q}Lf{ OQ}xg{ OQ}xh{ .!i{ OQj{ OQk{ OxQl[LȄU` ȄU`%ȄU`}ȄU`}Pm{ OxQGLn{ OxQopq}rsvax{ OP8yaz:;|{ OU{ OS&8 }a~{ .}!{ OQ}{ O|Q}{ OQ}{ O Q}8OKCom8).i] x'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ContinueSub End Sub- LSOBEN 50,$T@@@DDDDLotus ProductV0.050INCENDOBJECTTEccccBcccQ@KUtK  (RKt  48*3251640lNEWDELETE INITIALIZE TERMINATEHOBJECT` (GLOBALS)0 (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *t*CONNECT*ConnectSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICK CONTINUESUBiHk#Hw#4#x 8).i]4).i] [ d ,,,,*d !,l@9ҤL [I G˨ )D#x7g &Continue_ &ContinueR KQDB MS Sans Serifd2 CancelCom8).i] z'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) Connect.Close End Sub LSOBEN88|,`l$8T@@@DDDDlllLotus ProductV0.088|INCENDOBJECTTEccccBcccQ@KUtK  (RK d L $ *32516E8lNEWDELETE INITIALIZE TERMINATEHOBJECT` (GLOBALS)0 (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *t*CONNECT*ConnectSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON(%static_OCX_AdapterlCLICKCONNECTD LOTUSDIALOG%static_ltsdlg31CLOSE< _Hk`KHw`K4`Kx l8).i]4).i] [  d ,,,,*d @ lH,    4).i]4).i]`|p l`Q l<ҤL [I G˨ {D, # x7GCancel_CancelR KQDB MS Sans Serifd2Label18).i] 3 &Select a driver:1&Select a driver:R KQDB MS Sans Serifd2 ConnectList8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuslistbox) Declare Sub Dblclick(Source As Lotuslistbox) Declare Sub Keyup(Source As Lotuslistbox, Keycode As Integer, Shift As Integer) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129  Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLISTBOX Set Source = Bind(Objectname_) On Event Click From Source Call Click On Event Dblclick From Source Call Dblclick On Event Keyup From Source Call Keyup End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuslistbox) Connect.Text1.Text = Trim$(ConnectString + " " + Connect.ConnectList.Text) End Sub '++LotusScript Development Environment:2:2:Dblclick:1:12 Sub Dblclick(Source As Lotuslistbox) Connect.Text1.Text = Trim$(ConnectString + " " + Connect.ConnectList.Text) ContinueSub End Sub '++LotusScript Development Environment:2:2:Keyup:1:12 Sub Keyup(Source As Lotuslistbox, Keycode As Integer, Shift As Integer) Connect.Text1.Text = Trim$(ConnectString + " " + Connect.ConnectList.Text) End SubE LSOBEN<,,`l$8T@@@DDlllLotus ProductV0.0<, INCENDOBJECTTE c c c cBc c c 8Q@KUtK(##(RK<##""t"!$"0*3251860lNEWDELETE INITIALIZE TERMINATEHOBJECT`D (GLOBALS)0 (Globals)* DIALOG REGISTRY MODULE *t* Dialog Registry Module **CONNECT*ConnectTSOURCEKEYCODESHIFT BINDEVENTS OBJECTNAME_, LOTUSLISTBOXh%static_OCX_AdapterCLICKDBLCLICKKEYUPCONNECT LOTUSDIALOG%static_ltsdlg31TEXT1TEXT CONNECTSTRING CONNECTLIST CONTINUESUB@DFHk`KHw`K4`K l8).i]4).i]  d  ,,,, Dd @X l l4).i]4).i]`|,,@0 jd !,l@H d x 0HPҤL [IG˨G˧Gˤ{DOQ$G}{DO0P$W{DOQ$G}{DO0P$W)#{DOQ$G}{DO0P$W  R KQDB MS Sans Serifd2Text18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Object name_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) Connect.Text1.SELLENGTH = -1 End Sub LSOBEN<$,`l$8T@@@DDDDlllLotus ProductV0.0<$INCENDOBJECTTEccccBcccQ@KUtK|  (RK T < *3251908lNEWDELETE INITIALIZE TERMINATEHOBJECT` (GLOBALS)0 (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *t*CONNECT*ConnectSOURCE BINDEVENTS OBJECTNAME_ LOTUSTEXTBOX$%static_OCX_AdapterGOTFOCUSCONNECT@ LOTUSDIALOGh%static_ltsdlg31xTE XT1 SELLENGTH(Hk`KHw`K4`Kx l8).i]4).i] [ d ,,,, *d @ lD(4).i]4).i]`|l|l@ҤL [I G {DO Q  R KQDB MS Sans Serifd2 RangeText8).i] %,R KQDB MS Sans Serifd2HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2  '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_TDCE_STEPS End Subm LSOBEN 9L,$8T@@@DDDDLotus ProductV0.09LINCENDOBJECTTEccccBcccQ@KUtK< d (RK  P*3251A68lNEWDELETE INITIALIZE TERMINATEHOBJECT` (GLOBALS)0 (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Modul Qe *t*CONNECT*ConnectSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_Adapter,CLICKSHOWHELP H_TDCE_STEPSHk`KHw`K4`Kx 8).i]4).i] [ d ,,,,*d !6@0;uN@=ҤL [I G˨ )D;u# x7'&Help_&HelpR KQDB MS Sans Serifd2oo o Disconnect4).i]  '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 'just have to fill dialog Forall x In .ExtRangeNameList DisConnect.DisConList.AddItem x End Forall 'in case the list i s empty. If DisConnect.DisConList.ListCount > 0 Then DisConnect.DisConList.SelectItem 0 End If Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN"L,4$8T@Ttt@DDDLotus ProductV0.0LINCENDOBJECTTE^ c` c^ c` cBc` c^ c++"Q8.KU(&K$,$hK#!!t"t"<*3251B10lNEWDELETE  INITIALIZE TERMINATE@OBJECTh0 (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE *L* Dialog Registry Module *d *DISCONNECT *DisconnectSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG8%static_ltsdlg31|LOADPGENERROR LOADCAPTIONSLEFT(CURRENTAPPLICATION APPLICATIO N MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTHDTOP SCREENHEIGHT0TWIPSPERPIXELYHEIGHTXEXTRANGENAMELIST DISCONNECT DISCONLISTdADDITEML LISTCOUNT SELECTITEM PRODUCTIDLotus 1-2-3 Release 9PkHkXFKHwXFK4XFK @@dd4).i]4).i]| l T,,*@l !,,@$T PZq).i]).i]ah"th @   Pha@D `Li,d,n<kHLh,Y>_q4.@.@ҤP [I G  :)D#)D#K,.{-#~$K,-@#!K,.d{-#~<K,-#!P5{ OTZ '7"{OP8#{OT'$&'(}h)* R! Disconnect(Disconnect Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions DisConnect.HelpCom.Caption = HelpID DisConnect.Caption = DisConCap DisConnect.Label1.Caption = DisConLabel1 DisConnect.OKCom.Caption = OKID DisConnect.CancelCom.Caption = CancelID End Sub LSOBENZ$T,,,Lotus ProductV0.0Z hK8*3251C38lNEWDELETE0 INITIALIZE TERMINATEOBJECT (GLOBALS)l (Globals)P* DIALOG REGISTRY MODULE ** Dialog Registry Module *d LOADCAPTIONS DISCONNECT LOTUSDIALOG%static_ltsdlg31HELPCOMCAPTION0HELPID&Help DISCONCAPD DisconnectLABEL1 DISCONLABEL1 &DisconnectOKCOMOKIDOK CANCELCOMCANCELIDCancely\Hk1HwHk4  @T p<<<<4).i]4).i]|Hhx?P4=w^Ҥ {O$Q0} {.<}! {O`Q0}h{OlQ0}{OxQ0}OKCom8).i] l'++LotusScript Development Environment:2:5:(Options):0 :66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Dim TempRange As Range If Disconnect.DisConList.SelCount >0 Then Set TempRange = Bind(Disconnect.DisConList.Text) [].Disconnect TempRange End If Disconnect.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBEND, 8T@@@HHLotus ProductV0.0DINCENDOBJECTTE ccccBcccQ`KUPK 4HbK||t$$*3251CF8lNEWDELETE  INITIALIZE TERMINATE\OBJECTh0 (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE *L* Dialog Registry Module *4 *DISCONNECT *DisconnectSOURCE BINDEVENTSL OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterPCLICK(GENERROR TEMPRANGE|RANGEx MAIN123W.DLLSEDefaultClassControl  DISCONNECT LOTUSDIALOG@%static_ltsdlg31 DISCONLISTSELCOUNTTEXT`CLOSE PRODUCTIDLotus 1-2-3 Release 9HCڋHk :KHw :K4 :K H8).i]4).i] [ l ,, *l  `P ).i]).i]a<h9"8 H @ <4).i]4).i] H|  }d|,6 DPT  Q ҤP [I G˨  :G{OP8%^{OUHȄT ^'{,#}|gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(So urce As Lotuscommandbutton) Disconnect.Close End Sub LSOBEN88,`l8T@@@DDDDlllLotus ProductV0.088hKQ?KQQ$*3251DB0lNEWDELETE  INITIALIZE TERMINATEOBJECTh0 (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE *L* Dialog Registry Module * *DISCONNECT *DisconnectSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON8%static_OCX_Adapter|CLICK DISCONNECTT LOTUSDIALOG%static_ltsdlg31CLOSE<8HkhKHwhK4hK  l8).i]4).i] [ l ,,,,*l  @  lX<    4).i]4).i]`| l`Q l<ҤP [I G˨ {D, # GCancel_CancelR KQDB MS Sans Serifd2Label18).i] !  &Disconnect1 &DisconnectR KQDB MS Sans Serifd2 DisconList8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Dblclick(Source As Lotuslistbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source A s LOTUSLISTBOX Set Source = Bind(Objectname_) On Event Dblclick From Source Call Dblclick End Sub '++LotusScript Development Environment:2:2:Dblclick:1:12 Sub Dblclick(Source As Lotuslistbox) On Error Goto GenError Dim TempRange As Range Set TempRange = Bind(Disconnect.DisConList.Text) [].Disconnect TempRange Disconnect.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sube LSOBEN8, $8T@@@HHLotus ProductV0.08KcLҤ {O$Q0} {.<}! {O`Q0}h{OlQ0}{OxQ0} *3250DC8lNEWDELETE4 INITIALIZE TERMINATEXOBJECTh0 (GLOBALS)| (Globals)*  DIALOG REGISTRY MODULE *L* Dialog Registry Module *0 *DISCONNECT *DisconnectSOURCE BINDEVENTS OBJECTNAME_ LOTUSLISTBOX%static_OCX_AdapterHDBLCLICKGENERROR TEMPRANGExRANGE\ MAIN123W.DLLSEDefaultClassControl DISCONNECT LOTUSDIALOG$%static_ltsdlg31 DISCONLISTTEXTDCLOSE PRODUCTIDLotus 1-2-3 Release 9<!HkpnKHwpnK4pnK H8).i]4).i]  l ,, *l \L ).i]).i]a<|h9"4 H @ <    4).i]4).i] H| iH` (P8  Q ҤP [I G˧  :3^{OUHȄT^'{, #}`   R KQDB MS Sans Serifd2HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_TDD_STEPS End Subq LSOBEN 9P,$8T}h@@@DDDDLotus ProductV0.04).i]9PHhx?P4=wOKCO MOKIDOK CANCELCOMCANCELIDCancelhKT*2071548lNEWDELETE  INITIALIZE TERMINATEOBJECTh0 (GLOBALS)| (Globals)* DIALOG REGISTRY MODULE *L* Dialog Registry Module *4 *DISCONNECT *DisconnectSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP H_TDD_STEPSx"Hk`KHw`K4`K 8).i]4).i] [ l ,,,,*l !6@ 8=u@O@=ҤP [I G˨ )D=u# '&Help_&HelpR KQDB MS Sans Serifd2 SendSQL4).i] D '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 'just have to fill dialog Forall x In .ExtRangeNameList SendSQL.TablesList.AddItem x End Forall 'in case the list is empt y. If SendSQL.TablesList.ListCount > 0 Then SendSQL.TablesList.SelectItem 0 End If SendSQL.Option1.Value = 1 Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub1LSOBEN$d,L$8@Ttt@DDDLotus ProductV0.0dINCENDOBJECTTE c c c cBc c c--"Q(cKU[K&&7K\&|$|$$$<T*20715E8lNEWDELETEH INITIALIZE TERMINATE0OBJECT`\ (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *8*SENDSQL*SendSQLSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG0%static_ltsdlg31tLOADHGENERROR LOADCAPTIONSLEFT CURRENTAPPLICATION  APPLICATION MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTH<TOP SCREENHEIGHT TWIPSPERPIXELYHEIGHTPXEXTRANGENAMELISTSENDSQL TABLESLISTxADDITEM< LISTCOUNT SELECTITEM`OPTION1VALUE PRODUCTIDLotus 1-2-3 Release 9h]HkPKHwPK4PKx @@dd4).i]4).i]| d T,,*@d !,,@L PZxq).i]).i]ah"t`8@  d|a@< `Li,d$n4k@Lh,Y(>&_ q$@YT.@4.@ ҤL [I G  :)D#)D#K,.{-# ~<K,-@#!K,.d{-#~TK,-#!P5{OTZ '7"{OP8#{OT'$&{OQ(()*}|+, "$ Send SQL(SendSQL Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions SendSQL.HelpCom.Caption = HelpID SendSQL.Caption = SendSQLCap SendSQL.Label1.Caption = SendSQLLabel1 SendSQL.Label2.Caption = SendSQLLabel2 SendSQL.Label3.Caption = SendSQLLabel4 SendSQL.OKCom.Caption = OKID SendSQL.CancelCom.Caption = CancelID SendSQL.Option1.Caption = SendSQLOption1 SendSQL.Option2.Caption = SendSQLOption2 End Sub* LSOBEN4<$8T ,DDdd,, Lotus ProductV0.04<Kx"@*2071708lNEWDELETE0 INITIALIZE TERMINATE\OBJECT (GLOBALS)d (Globals)P* DIALOG REGISTRY MODULE ** Dialog Registry Module * LOADCAPTIONSSENDSQL LOTUSDIALOG%static_ltsdlg31HELPCOMpCAPTION(HELPID&Help< SENDSQLCAPSend SQLLABEL1 SENDSQLLABEL14&TablesLABEL2 SENDSQLLABEL2D &SQL string:LABEL3 SENDSQLLABEL4$SQ&L results range:POKCOMhOKIDOK CANCELCOMCANCELIDCancelOPTION1SENDSQLOPTION1 S&QL stringOPTION2 SENDSQLOPTION2 &From range8Hk1HwHk4 8@T h4).i]4).i]|$@`$D8Hdl$?P(,=t>?(wTYZҤ {OQ} {.}! {OQ}`{OQ}{OQ}{OQ}H{OQ}{OQ}{O(Q}$OKCom8).i] D '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If (SendSQL.Tables List.SelCount > 0) And (Len(SendSQL.RangeText.Text) > 0 Or Len(SendSQL.SQLText.Text) > 0) And (Len(SendSQL.OutText.Text) > 0) Then Dim Table As range Set Table = Bind (SendSQL.TablesList.Text) Dim Output1 As Range Set Output1 = Bind (SendSQL.OutText.Text) If SendSQL.Option1.Value = 1 Then [].SendSQL Table, SendSQL.SQLText.Text, Output1 Else Dim SQLRange As Range Set SQLRange = Bind (SendSQL.RangeText.Text) [].SendSQL Table, SQLRange.Cellvalue, Output1 End If End If SendSQL.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubXLSOBEN <8,$8T@@@DDDDllLotus ProductV0.0<8INCENDOBJECTTE c c c cBc c c((QCKU;Kl//KD/d-d---(d(' & '&&T$<*20717C0lNEWDELETEH INITIALIZE TERMINATE0OBJECT` (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module **SENDSQL*SendSQLSOURCE BINDEVENTS, OBJECTNAME_LOTUSCOMMANDBUTTON@%static_OCX_AdapterCLICKGENERRORSENDSQL\ LOTUSDIALOG%static_ltsdlg31 TABLESLISTSELCOUNT RANGETEXTTEXT(SQLTEXTOUTTEXTTABLEHRANGEx MAIN123W.DLLSEDefaultClassControlOUTPUT1OPTION1VALUESQLRANGE CELLVALUECLOSE PRODUCTIDLotus 1-2-3 Release 9NU HkXpKHwXpK4XpKx l8).i]4).i] [ d ,,,*d 8@0 l`D4).i]4).i]`|`, tttt ).i]).i]alLh9"  |   $  &6n\PppY006* l`Q l@ҤL [I G˨  :{DOP{DO U,%{DO8U,%{DODU,%8^{DOU,^{DODU,{DOPP\8#ȄTh^{DO8U,^':2^{DO U,ȄTh^K-t#^' "{D,##$%} &'gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] z'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Developme nt Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) SendSQL.Close End Sub LSOBEN88|,`l$8T@@@DDDDlllLotus ProductV0.088| KK0oKKHoKK`oKKxoKKoKKoKKoKKoKHh*2071868lNEWDELETEH INITIALIZE TERMINATE0OBJECT` (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module **SENDSQL*SendSQLSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON(%static_OCX_AdapterlCLICKSENDSQLD LOTUSDIALOG%static_ltsdlg31CLOSE<.xN3HkFKHwFK4FKx l8).i]4).i] [ d ,,,,*d 8@ lH,    4).i]4).i]`|p l`Q l<ҤL [I G˨ {D, # GCancel_CancelR KQDB MS Sans Serifd2Label18).i]  &Tables1&TablesR KQDB MS Sans Serifd2 TablesList8).i]  R KQDB MS Sans Serifd2Label28).i] $  &SQL string:1 &SQL string:R KQDB MS Sans Serifd2SQLTex t8).i]  "R KQDB MS Sans Serifd2Option18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) '"Put a comment line (can be blank) in the SetFocus event of Option1. SendSQL.SQLText.Visible = True SendSQL.RangeText.Visible = False SendSQL.Image3.Visible = False SendSQL.Label2.Caption = SendSQLLabel2 End Sub LSOBENht$,`l$8TT@@@DD DDlllLotus ProductV0.0*Discoht$ OBJECTNAME_ LOTUSDIALOG8%static_ltsdlg31|LOADPGENERROR LOADCAPTIONSLEFT(CURRENTAPPLICATION APPLICATION MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTHDTOP SCREENHEIGHT0TWIPSPERPIXELYHEIGHTXEXTRANGENAMELIST DISCONNECT DISCONLISTdAD(*2020110lNEWDELETEH INITIALIZE TERMINATE0OBJECT` (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module **SENDSQL*SendSQLSOURCE BINDEVENTS OBJECTNAME_hLOTUSOPTIONBUTTON$%static_OCX_AdapterCLICK|SENDSQL@ LOTUSDIALOG%static_ltsdlg31SQLTEXTVISIBLE RANGETEXTIMAGE3LABEL2CAPTION SENDSQLLABEL2 &SQL string:xi@ccHw@c4yx l8).i]4) .i] [  d ,,,, *d 8@ lD(4).i]4).i]`|lp n]>lҤL [I G˨ {DO,Q8{DODQ8{DOPQ8{DO\Qh}x7 S&QL string _ S&QL stringR KQDB MS Sans Serifd2Option28).i] j'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(S ource As Lotusoptionbutton) SendSQL.SQLText.Visible = False SendSQL.RangeText.Visible = True SendSQL.Image3.Visible = True SendSQL.Label2.Caption = SendSQLLabel3 End Sub4 LSOBENht8,`l$8T@@@DDDDlllLotus ProductV0.0ht8<*2071C40lNEWDELETEH INITIALIZE TERMINATE0OBJECT` (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module **SENDSQL*SendSQLSOURCE BINDEVENTS OBJECTNAME_hLOTUSOPTIONBUTTON$%static_OCX_AdapterCLICK|SENDSQL@ LOTUSDIALOG%static_ltsdlg31SQLTEXTVISIBLE R ANGETEXTIMAGE3LABEL2CAPTION SENDSQLLABEL3&Range with SQL StringxH]HkCKHwCK4CKx l8).i]4).i]  d ,,,, *d 8@ lD(4).i]4).i]`|lp n]>lҤL [I G˨ {DO,Q8{DODQ8{DOPQ8{DO\Qh}xp7  &From range _ &From rangeR KQDB MS Sans Serifd2 RangeText8).i]   FR KQDB MS Sans Serifd2Image38).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environm ent:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusimage) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSIMAGE Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusimage) On Error Goto GenError Dim Range1 As range Dim GetRange As RangeSelector Dim PreHeight As Long 'get height of dialog to reset after range pointer PreHeight = SendSQL.Height 'shrink dialog SendSQL.Height = 100 Set GetRange = CurrentApplication.RangeSelector SendSQL.RangeText.Text = GetRange.getrangeString(currentdocument) 'reset dialog SendSQL.Height = PreHeight SendSQL.RangeText.SetFocus Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End SubLSOBEN |,0$8T@@@``0HH| 00Lotus ProductV0.0|INCENDOBJECTTEccccBccc##Q@KUtK<d(RK44*2071D88lNEWDELETEH INITIALIZE TERMINATE0OBJECT` (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *@*SENDSQL*SendSQLSOURCE BINDEVENTS OBJECTNAME_ LOTUSIMAGE%static_OCX_Adapter8CLICKLGENERROR0RANGE1`RANGE MAIN123W.DLLSEDefaultClassControlGETRANGEL RANGESELECTOR PREHEIGHTxSENDSQL LOTUSDIALOG%static_ltsdlg31HEIGHTCURRENTAPPLICATION APPLICATION RANGETEXTTEXT4GETRANGESTRINGCURRENTDOCUMENTDOCUMENTSETFOCUS PRODUCTIDLotus 1-2-3 Release 9RU(Hk$KHw$K4$Kx  H8).i]4).i] [  d ,,,xx *d D4 ).i]).i]a<dh9"x  H````s).i]).i]a<Hdh<" 8@` <||4).i]4).i]|P |PZ0|$$$$q).i]).i]a<dh" 0PZ).i]).i]a<|dh" 8P<Y K,nP<c&  0 5ҤL [I G˨  :ab{-#{.d!^x{`-$#{OHQTKx,`z#{.X!{OHT' }P!" Image1 aImage1R KQDB MS Sans Serifd2  c:\range2.bmpR KQltBM6(@@@@@@@ʦ`a+e[[[&] [c _?[#y [._.FJ.'?'.?'P;G ;<y.PA 0 Or ([].PromptState = $Table And CreateTable.ConnectList.SelCount = 0) Then If [].PromptState = $Driver Then CreateTable.Label1.Caption = ConnectLabel2 CreateTable.Label1.Caption = ConnectLabel2 Elseif [].PromptState = $Database Then CreateTable.Label1.Caption = ConnectLabel3 CreateTable.Label1.Caption = ConnectLabel3 Elseif [].PromptState = $Table Then If Cr eateTable.ConnectList.ListIndex > 0 Then CreateTable.Text1.Text = Trim$(ConnectString) + " [New Table]" CreateTable.ConnectList.Selected(-1) = False CreateTable.Text1.SetFocus CreateTable.Text1.SelStart = Len(CreateTable.Text1.Text) - Len(NewTable) CreateTable.Text1.SelLength = Len(NewTable) Exit Sub Elseif CreateTable.ConnectList.SelCount = 0 Then If Right$(CreateTable.Text1.Text, Len(NewTable)) = NewTable Then CreateTable.ConnectList.Selected(-1) = False CreateTable.Text1.SetFocus CreateTable.Text1.SelStart = Len(CreateTable.Text1.Text) - Len(NewTable) CreateTable.Text1.SelLength = Len(NewTable) Exit Sub End If CreateDef = 1 TableID = Right$( CreateTable.Text1.Text, Len(CreateTable.Text1.Text) - Instr(Instr(1, CreateTable.Text1.Text, " ") + 1, CreateTable.Text1.Text, " ")) End If End If 'move the connection along ConnectString = Trim$(CreateTable.Text1.Text) 'else we're going back Else If [].PromptState = $Tabl e Then CreateTable.Label1.Caption = ConnectLabel2 CreateTable.Label1.Caption = ConnectLabel2 'back up the connection one level ConnectString = Trim$(Left$(ConnectString, Instr(1,ConnectString," ") -1 )) Elseif [].PromptState = $Database Then CreateTable.Label1.Caption = ConnectLabel1 CreateTable.Label1.Caption = ConnectLabel1 'back up the connection to the beginning ConnectString = "" End If End If 'do the connection if Table Def not set If CreateDef <> 1 Then [].ConnectString = ConnectString End If 'and let the ODBC admin handle the actual PW/UI If [].PromptState = $DriverUI Then [].DriverUserID = "" [].ConnectString = ConnectString End If If [].PromptState = $DriverPW Then [].DriverPasswd = "" [].ConnectString = ConnectString End If 'Remove all names from list if not CreateDef If CreateDef <> 1 Then For y = (CreateTable.ConnectList.ListCount - 1) To 0 Step -1 CreateTable.ConnectList.removeitem y Next y End If 'populate the dialog list based upo n the state unless State is table Def 'then exit sub If CreateDef <> 1 Then Forall x In [].ExtConnectionList CreateTable.ConnectList.Additem x End Forall If CreateTable.ConnectList.ListCount > 0 Then CreateTable.ConnectList.SelectItem 0 End If If [].PromptState = $Database Then CreateTable.ConnectList.Additem "[Show drivers]", 0 CreateTable.Text1.Text = Trim$(ConnectString) Elseif [].PromptState = $Table Then CreateTable.ConnectList.Additem "[Show databases]", 0 CreateTable.Text1.Text = Trim$(ConnectString) + " " + NewTable CreateTable.ConnectList.Selected(-1) = False CreateTable.Text1.SetFocus CreateTable.Text1.SelStart = Len(CreateTable.Text1.Text) - Len(NewTable) CreateTable.Text1.SelLength = Len(NewTable) End If CreateTable.ConnectList.SetFocus Exit Sub End If 'if we're here we must be in table def state so Convert dialog CreateTable.OKCom.Caption = OKID CreateTable.Label1.Caption = CreateLabel1 CreateTable.Label1.Caption = CreateLabel1 C reateTable.Height = 2100 CreateTable.ConnectList.Visible = False CreateTable.Text1.Visible = False CreateTable.Image1.Visible = True CreateTable.Check1.Visible = True CreateTable.Check1.Value = 1 CreateTable.RangeText.Visible = True If Typename (Selection) = "DATAQUERY" Then CreateTable.RangeText.Text = Selection.OutputLocation Else CreateTable.RangeText.Text = Selection.Name End If CreateTable.RangeText.SetFocus CreateTable.RangeText.SelLength = -1 Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions CreateTable.HelpCom.Caption = HelpID CreateTable.Caption = CreateCap CreateTable.Label1.Caption = ConnectLabel1 CreateTable.OKCom.Caption = ConnectCom CreateTable.CancelCom.Caption = CancelID End Sub.LSOBENT>4 $8T,|\llL\<<,,|XXXDDDLotus ProductV0.0>4  INCENDOBJECTTE,c,c,c,cBc,c,cQgK<|<,lT\$rqooq q\qnn8 *2070220lNEWDELETE0 INITIALIZE TERMINATEOBJECTh (GLOBALS) (Globals)t* DIALOG REGISTRY MODULE *|* Dialog Registry Module *P CONNECTSTRINGDDRIVERIDTABLEID DATABASEID CREATEDEF CONTINUESUBXGENERROR CREATETABLE LOTUSDIALOG%static_ltsdlg31dHEIGHT TEMPRANGE1RANGEt MAIN123W.DLL SEDefaultClassControl TEMPRANGE24  RANGETEXTTEXTDCHECK1VALUE APPENDRECORDSCLOSEl PROMPTSTATE CONNECTLIST LISTINDEXSELCOUNTLABEL1$CAPTION CONNECTLABEL2, &Select a database or directory: CONNECTLABEL3D&Select a table:`TEXT1 [New Table]DSELECTEDSETFOCUSxSELSTARTNEWTABLE [New Table]  SELLENGTH< CON NECTLABEL1&Select a driver: DRIVERUSERID DRIVERPASSWDY LISTCOUNT REMOVEITEMhXlEXTCONNECTIONLISTADDITEM SELECTITEM[Show drivers]T[Show databases]4OKCOMOKIDOK CREATELABEL1| &Model Table:\VISIBLEHIMAGE1 SELECTION DATAQUERYOUTPUTLOCATIONNAME( PRODUCTIDLotus 1-2-3 Release 9 LOADCAPTIONSpHELPCOMHELPID&Help CREATECAP Create a table CONNECTCOM &Continue CANCELCOMCANCELIDCancel@_^Hk1HwHk<4LT\<ll0 |pXXX  pp ttttP@X D XX4).i]4).i]8|8x(((( ).i]).i]aDh9"\   (p0H|0| 8PZ <, \\` t| $ XHY4ȑnP$ch8H 0 & h D8Q Dxxq06<=65$7dl%-Xt q$(@XH'p_wX l_L?P4Ld O@| O@ O@ O@ $<T O@l O@BҤ :{-#8[<ȄU ȄU}J[\ȄU ȄU}ȄU}ȄU}ȄU}M^p{OUT[<[\[L^p'{OP8^GLK,(Jp# !{,X#"#'ȄP~ {OPȄP~${OP8(ȄP~<8$){OQ}(*{OQ}(:+ȄP~T8$,{OQ}-{OQ}:y.ȄP~l8f/{OP8m0{OQG,W}1{O(2{OT'3{OQ{OU%~4{OQ~5:6{OP87{OU  P}H8Q8{O(9{OT':{OQ{OU%~;{OQ~<=>`?[L{OU {OU%{OU}{OU}P@AD[,{OU WG:HȄP~8DI{OQ}(J{OQ}(L[,G, G,}JW:=MȄP~8*N{OQ}O{OQ}Q[,}RSVV8 WȄQG,X\ȄP~8]ȄQ}^ȄQG,_aȄP~,8bȄQ}cȄQG,dgV82h^ {OP0^H4i{OT<^ 'j^H6koV8"pȄPh5Xq{OTtZX 'r7Xs{OP08t{OT'uvȄP~D8)w{OTt}'x{OQG,W:yȄP~\8zz{OTt}'{{OQG,W}}H|{O(}{OT'~{OQ{OU%~t{OQ~{OT'{OQ} {OQ}8{OQ}8{.4!{OQ{OQ{OQ{OQ{OQ{OQ|X:}8{OQ{XP:{OQ{XP{OT'{OQ}{OQ}t{.}!{OQ}{OQ}{OQ}$  OKCom8).i] x'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ContinueSub End SubA LSOBEN5L,$8@@@DDDDLotus ProductV0.065LXt q$(@XH'p_wX l_L?P4Ld O@| O@ O@ O@ $<T O@l O@T*20702E0lNEWDELETE INITIALIZE TERMINATEPOBJECTp (GLOBALS) (Globals)P* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *CREATETABLE *CreateTableSOURCE BINDEVENTS@ OBJECTNAME_$LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICK CONTINUESUBpRANGE MAIN123W.DLLSEDefaultClassControlPNHk%Hw%4%  8).i]4).i] [< t ,,,,*t !,|@(  TD ).i]).i]ath9"9ҤT [I G˨ )D#x7g &Continue_ &ContinueR KQDB MS Sans Serifd2 CancelCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Cl ick(Source As Lotuscommandbutton) CreateTable.Close End Sub$ LSOBEN88,`l$8T@@@DDDDlllLotus ProductV0.088INCENDOBJECTTEccccBcccQ _KUWK  2K d L $ *2070398lNEWDELETE INITIALIZE TERMINATEOBJECTp (GLOBALS) (Globals)P* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *CREATETABLE *CreateTableSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON$%static_OCX_AdapterCLICK@ CREATETABLE\ LOTUSDIALOG%static_ltsdlg31CLOSE<HHk0tKHw0tK40tK  l8).i]4).i] [ t ,,,,*t P@( l`D    4).i]4).i]`| l`Q l<ҤT [I G˨ {D, # x7GCancel_CancelR KQDB MS Sans Serifd2Label18).i] 3 &Select a driver:1&Select a driver:R KQDB MS Sans Serifd2 ConnectList8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuslistbox) Declare Sub Dblclick(Source As Lotuslistbox) Declare Sub Keyup(Source As Lotuslistbox, Keycode As Integer, Shift As Integer) '++LotusScript Development Environment:2:5:(Decl arations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSLISTBOX Set Source = Bind(Objectname_) On Event Click From Source Call Click On Event Dblclick From Source Call Dblclick On Event Keyup From Source Call Keyup End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuslistbox) If [].PromptState <> $Table Then CreateTable.Text1.Text = Trim$(ConnectString + " " + CreateTable.ConnectList.Text) End If End Sub '++LotusScript Development Environment:2:2:Dblclick:1:12 Sub Dblclick(Source As Lotuslistbox) ContinueSub End Sub '++LotusScript Development Environment:2:2:Keyup:1:12 Sub Keyup(Source As Lotuslistbox, Keycode As Integer, Shift As Integer) If [].PromptState <> $Table Then CreateTable.Text1.Text = Trim$(ConnectString + " " + CreateTable.ConnectList.Text) End If End SubLSOBEN ,($8T@@@DDD(( (llLotus ProductV0.0INCENDOBJECTTE c c c cBc c c##8QWKUOK(""0+K$"t"!    l *20704E0lNEWDELETE INITIALIZE TERMINATEdOBJECTpT (GLOBALS) (Globals)P* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *CREATETABLE *CreateTable(SOURCE KEYCODE,SHIFT BINDEVENTS OBJECTNAME_< LOTUSLISTBOX%static_OCX_AdapterCLICK`DBLCLICKKEYUPp PROMPTSTATE CREATETABLE LOTUSDIALOG%static_ltsdlg31TEXT1TEXT CONNECTSTRINGD CONNECTLIST CONTINUESUBRANGE MAIN123W.DLLSEDefaultClassControl aHkjKHwjK4jK  l8).i]4).i]  t 0,,,, Dt P@ l(4).i]4).i]`|,,@@}t !,|@H ( (`td ).i]).i]alh9"XPp``PPpp `t p0@XhxP,ҤT [IG˨G˧GˤȄP~8"{DOQG}${DOPW)#ȄP~ 8" {DOQG}${DOPW!"  R KQDB MS Sans Serifd2Text18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2: 5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) CreateTable.Text1.SELLENGTH = -1 End Sub( LSOBEN<$,`l$8T@@@DDDDlllLotus ProductV0.0<$INCENDOBJECTTEccccBcccQCKU;K|  K T < *2070580lN EWDELETE INITIALIZE TERMINATEOBJECTp (GLOBALS) (Globals)P* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *CREATETABLE *CreateTableSOURCE BINDEVENTS OBJECTNAME_ LOTUSTEXTBOX %static_OCX_AdapterGOTFOCUS< CREATETABLEX LOTUSDIALOG%static_ltsdlg31TEXT1 SELLENGTH(0Hk_KHw_K4_K l8).i]4).i] [ t  ,,,, *t P@$ l\@4).i]4).i]`| l@ҤT [I G {DO Q  R KQDB MS Sans Serifd2 RangeText8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development E nvironment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) CreateTable.RangeText.SELLENGTH = -1 End Sub0 LSOBEN<$,`l$T@@@DDDDlllLotus ProductV0.0<$INCENDOBJECTTEccccBcccQ8.KU(&K|  hK T <  8*2070628lNEWDELETE INITIALIZE TERMINATEOBJECTp (GLOBALS) (Globals)P* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *CREATETABLE *CreateTableSOURCE BINDEVENTS OBJECTNAME_ LOTUSTEXTBOX %static_OCX_AdapterGOTFOCUS< CREATETABLEX LOTUSDIALOG%static_ltsdlg31 RANGETEXT SELLENGTH(&@YHkPGKHwPGK4PGK l8).i]4).i] [ t  ,,,, *t P@$ l\@4).i]4).i]`| nl@ҤT [I G {DO Q %,R KQDB MS Sans Serifd2Image18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusSc ript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusimage) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSIMAGE Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusimage) On Error Goto GenError Dim Range1 As range Dim GetRange As RangeSelector Dim PreHeight As Long 'get height of dialog to reset after range pointer PreHeight = CreateTable.Height 'shrink dialog CreateTable.Height = 100 Set GetRange = CurrentApplication.RangeSelector CreateTable.RangeText.Text = GetRange.getrangeString(currentdocument) 'reset dialog CreateTable.Height = PreHeight CreateTable.RangeText.SetFocus Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End SubLSOBEN ,08T @@@ ``0HH|00Lotus Product'V0.0~ {OP(*{OQ}(:+ȄP~T8$,{OQ}-{OQ}:y.ȄP~l8f/{OP8m0{OQG,W}1{O(2{OT'3{OQ{OU%~4{OQ~5:6{OP87{OU  P}H8Q8{O(9{OT':{OQ{OU%~;{OQ~<=>`?[L{OU {OU%{OU}{OU}P@AD[,{OU WG:HȄP~8DI{OQ}(J{OQ}(L[,G,G,}JW:=MȄP~8*N{OQ}O{OQ}Q[,}R$*20706D8lNEWDELETE INITIALIZE TERMINATEPOBJECTp (GLOBALS) (Globals)P* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *CREATETABLE *CreateTableSOURCE BINDEVENTS, OBJECTNAME_ LOTUSIMAGE%static_OCX_AdapterPCLICKdGENERROR@RANGE1pRANGE MAIN123W.DLLSEDefaultClassControlGETRANGEd RANGESELECTOR PREHEIGHT  CREATETABLE( LOTUSDIALOG%static_ltsdlg31HEIGHT4CURRENTAPPLICATION APPLICATION RANGETEXTTEXTLGETRANGESTRINGCURRENTDOCUMENTDOCUMENTSETFOCUS PRODUCTIDLotus 1-2-3 Re lease 9SmHkh?KHwh?K4h?K H8).i]4).i] [  t ,,,xx *t TD ).i]).i]a<th9"x0 H````s).i]).i]a<Hth<" P@` <,||4).i]4).i]|h |PZ0$$$$q).i]).i]a<th" 0PZ ).i]).i]a<|th" PhTY K,nP<c&  085ҤT [I G˨  :ab{-#{.d!^x{`-$#{OHQTKx,`z#{.X!{OHT' }h!" N 9Image1 aImage1R KQDB MS Sans Serifd2 c:\range2.bmpR KQltBM6(@@@@@@@ʦ`a+e[[[&] [c _?[#y [._.FJ.'?'.?'P;G ;<y.PAuO@=ҤT [I G˨ )D>u# x7'&Help _&HelpR  [KQDB MS Sans Serifd2\\ \CT14).i] l '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError Dim QueryRange As Range 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 If Typename (Selection) = "DATAQUERY" Then Set QueryRange = Bind (Selection.OutputLocation) QueryRange .Select End If Selectrange = Selection.Name CT1.RangeText.Text = Selection.Name CT1.RangeText.SelLength = -1 CT1.ContCom.SetFocus Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN(X,<d@8T@@tttHH``<<dHHdLotus ProductV0.0XINCENDOBJECTTE c c c cBc c c,,QP:KU@2K +4+K*))|)|)$*20708C0lNEWDELETE INITIALIZE TERMINATE$OBJECT@h (GLOBALS)0 (Globals)p* DIALOG REGISTRY MODULE ** Dialog Registry Module *T*CT1SOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOG<%static_ltsdlg31LOADGENERRORt QUERYRANGEDRANGE MAIN123W.DLLSEDe faultClassControl LOADCAPTIONSLEFT,CURRENTAPPLICATION APPLICATION SCREENWIDTHTWIPSPERPIXELXWIDTHHTOP SCREENHEIGHTTWIPSPERPIXELYHEIGHT SELECTION DATAQUERY$OUTPUTLOCATION4SELECT SELECTRANGEXNAME@CT1 RANGETEXThTEXT SELLENGTHCONTCOMSETFOCUS PRODUCTIDLotus 1-2-3 Release 9\{9_HkiKHwiK4iKX tHd<<4).i]4).i]| D ,,,*D (d ).i]).i]a<Hh9" H!,,@Hx< dPZ```q).i]).i]a<HHh" l`PZ@t h@8  a ``Li,<0n@ kLLh,Y OH<J( H(Dn\Pll5.@(.@Ҥ4 [I G  :)#)#K,.{H-#~0K,-#!K,.<{H-`#~HK,-#!|<:}8^{<UHK,# "[`{<P${tOQ{<P%{tOQ&{tOT''()}*+ GCrosstab Assistant(CT1 Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions CT1.HelpCom.Caption = HelpID CT1.Caption = CTCap CT1.Label1.Caption = CTLabel1 CT1.ContCom.Caption = ContID CT1.CancelCom.Caption = CancelID End SubZ LSOBENZ\$8T,,, Lotus ProductV0.0Z\QK(<Xp*5NEWDELETEINITIALIZE`*20709E0lNEWDELETE0 INITIALIZE TERMINATE0OBJECTTP (GLOBALS)\ (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module * LOADCAPTIONSCT1x LOTUSDIALOG%static_ltsdlg31HELPCOMHCAPTIONHELPID&Help<CTCAP(Crosstab AssistantLABEL1CTLABEL1>&Select database range for crosstab including column headings:CONTCOMCONTID &Continue CANCELCOMCANCELIDCancelpHk1HwHk4 h@T |`<<<<4).i]4).i]| @X4Lx?P,=^Ҥ {O$Q0} {.<}! {O`Q0}X{OlQ0}{OxQ0}LContCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Dim QueryRange As Range Dim FromError As Integer Dim Range1 As range Dim QueryName1 As String FromError = 0 Set Range1 = Bind (CT1.RangeText.Text) If Range1.IsSelectable = True Then Range1.Select End If SelectRange = Range1.Name For x = 1 To 1000 Step 1 Set QT = Bind ("Query " + Cstr(x)) If FromError = 1 Then Exit For Next x On Error Goto GenError2 CurrentDocument.NewQuery QueryName1, SelectRange Set QT = Bind DataQuery( QueryName1) QT.Select CT1.Close CrossTab.Show 1 Exit Sub GenError: QueryName1 = "Query " + Cstr(x) FromError = 1 Resume Next Exit Sub GenError2: Msgbox (Error$), 16, ProductID Exit Sub End Sub.LSOBEN*F,<$8T@@@ t  PPttHHHHLotus ProductV0.0FINCENDOBJECTTE c c c cBc c c77"Q8.KU(&K/ 0hK/--T.T.d*2070A90lNEWDELETE INITIALIZE TERMINATE8OBJECT@ (GLOBALS)0 (Globals) p* DIALOG REGISTRY MODULE ** Dialog Registry Module *T*CT1SOURCE BINDEVENTS( OBJECTNAME_|LOTUSCOMMANDBUTTON%static_OCX_Adapter CLICKHGENERRORT QUERYRANGEXRANGE MAIN123W.DLLSEDefaultClassControl FROMERRORRANGE1 QUERYNAME1 CT1 LOTUSDIALOG8%static_ltsdlg31h RANGETEXTTEXT ISSELECTABLE|SELECT SELECTRANGENAME<XQT DATAQUERYdQuery GENERROR2$CURRENTDOCUMENTDOCUMENTNEWQUERYCLOSECROSSTABSHOW PRODUCTIDLotus 1-2-3 Release 9 BASEOBJECTwHkOKHwOK4OKX tH8).i]4).i] [ D ,, *pD <H, ).i]).i]a<\h9" H Hh@ H<|||4).i]4).i] <H|@<@ PPPP ).i]).i]<H\h6"P PZ().i]).i]a<\h"@t@ H@h H   .$n<P).i]<\h"L*l OH<J( H , 0@ 4<&  l O<J( X H<Q H H<i HJҤ4 [I G˨  :b^{ OUHK-#8 K,#[K-# ^^ 4*![}J"X8: #^ 6% ` :e&{,JG#1'[J(K,P#*{ ,|#+{t,#-./^}J0b1 234}56x &Continue_ &ContinueR KQDB MS Sans Serifd2 CancelCom8).i] r'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbu tton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) CT1.Close End Sub LSOBEN88T,`l8T8@@@DDDDlllLotus ProductV0.088T4).i] [ D ,,,,*D @ l     4).i]4).i]`|H l`Q lKX$*2070B58lNEWDELETE INITIALIZE TERMINATEOBJECT@ (GLOBALS)0 (Globals)p * DIALOG REGISTRY MODULE ** Dialog Registry Module *T*CT1SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterDCLICKCT1 LOTUSDIALOG%static_ltsdlg31CLOSE<;Hk4KHw4K44KX tl8).i]4).i] [ D ,,,,*D h@ l     4).i]4).i]`|H l`Q l<Ҥ4 [I G˨ {D, # XCancel_CancelR KQDB MS Sans Serifd2Label18).i] xx ?&Select database range for crosstab including column headings:>&Select database range for crosstab including column headings:R KQDB MS Sans Serifd2  RangeText8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Lotustextbox) CT1.RangeText.SELLENGTH = -1 End Sub LSOBEN<$p,`l$TK@@@DDDDlllLotus Product]V0.0<$p@X4Lx?P,=xKQXFKQQ t8*2070CA0lNEWDELETE INITIALIZE TERMINATEOBJECT@ (GLOBALS)0 (Globals)p* DIALOG REGISTRY MODULE ** Dialog Registry Module *T*CT1SOURCE BINDEVENTS OBJECTNAME_ LOTUSTEXTBOX%static_OCX_AdapterGOTFOCUS@CT1 LOTUSDIALOGX%static_ltsdlg31 RANGETEXT SELLENGTH(i;HkOKHwOK4OKX tl8).i]4).i] [ D ,,,, *D h@ l4).i]4).i]`|Dn\l@Ҥ4 [I G {DO QxXo FR KQDB MS Sans Serifd2 Image18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusimage) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSIMAGE Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusimage) On Error Goto GenError Dim GetRange As RangeSelector Dim PreHeight As Long 'get height of dialog to reset after range pointer PreHeight = CT1.Height 'Shrink dialog CT1.Height = 100 Set GetRange = CurrentApplication.RangeSelector CT1.RangeText.Text = GetRange.getrangeString(currentdocument) 'reset dialog CT1.Height = PreHeight CT1.SetFocus CT1.RangeText.SelLength = -1 Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End SubJLSOBEN (H,8T@000@@ttt(HLotus ProductV0.0(HINCENDOBJECTTEccccBccc$$QSKUGKT|%K,LLL$*2070D40lNEWDELETE INITIALIZE TERMINATEOBJECT@ (GLOBALS)0 (Globals)p* DIALOG REGISTRY MODULE ** Dialog Registry Module *T*CT1SOURCE BINDEVENTST OBJECTNAME_ LOTUSIMAGE%static_OCX_AdapterCLICKGENERRORGETRANGE4 RANGESELECTOR MAIN123W.DLL,SEDefaultClassControl PREHEIGHTHCT1 LOTUSDIALOG`%static_ltsdlg31pHEIGHTCURRENTAPPLICATION APPLICATION RANGETEXTTEXTGETRANGESTRINGCURRENTDOCUMENTDOCUMENTSETFOCUS SELLENGTH PROD UCTIDLotus 1-2-3 Release 9,}.<Hk@KHw@K4@KX tHH8).i]4).i] [P  D 0,,, *    D 8(s).i]).i]a<Xh<" Hh@ (<```4).i]4).i]H|t PZ0q).i]).i]a<(Xh" PZ).i]).i]a<Xh" Y K,HLndPtH<c& H  (h (lҤ4 [I G˨  :lb{-`#{.`d!^{-#{OQK,zt#{.`X!{,#{OQ !}"#` X Image1aImage1R KQDB MS Sans Serifd2 c:\range2.bmpR KQltBM6(@@@@@@@ʦ`a+e[[[&] [c _?[#y [._.FJ.'?'.?'P;G ;<y.PA 1 CrossTab.Combo1.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) CrossTab.Combo2.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend CrossTab.Combo1.SelectItem 0 CrossTab.Combo2.SelectItem 1 CrossTab.ContCom.SetFocus Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:Unload:1:12 Sub Unload(Source As Lotusdialog) On Error Goto GenError If Typename (selection) = "DATAQUERY" Then .DeleteQuery QT.Name End If CrossTab.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubyLSOBEN0, $8T@Tttpp@DpppTTD   Lotus ProductV0.0 Q@QIxQENtQ $8,`99 @@@*2070E88lNEWDELETE, INITIALIZE TERMINATELOBJECT0p (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *` *CROSSTAB *CrosstabSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOGD%static_ltsdlg31LOAD(UNLOAD\GENERROR LOADCAPTIONSLEFT4CURRENTAPPLICATION APPLICATION( MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTHPTOP SCREENHEIGHTTWIPSPERPIXELYdHEIGHTlTEMP1QT DATAQUERY SELECTFIELDSCROSSTAB<COMBO1ADDITEMDSELECTFIELDSDELIM;COMBO2 SELECTITEMCONTCOMSETFOCUST PRODUCTIDdLotus 1-2-3 Release 9 SELECTION DELETEQUERYNAMECLOSE BASEOBJECT Q#Hk_KHw_K4_Kx pp(4).i]4).i]| d T,,,7d !,,@0` PZLLLq).i]).i]ah"tpt<@T   ).i]).i]h6"@p @h PXXXXhd PZ alP `LLi,(8npHkTLh,Y4n,_,_p\5,ph).i]h"H ,X Q .@.@ҤL [I GG : )D#)D#K,.{-#~K,-#!K,.({-L#~  K,-p#! ^K-#!^%8j"{TOTJJ}hJ'#{TOTJJ}hJ'$^JJ}h'M%:'{TOT'({TOT'){TOT'*+,}-.1 :13|p:}84TK-#'56{T,#789}:< O$Crosstab Heading Options(Crosstab Globals)v'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions CrossTab.HelpCom.Caption = HelpID CrossTab.Caption = CrossTabCap CrossTab.Label1.Caption = CrossTabLabel1 CrossTab.Label2.Caption = CrossTabLabel2 CrossTab.Label3.Caption = CrossTabLabel3 CrossTab.ContCom.Caption = ContID CrossTab.CancelCom.Caption = CancelID End Sub LSOBENz8T9,DD$,, Lotus ProductV0.0+ zY$*2070FA8lNEWDELETE0 INITIALIZE TERMINATEOBJECTP (GLOBALS)h (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *` LOADCAPTIONSCROSSTAB LOTUSDIALOGD%static_ltsdlg31HELPCOMCAPTIONLHELPID&Help CROSSTABCAPCrosstab Heading OptionshLABEL1CROSSTABLABEL1%Select the headings for the crosstab:LABEL2 CROSSTABLABEL20&Row headings:LABEL3CROSSTABLABEL3C&olumn headings:CONTCOMCONTID &Continue CANCELCOMCANCELIDCancelQQHk1HwHk4 @T l||||4).i]4).i]|$d$DHlD?PP=>4?~Ҥ {OdQp} {.|}! {OQp}{OQp}{OQp}l{OQp}{OQp} CancelCom8).i] ,'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError CrossTab.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub  LSOBEN\h,`l$8T@   @@DDDDlllLotus ProductV0.0\hKF$*2071068lNEWDELETE INITIALIZE TERMINATEOBJECT0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *` *CROSSTAB *CrosstabSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICK,GENERRORCROSSTAB` LOTUSDIALOG%static_ltsdlg31CLOSE PRODUCTIDLotus 1-2-3 Release 9lF;Hk&Hw&4&x l 8).i]4).i] [, d  ,,,,*d @0 ldH<<<<4).i]4).i]`| D l`Q l`ҤL [I G˨  :{D,<#} XCancel_CancelR KQDB MS Sans Serifd2ContCom8).i] "'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Cli ck:1:12 Sub Click(Source As Lotuscommandbutton) RowField = CrossTab.Combo1.text ColField = CrossTab.Combo2.text CrossTab.Close Options1.Show 1 End Subk LSOBENc,t$8T@@@D,,,XXDDLotus ProductTV0.0LIZEcLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *` *CROSSTAB *Crosstab,SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICKROWFIELDCROSSTAB` LOTUSDIALOG%static_ltsdlg31COMBO1TEXTCOLFIELDCOMBO2CLOSEOPTIONS1*2071108lNEWDELETE INITIALIZE TERMINATEOBJECT0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *` *CROSSTAB *Crosstab,SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICKROWFIELDCROSSTAB` LOTUSDIALOG%static_ltsdlg31COMBO1TEXTCOLFIE LDCOMBO2CLOSEOPTIONS1SHOW,Hk7KHw7K47Kx 8).i]4).i] [H d ,,,, *d @X@0 dH|||4).i]4).i]t|@,@ _P\ tQ  ti gҤL [I G˨ [D{XOXPd[{XOpPd{X,|#{,,#x &Continue_ &ContinueR KQDB MS Sans Serifd2Label18).i] oxx&Select the headings for the crosstab:c%Select the headings for the crosstab:R KQDB MS Sans Serifd2Label28).i] *x&Row headings:  &Row headings:R KQDB MS Sans Serifd2Label38).i] 3 C&olumn headings: C&olumn headings:R KQDB MS Sans Serifd2Combo18).i] x ),R KQDB MS Sans Serifd2 Combo28).i]   ),R KQDB MS Sans Serifd2 HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Se t Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_123_SELECTING_HEADINGS_FOR_A_DQA_CROSS End Sub LSOBEN 9,$8T}@@@DDDDLotus ProductV0.04).i]9$d$DHlD?PP=>4?BEL2 CROSSTABLABEL20&Row headings:LABEL3CROSSTABLABEL3C&olumn headings:CONTCOMCONTID &Continue CANCELCOMCANCELID*31300B0lNEWDELETE INITIALIZE TERMINATEOBJECT0 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE ** Dialog Registry Module *` *CROSSTAB *CrosstabSOURCE BINDEVENTS OBJECTNAME_,LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHEL P(H_123_SELECTING_HEADINGS_FOR_A_DQA_CROSSxHk _KHw _K4 _Kx 8).i]4).i] [ d ,,,,*d !6@0@uP@=ҤL [I G˨ )D@u# 8&Help_&HelpR KQDB MS Sans Serifd2&& & Options14).i] 0'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) Declare Sub Unload(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load On Event Unload From Source Call Unload End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 'Same code is in a few places Dim Temp1 As  String Temp1 = QT.SelectFields While Len( Temp1) > 1 If (Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) <> RowField) And (Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) <> ColField) Then Options1.Combo1.AddItem Left$ (Temp1, Instr(1, Temp1, SelectFieldsDelim) -1 ) End If Temp1 = Mid$( Temp1, Instr(1, Temp1, SelectFieldsDelim) +1, 10000) Wend Options1.Combo1.SelectItem 0 Options1.Sum.Value = 1 Action1 = SumAct ActionDesc = SumDesc Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:Unload:1:12 Sub Unload(Source As Lotusdialog) On Error Goto GenError If Typename (selection) = "DATAQUERY" Then .DeleteQuery QT.Name End If Options1.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN5,$8 @PT0tLLP@ DttDLotus ProductV0.0 T*3130158lNEWDELETE, INITIALIZE TERMINATELOBJECT`p (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1SOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOGD%static_ltsdlg31LOAD\UNLOAD\GENERROR LOADCAPTIONSLEFT4CURRENTAPPLICATION APPLICATION MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTHPTOP SCREENHEIGHTTWIPSPERPIXELY$HEIGHTTEMP1QT DATAQUERY, SELECTFIELDStSELECTFIELDSDELIML;DROWFIELDCOLFIELDOPTIONS1COMBO1dADDITEM  SELECTITEM<SUMVALUEACTION1(SUMACTDSUM ACTIONDESCSUMDESCTotal PRODUCTIDLotus 1-2-3 R elease 9 SELECTION DELETEQUERYNAMECLOSE BASEOBJECTlAHk_KHw_K4_Kx LDLLD4).i]4).i]<| d T,,,7    d !,,@0` PZpppq).i]).i]ah"t0Lt<@t $$$$ ).i]).i]h6"(@0@H@` @@0P,@ qPPhd PZ a,lP `Li,8nDHkTLh,DY4n,x__ p    ).i]h" , Q .@p.@ҤL [I GGP :.)D#)D#K,.L{-p#~xK,-#!K,.{-#~K,-#! ^K-$#"^%8#JJ}(JGtJJ}(JG8"${OHTTJJ}(J'%&^JJ}('M':q){OHT`'*{OlQx+[},[}@./0}h125 :17|:}88TK- #'9:{,D#;<=}h>@ :Crosstab Data Options(Options1 Globals)T'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions Options1.HelpCom.Caption = HelpID Options1.Caption = Options1Cap Options1.Label1.Caption = Options1Label1 Options1.Frame1.Caption = Options1Frame1 Options1.OKCom. Caption = OKID Options1.CancelCom.Caption = CancelID Options1.Sum.Caption = Options1Radio1 Options1.Average.Caption = Options1Radio2 Options1.Count1.Caption = Options1Radio3 Options1.Minimum.Caption = Options1Radio4 Options1.Maximum.Caption = Options1Radio5 Options1.PureCount.Caption = Options1Radio6 Options1.STD.Caption = Options1Radio7 Options1.STDS.Caption = Options1Radio8 Options1.VAR.Caption = Options1Radio9 Options1.VARS.Caption = Options1Radio10 End SubLSOBEN' h@8T1,dD$ddDd$,Lotus ProductV0.0 h@K "KD$*3130278lNEWDELETE0  INITIALIZE TERMINATEOBJECT (GLOBALS)h (Globals)* DIALOG REGISTRY MODULE *P* Dialog Registry Module *X LOADCAPTIONSOPTIONS1 LOTUSDIALOGT%static_ltsdlg31HELPCOMCAPTIONDHELPID|&Help OPTIONS1CAPCrosstab Data OptionsLABEL1OPTIONS1LABEL1pS&ummarize field:FRAME1POPTIONS1FRAME1 Calculate OKCOM8OKIDOKd CANCELCOMDCANCELIDCancelSUMOPTIONS1RADIO1&SumAVERAGEOPTIONS1RADIO2,&Average@COUNT1OPTIONS1RADIO3x&CountMINIMUMOPTIONS1RADIO4&MinimumMAXIMUMOPTIONS1RADIO5hMa&ximum PURECOUNT8OPTIONS1RADIO6 &PurecountxSTDOPTIONS1RADIO7S&TDSTDSOPTIONS1RADIO8ST&DS0VAR OPTIONS1RADIO9&VARVARSOPTIONS1RADIO10VA&RSlnR Hk1HwHk4 @T l4).i]4).i]|\D $D<Tdt 0X|$ $HlDdd4?PH=g8w$h,PDD{ta<|CҤ {OQ} {.}! {OQ}{OQ}{OQ}{OQ}T{OQ}{OQ}{OQ}0{OQ}|{O Q}{O,Q} {O8Q}l{ODQ}{OPQ}{O\Q}4Frame18).i] x/  Calculate CalculateR KQDB MS Sans Serifd2OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMA NDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError SumField = Options1.Combo1.Text 'freeze screen CurrentApplication.UpDateSheetDisplay = False If Typename (selection) = "DATAQUERY" Then .DeleteQuery QT.Name End If [].NewSheet $After, 1, True 'get unique lists of row and columns fields [a5].Contents = RowField 'combinations of rights and lefts to do this so translation isn't an issue. ' [].MacroRunText "/dqri" + SelectRange + "~oa5~uq" [].MacroRunText "/{r 7}~{r 3}~{r 8}~{l 8}~" + SelectRange + "~{r 2}~a5~{r 3}~{r 4}~" [b5].Contents = ColField [].MacroRunText "/{r 7}~{r 3}~{r 8}~{l 8}~" + SelectRange + "~{r 2}~b5~{r 3}~{r 4}~" 'set up range transpose and clear out old data Dim TempRange As range [b5].Select [].Movecellpointer $EndDown, 1 Set TempRange = Bind( "b6.." + selection.name ) TempRange.Transpose [b5] TempRange.Clear 'En ter the title for the table in cell A4 [a4].contents = Desc1 + ActionDesc + " " + Sumfield + Desc2 + RowField + _ Desc3 + ColField [a4].font.bold = 1 'set up the what if table fields [a1].contents = rowfield [b1].contents = colfield [a5].contents = "@" + Action1 + "(" & SelectRange & ";""" + SumField + """, a1..b2)" 'set up and run the crosstab [b5].Select [].Movecellpointer $EndHome, 1 Set TempRange = Bind( "A5.." + selection.name ) [].WhatIfTable2 TempRange, [A2], [B2] 'Clean up [a1..a3].DeleteRows $Full [a2].Clear [a1].select [].Movecellpointer $Home, 1 'Reset classic DQ [].MacroRunText "/{r 7}~{r 3}~{r 8}~{r}~" CurrentApplication.UpDateSheetDisplay = True Options1.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubNLSOBEN:28,48T@x@ DXDD@  Lotus ProductV0.0280 d x,h ,h*hhd @X0@H |@@`    4).i]4).i]t| @PZt XXXXq).i]).i]a40h"<$*31304F8lNEWDELETE INITIALIZE TERMINATE OBJECT`, (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1SOURCE BINDEVENTS OBJECTNAME_DLOTUSCOMMANDBUTTON\%static_OCX_AdapterCLICKGENERRORSUMFIELDOPTIONS1x LOTUSDIALOG%static_ltsdlg31COMBO1TEXTCURRENTAPPLICATION, APPLICATION MAIN123W.DLL\SEDefaultClassControl\UPDATESHEETDISPLAY SELECTION DATAQUERY DELETEQUERYQTdNAME,NEWSHEETDa5CONTENTSROWFIELD MACRORUNTEXT/{r 7}~{r 3}~{r 8}~{l 8}~ SELECTRANGE~{r 2}~a5~{r 3}~{r 4}~b5DCOLFIELD@~{r 2}~b5~{r 3}~{r 4}~l TEMPRANGEhRANGE$SELECTMOVECELLPOINTERb6.. TRANSPOSECLE ARa4DESC1TCrosstab table for X ACTIONDESCH xDESC2 by DESC3 and FONTBOLDa1b1<@ACTION1( ;"h ", a1..b2)A5..H WHATIFTABLE2A2B2a1..a3 DELETEROWSa2/{r 7}~{r 3}~{r 8}~{r}~CLOSE PRODUCTIDLotus 1-2-3 Release 9 BASEOBJECTaHksKHwsK4sKx 8).i]4).i] [0 d x,h,h*hhd @X0@H |@@`    4).i]4).i]t| @PZt XXXXq).i]).i]a40h"PZ<@   ).i]).i]4@0h6"@0@@` ).i]).i]a4 0h9"H  @(L\l|@ _TP`t,p ).i]40h" ,l:`+=xHp  04o(  4&   vl tQ Ld|6ҤL [I G˨  :[D{XO@PL{.X!|:}8T|K-#'ȄT<~T' QHGȄTT}hG}' QHG!ȄTT}hG}'%T`'&ȄTl~l''^h}{Px(Kh,#)Kh,#-QH}G}DGD}\G}|G.OQ1ȬQHG2ȸQHG3 QH}G}G}GD}6T`'7ȄTl~'8^h}{Px9ȄT^h@L'<XT~'=ȈT'>ȬT`'?ȄTl~'BȄTT}'D{.X!E{X, #FGH}IJgOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] ('++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++ LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Options1.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBEN\h,`l$T@   @@DDDDlllLotus ProductV0.0\hINCENDOBJECTTElcnclcncBcnclcQ8.KU(&KhK  4 4 8*31305B0 lNEWDELETE INITIALIZE TERMINATEOBJECT` (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1SOURCE BINDEVENTS OBJECTNAME_,LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICKGENERROROPTIONS1` LOTUSDIALOG%static_ltsdlg31CLOSE PRODUCTIDLotus 1-2-3 Release 9lHkPHwP4Px l8).i]4).i] [, d  ,,,,*d @0 ldH<<<<4).i]4).i]`| D l`Q l`ҤL [I G˨  :{D,<#} GCancel_CancelR KQDB MS Sans Serifd2Label18).i] 3x/  S&ummarize field:mS&ummarize field:R KQDB MS Sans Serifd2Combo18).i] x,R KQDB MS Sans Serifd2Sum8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = SumAct ActionDesc = SumDesc End Sub LSOBENB,$8Tl@PP@@DxDDxx Lotus ProductCV0.08ACTIBDESCSUMDESCTotal*3130788*3130788lNEWDELETE INITIALIZE TERMINATEOBJECT`H (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1xSOURCE BINDEVENTS OBJECTNAME_LOTUSOPTIONBUTTON$%static_OCX_AdapterCLICK8ACTION1dSUMACTDSUM ACTIONDESCSUMDESCTotala4Hk4KHw4K44Kx 8).i]4).i]  d P,,,,* d @x(<@Lh|FҤL [I G˨ [D}<[x}|'&Sum &SumR KQDB MS Sans Serifd2Average8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = AvgAct ActionDesc = AvgDesc End Sub LSOBENB,$8T}@P@@DxDDxx Lotus ProductV0.04).i]B\D$D<Tdt 0X|$ $HlDdd4?PH=g8w$h*3130828lNEWDELETE INITIALIZE TERMINATEOBJECT`$ (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1SOURCE BINDEVENTSx OBJECTNAME_8LOTUSOPTIONBUTTON%static_OCX_AdapterCLICKACTION1HAVGACTdDAVG ACTIONDESCAVGDESCAverage?Hk _KHw _K4 _Kx 8).i]4).i]  d PP,,,,*d @x(<@Lh |FҤL [I G˨ [D}<[x}| &Average &AverageR KQDB MS Sans Serifd2 Count18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = CountAct ActionDesc = CountDesc End Sub LSOBENB,$8T@PP@@DxDDxxLotus ProductV0.0B K*31308C8lNEWDELETE INITIALIZE TERMINATEOBJECT`$ (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1SOURCE BINDEVENTSl OBJECTNAME_LOTUSOPTIONBUTTON%static_OCX_AdapterCLICK<ACTION1PCOUNTACTDCOUNT ACTIONDESC COUNTDESCCount =lHkPKHwPK4PKx 8).i]4).i]  d P,,,,*d @x(@@TpFҤL [I G˨  [D}@[x} &Count  &CountR KQDB MS Sans Serifd2 Minimum8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = MinAct ActionDesc = MinDesc End Sub LSOBENB,$8S@PP@@DxDDxxLotus Product3V0.00978B KcLҤ {OQ} {.}T*3130978lNEWDELETE INITIALIZE TERMINATEOBJECT`H (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1SOURCE BINDEVENTSx OBJECTNAME_8LOTUSOPTIONBUTTONd%static_OCX_Adapter$CLICKACTION1MINACTDMIN ACTIONDESCMINDESCMinimum#HkjKHwjK4jKx 8).i]4).i]  d P,,,,*d @x(<@Lh|FҤL [I G˨ [D}<[x}|_  &Minimum   &MinimumR KQDB MS Sans Serifd2 Maximum8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = MaxAct ActionDesc = MaxDesc End Sub LSOBENB,8TK@PP@@DxDDxxLotus ProductV0.0B $*3130A18lNEWDELETE INITIALIZE TERMINATEOBJECT`H (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1xSOURCE BINDEVENTS$ OBJECTNAME_LOTUSOPTIONBUTTON8%static_OCX_AdapterCLICKdACTION1MAXACTDMAX ACTIONDESCMAXDESCMaximumv5HkPKHwPK4PKx 8).i]4).i]  d P,,,,*d @x(<@Lh|FҤL [I G˨ [D}<[x}|P   Ma&ximum  Ma&ximum R KQDB MS Sans Serifd2 Purecount8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = PCountAct ActionDesc = PCountDesc End Sub LSOBENB,$8TS@@PDxDDxxLotus Product V0.0re CouB *3130AC0lNEWDELETE INITIALIZE TERMINATEOBJECT`X (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1SOURCE BINDEVENTS< OBJECTNAME_$LOTUSOPTIONBUTTON%static_OCX_AdapterCLICKtACTION1 PCOUNTACT DPURECOUNT ACTIONDESC PCOUNTDESC Pure CountrHk8kKHw8kK48kKPx 8).i]4).i]  d P,,,,*d @x(@@\xFҤL [I G˨ [D}@[x}/ ' &Purecount  &PurecountR KQDB MS Sans Serif d2 STD8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = STDAct ActionDesc = STDDesc End Sub LSOBENB,$TK@PP@@DxDDxxLotus ProductV0.0B 8*3130B58lNEWDELETE INITIALIZE TERMINATEOBJECT`H (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options18SOURCE BINDEVENTS OBJECTNAME_LOTUSOPTIONBUTTONd%static_OCX_Adapter$CLICKACTION1STDACTDSTD ACTIONDESCxSTDDESCPopulation standard deviation$HkPKHwPK4PKx 8).i]4).i]  d P,,,,*d @x(<@Lh|FҤL [I G˨ [D}<[x}|/ S&TD S&TDR KQDB MS Sans Serifd2VARS 8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = VARSAct ActionDesc = VARSDesc End Sub LSOBENB,$8TS@PP@@DxDDxxLotus ProductrV0.0nceB KcL*3130C08lNEWDELETE INITIALIZE TERMINATEOBJECT`$ (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1SOURCE BINDEVENTS OBJECTNAME_LOTUSOPTIONBUTTON|%static_OCX_Adapter8CLICKdACTION1HVARSACTDVARS ACTIONDESCVARSDESCSample varianceq!Hk kKHw kK4 kKx 8).i]4).i]  d P,,,,*d @x(<@LhFҤL [I G˨ [D}<[x}P / VA&RS VA&RSR KQDB MS Sans Serifd2VAR8).i] '++LotusScript Development Envir onment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = VARAct ActionDesc = VARDesc End Sub LSOBENB,8TK@PP@DxDDxxLotus ProductV0.0B $*3130CA0lNEWDELETE INITIALIZE TERMINATEOBJECT`$ (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1dSOURCE BINDEVENTS8 OBJECTNAME_LOTUSOPTIONBUTTON%static_OCX_AdapterCLICKxACTION1HVARACTDVAR ACTIONDESCVARDESCPopulation variance״HkPKHwPK4PKx 8).i]4).i]  d P,,,,*d @x(<@Lh|FҤL [I G˨ [D}<[x}|/ _ &VAR  &VARR KQDB MS Sans Serifd2STDS8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Devel opment Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusoptionbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSOPTIONBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusoptionbutton) Action1 = STDSAct ActionDesc = STDSDesc End Sub LSOBENB,$TS@PP@DxDDxxLotus ProductaV0.0ard deB 8*3130D40lNEWDELETE INITIALIZE TERMINATEOBJECT`8 (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1|SOURCE BINDEVENTSd OBJECTNAME_LOTUSOPTIONBUTTON%static_OCX_Adapter$CLICKACTION1STDSACTHDSTDS ACTIONDESCSTDSDESCSample standard deviation 'HkHkKHwHkK4HkKx 8).i]4).i]  d P,,,,*d @x(<@LhFҤL [I G˨ [D}<[x}/ ST&DS  ST&DSR KQDB MS Sans Serifd2HelpCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward): 0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) ShowHelp H_123_SELECTING_DATA_OP_FOR_A_DQA_CROSS End Sub LSOBEN 9,8TK@@@DDDDLotus ProductV0.09$*3130D F0lNEWDELETE INITIALIZE TERMINATEOBJECT` (GLOBALS)t (Globals)H* DIALOG REGISTRY MODULE *0* Dialog Registry Module * *OPTIONS1 *Options1,SOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP'H_123_SELECTING_DATA_OP_FOR_A_DQA_CROSSHkPKHwPK4PKx 8).i]4).i] [ d ,,,,*d !6@0Au@P@=ҤL [I G˨ )DAu# '&Help_&HelpR KQDB MS Sans Serifd2 AppendR4).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions AppendR.FromText.Text = Selection.Name AppendR.FromText.SetFocus AppendR.FromText.SelLength = -1 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 Exit Sub GenError: Msgbox  (Error$), 16, ProductID Exit Sub End SubLSOBEN"`p, H$8T@@DDD  Lotus ProductV0.0`pINCENDOBJECTTE\c^c\c^cBc^c\c$$QhKUX Kt""gKL"l l   t*3130EA0lNEWDELETE INITIALIZE TERMINATEOBJECT`0 (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *H* Dialog Registry Module **APPENDRL*AppendRSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOGd%static_ltsdlg318LOADtGENERRORt LOADCAPTIONSAPPENDRFROMTEXTTEXT SELECTIONNAMESETFOCUS SELLENGTH$LEFTCURRENTAPPLICATIOND APPLICATION@ MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIP SPERPIXELXWIDTHTOP SCREENHEIGHTTWIPSPERPIXELY(HEIGHT PRODUCTIDLotus 1-2-3 Release 9d@=Hk=KHw=K4=Kx   X XX  4).i]4).i] | d ,,,,*d !,,@@< xPZ  PZ( |||q).i]).i]aHh" ,DaLP94hP5l `xLi,n kLh,Y.@0.@ҤL [I G  :)D#)D#{OQ({P4{OT@'{OQLK,.X{-|#~8K,-#!K,.{-#~PK,- #! !}D"# 7Append Records (AppendR Globals)'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions AppendR.HelpCom.Caption = HelpID AppendR.Caption = AppendRCap AppendR.Label1.Caption = AppendRLabel1 AppendR.Label2.Caption = AppendRLabel2 AppendR.OKCom.Caption = OKID AppendR.CancelCom.Caption = CancelID End Sub LSOBENjh$8T,$$$,,Lotus ProductV0.0jh Kl*3130FC0lNEWDELETE0 INITIALIZE TERMINATEOBJECT (GLOBALS)d (Globals)P* DIALOG REGISTRY MODULE ** Dialog Registry Module * LOADCAPTIONSAPPENDR LOTUSDIALOG%static_ltsdlg31HELPCOMCAPTION4HELPID&Help APPENDRCAPAppend RecordsHLABEL1h APPENDRLABEL1&Append records from:LABEL2 APPENDRLABEL2T&To database table:$OKCOM<OKIDOK CANCELCOMCANCELIDCancel4Hk1HwHk4 @T h\\\\4).i]4).i]|Ll$ @X?P8=>w(nҤ {ODQP} {.\}! {OQP}l{OQP}{OQP}{OQP}X OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Env ironment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Dim TempRange1 As Range Dim TempRange2 As Range Set TempRange1 = Bind( AppendR.FromText.Text) Set TempRange2 = Bind( AppendR.ToText.Text) 'append records TempRange2.AppendRecords TempRange1 AppendR.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub LSOBENx,($8T@@@(HH((Lotus ProductV0.0xINCENDOBJECTTE ccccBccc!!Q@KUtK$(RKlld*3131190lNEWDELETE INITIALIZE TERMINATEXOBJECT`0 (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *H* Dialog Registry Module **APPENDR*AppendRSOURCE BINDEVENTSH OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterxCLICK,GENERRORD TEMPRANGE1xRANGE MAIN123W.DLLSEDefaultClassControl TEMPRANGE2XAPPENDR LOTUSDIALOG4%static_ltsdlg31FROMTEXTTEXTTOTEXT APPENDRECORDSCLOSE PRODUCTIDLotus 1-2-3 Release 9|psHkKHwK4Kx H8).i]4).i] [ d ,,, * d \(L ).i]).i]a<|h9"0 H H@ (<LLLL4).i]4).i]H|  98PH \ 0H< & H| (Q (ҤL [I G˨  :K^{OUH^{OUHK,J#{,L#} P gOK_OKR KQDB MS Sans Serifd2 CancelCom8).i] z'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) AppendR.Close End Sub LSOBEN88|,`l8T}l@@@DDDDlllLotus ProductV0.04).i]88|Ll$ @X?P8=>w(APPENDRLABEL2T&To database table:$OKCOM<OKIDOK CANCELCOMCANCELIDCancelK$*3131238lNEWDELETE INITIALIZE TERMINATEOBJECT`0 (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *H* Dialog Registry Module **APPENDR*AppendRSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON(%static_OCX_AdapterlCLICKAPPENDRD LOTUSDIALOG%static_ltsdlg31CLOSE<@ .Hk`KHw`K4`Kx l8).i]4).i] [ d ,,,,*d @ lH,    4).i]4).i]`|p l`Q l<ҤL [I G˨ {D, # P GCancel_CancelR KQDB MS Sans Serifd2Label18).i] ?xxo c&Append records from:&Append records from:R KQDB MS Sans Serifd2 FromText8).i] xh FR KQDB MS Sans Serifd2Image18).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Cl ick(Source As Lotusimage) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSIMAGE Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusimage) On Error Goto GenError Dim Range1 As range Dim GetRange As RangeSelector Dim PreHeight As Long 'get height of dialog to reset after range pointer PreHeight = AppendR.Height 'Shrink dialog AppendR.Height = 100 Set GetRange = CurrentApplication.RangeSelector AppendR.FromText.Text = GetRange.getrangeString(currentdocument) 'reset dialog AppendR.Height = PreHeight AppendR.FromText.SetFocus Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End SubLSOBEN |,08T@@@``0HH|00Lotu s ProductV0.0|INCENDOBJECTTE cc ccBcc c##QhKUX K<dgK44$*3131420lNEWDELETE INITIALIZE TERMINATE@OBJECT`0 (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *H* Dialog Registry Module **APPENDR*AppendRSOURCE BINDEVENTS OBJECTNAME_ LOTUSIMAGE%static_OCX_Adapter8CLICKLGENERROR0RANGE1`RANGE MAIN123W.DLLSEDefaultClassControlGETRANGEL RANGESELECTOR PREHEIGHTxAPPENDR LOTUSDIALOG%static_ltsdlg31HEIGHTCURRENTAPPLICATION APPLICATIONFROMTEXTTEXT4GETRANGESTRINGCURRENTDOCUMENTDOCUMENTSETFOCUS PRODUCTIDLotus 1-2-3 Release 92vHk(?KHw(?K4(?Kx H8).i]4).i] [  d ,,,xx *d D4 ).i]).i]a<dh9"x  H````s).i]).i]a<Hdh<" @` <||4).i]4).i]|P |PZ0|$$$$q).i]).i]a<dh" 0PZ).i]).i]a<|dh" 8P<Y K,9P<c&  0 5ҤL [I G˨  :ab{-#{.d!^x{`-$#{OHQTKx,`z#{.X!{OHT' }P!"hImage1aImage1R KQDB MS Sans Serifd2 c:\range2.bmpR KQltBM6( @@@@@@@ʦ`a+e[[[&] [c _?[#y [._.FJ.'?'.?'P;G ;<y.PAw(APPENDRLABEL2T&To database table:$OKCOM<OKIDOK CANCELCOMCANCELIDCancelKP$*3131708lNEWDELETE INITIALIZE TERMINATE,OBJECT`0 (GLOBALS)t (Globals)* DIALOG REGISTRY MODULE *H* Dialog Registry Module **APPENDR*AppendRSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterCLICKSHOWHELP H_TDAR_STEPS HkPKHwPK4PKx 8).i]4).i] [ d ,,,,*d !6@0BuP@=ҤL [I G˨ )DBu# P '&Help _&HelpR KQDB MS Sans Serifd2͏͏ ͏DeleteR4).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Load(Source As Lotusdialog) Declare Sub Unload(Source As Lotusdialog) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSDIALOG Set Source = Bind(Objectname_) On Event Load From Source Call Load On Event Unload From Source Call Unload End Sub '++LotusScript Development Environment:2:2:Load:1:12 Sub Load(Source As Lotusdialog) On Error Goto GenError 'call sub to load captions LoadCaptions 'do it again due to a bug. If you don't do this the mnemonics get messed up. LoadCaptions 'position dialog Source.Left = CurrentApplication.ScreenWidth/2*Twipsperpixelx - Source.Width/2 Source.Top = CurrentApplication.ScreenHeight/2*Twipsperpixely - Source.Height/2 TableTextChange = 0 '1st check if selection i s QT....if it is then we can proceed with filling the drop downs. If Typename (Selection) = "DATAQUERY" Then For y = (DeleteR.FieldsCombo.ListCount -1) To 0 Step -1 DeleteR.FieldsCombo.removeitem y Next y Forall w In QT.AllFields DeleteR.FieldsCombo.AddItem w End Forall 'set fields list to 1st item DeleteR.FieldsCombo.SelectItem 0 fillsamplelist End If DeleteR.OpCombo.SelectItem 0 'set focus on source table no matter what DeleteR.TableText.Text = DeleteSource DeleteR.TableText.SetFocus DeleteR.TableText.SelLength = -1 Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:Unload:1:12 Sub Unload(Source As Lotusdialog) On Error Goto GenError If Typename (selection) = "DATAQUERY" Then .DeleteQuery QT.Name End If DeleteR.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub3LSOBEN: 8, $8T@Ttt@DD   Lotus ProductV0.0 8INCENDOBJECTTE"$"$B$"GG=yOUGDD$:DBBDCDC=T=%$<*3760180lNEWDELETE, INITIALIZE TERMINATELOBJECT`H (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **DELETERp*DeleteRSOURCE BINDEVENTS OBJECTNAME_ LOTUSDIALOGD%static_ltsdlg31LOADUNLOAD\GENERROR LOADCAPTIONSLEFT4CURRENTAPPLICATION APPLICATION| MAIN123W.DLLSEDefaultClassControl SCREENWIDTHTWIPSPERPIXELXWIDTHPTOP SCREENHEIGHTTWIPSPERPIXELY4HEIGHTLTABLETEXTCHANGE SELECTIONT DATAQUERYYDELETER FIELDSCOMBOh LISTCOUNTp REMOVEITEMWQT ALLFIELDSADDITEM  SELECTITEMFILLSAM PLELIST4RANGE$OPCOMBO TABLETEXTlTEXT DELETESOURCESETFOCUS SELLENGTH PRODUCTIDLotus 1-2-3 Release 9 DELETEQUERYNAMECLOSESTRINGS BASEOBJECT rbW4^4444x  ll$ 4).i]4).i]| d T,,,7d !,@0` PHHHq).i]).i]h"tt,,@P@ <@t   ).i]).i]h6"!,T@     ).i]).i]h9"\@8 fxxxx~d   alP `HLi,$8nl HkTLh, Y8qP lP 4* ]).i]).i] h@"_wj(PX5plp  ).i]h" , Q .@ .@ҤL [I GG :#)D#)D#K,.{-#~ K,-#!K,.${-H#~ K,-l#![ |:}8q!^{OP^4"{OT^'#^6%K-#5&{OTZ ''7*{OT'+)#,.{OT'1{OQG2{OT'3{OQ456}78; :1=|:}8>TK- #'?@{, #ABC}DF $/Delete Records(DeleteR Globals)&'++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub FillSampleList Decla re Sub CriteriaString Declare Sub LoadCaptions '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim TableTextChange As Integer Dim FieldPick As Integer Dim FieldName As String Dim Result1 As String Dim Operator As String Dim OldCriteria As String Dim Samples List As String Dim Samples2 List As String Dim ExternalTable As Integer '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize FieldPick = 0 FieldName = "" Operator = "=" Result1 = "" End Sub '++LotusScript Development Environment:2:2:FillSampleList:1:8 Sub FillSampleList On Error Goto GenError FieldPick = DeleteR.Fieldscombo.ListIndex + 1 Dim NumRows As Long Dim OutRange As range Dim Recordx As Range Dim StartColString As String Dim StartRow As Long Dim OutRangeSheet As String Dim FileRef As String Dim Counter As Integer Counter = 0 Forall X In QT.Allfields If Counter = DeleteR.Fieldscombo.ListIndex Then FieldName = X End If Counter = Counter + 1 End Forall CriteriaString For y = (Dele teR.SampleCombo.ListCount -1) To 0 Step -1 DeleteR.SampleCombo.removeitem y Next y 'was set to outputlocation, but this resulted in only samples that met the current crit 'set up sample data combo box Set OutRange = Bind (QT.BaseSourceTable) 'Check for filereference If Left$( QT.BaseSourceTable,2) = "<<" Then FileRef = Left$ ( OutRange.CoordinateString, Instr( 1, OutRange.CoordinateString,">>") + 1) OutRangeSheet = Mid$ ( OutRange.CoordinateString, Instr( 1, OutRange.CoordinateString,">>") + 2, Instr( 5, OutRange.CoordinateString,":") - Instr( 1, OutRange.CoordinateString,">>") - 1) 'check for external table...if so can't get sample data Elseif OutRange.IsSelectable = False Then ExternalTable = 1 Else FileRef = "" ExternalTable = 0 OutRangeSheet = Left$ ( OutRange.CoordinateString, Instr( 1, OutRange.CoordinateString,":") ) End If If FieldPick <> 0 And ExternalTable = 0 Then StartColString = ConvertRef( OutRange.StartColumn + FieldPick - 1) StartRow = OutRange.StartRow + 1  NumRows = OutRange.EndRow - OutRange.StartRow For y = (DeleteR.SampleCombo.ListCount -1) To 0 Step -1 DeleteR.SampleCombo.removeitem y Next y 'cleanout lists Erase samples Erase samples2 'Get sample data For y = 1 To NumRows Set recordX = Bind ( FileRef + OutRangeSheet +StartColString + Cstr(startrow + y) ) samp = recordx.celldisplay If recordx.cellvalue <> "" Then If Not Iselement ( Samples( Samp) ) Then If (Left$(recordx.contents,1) = "'" Or Left$(recordx.contents,1) = """" Or Left$(recordx.contents,1) = "^") And Isnumeric(samp) Then samp = + """" + samp End If Samples( Samp) = recordx.cellvalue Samples2( Samp) = Samp DeleteR.SampleCombo.additem Samp End If End If Next y Elseif FieldPick <> 0 Then 'Get external sample data, set Result1 to last item on list (first item in combobox) Forall z In QT.FieldValues(FieldName) DeleteR.SampleCombo.additem z End Forall End If DeleteR.OpCombo.SelectItem 0 Operator = Delet eR.opcombo.list (0) If ExternalTable = 0 Then 'want to leave the dates there for ease of viewing, but not times so look for colon If Isdate (Samples2(DeleteR.SampleCombo.Text ) ) And Instr(1, Samples2(DeleteR.SampleCombo.Text ),":") = 0 Then Result1 = Samples2(DeleteR.SampleCombo.Text ) 'in case it's a string that looks like a number Elseif Left$(DeleteR.SampleCombo.Text,1 ) = """" And Isnumeric(Mid$(DeleteR.SampleCombo.Text,2) ) Then Result1 = +"""" + Samples(DeleteR.SampleCombo.Text ) + """" Elseif Isnumeric (Samples(DeleteR.SampleCombo.Text ) ) Then Result1 = Samples(DeleteR.SampleCombo.Text ) Else Result1 = +"""" + Samples(DeleteR.SampleCombo.Text ) + """" End If Else 'if its an external table then just check for numerics If Isnumeric( DeleteR.SampleCombo.Text) Or Isdate( DeleteR.SampleCombo.Text) Then Result1 = DeleteR.SampleCombo.Text Else Result1 = """" + DeleteR.SampleCombo.Text + """" End If End If CriteriaString Exit Sub GenError: Msgbox (Er ror$) ,16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:CriteriaString:1:8 Sub CriteriaString DeleteR.FilterString.Text = OldCriteria + FieldName + Operator + Result1 End Sub '++LotusScript Development Environment:2:2:LoadCaptions:1:8 Sub LoadCaptions DeleteR.HelpCom.Caption = HelpID DeleteR.Caption = DeleteRCap DeleteR.Label1.Caption = CriteriaLabel1 DeleteR.Label2.Caption = CriteriaLabel2 DeleteR.Label3.Caption = CriteriaLabel3 DeleteR.Label4.Caption = CriteriaLabel4 DeleteR.OKCom.Caption = OKID DeleteR.CancelCom.Caption = CancelID DeleteR.AndCom.Caption = "&" + AndID DeleteR.OrCom.Caption = "&" + OrID DeleteR.ClearCom.Caption = CriteriaCommand5 End SubL!LSOBENW H $8T,l| ,\,lT<,LLLllxxxLotus ProductV0.0 H  ^\{OlPx^4 {OlT^\'^6{-#5{OlTdZ '7{OlPx8N{OlTp'^{OlU|D{OQK-#{OQK-#{.}! {OQ}8!{O$Q }"{O0Q}#{O<Q}@${OHQ}|%{OTQ}&4$c7ҤT [I G˨ )D>u# L *37602A0lNEWDELETET INITIALIZE TERMINATEOBJECTl (GLOBALS)0 (Globals)* DIALOG REGISTRY MODULE ** Dialog Registry Module *TABLETEXTCHANGE  FIELDPICK FIELDNAME$RESULT1DOPERATOR\ OLDCRITERIASAMPLESSAMPLES2p EXTERNALTABLE=FILLSAMPLELIST GENERRORDELETER LOTUSDIALOG%static_ltsdlg31 FIELDSCOMBO LISTINDEXNUMROWSOUTRANGEDRANGE MAIN123W.DLLtSEDefaultClassControltRECORDXSTARTCOLSTRING STARTROW8 OUTRANGESHEETtFILEREFCOUNTERPXQT DATAQUERY0 ALLFIELDSCRITERIASTRING|Y SAMPLECOMBO$ LISTCOUNTX REMOVEITEMBASESOURCETABLE<<8COORDINATESTRING>>: ISSELECTABLEP CONVERTREF STARTCOLUMNENDROWSAMP CELLDISPLAY CELLVALUECONTENTS4',"^ADDITEMdZ( FIELDVALUESOPCOMBO< SELE CTITEMPLISTTEXT PRODUCTID Lotus 1-2-3 Release 9 FILTERSTRINGt LOADCAPTIONSdHELPCOMtCAPTIONHELPID&Help DELETERCAPDelete RecordsP LABEL1 CRITERIALABEL1qSelect values for the criteria from the drop-down lists below. You can also edit the Criteria statement directly. LABEL2D CRITERIALABEL2< Criteria &statement: LABEL3` CRITERIALABEL3 &Field: LABEL4 CRITERIALABEL40 &Value: OKCOM OKIDX OK CANCELCOM| CANCELID Cancel ANDCOMp & ANDIDAnd ORCOM< ORIDOr CLEARCOM CRITERIACOMMAND5&Clear, STRINGS BASEOBJECT&And&Or M6W#^4W<4LlX\pl|, @@LTT< $  $ $ Xhx 5@@` tP P P P 4).i]4).i]|Xh(|  | X X 4 4 ).i] ).i]Hh9"hh xx  $( ,<@x $   ).i]).i]Hh6"!!@\ H T 3,  SLlThlx T x      , 4 Ld t l      qh0< 4* ]).i]).i]Hh@"$ x` qt p 4#* 0T*  ).i]Hh"<* | x0, 0,4 0* X 4*| 06*R*_08 4M&  8 TwD h  PL ,?@@P=> @ ? 8 w H ?  =Ҥ`[L}[l}[\} : `{OP*b,+K-#58,X,{OP8 -[LF./b,X,071)#3^h{OxP^44{OxT^h'5^69^XK-#<K-#J}8s=^KX-#KX-#}(J>^KX-#KX-#}(KX-#}4KX-#}(M:X@KX- #8A`B:9C^}D`E^KX-#KX-#}4JFHVV8yI^x)xKX- #V#Jb KX- #KbKX- #KX- #M^h{OxP^ 4N{OxT^h'O^ 6Q[wR[wV^hX^ 4W^hJJJxX JhX^$ Kh-4 #YKh-X #}8ZJ$ gx8[Kh-| #J}Kh-| #J} Kh-| #J}^$  8\^$ } J$ ]^J$ lKh-X #_J$ lJ$ `{OxT ^$ 'abc^ 6#:<dV8-fK, GL#5 g{OxT Z 'h7 ik{O T 'l[l{O S %nV8p{OxP l{OxP g}48q[\{OxP g:s{OxU J} {OxU M 8 t[\} {OxP g} :Nu{OxP l 8v[\{OxP gw:x[\} {OxP g} yz:Z|{OxU  {OxU 8}[\{OxP ~:[\} {OxP } )#}{O, Q G|GLGlG\{O8 QD }h{.P }!{Ot QD }{O QD } {O QD }x {O QD } {O QD } {O QD }4 {O QD }0 {O QD }@ {O QD } OKCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Decl are Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError Dim TempRange As range Set TempRange = Bind (DeleteR.TableText.Text) TempRange.DeleteRecords DeleteR.FilterString.Text DeleteR.Close Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub LSOBENh, 8T@@@HHLotus ProductV0.0h $*3760480lNEWDELETE INITIALIZE TERMINATETOBJECT`H (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **DELETER,*DeleteRSOURCE BINDEVENTSD OBJECTNAME_LOTUSCOMMANDBUTTON%static_OCX_AdapterdCLICKDGENERROR TEMPRANGEtRANGE MAIN123W.DLLSEDefaultClassControlDELETER LOTUSDIALOG%static_ltsdlg31$ TABLETEXTTEXT DELETERECORDS FILTERSTRINGtCLOSE PRODUCTIDLotus 1-2-3 Release 9lrW4^4444x H8).i]4).i] d ,,*d XH ).i]).i]<xh9"0 H@  <<<<<4).i]4).i] H| txjP( 0H<5& HHLh  Q ҤL [I G˨  :>^{OUHK,{O0U#{,<#}8gOK OKR KQDB MS Sans Serifd2 CancelCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError If Typename (selection) = "DAT AQUERY" Then .DeleteQuery QT.Name End If DeleteR.Close Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub DeleteR.Close End SubY LSOBEN,8 $8@@@DDDhh DD  Lotus ProductV0.0INCENDOBJECTTE$&$&B&$yU@844dL$DD T T*3760528lNEWDELETE INITIALIZE TERMINATEOBJECT`H (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **DELETER*DeleteRSOURCE BINDEVENTS OBJECTNAME_\LOTUSCOMMANDBUTTONx%static_OCX_Adapter<CLICK,GENERRORD SELECTION DATAQUERY DELETEQUERYQTd MAIN123W.DLLSEDefaultClassContro lNAMEDELETER LOTUSDIALOG%static_ltsdlg31LCLOSE PRODUCTIDLotus 1-2-3 Release 9 BASEOBJECT W@4^4@44@4x 8).i]4).i] d ,,,,*d h0P<@| DH ).i]).i]xh6"@ Dx 4).i]4).i]8| gPh`p).i]xDh" ,@ D8Q DҤL [I G˨  :1|D:}H8TKh-#'{,#}h{,# 8GCancel CancelR KQDB MS Sans Serifd2 FieldsCombo8).i] '++LotusScript Developme nt Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Pick(Source As Lotuscombobox, Index As Integer) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMBOBOX Set Source = Bind(Objectname_) On Event Pick From Source Call Pick End Sub '++LotusScript Development Environment:2:2:Pick:1:12 Sub Pick(Source As Lotuscombobox, Index As Integer) On Error Goto GenError 'while we're here lets fill in the sample. FillSampleList ' CriteriaString Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub LSOBENY,$T@ll@@TTTTLotus ProductV0.0Y 8*37605E0lNEWDELETE0 INITIALIZE TERMINATEdOBJECT`H (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **DELETERt*DeleteRSOURCEINDEX BINDEVENTS OBJECTNAME_ LOTUSCOMBOBOX%static_OCX_AdapterTPICKGENERRORFILLSAMPLELISTRANGE MAIN123W.DLLSEDefaultClassControl PRODUCTIDLotus 1-2-3 Release 9#W`E4^4`E44`E4 8).i]4).i] d ll ,<<<,,*\\\\<d x!,T@4  hX ).i]).i] h9" A ]ҤL [I G  : )T#}5SFields ,FieldsR KQDB MS Sans Serifd2 SampleCombo8).i] v'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Pick(Source As Lotuscombobox, Index As Integer) Declare Sub Change(Source As Lotuscombobox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMBOBOX Set Source = Bind(Objectname_) On Event Pick From Source Call Pick On Event Change From Source Call Change End Sub '++LotusScript Development Environment:2:2:Pick:1:12 Sub Pick(Source As Lotuscombobox, Index As Integer) On Error Goto GenError If ExternalTable = 0 Then 'want to leave the dates there for ease of viewing, but not times so look for colon If Isdate (Samples2(DeleteR.SampleCombo.Text ) ) And Instr(1, Samples2(DeleteR.SampleCombo.Text ),":") = 0 Then Result1 = Samples2(DeleteR.SampleCombo.Text ) 'in case it's a string that looks like a number Elseif Left$(DeleteR.SampleCombo.Text,1 ) = """" And Isnumeric(Mid$(DeleteR.SampleCombo.Text,2) ) Then Result1 = +"""" + Samples(DeleteR.SampleCombo.Text ) + """" Elseif Isnumeric (Samples(DeleteR.SampleCombo.Text ) ) Then Result1 = Samples(DeleteR.SampleCombo.Text ) Else Result1 = +"""" + Samples(DeleteR.SampleCombo.Text ) + """" End If Else 'if its an external table then just check for numerics If Isnumeric( DeleteR.SampleCombo.Text) Or Isdate( DeleteR.SampleCombo.Text) Then Result1 = DeleteR.SampleCombo.Text Else Result1 = """" + DeleteR.SampleCombo.Text + """" End If End If CriteriaString Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End Sub '++LotusScript Development Environment:2:2:Change:1:12 Sub Change(Sourc e As Lotuscombobox) On Error Goto GenError If Isnumeric( DeleteR.SampleCombo.Text) Or Isdate( DeleteR.SampleCombo.Text) Then Result1 = DeleteR.SampleCombo.Text Else Result1 = """" + DeleteR.SampleCombo.Text + """" End If CriteriaString Exit Sub GenError: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBEN?,8T@@@TdTThh<d|PLotus ProductV0.0?$*3760688lNEWDELETE INITIALIZE TERMINATEOBJECT`H (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE *|* Dialog Registry Module **DELETERt*DeleteR,SOURCE INDEX BINDEVENTS OBJECTNAME_ LOTUSCOMBOBOXD%static_OCX_AdapterPICK\CHANGEGENERRORd EXTERNALTABLESAMPLES28DELETER LOTUSDIALOG%static_ltsdlg31 SAMPLECOMBO$TEXT:tRESULT1"SAMPLESCRITERIASTRING PRODUCTIDLotus 1-2-3 Release 9~WpH4^4pH44pH4 8).i]4).i] d  ,<<<,, 7<d x,@hH,@|h@@<P 4).i]4).i]|,\@Pd ,@d(@!,@< 0`x|||| d  0' PCҤL [I GG :^GT8{|OPlh{|OPgh}8[<{|OPgh:{|OU J} {|OU M 8 [<} {|OPgP}  :N{|OPlP 8[<{|OPgP:[<} {|OPgP}  !:Z#{|OU {|OU8$[<{|OP%:&[<} {|OP} '(*)d#,-.}x/03 :b5{|OU {|OU86[<{|OP7:8[<} {|OP} 9;)d#=>?}x@A S Sample Data , Sample DataR KQDB MS Sans Serifd2OpCombo8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Pick(Source As Lotuscombobox, Index As Integer) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMBOBOX Set Source = Bind(Objectname_) On Event Pick From Source Call Pick End Sub '++LotusScript Development Environment:2:2:Pick:1:12 Sub Pick(Source As Lotuscombobox, Index As Integer) Operator = source.list (index) CriteriaString End Sub LSOBENGd,8T@ @@ThhhTTLotus ProductV0.0GdINCENDOBJECTTE"$"$B$"$ypUX4 $54|l     | h$*3760738lNEWDELETE INITIALIZE TERMINATEOBJECT`H (GLOBALS) (Globals)0* DIALOG REGISTRY MODULE *@* Dialog Registry Module **DELETERt*DeleteRSOURCEINDEX BINDEVENTS OBJECTNAME_ LOTUSCOMBOBOX%static_OCX_Adapter0PICKOPERATORLISTCRITERIASTRINGW 4^4 44 4 8).i]4).i] d  ,<<<,, *<d x,l@h!,@D  45!KҤL [I G [TK,-W#)h## S==,=R KQDB MS Sans Serifd2= > < >= <= <>  FilterString8).i] g  3 R KQDB MS Sans Serifd2AndCom8).i] P'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2: Click:1:12 Sub Click(Source As Lotuscommandbutton) OldCriteria = DeleteR.FilterString.Text + "#" + AndID + "#" FieldName = "" Operator = "" Result1 = "" CriteriaString End Sub LSOBENpD,t$8T@@@DtDD`tXXLL88Lotus ProductV0.0pDH*3760898lNEWDELETE INITIALIZE TERMINATE OBJECT`H (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **DELETER*DeleteRSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICK0 OLDCRITERIA DELETER` LOTUSDIALOG%static_ltsdlg31  FILTERSTRINGTEXT#ANDIDAnd FIELDNAMEOPERATORRESULT1CRITERIASTRINGXW 4^4 44 4x 8).i]4).i] d ,,,, *d ,|@X@84 dH4).i]4).i]t|,L@L,l@`,\@tt!,@$LPtҤL [I G˨ [D{XOP}}}[8}[L}[`})t#(&And &AndR KQDB MS Sans Serifd2OrCom8).i] N'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environmen t:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) OldCriteria = DeleteR.FilterString.Text + "#" + ORID + "#" FieldName = "" Operator = "" Result1 = "" CriteriaString End Sub LSOBENpD,t$8T@@@DtDD`tXXLL88Lotus ProductV0.0pDINCENDOBJECTTEByUX4D74D  H*3760948lNEWDELETE  INITIALIZE TERMINATE OBJECT`H (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **DELETER*DeleteRSOURCE BINDEVENTS OBJECTNAME_LOTUSCOMMANDBUTTOND%static_OCX_AdapterCLICK0 OLDCRITERIADELETER` LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGTEXT# ORIDOr FIELDNAMEOPERATORRESULT1CRITERIASTRING` W4^4444x 8).i]4).i] d ,,,, *d ,|@X@84 dH4).i]4).i]t|,L@L,l@`,\@tt!,@$LPtҤL [I G˨ [D{XOP}}}[8}[L}[`})t#(&Or &OrR KQDB MS Sans Serifd2 ClearCom8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotuscommandbutton) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSCOMMANDBUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotuscommandbutton) On Error Goto GenError 'reset other things OldCriteria="" DeleteR.FilterString.Text = "" DeleteR.fieldscombo.enabled = True DeleteR.label3.enabled = True DeleteR.Opcombo.enabled = True DeleteR.Samplecombo.enabled = True DeleteR.label4.enabled = True Exit Sub GenError: Msgbox (Error$) ,16, ProductID Exit Sub End Sub" LSOBEN,t$8T(@    @@DXDDXXLotus ProductV0.0*3760A00lNEWDELETE INITIALIZE TERMINATEpOBJECT`H (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **DELETER*DeleteRSOURCE BINDEVENTS OBJECTNAME_,LOTUSCOMMANDBUTTON\%static_OCX_AdapterXCLICKGENERRORH OLDCRITERIADELETERx LOTUSDIALOG%static_ltsdlg31 FILTERSTRINGTEXT FIELDSCOMBO(ENABLEDDLABEL3OPCOMBO SAMPLECOMBOLABEL4 PRODUCTIDLotus 1-2-3 Release 986 W!4^4!44!4x 8).i]4).i]@ d  ,,,, *d ,|@X0@L |`4).i]4).i]t| \tLP~?w,H8ҤL [I G˨  :d[D}{XOPQ\}{XOhQt{XOQt{XOQt{XOQt{XOQt}t a&Clear_&ClearR KQDB MS Sans Serifd2 Label18).i] QHrSelect values for the criteria from the drop-down lists below. You can also edit the Criteria statement directly.qSelect values for the criteria from the drop-down lists below. You can also edit the Criteria statement directly.R KQDB MS Sans Serifd2 Label28).i] : Criteria &statemen t:TCriteria &statement:R KQDB MS Sans Serifd2 Label38).i] ( &Field: &Field:R KQDB MS Sans Serifd2Label48).i]  ( &Value: &Value:R KQDB MS Sans Serifd2Label58).i] lxw%Delete records from &database table:$Delete records from &database table:R KQDB MS Sans Serifd2 TableText8).i] '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Change(Source As Lotustextbox) Declare Sub Lostfocus(Source As Lotustextbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvent s:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSTEXTBOX Set Source = Bind(Objectname_) On Event Change From Source Call Change On Event Lostfocus From Source Call Lostfocus End Sub '++LotusScript Development Environment:2:2:Change:1:12 Sub Change(Source As Lotustextbox) TableTextChange = 1 End Sub '++LotusScript Development Environment:2:2:Lostfocus:1:12 Sub Lostfocus(Source As Lotustextbox) On Error Goto GenError2 If TableTextChange = 1 Then Dim Range1 As range Dim GetRange As RangeSelector Dim TempRange As Range '1st delete old query table because the user changed the existing one If Typename (selection) = "DATAQUERY" Then .DeleteQuery QT.Name End If 'new we need to set the query up all over again On Error Goto GenError Dim QueryRange As Range Dim FromError As Integer Dim QueryName1 As String Dim Source1 As String FromError = 0 DeleteSource = DeleteR.TableText.Text Set TempRange = Bind(DeleteR.TableText.Text) 'if external t able then get the go ahead If TempRange.IsSelectable = False Then For x = 1 To 1000 Step 1 Set QT = Bind ("Query " + Cstr(x)) If FromError = 1 Then Exit For Next x On Error Goto GenError2 CurrentDocument.NewQuery QueryName1, TempRange.Name Set QT = Bind DataQuery(QueryName1) QT.Select 'else it's an internal table and we need to see if it's at least two rows. 'this has to be second because if we check the number of rows of an external table we hang. Elseif (TempRange.EndRow - TempRange.StartRow > 2) Then For x = 1 To 1000 Step 1 Set QT = Bind ("Query " + Cstr(x)) If FromError = 1 Then Exit For Next x On Error Goto GenError2 CurrentDocument.NewQuery QueryName1, TempRange.Name Set QT = Bind DataQuery(QueryName1) QT.Select End If 'this next block is right from the LOAD routine '1st check if selection is QT....if it is then we can proceed with filling the drop downs. If Typename (Selection) = "DATAQUERY" Then For y = (DeleteR.FieldsCombo. ListCount -1) To 0 Step -1 DeleteR.FieldsCombo.removeitem y Next y Forall q In QT.AllFields DeleteR.FieldsCombo.AddItem q End Forall 'set fields list to 1st item DeleteR.FieldsCombo.SelectItem 0 fillsamplelist End If TableTextChange = 0 Exit Sub End If Exit Sub GenError: QueryName1 = "Query " + Cstr(x) FromError = 1 Resume Next Exit Sub GenError2: Msgbox (Error$), 16, ProductID Exit Sub End SubTLSOBEN> ,, $8T@PP@@D<<DD|\hh, , , XXLotus ProductV0.0 *3760DC8lNEWDELETE INITIALIZE TERMIN ATEOBJECT`H (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE * * Dialog Registry Module **DELETER *DeleteR$SOURCE BINDEVENTS` OBJECTNAME_ LOTUSTEXTBOX$%static_OCX_AdapterCHANGE LOSTFOCUSHTABLETEXTCHANGEp GENERROR2tRANGE1RANGE MAIN123W.DLLSEDefaultClassControlTGETRANGE RANGESELECTOR TEMPRANGE< SELECTION DATAQUERY( DELETEQUERY|QT<NAMEGENERROR QUERYRANGE FROMERROR QUERYNAME1SOURCE1 DELETESOURCEDELETERX LOTUSDIALOG%static_ltsdlg318 TABLETEXTTEXT ISSELECTABLE XQuery CURRENTDOCUMENTLDOCUMENT`NEWQUERYSELECTxENDROWSTARTROWY FIELDSCOMBO  LISTCOUNT REMOVEITEMQ ALLFIELDS\ADDITEM SELECTITEMDFILLSAMPLELIST PRODUCTIDLotus 1-2-3 Release 9 BASEOBJECTSTRINGS #LW"4^4"44"4x 8).i]4).i] d P ,,,,7d ,,@\(  P  004 D@Dd x\ \ \ ).i]).i]h9"4@d s).i]).i]h<"D    (P<@ht @0    0 0 ).i]).i]h6"0 ,@0PP48\@| @<, \X@4).i]4).i]| XP ).i]).i]h"@$ !,T@$   h LH` Xp, |||).i]Xh" ,jP* @P$ 4X&  X < OJ(  P0*d0 , | q 4*, ]).i]).i]h@"_ҤL [I GGP[D :<GD8|\:}@8TK-|#' #  :(b0*[h{|OP+^D{|OU.KD-#8w/^^4*0[}Jʐ1X08: 2^63 :z4{<,J@KD-|##15[J@ʐ6K,0 #::KD-\ #KD- #8s;^^ 4*<[}Jʐ=X08: >^ 6? :@{<,J@KD-|##1A[J@ʐBK,0 #CG|\:}@8qH^ {|O P ^ 4I{|O T ^ 'J^ 6LK- #5 M{|O T Z 'N7 Q{|O T 'R)#SU[DVXY[\^@}J]b0^ _`a}`bchFR KQDB MS Sans Serifd2Image18).i] X'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Lotusimage) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As LOTUSIMAG E Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Lotusimage) On Error Goto GenError2 Dim Range1 As range Dim GetRange As RangeSelector Dim PreHeight As Long Dim TempRange As Range '1st delete old query table because user is going to specify a new source If Typename (selection) = "DATAQUERY" Then .DeleteQuery QT.Name End If 'get height of dialog to reset after range pointer PreHeight = DeleteR.Height 'shrink dialog DeleteR.Height = 100 Set GetRange = CurrentApplication.RangeSelector DeleteR.TableText.Text = GetRange.getrangeString(currentdocument) 'reset dialog DeleteR.Height = PreHeight 'new we need to set the query up all over again On Error Goto GenError Dim QueryRange As Range Dim FromError As Integer Dim QueryName1 As String Dim Source1 As String FromError = 0 DeleteSource = DeleteR.TableText.Text Set TempRange = Bind(DeleteR.TableText.Text) If (TempRange.EndRow - TempRa nge.StartRow > 2) Then For x = 1 To 1000 Step 1 Set QT = Bind ("Query " + Cstr(x)) If FromError = 1 Then Exit For Next x On Error Goto GenError2 CurrentDocument.NewQuery QueryName1, TempRange.Name Set QT = Bind DataQuery(QueryName1) QT.Select End If 'this next block is right from the LOAD routine '1st check if selection is QT....if it is then we can proceed with filling the drop downs. If Typename (Selection) = "DATAQUERY" Then For y = (DeleteR.FieldsCombo.ListCount -1) To 0 Step -1 DeleteR.FieldsCombo.removeitem y Next y Forall q In QT.AllFields DeleteR.FieldsCombo.AddItem q End Forall 'set fields list to 1st item DeleteR.FieldsCombo.SelectItem 0 fillsamplelist End If DeleteR.TableText.SetFocus DeleteR.TableText.SelLength = -1 TableTextChange = 0 Exit Sub GenError: QueryName1 = "Query " + Cstr(x) FromError = 1 Resume Next Exit Sub GenError2: Msgbox (Error$), 16, ProductID Exit Sub End SubLSOBENA]< D,| $8T@ @@ <<| | HHX| |   Lotus ProductV0.0]< D!H*3760E68lNEWDELETE INITIALIZE TERMINATE@OBJECT`H (GLOBALS)t (Globals)0* DIALOG REGISTRY MODULE ** Dialog Registry Module **DELETER*DeleteRSOURCE BINDEVENTS OBJECTNAME_ LOTUSIMAGE%static_OCX_AdapterCLICKD GENERROR20RANGE1`RANGE MAIN123W.DLLSEDefaultClassControlGETRANGE RANGESELECTOR( PREHEIGHT TEMPRANGE SELECTION DATAQUERY` DELETEQUERYPQTtNAMELDELETER LOTUSDIALOG,%static_ltsdlg31<HEIGHTCURRENTAPPLICATION` APPLICATION TABLETEXTTEXTGETRANGESTRINGC URRENTDOCUMENTDOCUMENTlGENERROR QUERYRANGE FROMERROR  QUERYNAME1SOURCE18 DELETESOURCEENDROWdSTARTROWXxQuery NEWQUERY8SELECTY FIELDSCOMBOT LISTCOUNT REMOVEITEMQ$ ALLFIELDSADDITEM SELECTITEMFILLSAMPLELIST0SETFOCUS SELLENGTHTABLETEXTCHANGE PRODUCTIDLotus 1-2-3 Release 9 BASEOBJECTSTRINGS@ XWC4^4C44C4x H8).i]4).i]  d  ,H H H , x *d D4< ` ` ` < < ).i]).i]<dh9"x  H s).i]).i]<Hdh<"    HP<@|H  X X X ).i]).i]<dh6"@<d <XXx4).i]4).i] | XP q).i]).i]<dh"d  P ).i]).i]<Xdh" 0H48 <\@@ !,T@X H H,,@ ! E ,p| ).i]< dh"T ,Y K, j0P@<c&  ` <0*P0, h@P 4 <&   X  O<J( H  q 4*| 4]).i]).i]<dh@"(_<|5laҤL [I G˨  :|:}8TK-#'b{|-#{|.d!^x{<-# {|OQ Kx, z#"{|.X!$ :l)b4+[{|OP ,^{|OU H-K-< #K-` #8s.^ ^ 4*/[}pJ 0X48: 1^ 62 :3{, JK-##14[J5K, #69|:}8q:^ {|O P ^8 4;{|O T, ^ '<^8 6>K-X #5H ?{|O T ZH  '@7H C{|O T 'D)#EG{|OT$ 'H{|OQ0 I[JKL^}pJ Mb4N OPQ}RShImage1aImage1R KQDB MS Sans Serifd2 c:\range2.bmpR KQltBM6(@@@@@@@ʦ`a+e[[[&] [c _?[#y [._.FJ.'?'.?'P;G ;<y.PA0N7;$8T 6xP1xX.4XP,@'/ 6X-8L368 2X'#85x+85%%(2x0x0#,%%*\4h.1#-33'41 ;70#(:::;;##Lotus ProductDV0.0 dqauP >0NINMENU,&QuerypMAINMENUPROMPT@Work with DQA query tables< MENUSELECTQTSelect &Query Table... MENUSELECTQTPROMPTx,Go to and select an existing DQA query tableXMENUSELECTQTSUB LaunchSelectMENUNEWQ &New Query...MENUNEWQPROMPT|DCreate a DQA query table by extracting records from a  T*1710AB4lNEWDELETE INITIALIZE TERMINATEhOBJECTP* DIALOG REGISTRY MODULE *$* Dialog Registry Module *INVAL<STRING1QUERYOBJHELPID dqaui.lssHMAINHELP&HelpMAINMENU,&QuerypMAINMENUPROMPT@Work with DQA query tables< MENUSELECTQTSelect &Query Table... MENUSELECTQTPROMPTx,Go to and select an existing DQA query tableXMENUSELECTQTSUB LaunchSelectMENUNEWQ &New Query...MENUNEWQPROMPT|DCreate a DQA query table by extracting records from a database tablep MENUNEWQSUBlLaunchNewQueryMENUCRIT Set &Criteria...TMENUCRITPROMPT?Set criteria to determine which records appear in a query table MENUCRITSUB LaunchCrit MENUFIELDSC&hoose Fields...MENUFIELDSPROMPT>Select and arrange query table fields; create computed columns MENUFIELDSSUB LaunchFields` MENUSORT&Sort...MENUSORTPROMPT;Sort data in a query table in ascending or descending order MENUSORTSUB LaunchSort| MENUAGG &Aggregate... MENUAGGPROMPT6Calculate values using groups of data in a query table MENUAGGSUBD LaunchAggMENUNAMENa&me...` MENUNAMEPROMPT Rename a query table| MENUNAMESUB LaunchNamex MENUJOIN &Join... MENUJOINPROMPTD 7Query multiple database tables that have a common field` MENUJOINSUB@ LaunchJoin MENUSQL Sho&w SQL..., MENUSQLPROMPT *Show the SQL command for the current queryH MENUSQLSUBX LaunchSQL MENUTABLE Set Database &Table... MENUTABLEPROMPTx @Select a new database source table to use with the current query MENUTABLESUB LaunchSource MENUREFRESH &Refresh Now MENUREFRESHPROMPTtUpdate records in a query tabled MENUREFRESHSUB LaunchRefresh MENUOPTIONSSet &Options...MENUOPTIONSPROMPT@Update records, show unique records, and set query table optionsMENUOPTIONSSUBh LaunchOptionsSUBMENU1T&External TablesSUBMENU1PROMPT0"Work with external database tables MENUCONNECTConnect to &External...tMENUCONNECTPROMPT%Connect to   an external database tableMENUCONNECTSUBd LaunchConnect MENUDISCOND&isconnect...DMENUDISCONPROMPT0End the connection to an external database table MENUDISCONSUB8 LaunchDisConT MENUSENDSQL Se&nd SQL...MENUSENDSQLPROMPT2Send a SQL statement to an external database tablexMENUSENDSQLSUB LaunchSendSQL MENUCREATElC&reate Table...hMENUCREATEPROMPTL!Create an external database table MENUCREATESUBx LaunchCreatePMENUCT Crossta&b...\ MENUCTPROMPT)Cross-tabulate data from a database table MENUCTSUBLaunchCT\ MENUAPPEND<A&ppend Records...MENUAPPENDPROMPTAdd records to a database tablel MENUAPPENDSUB LaunchAppend MENUDELETEL&Delete Records...4MENUDELETEPROMPT=Remove records from database table that meet criteria you set MENUDELETESUB LaunchDeleteANDIDAnd ORIDOrOKID OK|CANCELIDCancelFROMID FROM HWHEREID WHERE t ORDERBYIDORDER BYQUERYIDQuery x ALLOWUPDATEIDPAllow updates is turned on. Update the database table or turn off Allow updates.T NOQUERYINFILE<This file contains no queries. NOOPENFILESThere are no documents open. PRODUCTIDLotus 1-2-3 Release 9COMMAID,SELECTFIELDSDELIM$;PTABLEQUALIFIER.p SORTASCID ASC@ SORTDESCID DESC  ASCSORTLETTERANEWTABLE [New Table] FIELDSERROR@(Cannot remove all the fields in a query.8BADQUERY#Named product object does not exist0 CRITERIACAP< Set CriteriaCRITERIALABEL3&Field:CRITERIALABEL4T&Value:`CRITERIALABEL1qSelect values for the criteria from the drop-down lists below. You can also edit the Criteria statement directly.CRITERIALABEL2Criteria &statement:XCRITERIALABEL2ACrit&eria Range:CRITERIACOMMAND5&Clear CRITERIACOMMAND6@ CHOOSECAPx Choose Fields CHOOSELABEL1\S&elected fields: CHOOSECOMMAND3T CHOOSECOMMAND4&Add...0 CHOOSECOMMAND5 &Formula...CHOOSECOMMAND6&Show Field As...D ADDCAP Add Fields ADDLABEL1  H!&Available fields: DELCOM &Delete QTCAPx!Select Query Tabled!QTLABEL1! Source table:"QTLABEL2<"Output location:"QTLABEL3!&Select the query table:! FORMULACAP!Formula@$ FORMULALABEL1#&Enter formula:$" FORMULALABEL2t"&Show field as:"FORMULACOMMAND1`"&Replace"FORMULACOMMAND3$#&InsertX#FORMULACOMMAND4"&Delete Formula@#ALIASCAP# Show Field Asl# ALIASLABEL1#Field:$ ALIASLABEL2$ &Show as:|$AGGCAP# Aggregate# AGGLABEL1%Selected &fields:P$ AGGLABEL2# Sho&w as:$ AGGCOMMAND3$$&Resetl$ AGGOPTION1$&Sum% AGGOPTION2$&Avg$ AGGOPTION3%&Countp& AGGOPTION4%&Mint% AGGOPTION5%Ma&x&QNAMECAP8% Query NameT% QNAMELABEL1,' &Query name:`& QNAMELABEL2&&Existing query tables:%SQLCAP&Show SQLD( SQLLABEL1D&Structured Query Language:& SQLCOMMAND1,)&Copy&BASECAPP'Set Database Table' BASELABEL1'&Database table:H) OPTIONSCAP' Set Options)OPTIONSCOMMAND3d'&Update' OPTIONSCHECK1$( &Allow updates to database table( OPTIONSCHECK2 )&Show unique records only`) OPTIONSCHECK3d( Auto-&refresh( OPTIONSCHECK4(&Limit records|) OPTIONSCHECK5|+Show sample &values in filter)SORTCAP)Sort, SORTLABEL1 * &Sort by:* SORTLABEL2) A&ll keys:) SORTCOMMAND3<*Add &Keyt* SORTCOMMAND4+R&eset* SORTOPTION1X* &Ascending* SORTOPTION2* &Descending,+QACAP-New Query Assistant -QALABEL1+#1. &Select database table to query:@,QALABEL2`-%2. &Enter a name for the query table:+QALABEL3(,(4. Select &location for new query table:,QALABEL4-Limit &records:,QALABEL5,3. Select fields and records:, QACOMMAND3,Choose &Fields...X. QACOMMAND4-JOINCAPt-Join. JOINLABEL1D-&Join criteria:. CONNECTCAP-Connect/ CONNECTCOM0 &Continue1 CONNECTLABEL1-&Select a driver:x. CONNECTLABEL20 &Select a database or directory:. CONNECTLABEL34/&Select a table:. CONNECTLABEL4. &Refer to as:/ DISCONCAP/ Disconnectl/ DISCONLABEL1P/ &Disconnect/ SENDSQLCAP/Send SQL/ SENDSQLLABEL10&Tablesl0 SENDSQLLABEL21 &SQL s  /tring:0 SENDSQLLABEL3L0&Range with SQL StringH2 SENDSQLLABEL4t1SQ&L results range:01SENDSQLOPTION1x2 S&QL string0SENDSQLOPTION2X2 &From rangeT1 CREATECAP 2Create a table3 CREATELABEL11 &Model Table:82 CREATECHECK11 &Insert records from model table|3DESC12Crosstab table for h2DESC22 by 2DESC32 and 3SUMACT2DSUM2COUNTACTl4DCOUNT3AVGACT$3DAVGL3MAXACT3DMAXh3MINACT43DMIND4 PCOUNTACT3 DPURECOUNT3STDACT 4DSTD3STDSACT3DSTDS3VARACT4DVAR44VARSACTT7DVARS4SUMDESC4TotalX4 COUNTDESC\8Count7AVGDESC4Average4MAXDESC`5Maximum4MINDESC4Minimum5 PCOUNTDESCH5 Pure Count5STDDESC5Population standard deviation$6STDSDESC5Sample standard deviationh6VARDESC5Population variancex7VARSDESC6Sample varianceP6CTCAP48Crosstab Assistant6CTLABEL17>&Select database range for crosstab including column headings:8CONTIDl: CROSSTABCAP7Crosstab Heading Options8CROSSTABLABEL18%Select the headings for the crosstab:7CROSSTABLABE L2T9&Row headings:9CROSSTABLABEL3P:C&olumn headings:x8 OPTIONS1CAP8Crosstab Data Options9OPTIONS1LABEL109S&ummarize field:9OPTIONS1FRAME1,: Calculate;OPTIONS1RADIO1x9OPTIONS1RADIO29&Average:OPTIONS1RADIO3:OPTIONS1RADIO49&Minimum,;OPTIONS1RADIO5:Ma&ximum,=OPTIONS1RADIO6: &Purecount:OPTIONS1RADIO7:S&TD;OPTIONS1RADIO8<;ST&DS;OPTIONS1RADIO9X;&VAR|;OPTIONS1RADIO10>VA&RS> APPENDRCAP=Append Records; APPENDRLABEL1X<&Append records from:4< APPENDRLABEL2<&To database table:p< DELETERCAP=Delete Records= DELETEMSG@=EDo you wish to delete the current query table's found set of records?d=DLLGETACTIVEWINDOW?user32 LPHELPFILE=WCOMMAND>DWDATA>TEMPR0>RANGE`> MAIN123W.DLLX?SEDefaultClassControl> CUSTOMMENU?MENU>SUBMENU? CANCELFLAG$?CRITERIASTRINGSA NEWQUERYCRITD@ FIELDLISTBQT4A DATAQUERY? CORRECTMENUx? DELETESOURCEC SAMPLEVALUES? ISMENU1UP@ SELECTRANGE?ROWFIELD T ??COLFIELD(@SUMFIELDBACTION1@ ACTIONDESC@'H_123_SELECTING_A_DQA_QUERY_TABLE_STEPS|A'H_123_NEW_QUERY_ASSISTANT_DIALOG_BOX_CSlB H_123_SET_CRITERIA_DIALOG_BOX_CSB!H_123_CHOOSE_FIELDS_DIALOG_BOX_CSA H_QS_STEPSB H_QA_STEPSA H_QN_STEPSBH_123_SET_OPTIONS_DIALOG_BOX_CS0B H_QSS_STEPSPB H_QSDT_STEPSC H_QJ_STEPS`E H_TDCE_STEPS C H_TDSC_STEPSD H_TDD_STEPSdC H_TDCT_STEPSCH_TDXTAB_STEPSpD(H_123_SELECTING_HEADINGS_FOR_A_DQA_CROSSD'H_123_SELECTING_DATA_OP_FOR_A_DQA_CROSS4E H_TDAR_STEPS4D H_TDDR_STEPSDH_123_FORMULA_DIALOG_BOX_CSTD H_QSFA_STEPSE CONVERTREFDADDQUERYFXDCURRENTAPPLICATIONE APPLICATION(FCURRENTMENUBARHE GETITEMTEXTE REMOVEITEM|ENEWMENUFMENUTEXTG MENUPROMPTEADDITEMF THISDOCUMENTEDOCUMENTF ADDSEPARATOREADDMENUFISQUERYdFGENERRORHF CURRSELECTION8G ISANYQUERYFNUMBEROFQUERIESPIOUTRANGEF DOCUMENTSGCOUNTxG SELECTIONGNAMEPHCURRENTDOCUMENT8HDATAQUERYNAMESdGCHECKOUTPUTLOCATION HSELECTHEXTTABLECONNECTEDHREFRESHGQTABLESG LOTUSDIA TLOGH%static_ltsdlg31ISHOWH LAUNCHCRITpHCRITERIA$I LAUNCHFIELDSH CHOOSEFIELDS I LAUNCHAGG0I AGGREGATEH LAUNCHREFRESHI LAUNCHNAMElIQNAMEJ LAUNCHSQLJSQLLK LAUNCHSOURCEI BASESOURCEI LAUNCHOPTIONSIOPTIONSTJ LAUNCHSORTJQSORT$JLAUNCHNEWQUERY4JNEWQUERYtJ LAUNCHJOINKJOINJ LAUNCHSELECTJ LAUNCHCONNECTDLCONNECTK LAUNCHDISCONJ DISCONNECTL LAUNCHSENDSQLKSENDSQLhK LAUNCHCREATE4K CREATETABLEKLAUNCHCTM QUERYRANGEK FROMERROR\L QUERYNAME1,LOUTPUTLOCATIONK ENDCOLUMN L STARTCOLUMNPMENDROWMSTARTROW|LCT10M GENERROR2LCROSSTABM LAUNCHDELETELSOURCE1LANSWERL TEMPRANGEpMBASESOURCETABLEM DELETERECORDSM STRIPQUOTESdMDELETER LAUNCHAPPENDMAPPENDR""M TRAPBADQNAME..SHOWHELPSS1N70EN.HLP>OverviewNMENUBARBASECOLLECTIONSTRINGS  a#8l c$X cxx cd @ c8t c$ cDD\ c| c8x0L c$ Xp c x  cd Xt c x c X cD  c  c 88 c$X cxx cd c c cD  cH d  c8   c$X   cx8H d  cd   c8   cx0 L  cDd |  c   c8\ |  c$X   cx   cdD h  c8   cX   cD x c c8  c$Xl cx cd84X cx c cD XHh c x c!8 c$"X X| c"x  cd# c$Pp c$x cD%  c%X<T c&8l c$'X c'x @ cd(8`| c) c)8 Pp cD*x c* x  c+8X c$,XX  c,x $ cd-8 8L c.`x c.X  cD/x @ c/   c08  c$1X  c1x @X cd2 X  c3   c3  cD4 x  c4 (D c58 Tt c$6X X | c6x  cd7 8 $< c8  c8 8  cD9 X  c9 x4X c:8 8@d c$;X 8 c;x  cd<   c=  D\ c= | cD>   c>   c?8 D c$@X ` c@x x  cdA  cB 4  cB H X  cDC 8   cC x   cD8 X ! c$EX XL!h! cEx |!! cdF 8!! cG "(" cG 8@"d" cDH Xx"" cHx"" cI8"# c$JX(#D# cJxX\#p# cdK## cL## cL#$ cDM($D$ cMT$p$ cN8$$ c$OXx$$ cOx$$ cdP% % cQ<%X% cQx%% cDR%% cR  x% & cS8H&d& c$TX8t&& cTx&& cdU&' cV0'T' cVh'' cDW'' cWX((H( cX8h(( c$YXx(( cYx ) ) cdZ0)L) c[8d)) c[X)) cD\8)) c\*$* c]8@*\* c$^XXx** c^x** cd_+0+ c`x++ c`+, cDa,,D, ca,, cb88, c$cX,, ccxx-$- cddH-d- cex-- cex-- cDf-. cf\.|. cg8X.. c$hX.. chxx/8/ cdi8T/p/ cj// cj// cDk/0 ckP0p0 cl800 c$mXX01 cmxx141 cdnX1x1 co11 coX22 cDp<2L2 cpx\2l2 cq8|22 c$rX22 crx822 cds23 ct3(3 ct883P3 cDuXl33 cu33 cv8833 c$wX33 cwx834 cdx 484 cyH4\4 cyp44 cDz44 c z44 c{8x4 5 c$|XXL5d5 c|xx55 cd}55 c~6(6 c~T6l6 cD6- c7 7 c8lX7|7 c$Xx77 cāx888 cd`8|8 cX88 c89 cD49D$ c䄡X9|9 c8L9$ c$X899 cĆx9: cd<0:T: c\p:: cX:: cD:: c䉡L ;0; c8l@;\; c$X;; cċx ;; cd<8< c\<t< c|=D=7|h==7>>====== ).i]).i]4>h9"L= B7>8999l99849).i]).i]4>h+"\\d> l> |> l>, ><,?0#(?<<=hh6"L'? \@?l\? ||?$?(?8 ?<?@ @D@Hl ,@L  H@0uL@,,!@1u@L@LL@2uL@lL 8A3uL@ A4uM@6A5u@M@A6uM@L!A7uM@   !B8uN@, !4B9u@N@L (TB:uN@l l!pB;uN@ .BuO@ -B?uO@ !$C@uP@,!P1hCAu@P@L!+CBuP@l!`)CCuP@!!CDuQ@!&8DEu@Q@d"@'XDD"T"D"D"T"T"T"XD$ 2tD"t$t$t$"" Z<t$D #$'D 0#@h#%D7:::78q).i]).i]4>h" t%t%E #@h%E;l=;;l=l=).i]).i]0#4>h"> 8&/F%x;<%<%%%L%L%,%,%x;x;\%\% 0Pt&t&t&t&,%,F<%( L%LF\%hFx;F  %-F@h %F #@h@$'G %G7(:G<<<<4).i]4).i]%#4 Fd@'* H @',h,"|8E M7]& 79E M7(( 7:8E  a0#&  0#949LEL,49dEL,l9E M&   #99E M& E M&  E M7& 7 F `{*(::F^).i]).i] #74>h";MH;H;H;H;).i](:4>h"FV*FD l=G 4G,; N]).i]).i]:4>h@"h<=hG OJ( <|G4*=G 4( H %%i %G*8=K=hG OJ( Kp|KqK= L2 I 4#&  #LL 05& ?@{%,<#AD{#-:#-H;#8E}}XFGH{/,<#IN{#-:#-H;#8O}}XPQR{x0,<#SX{#-:#-H;#8Y}}XZ[\{41,<#]b{#-:#-H;#8c}}Xdef{1,<#gj :/qbr{#-:#-H;#8s}}Xtuw|t%:}(?8x^2{t%U<yK2,=#z|[{t%Pl;~{t%P,={t%P8={ t%PD={t%PP=8{2,<#:b^\=4+[<}XʬX8: ^\=6 P :_{%,l=J2G#1[<J2ʬK<,<<#{3,<#^2}Xb }X :kb{#-:#-H;#8}}X|t%:}(?8sb }t<+X 81^44{t%U=K44,=)T5{t%U=##^3{t%U<K3,=#[\{t%Pl;{t%PD={t%PP=8~b(^=4+[<}X(ʬX8: ^=6 ` :l^4{t%Pl;{%,l=J4J4#1[<J4ʬK<,<<#{\4,<#^4}X(b }X{#-:#-H;#8}}X{85,<#I5}hM8=]5I5I5}hMJI5]5%I5}hMP:]5I5 :Ya^6{t%Pl;K6-=#J6J6K6-=#K6-=#}MJ8 a ))#}M]|7#1  4Opened PostClose PreClosePOLL1$ H  LSOBEN+D  4PllL8@@Lotus ProductV0.0MENUDED MENUDELETEPROMPT=Remove records from database table that meet criteria you set MENUDELETESUB LaunchDeleteANDIDAnd ORIDOrOKID OK|CANCELIDCancelFROMID FROM HWHEREID WHERE t ORDERBYIDORDER BYQUERYIDQuery x ALLOWUPDATEIDPAllow updates is turned on. Update  *F80774hNEW|DELETE INITIALIZE TERMINATEOBJECT (GLOBALS) (Globals)SOURCE P1@ SAVECHANGES BINDEVENTS( OBJECTNAME_`DOCUMENT, MAIN123W.DLLSEDefaultClassControltOPENED POSTCLOSETPRECLOSEPOLL1CURRENTAPPLICATION APPLICATIOND DOCUMENTSCOUNT< THISDOCUMENTp STARTPOLLENDPOLLADDQUERYMENUXXCURRENTMENUBAR GETITEMTEXT(MAINMENU&Query REMOVEITEM ISMENU1UPCLOSEBASECOLLECTIONMENUBAR  6l\\\\D8, (( ).i]).i]|dh"  K   8@SLhhhq).i]).i]dh" X @S!d"@ L).i]).i]8dh+"tXtX @X X,|@\``ppp ((((  $|8$H$`$|h0 `{*@0^).i]).i] Ldh").i]dh"HV*( x }e(   }B&  `[* L L L   ).i]).i]@dh,"L  M]& @ M(( t & [ \ H HҠ[\IG\˄|lG\ˁG\ˀG\˅|{-#-#8{, N#:{,(#)# ^X^| 47!{-h#, JX#},8"{-h#,L JX##$^| 6%[&Kt, #'*G8+]`~ ,: -]`~ ./2{-#-#83{,(#4)#56 > 6 66!6zz   N@ d     A_, B@  B@  """ PAm??" W Brian Murray/CAM/LotusBrian Murray/CAM/LotusyData Query Add-In (DQA) offers data query functionality similar to 1-2-3 Release 5, including query tables and crosstabs. 123123 PropertyDoc Info AuthorDoc Info CommentsDoc Info Editing TimeDoc Info KeywordsDoc Info Last RevisorDoc Info ObjectDoc Info RevisionsDoc Info Revisions CountDoc Info SubjectDoc Info Title  L<  }       };m*quCMHdrL<123123 PropertyDoc Info AuthorDoc Info CommentsDoc Info Editing TimeDoc Info KeywordsDoc Info Last RevisorDoc Info ObjectDoc Info RevisionsDoc Info Revisions CountDoc Info SubjectDoc Info Title  p<  4  !     }^mMquCMHdrp<