CDrawGroup\ 9\ 9 \ 9 CDrawRect\ 9\ 9  CMouseKey  Dim connectionString, sqlStatment, objCon, objRS, tableName, J, sqlWHERE connectionString = $#connectionString:"" tableName = $#TableName:"" sqlWHERE = $#sqlWHERE:"" sqlStatment = "SELECT * FROM " sqlStatment = sqlStatment & "[" & tableName & "]" If sqlWHERE<>"" Then sqlStatment = sqlStatment & " WHERE " & sqlWHERE Set objCon = CreateObject("ADODB.Connection") Set objRS = CreateObject("ADODB.RecordSet") On Error Resume Next objCon.Open(connectionString) If err.number<>0 Then MsgBox $Ext("Error ") & err.number & ": " & err.Description, vbCritical, $Ext("Database Error") Else objRS.Open sqlStatment, connectionString If err.number<>0 Then MsgBox $Ext("Error ") & err.number & ": " & err.Description, vbCritical, $Ext("Database Error") J = 0 Do While (Err.Number=0 And J<1000) $ForceTagChange($#DataArrayTagName:"" & "[" & J & "]", CStr(objRS(J))) J=J+1 Loop End If objRS.Close() objCon.Close() On Error Goto 0 Set objRS = Nothing Set objCon = NothingDim connectionString, sqlStatment, objCon, objRS, tableName, J, sqlWHERE connectionString = "" tableName = "" sqlWHERE = "" sqlStatment = "SELECT * FROM " sqlStatment = sqlStatment & "[" & tableName & "]" If sqlWHERE<>"" Then sqlStatment = sqlStatment & " WHERE " & sqlWHERE Set objCon = CreateObject("ADODB.Connection") Set objRS = CreateObject("ADODB.RecordSet") On Error Resume Next objCon.Open(connectionString) If err.number<>0 Then MsgBox StFunction1__(31, 1, "Error ") & err.number & ": " & err.Description, vbCritical, StFunction1__(31, 1, "Database Error") Else objRS.Open sqlStatment, connectionString If err.number<>0 Then MsgBox StFunction1__(31, 1, "Error ") & err.number & ": " & err.Description, vbCritical, StFunction1__(31, 1, "Database Error") J = 0 Do While (Err.Number=0 And J<1000) Call StFunction1__(90, 2, "" & "[" & J & "]", CStr(objRS(J))) J=J+1 Loop End If objRS.Close() objCon.Close() On Error Goto 0 Set objRS = Nothing Set objCon = Nothing #Disable:0 35Disable:0 Arial CDrawBitmapc{1c{1   (  upb<3%4)4)5, MD8obQ>5*4)*!k`OH<+N?,gк]L8 *"|iKۻŤβϳƥ۽d%|r_snc%ÝpֲۻŤβϳƥ۽ֳĠs>/|q\2&qIѩyֲۻŤβϳƥ۽ֳѫ{ǝj ƜhѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤŸֵѪzϥrЧuŽNŽNɚaϥrΣoձٹĢ۽ֳѫ{͢m ̡kѩyҬ~̠kŔVĐQ̡kӮڼƥϳֳϧtŔXÐQʝeϦuѫ{͢m ̠jɚaĐRШwдղƖZƕXˠi œVΦs۽ŔV ̡kսսսսսսսսսսսսսսսսսսսսڼ ̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯ ${ááááááááááááááááááááá llaM<(ںںںںںںںںںںںںںںںںںںںںlOD:*OI<YE,ǤzձձձձձձձձձձձձձձձձձyaB:0!cbW ^H,VϧuШwШwШwШwШwШwШwШwШwШwШw`pV6%HB5^]U# P<#cK-{^9qFtJtJrFg>cK-]E(  LKBhmiYVLD@6.*#/'/'.)!95-ZUH]a^ CDrawSymbolp,p, p, CDrawPolyp,p,  pp&|&|,!||pp&|&|,!|| 7 7 {#Label:"SELECT"} Arial