CDrawGroupOAOA OA CDrawRectOAOA  CMouseKey  Dim connectionString, sqlStatment, objCon, tableName, J, data, numFields connectionString = $#connectionString:"" tableName = $#TableName:"" numFields = $#NumFields:1 sqlStatment = "INSERT INTO " sqlStatment = sqlStatment & "[" & tableName & "] VALUES(" For J=0 To (numFields - 1) If IsNumeric($#DataArrayTag:[J]) Then data = $#DataArrayTag:[J] Else data = "'" & $#DataArrayTag:[J] & "'" End If sqlStatment = sqlStatment & data If J < (numFields - 1) Then sqlStatment = sqlStatment & ", " Next sqlStatment = sqlStatment & ")" Set objCon = CreateObject("ADODB.Connection") On Error Resume Next objCon.Open(connectionString) If err.number<>0 Then MsgBox $Ext("Error ") & err.number & ": " & err.Description, vbCritical, $Ext("Database Error") Else objCon.Execute(sqlStatment) If err.number<>0 Then MsgBox $Ext("Error ") & err.number & ": " & err.Description, vbCritical, $Ext("Database Error") End If objCon.Close() On Error Goto 0 Set objCon = NothingDim connectionString, sqlStatment, objCon, tableName, J, data, numFields connectionString = "" tableName = "" numFields = 1 sqlStatment = "INSERT INTO " sqlStatment = sqlStatment & "[" & tableName & "] VALUES(" For J=0 To (numFields - 1) If IsNumeric(StGetTagVal__(-1, J, 0, 0, 0) ) Then data = StGetTagVal__(-1, J, 0, 0, 0) Else data = "'" & StGetTagVal__(-1, J, 0, 0, 0) & "'" End If sqlStatment = sqlStatment & data If J < (numFields - 1) Then sqlStatment = sqlStatment & ", " Next sqlStatment = sqlStatment & ")" Set objCon = CreateObject("ADODB.Connection") 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 objCon.Execute(sqlStatment) If err.number<>0 Then MsgBox StFunction1__(31, 1, "Error ") & err.number & ": " & err.Description, vbCritical, StFunction1__(31, 1, "Database Error") End If objCon.Close() On Error Goto 0 Set objCon = Nothing #Disable:0 35Disable:0 Arial CDrawBitmap99   (  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^M?M? {#Label:"INSERT"} Arial))  ( Gb0Gb0Gb0Gb0Gb0Gb0Gb0952*w*%J!A92Gb0+U(O%J9GĪ#8l-/^+V(O!A U*w**w*Gb0*w*4g/^+U%J%f4Z4] a a UK~K~Cv:m3f3f3f+U%J92& a UWOK~Cv:m6i3f3f+U%J952 a UWWOK~Cv>q:m3f3f+U%J!A9 a U/H+D+D'@K~GzCv:m%8%%%%GĪףԡԡ+DMJ}Gz;n%Λ ǒ ǒ ǒ ǒ/HOMK~=p%/HWSOEx%/H]ZWK~%/H/H-F+D+D+D/H/H-F+D+D+D