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.


Topics - dex

Pagine: [1] 2 3 ... 10
1
Database / Nuovo gestionale
« il: 16 Aprile 2020, 11:20:11 »
Ciao Raga
sto creando un nuovo gestionale, il concetto di partenza è:
Deve essere multiutente con accesso tramite password personale
Form Main a pieno schermo che gestisce tutte le finestre, ricalca un po la IDE di gambas con vari pannelli gestibili sul main, le finestre seguono il Main, in fase di chiusura del main avviene un controllo che avvisa se state effettuando delle modifiche, se negativo chiude tutte le finestre attive, se il Main viene ridotto a icona tutte le finestre aperte lo devono seguire (qui ho qualche problema e mi serve il vostro aiuto)
Le finestre sono dimensionabili e posizionabili per ogni utente.

Allego il codice per chi volesse vederlo e darmi qualche aiuto.

Attualmente il programma si avvia anche senza password, questo serve in fase di compilazione per evitare continue immissioni di password, chi volesse provare con la password attiva nel Form Pass sotto l'immagine delle persone trovate 2  RadioButton mettete la spunta al RadioButton2 (si) la pass di default è admin.

Per funzionare con il database Mysql serve la password che trovate nel modulo M1
Codice: [Seleziona]
Public Mpassword As String = "ghdncbgts" 'password per database mysql
qui potete cambiarla inserendo quella che usate per Mysql

Per quanto riguarda il main ho problemi a far ridurre ad icona i form in quanto le funzioni vanno in conflitto con la mia Classe CResize che serve per ridimensionare i controlli all'interno dei form.
Per richiamare le funzioni di riduzione ad icona, la Classe è FMdic e le funzioni sono:
Codice: [Seleziona]
Public Function IcoForm()
Public Function MaxForm()

che devono ridurre a icona o ingrandire i form in base al Main, vengono richiamate in Fmain da
Codice: [Seleziona]
Public Sub Form_Deactivate()
    
 '  Do
  ' Wait 0.01
' Loop Until Me.Minimized = True
  
 ' FMdic.IcoForm
     
End
 

Public Sub Form_Activate()

  ' FMdic.MaxForm

End

attualmente le vedete spuntate in quanto come ho detto mi creano conflitto con CResize, qui gradirei una mano.

una volta avviato potete creare in automatico database e tabelle dal form CreaDatabase oppure dal Main prima voce in alto del menu Accesso > Database

per qualsiasi dubbio chiedete, grazie a chi si interessa, naturalmente sono ben accettate sia critiche che suggerimenti ai fini di ottimizzare e migliorare

2
Programmazione / [Risolto] Caricare Record nelle combo
« il: 14 Aprile 2020, 12:42:48 »
Ciao Raga

devo caricare dei dati nelle combo
Codice: [Seleziona]
sqlp = "select * from clienti order by id"
          MyRG = MODMain.MyConn.Exec(sqlp)
   
   MyRG.MoveFirst
      
   For ig = 1 To MyRG.Count
      
       Combobox1.add( MyRG!citta)
       
       Combobox2.add( MyRG!regione)

       Combobox3.add( MyRG!nazione)

      MyRG.MoveNext
   Next

come faccio ad evitare dati ripetuti, esempio nella combo1 se come citta ha gia caricato roma, quando trova un nuovo record con citta roma non deve ricaricarlo
dato che le combo sono 8 vorrei evitare un ciclo di controllo per ogni combo per vedere se il dato è già caricato.
esiste un modo più semplice per evitare i cicli?

3
Programmazione / [Risolto] Scanner
« il: 05 Aprile 2020, 23:22:37 »
Ciao Raga
Ho estrapolato la demo scanner di Fabien Bodard e creato un piccolo progetto
ho fatto anche alcune modifiche a delle variabili che non venivano settate
il progetto funziona ma salva solo in jpg

allego il progetto, magari passa di qui qualcuno e lo modifica per farlo salvare anche in pdf  ;D

magari passa un certo Pierluigi   :-\  :-[

4
Database / Creare Database Mysql
« il: 02 Aprile 2020, 22:31:25 »
Ciao raga
sto facendo un nuovo gestionale con database MYsql.
Devo creare da codice database e tabelle, nel vecchio gestionale creavo tabelle InnoDb ma se non ricordo male avevo letto da qualche parte che è meglio usare tabelle UT8.
voi cosa ne pensate?

questo il vecchio codice:
Codice: [Seleziona]
If $hconn.Tables.Exist("primanota") Then
                If msgt Then Message.info("la tabella primanota esiste")
            Else
          If Message.Question("Creo la Tabella primanota?", "Si", "No") = 1 Then
          sql = "CREATE TABLE " & sName & ".primanota ("
          sql &= "idnota INT NOT NULL auto_increment,"
          sql &= "num INT DEFAULT 0,"
          sql &= "data date DEFAULT NULL,"
          sql &= "nmes TINYINT DEFAULT 0,"
          sql &= "mese VARCHAR(20) DEFAULT NULL,"
          sql &= "anno SMALLINT DEFAULT 0,"
          sql &= "operazione VARCHAR(255) DEFAULT NULL,"
          sql &= "ndoc VARCHAR(15) DEFAULT NULL,"
          sql &= "datdoc date DEFAULT NULL,"
          sql &= "descoper VARCHAR(55) DEFAULT NULL,"
          sql &= "fcas double(10,2) DEFAULT 0,"
          sql &= "bent double(10,2) DEFAULT 0,"
          sql &= "busc double(10,2) DEFAULT 0,"
          sql &= "cent double(10,2) DEFAULT 0,"
          sql &= "cusc double(10,2) DEFAULT 0,"
          sql &= "note VARCHAR(255) DEFAULT NULL,"
          sql &= "PRIMARY KEY(idnota)"
            sql &= ")ENGINE = InnoDB AUTO_INCREMENT = 0 DEFAULT CHARSET = latin1;"
            
      hres = $hConn.EXEC(sql)
          $hConn.Commit
          Message.info("tabella primanota creata")
          Endif
       Endif

5
Programmazione / [Risolto] Settare colori da codice
« il: 26 Marzo 2020, 13:43:34 »
mi sono incartato con i colori
devo settare dei colori a un pannello
il codice colore è contenuto in un arrai string M1.PanOpe[4] il contrenuto è &005FFF87

se provo con
Codice: [Seleziona]
Panoperatore.Background = &005FFF87
funziona
con
Codice: [Seleziona]
Panoperatore.Background = M1.PanOpe[4]
errore cercato integer

come trasformo la stringa in codice colore?

inoltre come posso aprire dal mio programma la finestra colori di sistema?
 

6
Programmazione / Fmain per nuovo progetto
« il: 23 Marzo 2020, 20:07:24 »
Ciao Raga
devo fare un nuovo progetto e cominciare dal main.
Vorrei fare un Fmain a pieno schermo con menu in alto e finestre dimensionabili e agganciabili in stile Gambas, Photoschop, illustrator ecc..
Il main dovrebbe controllare tutto, dal main avvio gli altri form e se chiudo il main a icona tutti i form aperti si devono ridurre o diventare hide.
mi date qualche dritta come cominciare o se avete degli esempi da suggerirmi

7
Programmazione / [Risolto] incrementare data di un mese
« il: 07 Dicembre 2019, 01:05:53 »
ciao raga

mi sono incartato, mi date una mano a risolvere

devo inserire in 12 label mese ed anno incrementando di un mese dalla data attuale

esempio data attuale 07/12/2019

Codice: [Seleziona]
Label1.caption = Format(Date(Now), "mm/yyyy")

nella label1 mi da "12/2019"
nella label2 mi deve dare "01/2020"
nella label3 mi deve dare "02/2020"

e cosi via

dalla label2 in poi come faccio ad incrementare di un mese  Format(Date(Now), "mm/yyyy")?



8
Programmazione / [Risolto] Print File Name
« il: 15 Settembre 2019, 01:07:43 »
Ciao raga
devo printare tutti i file jpg presenti in una cartella
mi date una mano a correggere questo codice

Codice: [Seleziona]
For Each Dir(Myurl, "*.jpg", gb.File)
     
                  Print File.Name(Myurl)

Next

9
Programmazione / [Risolto] WebCam
« il: 13 Settembre 2019, 23:14:55 »
Ciao Raga
sto completando un piccolo progetto con webcam
in pratica devo salvare delle immagini dalla webcam con numeri incrementali tipo: 223.jpg ecc..
il numero (nome del file) deve essere impresso sulla foto in basso a sinistra
con paint disegno il numero, il problema è che poi quando carica il video dalla webcam il numero scompare
mi date una dritta come risolvere
altro piccolo problema dovrei ingrandire il numero disegnato

vi allego il progetto

10
Domande tecniche / Errore QNetworkReplyImplPrivate
« il: 08 Settembre 2019, 21:09:59 »
Ciao Raga
Gambas mi ritorna il seguente errore
Codice: [Seleziona]
QNetworkReplyImplPrivate::error: Internal problem, this method must only be called once.

da quello che ho letto è un problema di qt5
come faccio ad aggiornare e risolvere?

11
Programmazione / [Risolto] Posizionare Controlli
« il: 16 Agosto 2019, 22:55:53 »
Cai raga
sto cercando di posizionare delle combo nelle celle di un tableview, ma ho difficolta a farli posizionare sulla cella.
mi date una mano?
allego il progetto

12
Programmazione / [Risolto] Priorita con nice
« il: 07 Luglio 2019, 23:06:06 »
Ciao raga
ho un programma che assorbe molte risorse, per farlo lavorare meglio gli assegno priorità alta con nice (-20) da terminale

il problema è che ogni volta che si riavvia devo assegnare la priorità da terminale.
si può fare qualcosa all'interno del programma in modo che ad ogni avvio si autosetta la priorita?
non posso nemmeno intervenire sul pid in quanto cambia ogni volta

13
Programmazione / Caricare nomi tabelle in Listwiew
« il: 02 Luglio 2019, 01:08:11 »
Ciao raga

devo caricare tutti i nomi delle tabelle presenti in un database in una listwiew
esempio: Database Sedi Tabelle sede1, sede2 ecc..
non posso aggiungerle a mano in quanto non so a priori ne la quantita ne il nome delle tabelle
no so da dove cominciare, mi date una dritta

14
Programmazione / Errore QT
« il: 28 Giugno 2019, 21:57:32 »
Ciao raga
sto ricevendo un errore QT ma non riesco a capire da dove viene
Codice: [Seleziona]
Qt: Cannot set locale modifiers:

15
Programmazione / Cloud Personale con ftp
« il: 25 Giugno 2019, 12:07:30 »
Ciao Raga
dovrei fare una sorta di Cloud personale su un server accessibile a utenti registrati.
in pratica un programmino che gira in background e sincronizza una cartella sul pc con la cartella presente sul server, una sorta di dropbox privato.
se un utente modifica una cartella, tramite ftp si devono aggiornare anche sugli altri pc.
con utenti che hanno vari permessi, tipo ospite solo cartelle base, operatore cartelle base ed altre, amministratore tutte

ho qualche idea ma ancora sfumata, per evitare di fare e risfare con tentativi, vorrei prima avere le idee chiare sulla strada da intraprendere e i passi da fare.
mi date qualche dritta sulla strada da seguire

Pagine: [1] 2 3 ... 10