<%
*** This is the equivalent of 'controller' method code at the top of the document.
*** We still recommend you use a Process method to handle lengthy code blocks rather
*** than using code in script, but it *is* possible to do it all in script like this
*** Read clientname variable from HTML Form variable or Address QueryString
LOCAL lcClientName
lcClientName=UPPER( Request.Params("clientname") )
*** Run the FoxPro query into TQuery Cursor
SELECT company, FirstName,LastName,Phone ;
FROM Customers ;
WHERE UPPER(company)=TRIM( lcClientName ) ;
INTO CURSOR TQUERY ;
ORDER BY company
*** Close underlying cursor
USE IN Customers
*** For display fix up empty client name
IF EMPTY(lcClientName)
lcClientName="All Clients"
ENDIF
%>
<!DOCTYPE html>
<html>
<head>
<title>Client List</title>
<!-- application.css references bootstrap and font-awesome -->
<link href="~/lib/bootstrap/dist/css/bootstrap.min.css" rel="stylesheet" />
<link href="~/lib/fontawesome/css/all.min.css" rel="stylesheet" />
<link href="~/css/application.css" rel="stylesheet" />
</head>
<body>
<div class="banner">
<a class="slide-menu-toggle-open no-slide-menu"
title="More Samples">
<i class="fa fa-bars"></i>
</a>
<div class="title-bar no-slide-menu">
<a href="~/">
<img src="~/images/icon.png"
style="height: 45px; float: left" />
<div style="float: left; margin: 4px 5px; line-height: 1.0">
<i style="color: #0092d0; font-size: 0.9em; font-weight: bold;">West Wind</i><br />
<i style="color: whitesmoke; font-size: 1.65em; font-weight: 600;">Web Connection</i>
</div>
</a>
</div>
<nav class="banner-menu-top float-right">
<a href="http://west-wind.com/webconnection/docs/" class="hidable">
<i class="fa fa-book"></i>
Documentation
</a>
<a href="/wconnect/">
<i class="fas fa-home"></i>
Home
</a>
</nav>
</div>
<div id="MainView">
<div class="container">
<div class="page-header-text"><i class="fa fa-list"></i>
Customer List
<span class="badge badge-pill badge-super badge-primary"><%= Reccount() %></span>
</div>
<div class="btn-group" style="margin: 5px 0 15px">
<a href="~/" class="btn btn-default btn-outline-primary btn-sm"> <i class="fa fa-home"></i> Samples</a>
<a href="showfileastext.wwd?file=~/wcscripts/nocode.wcs" class="btn btn-outline-primary btn-sm"> <i class="fa fa-code"></i> Show Code</a>
<a href="" class="btn btn-outline-primary btn-sm"> <i class="fa fa-refresh"></i> Refresh Page</a>
</div><div></div>
<div class="alert alert-info" style="margin: 20px 0;font-size: 0.9em">
<i class="fa fa-info-circle fa-4x float-left" style="margin: 0 10px 10px 0"></i> This page was created using only a templated HTML page that runs FoxPro code. It runs a FoxPro query to
retrieve records using a script block and then uses an HTML Helper function - HtmlDataGrid() - to display
the table's data in an HTML table. Using templates allows for all code changes to be made in a page
and immediately see the changes in real time as templates are evaluated dynamically each time they are run
</div>
<form action="nocode.wcs" method="post" style="margin-bottom: 20px;">
<div class="form-row">
<div class="input-group ">
<%= HtmlTextBox("clientname",.f.,[ class="form-control" style="width: 240px;" placeholder="Search for customers"]) %>
<div class="input-group-append">
<button class="btn btn-primary"
type="submit"
id="btnSubmit" name="btnSubmit">
<i class="fa fa-search"></i>
</button>
</div>
</div>
</div>
</form>
<%
LOCAL loConfig
loConfig = CREATEOBJECT("HtmlDataGridConfig")
loConfig.PageSize = 5
Response.Write( HtmlDataGrid("TQuery",loConfig) )
%>
<footer>
<small>
© West Wind Technologies, 1995 - <%= Year(Date()) %>
</small>
<a href="http://www.west-wind.com/webconnection/" class="float-right">
<img alt="Powered by Web Connection" src="~/images/WestWindText.png">
</a>
</footer>
</div>
</div>
</body>
</html>
<%
*** Cleanup Code
USE IN TQUERY
%>