ex8.asp | searchcode

/plugins/org.openrico.rico.2.0/libraries/lib/rico/examples/asp/rtl/ex8.asp

https://github.com/victor-homyakov/frameworks
ASP | 136 lines | 110 code | 17 blank | 9 comment | 4 complexity | 02cfd05f7177a2c728810eaaa8feed9f MD5 | raw file
Possible License(s): BSD-3-Clause, LGPL-2.0, MIT

<%@ LANGUAGE="VBSCRIPT" %>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %> 
<% Response.Expires = -1 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html dir="rtl">
<head>
<title>LiveGrid Plus-Edit Example</title>
<% sqltext="." ' force filtering to "on" in settings box %>

<script src="../../../src/rico.js" type="text/javascript"></script>
<link href="../../client/css/demo.css" type="text/css" rel="stylesheet" />
<!-- #INCLUDE FILE = "applib.vbs" --> 
<!-- #INCLUDE FILE = "../../../plugins/asp/ricoLiveGridForms.vbs" --> 
<!-- #INCLUDE FILE = "chklang.vbs" --> 
<!-- #INCLUDE FILE = "settings.vbs" --> 

<script type='text/javascript'>
Rico.loadModule('LiveGridForms');
Rico.loadModule('Calendar');
Rico.loadModule('Tree');
<%
setStyle
setLang
%>

// Results of Rico.loadModule may not be immediately available!
// In which case, "new Rico.CalendarControl" would fail if executed immediately.
// Therefore, wrap it in a function.
// ricoLiveGridForms will call orders_FormInit right before grid & form initialization.

function orders_FormInit() {
  var cal=new Rico.CalendarControl("Cal");
  RicoEditControls.register(cal, Rico.imgDir+'calarrow.png');
  cal.addHoliday(25,12,0,'Christmas','#F55','white');
  cal.addHoliday(4,7,0,'Independence Day-US','#88F','white');
  cal.addHoliday(1,1,0,'New Years','#2F2','white');
  
  var CustTree=new Rico.TreeControl("CustomerTree","CustTree.asp");
  RicoEditControls.register(CustTree, Rico.imgDir+'dotbutton.gif');
}
</script>
<style type="text/css">
div.ricoLG_outerDiv thead .ricoLG_cell, div.ricoLG_outerDiv thead td, div.ricoLG_outerDiv thead th {
	height:2.5em;
}
</style>
</head>
<body>

<%
'************************************************************************************************************
'  LiveGrid Plus-Edit Example
'************************************************************************************************************
'  Matt Brown
'************************************************************************************************************

if OpenGridForm(empty,"Orders") then
  if oForm.action="table" then
%>
<!-- #INCLUDE FILE = "menu.vbs" --> 
<%
    DisplayTable
  else
    DefineFields
  end if
end if
CloseApp


sub DisplayTable()
  response.write "<table id='explanation' border='0' cellpadding='0' cellspacing='5' style='clear:both'><tr valign='top'><td>"
  GridSettingsForm
  response.write "</td><td>This example demonstrates how database records can be updated via AJAX. "
  response.write "Try selecting add, edit, or delete from the pop-up menu. "
  response.write "If you select add, then click the '...' button next to customer, you will see the Rico tree control."
  response.write "The actual database updates have been disabled for security reasons and result in an error."
  response.write "</td></tr></table>"
  oForm.options("borderWidth")=0
  GridSettingsTE oForm
  'oForm.DebugFlag=true
  DefineFields

  'response.write "<p><textarea id='orders_debugmsgs' rows='5' cols='80' style='font-size:smaller;'></textarea>"
end sub


sub DefineFields()
  oForm.options("RecordName")="Order"
  'oForm.options("showSaveMsg")="full"
  
  oForm.AddPanel "Basic Info"
  oForm.AddEntryField "OrderID","Order ID","B","<auto>"
  oForm.ConfirmDeleteColumn
  oForm.CurrentField("width")=50
  oForm.SortAsc
  oForm.AddEntryField "CustomerID","Customer","CL",""
  oForm.CurrentField("SelectCtl")="CustomerTree"
  oForm.CurrentField("SelectSql")="select CustomerID,CompanyName from Customers order by CompanyName"
  oForm.CurrentField("InsertOnly")=true   ' do not allow customer to be changed once an order is entered
  oForm.CurrentField("width")=160
  oForm.AddEntryField "EmployeeID","Sales Person","SL",""
  oForm.CurrentField("SelectSql")="select EmployeeID," & oDB.concat(Array("LastName","', '","FirstName"),false) & " from Employees order by LastName,FirstName"
  oForm.CurrentField("width")=140
  oForm.AddEntryField "OrderDate","Order Date","D",Date()
  oForm.CurrentField("SelectCtl")="Cal"
  oForm.CurrentField("width")=90
  oForm.AddEntryField "RequiredDate","Required Date","D",Date()
  oForm.CurrentField("SelectCtl")="Cal"
  oForm.CurrentField("width")=90
  oForm.AddCalculatedField "select sum(UnitPrice*Quantity*(1.0-Discount)) from order_details d where d.OrderID=t.OrderID","Net Sale"
  oForm.CurrentField("format")="DOLLAR"
  oForm.CurrentField("width")=80

  oForm.AddPanel "Ship To"
  oForm.AddEntryField "ShipName","Name","B",""
  oForm.CurrentField("width")=140
  oForm.AddEntryField "ShipAddress","Address","B",""
  oForm.CurrentField("width")=140
  oForm.AddEntryField "ShipCity","City","B",""
  oForm.CurrentField("width")=120
  oForm.AddEntryField "ShipRegion","Region","T",""
  oForm.CurrentField("width")=60
  oForm.AddEntryField "ShipPostalCode","Postal Code","T",""
  oForm.CurrentField("width")=100
  oForm.AddEntryField "ShipCountry","Country","N",""
  oForm.CurrentField("width")=100

  'oForm.AutoInit=false
  oForm.DisplayPage
end sub

%>

</body>
</html>