Post recenti

Pagine: [1] 2 3 ... 10

Generale / Re:registrazione Record di DB anomala

« Ultimo post da petrusic il Oggi alle 05:31:11 pm »

Ho risolto.

Nella Form9, nel passo di avvio della formazione dei comandi di registrazione nel DB, ho ripetuto le istruzioni di assegnazione del DB nella ZConnection1:

Codice: [Seleziona]

procedure TForm9.BPulsStampaClick(Sender: TObject);
var
   . . .
begin 
 . . .
case segnoIniFinAn of
    'I':
      begin
        . . . 
    'F':
      if (statusChiu = 'chiu') then
      begin
        DataModule1.ZConnection1.Connected:= False;
        DataModule1.ZConnection1.Database:= dbCorr;
        DataModule1.ZConnection1.Connected:= True;

Ora il programma punta al file di DB corretto.

Generale / [Risolto] registrazione Record di DB anomala

« Ultimo post da petrusic il Oggi alle 05:15:39 pm »

Ho incontrato una nuova anomalia, tanto grave quan to incomprensibile, almeno da parte mia.
Nel costruire il programma, ho messo in campo, sin dalla prima creazione, un criterio di sicurezza per la salvaguardia dei contenuto del DB interessato. Eseguo infatti un'assegnazione al DB corrente, a seconda se ho superato o meno la fase di test, infatti durante la fase di test, ad ogni nuovo inserimento di istruzioni, assegno nella FormMain, come DB corrente, il ContabFamdb_prove, quindi tutte le registrazioni vengono logicamente rivolte al suddetrto DB.
Poi, alla fine corretta della fase do Test, ricompilo il programma restituendo l'assegnazione effettiva, cioè

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
var
  swDoppio: Boolean = False;
  striMia: String;
begin                                        
percorso := ExtractfilePath(Application.ExeName);
  WriteLn('percorso di DomusRatio= "' + percorso + '"');

  Form1.Top:= 0;
  Form1.Left:= 0;
  Form1.Width:= screen.width;
  Form1.Height:= screen.Height;
//------------------------------------ Assegno percorso per l'accesso al DB corretto
  dbOrig:= '/media/dirdati/dativari/contabfam/ContabFamdb';                 // ( per impostare dbCorr:= dbOrig o dbProve -> Form1.Panel1Enter
  dbProve:= '/media/dirdati/dativari/contabfam/ContabFamdb_prove';          // )
//------------------------------------------------------------------------------------
//  dbCorr:= dbOrig;
  dbCorr:= dbProve;     // Riga da DISATTIVARE soltanto a fine prove

Ebbene, ieri ho scoperto che, nonostante avere assegnato correttamente come di DB corrente il
ContabFamdb_prove, le registrazioni sono state eseguite su quello effettivo (ContabFamdb).

Per notizia dovuta, devo dire che per l'accesso al DB utilizzo la routine esterna UModuloDatiDB ed ad ogni esecuzione del programma procedo ad aggiornare l'assegfnazione del DB del componente ZConnection1

Codice: [Seleziona]

procedure TForm1.Panel1Enter(Sender: TObject);

var
  swEsito: Boolean = False;
  swFine: Boolean = False;

  i, totRecQry: Integer;

  dataAvvio:Longint;

  msgErro, msgScelta, sql, striMia: String;


begin
 . . .
 DataModule1.ZConnection1.Database:= dbCorr;
    DataModule1.ZConnection1.Connected:= True;
    DataModule1.ZReadOnlyQuery1.Active:= False;
    Writeln('DataModule1.ZConnection1.Database= "' + DataModule1.ZConnection1.Database + '"');
    DataModule1.ZReadOnlyQuery1.SQL.Text:= sql;
    DataModule1.ZReadOnlyQuery1.Active:= True;     
 . . .

Inoltre, per essere sicuro di avere mantenuto l'assegnazione impostatata all'Avvio del programma
ho inserito nel passo interno alla Form9, subito dopo il Commit delle registrazioni, la seguente riga Writeln

Codice: [Seleziona]

            DataModule1.ZConnection1.COMMIT;
            Writeln('DataModule1.ZConnection1.Database= ' + DataModule1.ZConnection1.Database);

Ed ecco il risultato letto nella Console

Citazione

function EstraiCodIDMax - nomeCampo = "IdMovvgg"
sqlInsMovimg= "INSERT INTO movimgg VALUES(67187, 20131231, 20140108, 235950, 7, 101297800, "Entrata fittizia da Ammortamenti di Fine Anno- c/Piccoli utensili vari", "€", "4.3", 0)"
function EstraiCodIDMax - nomeCampo = "IdPartGlob"
sqlInsPartMovv= "INSERT INTO partmovv VALUES(29066, 110050180, 20131231, 20131231, 235950)"

DataModule1.ZConnection1.Database= /media/dirdati/dativari/contabfam/ContabFamdb_prove

Capisco che non è facile darmi consigli in proposito, ma NON riesco assolutamente a spiegarmi da che cosa possa essere provocata una tale novità. In passato ho già apportato modifiche, anche nella Form9 e la destinazione delle registrazioni ha sempre funzionato.

Generale / Re:Prototipo interfaccia utente

« Ultimo post da nomorelogic il Oggi alle 02:54:19 pm »

per fare delle interfacce utente accattivanti, non le solite insomma, mi vengono mi mente 2 possibilità

una è di usare i bgracontrols
https://wiki.lazarus.freepascal.org/BGRAControls
si tratta di controlli grafici molto belli

se ti va di esplorare qualcosa di diverso
ultimamente ha attirato la mia attenzione questo thread sul fourm ufficiale
https://forum.lazarus.freepascal.org/index.php?topic=63624.0
in pratica la tua interfaccia gira dentro un browser web, mentre il codice (se vogliamo chiamarlo application backend) è un pascal
sicuramente una strada particolare ma la libreria che interfaccia con il browser è scritta in C e la trovi su tutti gli OS
qualcuno ha scritto il binding in pascal

Generale / Prototipo interfaccia utente

« Ultimo post da slapshot il Oggi alle 12:25:48 pm »

Ciao, il mio progetto server con Mormot 2 è in fase di stallo. La libreria è enorme e per poter approcciare qualcosa di rilevante devo studiarla meglio. Continuo comunque a lavorare al progetto.
Nel mentre mi piacerebbe comunque sviluppare qualcosa lato client, quindi applicazioni desktop per consumare delle rest api. Mi chiedevo se foste a conoscenza di classi già pronte per avere una bella interfaccia utente, form ricche di menu, componenti, magari quelli con barra laterale stile web, oppure altro che posso far spiccare la bellezza dell'interfaccia grafica. Anche se solo un prototipo non vorrei creare la solita interfaccia un pò fuori moda della finestra rettangolare classica.

Grazie

Generale / Re:Limite massimo righe di un dbmemo o di un memo

« Ultimo post da tito_livio il Maggio 03, 2024, 05:14:19 pm »

Ok,grazie per tutti i consigli, provo ad applicarli e vi faccio sapere

Generale / Re:Limite massimo righe di un dbmemo o di un memo

« Ultimo post da nomorelogic il Maggio 03, 2024, 09:27:38 am »

in alternativa si potrebbe fare il conto delle righe nel momento del salvataggio (ed impedire di andare avanti se il memo ha più dighe di quelle consentite)

così l'utente è libero di scrivere ma quando si salva avviene il controllo e l'eventuale messaggio

Edit:
magari mentre si è in edit, si può mostrare un contatore con il numero delle righe
attualmente nel memo

Generale / Re:Limite massimo righe di un dbmemo o di un memo

« Ultimo post da bonmario il Maggio 03, 2024, 07:59:14 am »

Ciao,
la butto lì: ti crei un'altra memo nascosta, in cui copi la memo originale quando questa è ok.
Nel momento in cui ad esempio l'utente aggiunge una riga in testa, tu fai il check, e questo da esito negativo, copi il contenuto della memo nascosta in quella originale. Se invece la modifica passa il check, fai il contrario

Ciao, Mario

Generale / Re:Limite massimo righe di un dbmemo o di un memo

« Ultimo post da DragoRosso il Maggio 02, 2024, 11:39:18 pm »

Dovete usare l'evento "keypress":

Codice: [Seleziona]

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #8 then   // <- lascia usare il backspace (modificato)
    exit;
  if Memo1.Lines.Count > 6 then
    Key := #0;
end;

L'evento viene generato per tutto ciò che è carattere o "stampabile" (compreso il "ritorno" a capo #13 e il "CTRL-C" #3) anche in caso di copia / incolla.

Il tasto DEL, le frecce, etc ... non vengono filtrati quindi può essere usato per cancellare caratteri, così come una selezione. Se si vuole migliorare si può controllare se il carattere è un "backspace" e lasciarlo passare ...

P.S.: porre nell'evento keydown un qualsiasi valore (ad esempio 0) non ha effetto se il contenuto è un carattere, in quanto Windows genera automaticamente anche il messaggio WM_CHAR (processato appunto da keypress).

Generale / Re:Limite massimo righe di un dbmemo o di un memo

« Ultimo post da quack il Maggio 02, 2024, 09:25:22 pm »

ok, ritorno sui tuoi passi allora:

Codice: [Seleziona]

uses
  LCLType;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Memo1.Lines.Count >= 5) and (Key = VK_RETURN) then
  begin
    Key := VK_ESCAPE;
  end;
end;

dovremmo esserci.
C'è da capire se VK_ESCAPE è il tasto più appropriato e gestire un eventuale "paste" che sfora il numero massimo di righe.
Sto andando a tentoni se non si fosse capito

EDIT: alla fine non mi sembra di aver fatto progressi rispetto al tuo codice. Vediamo cosa ti suggeriscono gli altri utenti.

Generale / Re:Limite massimo righe di un dbmemo o di un memo

« Ultimo post da tito_livio il Maggio 02, 2024, 08:45:15 pm »

Citazione da: quack - Maggio 02, 2024, 08:22:58 pm

Con TMemo questo mi sembrava funzionare
Codice: [Seleziona]
procedure TForm1.Memo1Change(Sender: TObject);
begin
  while Memo1.Lines.Count > 5 do
    Memo1.Lines.Delete(Memo1.Lines.Count -1);
end;
non so se è applicabile con DBMemo, non l'ho mai usato.

Per funzionare funziona, però se già siamo al massimo delle righe:
Se l'utente scrive inserendo qualcosa, per esempio sulla prima riga, se va a capo gli viene cancellata l'ultima riga.
Spero di essermi spiegato bene.
Io vorrei qualcosa che impedisca proprio di scrivere se la scrittura implica la creazione di una nuova riga, analogamente a quello che succede con i dbedit quando si raggiunge il n. max di caratteri impostato con MaxLength, qui ci vorrebbe un MaxRow.

Pagine: [1] 2 3 ... 10

Italian community of Lazarus and Free Pascal

News:

Privacy Policy

Blog italiano

Forum ufficiale

Lazarus 1.0

Progetti Lazarus

Free Pascal

Libri

Utenti

Online

Post recenti

Generale / Re:registrazione Record di DB anomala

Generale / [Risolto] registrazione Record di DB anomala

Generale / Re:Prototipo interfaccia utente

Generale / Prototipo interfaccia utente

Generale / Re:Limite massimo righe di un dbmemo o di un memo

Generale / Re:Limite massimo righe di un dbmemo o di un memo

Generale / Re:Limite massimo righe di un dbmemo o di un memo

Generale / Re:Limite massimo righe di un dbmemo o di un memo

Generale / Re:Limite massimo righe di un dbmemo o di un memo

Generale / Re:Limite massimo righe di un dbmemo o di un memo

Recenti

How To

Free Pascal DS

Lazarus WEB

Stato

Utenti

Stats

Utenti Online

Disclaimer: