SpiderBasic

Code: Select all

Procedure DownloadFileAndSaveToLocalStorage(DatabaseUrl.s, LocalDatabaseFilename.s, Callback)
  
  ! var oReq = new XMLHttpRequest();
  ! oReq.open("GET", v_databaseurl, true);
  ! oReq.responseType = "arraybuffer";
  ! 
  ! oReq.onload = function(oEvent) {
  !   var arrayBuffer = oReq.response;
  !   var byteArray = new Int8Array(arrayBuffer);
  !   LocalForage.setItem('sbfs_' + v_localdatabasefilename, byteArray);
  !   v_callback();
  ! };
  ! 
  ! oReq.send();  
  
EndProcedure

Procedure ReadFileCallback(Status, Filename$, File, SizeRead)
  
  Select Status
      
    Case #PB_Status_Loaded

      Debug "Database file found and loaded: " + Filename$

      *DatabaseBuffer = ExportFileMemory(File)

      If OpenDatabase(0, *DatabaseBuffer)
        Debug "OpenDatabase(): Success"
        CloseDatabase(0)
      Else
        Debug "OpenDatabase(): Failed"
      EndIf
      
    Case #PB_Status_Error
      
      Debug "Database not found in localstorage: " + Filename$
      
  EndSelect
  
EndProcedure

Procedure ReadDownloadedFile()
  
  ReadFile(0, "test.db", @ReadFileCallback(), #PB_LocalStorage)
  
EndProcedure

DownloadFileAndSaveToLocalStorage("[UrlToYourDatabase]", "test.db", @ReadDownloadedFile())

Code: Select all

; Exemple d'acces à une bae MySql

Enumeration Gadget 
  #ListeCaisse
  #FenetreCaisse
EndEnumeration

; This procedure unserialise the return text
Procedure.i SplitString(String.s, Delimiter.s, Array Output.s(1))
  Define n, i
  n = 1 + CountString(String, Delimiter)
  Dim Output.s(n - 1)
  For i = 0 To n-1
    Output(i) = Trim(StringField(String, 1+i, Delimiter))
  Next i
EndProcedure

; useful function to debug online
Procedure DebugApp(Texte1.s,Texte2.s)
  OpenWindow (#PB_Any,10,500,1000,100,"Debug")
  ScrollAreaGadget(#PB_Any,0,0,1000,100,1000,500)
  TextGadget(#PB_Any,3,3,980,25,texte1)
  TextGadget(#PB_Any,3,20,980,25,texte2)
  CloseGadgetList()
EndProcedure  

Procedure CloseWindowEvent()
  CloseWindow(EventWindow()) ; Close the specific window
EndProcedure

Procedure HttpGetCaisse(Success, Result.s, UserData)
  ; traitement menu en vente direct
  Define i, j, k, MaxItem
  Dim Requete.s(0)
  Dim Donnee.s(0)
  If Success
    SplitString(Result, "§", Requete())  
    MaxItem = Val(Requete(0)) ; nombre d'item useful or not
    For i = 1 To ArraySize(Requete())-1
      SplitString(Requete(i), "/", Donnee())  ; separe les données de l'enregistrement
      AddGadgetItem(#ListeCaisse, -1, Donnee(0)+Chr(10)+Donnee(4)+Chr(10)+Donnee(1)+Chr(10)+Donnee(2)+Chr(10)+Donnee(3))
    Next
  Else
    debugApp ("Erreur caisse","")
  EndIf
  
EndProcedure

  OpenWindow( #FenetreCaisse, 10, 10, 600, 600, "Caisse "+ FormatDate("%dd-%mm-%yyyy %hh:%ii", Date()) , #PB_Window_SystemMenu | #PB_Window_ScreenCentered ) 
  ListIconGadget(#ListeCaisse,10,10,600-20,600-20,"ID",10)
  AddGadgetColumn(#ListeCaisse, 1, "Date", 30)
  AddGadgetColumn(#ListeCaisse, 2, "Montant", 30)
  AddGadgetColumn(#ListeCaisse, 3, "Caisse", 20)
  AddGadgetColumn(#ListeCaisse, 4, "Ope", 100) 
  BindEvent(#PB_Event_CloseWindow, @CloseWindowEvent())

HTTPRequest(#PB_HTTP_Get, "requete_caisse.php", "", @HttpGetCaisse())  ; initialse la caisse
    
    

Code: Select all

<?php
/*
echo '<pre>';
print_r($_POST);
print_r($_GET);
print_r($_SESSION);
echo '</pre>';
*/

include ("../../intranet/commun/connect.php");

$db = mysql_connect($dbhost, $dbuname, $dbpass)or die('Erreur de connexion '.mysql_error());
mysql_select_db($dbname,$db) or die('Erreur de selection '.mysql_error());

$dt = new \DateTime();

$sql = "SELECT id,date,montant,solde,ope FROM  delices.caisse WHERE date ='".$dt->format('d-m-Y')."' ORDER BY id DESC" ;
//echo "$sql<br>";
$req = mysql_query($sql) or die('<br />Erreur SQL5 56 !<br>'.$sql.'<br>'.mysql_error());
echo mysql_num_rows($req)."§";  //retourne le nombre d'enregistrement 

while($tab = mysql_fetch_object($req))
{
	echo $tab -> id;
    echo "/";
	echo $tab -> montant;	
    echo "/"; 
	echo $tab -> solde;
    echo "/"; 
	echo $tab -> ope;
    echo "/"; 	
   	echo $tab -> date;
    echo "/"; 			  
	echo "§"; // fin enregistrement
}

?>
</div>
</body>
</html>