git.infodrom.org Git - infodrom/rico3/blob - examples/asp/ex2nosession.asp

   1 <%@ LANGUAGE="VBSCRIPT" %>\r
   2 <% Response.CacheControl = "no-cache" %>\r
   3 <% Response.AddHeader "Pragma", "no-cache" %> \r
   4 <% Response.Expires = -1 %>\r
   5 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">\r
   6 <html>\r
   7 <head>\r
   8 <title>Rico LiveGrid-Example 2 (editable)</title>\r
   9 \r
  10 <!-- #INCLUDE FILE = "dbConnect.asp" --> \r
  11 <!-- #INCLUDE FILE = "../../plugins/asp/ricoLiveGridForms.vbs" --> \r
  12 <!-- #INCLUDE FILE = "../../plugins/asp/ricoResponse.vbs" --> \r
  13 <link href="../demo.css" type="text/css" rel="stylesheet" />\r
  14 <%\r
  15 '************************************************************************************************************\r
  16 '  LiveGrid Forms Example, without using session variables\r
  17 '************************************************************************************************************\r
  18 '  Matt Brown\r
  19 '************************************************************************************************************\r
  20 dim oXmlResp\r
  21 \r
  22 if OpenGridForm(empty,"Orders") then\r
  23   select case oForm.action\r
  24     case "table":\r
  25       ' let rest of script be processed\r
  26     case "query":\r
  27       DefineFields\r
  28       set oXmlResp=new ricoXmlResponse\r
  29       oXmlResp.ProcessQuery oForm.gridID, oForm.SqlSelectData, Empty\r
  30       set oXmlResp=Nothing\r
  31       response.end\r
  32     case else:\r
  33       DefineFields\r
  34       oForm.DisplayPage\r
  35       response.end\r
  36   end select\r
  37 end if\r
  38 %>\r
  39 \r
  40 <!-- #INCLUDE FILE = "LoadRicoClient.asp" --> \r
  41 \r
  42 \r
  43 <script type='text/javascript'>\r
  44 Rico.loadModule('LiveGridForms','Calendar','Tree');\r
  45 \r
  46 // ricoLiveGridForms will call orders_FormInit right before grid & form initialization.\r
  47 \r
  48 function orders_FormInit() {\r
  49   var cal=new Rico.CalendarControl("Cal");\r
  50   Rico.EditControls.register(cal, Rico.imgDir+'calarrow.png');\r
  51   \r
  52   var CustTree=new Rico.TreeControl("CustomerTree","CustTree.asp");\r
  53   Rico.EditControls.register(CustTree, Rico.imgDir+'dotbutton.gif');\r
  54 }\r
  55 </script>\r
  56 <style type="text/css">\r
  57 div.ricoLG_outerDiv thead .ricoLG_cell, div.ricoLG_outerDiv thead td, div.ricoLG_outerDiv thead th {\r
  58         height:1.5em;\r
  59 }\r
  60 div.ricoLG_cell {\r
  61   white-space:nowrap;\r
  62 }\r
  63 </style>\r
  64 </head>\r
  65 \r
  66 \r
  67 <body>\r
  68 \r
  69 \r
  70 <table id='explanation' border='0' cellpadding='0' cellspacing='5' style='clear:both'><tr valign='top'><td>\r
  71 Base Library: <script type='text/javascript'>document.write(Rico.Lib+' '+Rico.LibVersion);</script>\r
  72 <hr>The data on this grid can be edited using pop-up forms. \r
  73 Just click on a grid cell and then select Edit, Delete, or Add from the pop-up menu. \r
  74 The Add and Edit forms are automatically generated by LiveGrid. \r
  75 Notice on the Add form how you use the Rico Tree control to select the customer. \r
  76 Notice on the Edit form how the Rico Calendar is used to change dates. \r
  77 Updates are disabled on the database, so you will get an error message if you try to save.\r
  78 </td><td>\r
  79 <script type='text/javascript'><!--\r
  80 google_ad_client = 'pub-7218597156507462';\r
  81 /* 125x125, created 5/11/09 */\r
  82 google_ad_slot = '9298106441';\r
  83 google_ad_width = 125;\r
  84 google_ad_height = 125;\r
  85 //-->\r
  86 </script>\r
  87 <script type='text/javascript' src='http://pagead2.googlesyndication.com/pagead/show_ads.js'></script>\r
  88 </td></tr></table>\r
  89 \r
  90 <p><strong>Orders Table</strong></p>\r
  91 \r
  92 <%\r
  93 DefineFields\r
  94 oForm.DisplayPage\r
  95 'response.write "<p><textarea id='orders_debugmsgs' rows='5' cols='80' style='font-size:smaller;'></textarea>"\r
  96 CloseApp\r
  97 \r
  98 \r
  99 sub DefineFields()\r
 100   dim colnum,LookupSQL\r
 101   'oForm.options("showSaveMsg")="full"\r
 102   oForm.options("FilterLocation")=-1\r
 103   'oForm.DebugFlag=true\r
 104   oForm.options("panelWidth")=500\r
 105   oForm.options("frozenColumns")=1\r
 106   oForm.options("menuEvent")="click"\r
 107   oForm.options("highlightElem")="cursorRow"\r
 108   oForm.options("XMLprovider")=Request.ServerVariables("SCRIPT_NAME")\r
 109   oForm.sessions=false\r
 110   \r
 111   oForm.AddPanel "Basic Info"\r
 112   oForm.AddEntryFieldW "OrderID","Order ID","B","<auto>",50\r
 113   oForm.ConfirmDeleteColumn\r
 114   oForm.SortAsc\r
 115 \r
 116   LookupSQL="select CustomerID,CompanyName from Customers order by CompanyName"\r
 117   oForm.AddLookupField "CustomerID",empty,"CustID","Customer","CL","",LookupSQL\r
 118   oForm.LookupField("SelectCtl")="CustomerTree"\r
 119   oForm.LookupField("InsertOnly")=true   ' do not allow customer to be changed once an order is entered\r
 120   oForm.CurrentField("width")=160\r
 121   oForm.CurrentField("filterUI")="t"\r
 122 \r
 123   LookupSQL="select EmployeeID," & oDB.concat(Array("LastName","', '","FirstName"),false) & " from Employees order by LastName,FirstName"\r
 124   oForm.AddLookupField "EmployeeID",empty,"EmployeeID","Sales Person","SL","",LookupSQL\r
 125   oForm.CurrentField("width")=140\r
 126   oForm.CurrentField("filterUI")="m"\r
 127 \r
 128   oForm.AddEntryFieldW "OrderDate","Order Date","D",Date(),90\r
 129   oForm.CurrentField("SelectCtl")="Cal"\r
 130   oForm.AddEntryFieldW "RequiredDate","Required Date","D",Date(),90\r
 131   oForm.CurrentField("SelectCtl")="Cal"\r
 132   oForm.AddCalculatedField "select sum(UnitPrice*Quantity*(1.0-Discount)) from order_details d where d.OrderID=t.OrderID","Net Sale"\r
 133   oForm.CurrentField("format")="DOLLAR"\r
 134   oForm.CurrentField("width")=80\r
 135 \r
 136   oForm.AddPanel "Ship To"\r
 137   oForm.AddEntryFieldW "ShipName","Name","B","",140\r
 138   oForm.AddEntryFieldW "ShipAddress","Address","B","",140\r
 139   oForm.AddEntryFieldW "ShipCity","City","B","",120\r
 140   oForm.CurrentField("filterUI")="s"\r
 141   oForm.AddEntryFieldW "ShipRegion","Region","T","",60\r
 142   oForm.AddEntryFieldW "ShipPostalCode","Postal Code","T","",100\r
 143   \r
 144   ' display ShipCountry with a link to wikipedia\r
 145   colnum=oForm.AddEntryFieldW("ShipCountry","Country","N","",100)\r
 146   oForm.CurrentField("control")="new Rico.TableColumn.link('http://en.wikipedia.org/wiki/{" & colnum & "}','_blank')"\r
 147   oForm.CurrentField("filterUI")="s"\r
 148 end sub\r
 149 \r
 150 %>\r
 151 \r
 152 </body>\r
 153 </html>\r