Bayron wrote:Sabían que PHP puede leer e interactuar con archivos dBase .DBF????
http://www.php.net/manual/es/intro.dbase.php
http://www.php.net/manual/es/ref.dbase.php
Seguramente ya lo sabias Antonio, pero nunca está de mas mencionarlo... (Si no; Hay te va mi Medio Centavito)
Bayron wrote:En el navegador de mi BlackBerry Curve, se muestra el menu, pero no ejecuta ninguna acción...
var oDiv, oMemo;
function SandBox()
{
oDlg = new Dialog( "SandBox", 1000, 600 );
Say( 50, 10, "Result:", oDlg );
oDiv = Div( 75, 10, oDlg, 480, 460 );
Say( 50, 500, "Input:", oDlg );
oMemo = TextArea( 75, 500, "", oDlg, 480, 460 );
oMemo.value = "<html>" + CRLF +
"<head>" + CRLF +
"<link rel='stylesheet' type='text/css' href='styles.css'>" + CRLF +
"<script type='text/javascript' src='fivewin.js'></script>" + CRLF +
"</head>" + CRLF +
"<body>" + CRLF +
"<h1>FiveWin Web Interface</h1>" + CRLF +
"<h3>Hello world!</h3>" + CRLF +
"</body>" + CRLF +
"</html>";
oDiv.innerHTML = oMemo.value;
Button( 550, 380, "Run", oDlg, 100, 40, "oDiv.innerHTML = oMemo.value" );
Button( 550, 510, "End", oDlg, 100, 40, "oDlg.End()" );
}
<html>
<title>FiveWin Web Interface</title>
<head>
<link rel="stylesheet" type="text/css" href="styles.css">
<script type="text/javascript" src="fivewin.js"></script>
</head>
<body>
<?php
$db = dbase_open( 'customer.dbf', 0 ); // open in read-only mode
echo '<table id="browse" class="browse">';
if( $db )
{
$fields = dbase_get_header_info( $db );
// paint field names
echo "<thead>";
echo "<tr>";
echo "<th></th>";
foreach( $fields as $field )
echo "<th>".$field[ 'name' ]."</th>";
echo "</tr>";
echo "</thead>";
echo "<tbody>";
$record_numbers = dbase_numrecords( $db );
for( $i = 1; $i <= $record_numbers; $i++ )
{
if( $i % 2 == 0 )
echo "<tr class='odd' onMouseOver=".'"'."this.className='over'".'"'." onMouseOut=".'"'."setRowColor( this, 'odd' )".'"'.'>';
else
echo "<tr class='even' onMouseOver=".'"'."this.className='over'".'"'." onMouseOut=".'"'."setRowColor( this, 'even' )".'"'.'>';
echo "<td width=10px;>"."<input type='checkbox' name='".strval( $i )."' onclick=".'"'."toggleRowSelected( this )".'"'."</td>";
$row = dbase_get_record( $db, $i );
for( $n = 0; $n < count( $row ) - 1; $n++ )
echo "<td>".Trim( $row[ $n ] )."</td>";
echo "</tr>";
}
echo "<tbody>";
dbase_close( $db );
}
echo "</table>";
?>
</body>
</html>
<ul>
<li>
Files
<ul>
<a href="#" onclick="MsgInfo( 'New' )"><li>New</li></a>
<a href="#" onclick="Open()"><li>Open</li></a>
<li>Save</li>
</ul>
</li>
</ul>
<a href="#productos" class="popmenu">Productos</a>
<ul>
<li><a href="#pcomercial" class="summary">Gestión comercial</a></li>
<li><a href="#pproduccion" class="summary">Gestión de la producción</a></li>
<li><a href="#pcontabilidad" class="summary">Contabilidad y presupuestos</a></li>
<li><a href="#pfacturaelectronica" class="summary">Factura electrónica</a></li>
<li><a href="#premuneraciones" class="summary">Personal y remuneraciones</a></li>
</ul>
<ul>
<li>
<a href="#" class="popmenu">Files</a>
<ul>
<li><a href="#" onclick="MsgInfo( 'New' )">New</a></li>
<li><a href="#" onclick="Open()">Open</a></li>
<li>Save</li>
</ul>
</li>
</ul>
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 40 guests