46
Progetti degli utenti / Re:Gestionale per cantieri (prima parte e prima di continuare)
« il: 26 Gennaio 2017, 15:24:06 »In questi giorni vedo di fare dei test.
Aspetto ansioso
Grazie
Gambas-it
News:
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Aspetto ansioso
Grazie
47
Progetti degli utenti / Gestionale per cantieri (prima parte e prima di continuare)
« il: 26 Gennaio 2017, 11:56:19 »
Cortesemente, visto che sono alle mie prime esperienze con Gambas...
prima che continuo magari sulla strada sbagliata nella mia gestione dei DB o con cose che graficamente non funzionano, qualcuno può provare se è tutto ok ?
Vi chiedo di provare il pulsante Clienti con relativo DB e nel menu "Tools" il cambio logo e intestazione.
Dopo averla scompattata, mettete la cartella nella vostra Home, potete poi cancellarla senza che nulla si modifichi sul vostro PC
Grazie mille a chi si offre
Andrea
prima che continuo magari sulla strada sbagliata nella mia gestione dei DB o con cose che graficamente non funzionano, qualcuno può provare se è tutto ok ?
Vi chiedo di provare il pulsante Clienti con relativo DB e nel menu "Tools" il cambio logo e intestazione.
Dopo averla scompattata, mettete la cartella nella vostra Home, potete poi cancellarla senza che nulla si modifichi sul vostro PC
Grazie mille a chi si offre
Andrea
48
Programmazione in generale / Re:I programmi Gambas gireranno su Windows10?
« il: 20 Gennaio 2017, 19:16:49 ».. forse verrà più utilizzato gambas per il mondo!Ma perché su Windows dovrei preferire Gambas al molto più collaudato ed efficiente (su Windows) VB ?
Perchè su win potrai fare dei programmi che girano anche sotto Linux
Con VB non lo fai
49
Programmazione in generale / Re:I programmi Gambas gireranno su Windows10?
« il: 17 Gennaio 2017, 23:34:25 »
Gambas su Win? beh non mi sembra una brutta idea... un po di programmini VB potrei convertirli e farli diventare multipiattaforma
Mi preoccupa di più Ubuntu e la shell che girano in 10, ora nessuno installa più in dual boot....sigh
Grande!!! hai sintetizzato l'argomento...
50
Programmazione in generale / Re:I programmi Gambas gireranno su Windows10?
« il: 17 Gennaio 2017, 00:44:15 »recitavo la parte del winzozziano che ti offre sempre sw piratato
e ti offre un Crack che ti spalma un bel Virus
51
Programmazione in generale / Re:I programmi Gambas gireranno su Windows10?
« il: 16 Gennaio 2017, 23:29:28 »
Mi pare che ho animato la serata 
siete saltati fuori tutti dal
?
siete saltati fuori tutti dal
?
52
Programmazione in generale / Re:I programmi Gambas gireranno su Windows10?
« il: 16 Gennaio 2017, 23:28:02 »
Potete ridere quanto volete
Resta il fatto che tutti si lamentano di win che fa girare software Linux
mentre Linux ha un programmino che si chiama Wine
E sia chiaro che non difendo win e uso solo Linux e software linux
Resta il fatto che tutti si lamentano di win che fa girare software Linux
mentre Linux ha un programmino che si chiama Wine
E sia chiaro che non difendo win e uso solo Linux e software linux
53
Programmazione in generale / Re:I programmi Gambas gireranno su Windows10?
« il: 16 Gennaio 2017, 22:15:39 »......e pensare che con Windows io avevo la possibilitàdi usare "Finale": il programma di videoscrittura musicale più potente e complesso tra quelli analoghi esistenti.
gira sotto Wine, tanto per restare in tema
54
Programmazione in generale / Re:I programmi Gambas gireranno su Windows10?
« il: 16 Gennaio 2017, 21:00:58 »Prego di pensare bene e analizzare bene le cose prima di scrivere.
Che cosa vuol dire:Citazioneil loro lavoro non sarà fine a se stesso...finalmente si fa sul serio e non si passa il tempo a cazzeggiare... adesso si fa sul serio sotto Windows Spero di no!Citazioneo valido x una sola piattaforma
Il discorso era più ampio, "fine a se stesso" perché chiuso nel mondo linux... non perché fino ad ora si era cazzeggiato...
Citazione
... abbiamo passato anni a vedere software chiuso e monopiattaforma!
Ha volte o ...come l'impressione, come l'impressione .. come.... che si salti sulla barca ci si guardi in giro e sentendosi parte della Ciurma si incominci a dare "consigli".
Scusa ilfurlan, per inciso, non ce l'ho con te, le tue riflessioni mi hanno fatto solo pensare......
su sistemi chiusi, molto software altrettanto chiuso è sparito o si è deprezzato perché è arrivato quello libero, io la trovo una cosa positiva
poi, pensa alla strategia win che ad un certo punto ha iniziato a fornire gratuitamente in VB affinchè programmatori scrivessero programmi che girassero solo sul loro sistema, questo non era certo una cosa positiva, preferisco il contario, poi uno sceglie su quale sistema farlo girare... io la penso così anche se probabilmente sono controcorrente
55
Programmazione in generale / Re:I programmi Gambas gireranno su Windows10?
« il: 16 Gennaio 2017, 19:47:12 »
Ho letto questo post un paio di volte...
Adesso ho deciso di esternare il mio pensiero:
1) Linux è un 'mondo' che cresce e continua a svilupparsi, ha origini in momenti storici ben più difficili e nulla è riuscito a bloccarne la crescita e la diffusione.
2) LibreOffice, Firefox e mille altri programmi girano anche sotto win e ne hanno guadagnato in sviluppo e diffusione.
3) Quanti programmatori si aggiungeranno a Gambas sapendo che il loro lavoro non sarà fine a se stesso o valido x una sola piattaforma a fronte di poter fare girare i propri programmi anche su altri SO?
Non è chiudendosi in se stessi che lavoriamo la crescita di Linux, ma, utilizzandolo e diffondendolo tra amici e parenti
Adesso ho deciso di esternare il mio pensiero:
1) Linux è un 'mondo' che cresce e continua a svilupparsi, ha origini in momenti storici ben più difficili e nulla è riuscito a bloccarne la crescita e la diffusione.
2) LibreOffice, Firefox e mille altri programmi girano anche sotto win e ne hanno guadagnato in sviluppo e diffusione.
3) Quanti programmatori si aggiungeranno a Gambas sapendo che il loro lavoro non sarà fine a se stesso o valido x una sola piattaforma a fronte di poter fare girare i propri programmi anche su altri SO?
Non è chiudendosi in se stessi che lavoriamo la crescita di Linux, ma, utilizzandolo e diffondendolo tra amici e parenti
56
Programmazione / Re:Spostarsi tra i record
« il: 15 Gennaio 2017, 02:17:11 »
La mia soluzione funzionante:
NOTE: post modificato il 15 gennaio 2017 con codice perfezionato per tutti gli spostamenti
NOTE: post modificato il 18 gennaio 2017 con codice ulteriormente perfezionato e ridotto nel numero di righe
Variabili pubbliche:
Apertura del form:
Filtro:
Spostamento tra i record:
Primo record:
Record precedente:
Record successivo:
Ultimo record:
NOTE: post modificato il 15 gennaio 2017 con codice perfezionato per tutti gli spostamenti
NOTE: post modificato il 18 gennaio 2017 con codice ulteriormente perfezionato e ridotto nel numero di righe
Variabili pubbliche:
Codice: [Seleziona]
Public vConnessione As New Connection
Public vRisultato As Result
Public vRecord As Integer
Apertura del form:
Codice: [Seleziona]
Public Sub Form_Open()
With vConnessione
.Type = "sqlite3"
.Name = "Report_DB.sqlite"
.Host = User.Home &/ "MyReport/"
.Login = ""
.Password = ""
End With
vConnessione.Open()
vRisultato = vConnessione.Exec("Select * From 'Clienti'")
If vRisultato.Available = True Then
TextBoxId.Text = vRisultato!id_Clienti
TextBox1.Text = vRisultato!Cliente
TextBox2.Text = vRisultato!Ragione_Sociale
End If
vConnessione.Close()
End
Filtro:
Codice: [Seleziona]
Public Sub TextBoxNomeFiltra_Change()
With vConnessione
.Type = "sqlite3"
.Name = "Report_DB.sqlite"
.Host = User.Home &/ "MyReport/"
.Login = ""
.Password = ""
End With
vConnessione.Open()
vRisultato = vConnessione.Exec("SELECT * FROM Clienti WHERE Cliente LIKE '%" & TextBoxNomeFiltra.Text & "%'")
If vRisultato.Available = True Then
TextBoxId.Text = vRisultato!id_Clienti
TextBox1.Text = vRisultato!Cliente
TextBox2.Text = vRisultato!Ragione_Sociale
End If
vConnessione.Close()
End
Spostamento tra i record:
Primo record:
Codice: [Seleziona]
Public Sub ButtonPrimo_Click()
With vConnessione
.Type = "sqlite3"
.Name = "Report_DB.sqlite"
.Host = User.Home &/ "MyReport/"
.Login = ""
.Password = ""
End With
vConnessione.Open()
If vRisultato.Available Then
vRisultato.MoveFirst
Dec vRecord
If vRisultato.Available Then
TextBoxId.Text = vRisultato!id_Clienti
TextBox1.Text = vRisultato!Cliente
TextBox2.Text = vRisultato!Ragione_Sociale
Else
vRisultato.MoveFirst
vRecord = vRisultato!id_Clienti
Endif
Endif
vConnessione.Close()
End
Record precedente:
Codice: [Seleziona]
Public Sub ButtonPrecedente_Click()
With vConnessione
.Type = "sqlite3"
.Name = "Report_DB.sqlite"
.Host = User.Home &/ "MyReport/"
.Login = ""
.Password = ""
End With
vConnessione.Open()
If vRisultato.Available Then
vRisultato.MovePrevious
Dec vRecord
If vRisultato.Available Then
TextBoxId.Text = vRisultato!id_Clienti
TextBox1.Text = vRisultato!Cliente
TextBox2.Text = vRisultato!Ragione_Sociale
Else
vRisultato.MoveFirst
vRecord = vRisultato!id_Clienti
Endif
Endif
vConnessione.Close()
End
Record successivo:
Codice: [Seleziona]
Public Sub ButtonSuccessivo_Click()
With vConnessione
.Type = "sqlite3"
.Name = "Report_DB.sqlite"
.Host = User.Home &/ "MyReport/"
.Login = ""
.Password = ""
End With
vConnessione.Open()
If vRisultato.Available Then
vRisultato.MoveNext
Inc vRecord
If vRisultato.Available Then
TextBoxId.Text = vRisultato!id_Clienti
TextBox1.Text = vRisultato!Cliente
TextBox2.Text = vRisultato!Ragione_Sociale
Else
vRisultato.MoveLast
vRecord = vRisultato!id_Clienti
Endif
Endif
vConnessione.Close()
End
Ultimo record:
Codice: [Seleziona]
Public Sub ButtonUltimo_Click()
With vConnessione
.Type = "sqlite3"
.Name = "Report_DB.sqlite"
.Host = User.Home &/ "MyReport/"
.Login = ""
.Password = ""
End With
vConnessione.Open()
If vRisultato.Available Then
vRisultato.MoveLast
Inc vRecord
If vRisultato.Available Then
TextBoxId.Text = vRisultato!id_Clienti
TextBox1.Text = vRisultato!Cliente
TextBox2.Text = vRisultato!Ragione_Sociale
Else
vRisultato.MoveLast
vRecord = vRisultato!id_Clienti
Endif
Endif
vConnessione.Close()
End
57
Programmazione / Re:Spostarsi tra i record
« il: 15 Gennaio 2017, 02:04:45 »Citazione
Torno ad indicare le attuali risorse nel web relative a Gambas.
vuott ti ringrazio per il tuo lavoro certosino, ma i tuoi link (che adesso mi salvo
) li trovavo anche io, la mia domanda però era più specificaCitazione
Almeno, conoscete qualche link dove studiare come gestire i DB con Gambas
perche (ed ho provato) se googlo nello specifico trovo ben poco, esempio (gambas muoversi tra i record) (gambas rilevare ultimo record) etc. etc.
comunque sono uno che non molla e anche se sono le 2 di notte almeno questo post l'ho risolto.
a seguire, la mia soluzione che fino a prova contraria o soluzione migliore può tornare utile ad altri
58
Programmazione / Re:Spostarsi tra i record
« il: 14 Gennaio 2017, 19:30:13 »
Almeno, conoscete qualche link dove studiare come gestire i DB con Gambas
Il capitolo 15 della gambas-beginner-guide spiega poche cose
Ho anche installato i programmi d'esempio ma sono utili solo per alcune cose
Se cerco GB.DB non trovo niente
Ho provato ad effettuare mille altre ricerche in mille modi
Sono "preso" da "Gambas", mi diverto, ma datemi materiale da studiare e io cerco di non rompere con le mie domande
Il capitolo 15 della gambas-beginner-guide spiega poche cose
Ho anche installato i programmi d'esempio ma sono utili solo per alcune cose
Se cerco GB.DB non trovo niente
Ho provato ad effettuare mille altre ricerche in mille modi
Sono "preso" da "Gambas", mi diverto, ma datemi materiale da studiare e io cerco di non rompere con le mie domande
59
Programmazione / Re:Spostarsi tra i record
« il: 13 Gennaio 2017, 16:32:55 »Premetto che non ho fatto ancora esperienza con i database in gambas.
Mi sembra che l'istruzione:
sql=vConnessione
sia errata. Secondo me devi scorrere per vedere i vari record la:
sql=vRisultato
Questo penso sia l'istruzione corretta.
Spero di non aver scritto una cavolata.
Grazie Arco, sì, nel mio DB ho scritto sql=vRisultato ma non funziona, ho sbagliato di scrivere nel primo post, lo correggo....
60
Programmazione / [RISOLTO] Spostarsi tra i record
« il: 13 Gennaio 2017, 14:12:50 »
Dunque
1) ho creato una maschera con delle textbox che mi mostrano i campi dei record del mio database.
2) ho inserito una textbox per filtrare i record
3) ho scritto questo codice che funziona alla grande
4) ho una Public sql As Result alla quale, prima di chiudere la connessione assegno il risultato del filtro sql=vRisultato
Parte non funzionante:
5) ho inserito i pulsanti di spostamento ai quali al click ho assegnato sql.MoveFirst e sql.MoveLast
i record non cambiano... sono fuori strada ?
1) ho creato una maschera con delle textbox che mi mostrano i campi dei record del mio database.
2) ho inserito una textbox per filtrare i record
3) ho scritto questo codice che funziona alla grande
Codice: [Seleziona]
Public Sub TextBoxFiltra_Change()
Dim vConnessione As New Connection
Dim vRisultato As Result
With vConnessione
.Type = "sqlite3"
.Name = "Report_DB.sqlite"
.Host = User.Home &/ "MyReport/"
.Login = ""
.Password = ""
End With
vConnessione.Open()
vRisultato = vConnessione.Exec("SELECT * FROM Clienti WHERE Cliente LIKE '%" & TextBoxFiltra.Text & "%'")
If vRisultato.Available Then
TextBoxId.Text = vRisultato!id_Clienti
TextBox1.Text = vRisultato!Cliente
TextBox2.Text = vRisultato!Ragione_Sociale
Else
vRisultato = vConnessione.Exec("SELECT * FROM Clienti WHERE Ragione_Sociale LIKE '%" & TextBoxFiltra.Text & "%'")
If vRisultato.Available Then
TextBoxId.Text = vRisultato!id_Clienti
TextBox1.Text = vRisultato!Cliente
TextBox2.Text = vRisultato!Ragione_Sociale
End If
End If
sql = vRisultato
vConnessione.Close()
End
Parte non funzionante:
5) ho inserito i pulsanti di spostamento ai quali al click ho assegnato sql.MoveFirst e sql.MoveLast
i record non cambiano... sono fuori strada ?