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.


Post - aulin

Pagine: 1 [2] 3 4 ... 6
16
Programmazione / [Risolto]Inserimento cmd read/write files in modulo
« il: 09 Giugno 2013, 19:44:09 »
Salute a tutti. Dopo un po' ho ripreso il gambas per l'esattezza il 3. Ci sono controindicazioni ad inserire in un modulo specifico tutte le routine di gestione di mysql? Tipo come fa il php.Grazie.

17
Programmazione / MySql e Gambas3
« il: 22 Gennaio 2013, 09:17:10 »
Buongiorno a tutti. Sto cercando di utilizzare DataSouce e DataBrowser.
Qualcuno sa dirmi se è obbligatorio il campo db.serial in una tabella gestita da gambas?. Con PhPMyAdmin ho generato una tabella con 2 campi tmov_sigla e tmov_descrizione. La chiave primaria è tmov_sigla. Inserendo i record da PHPMyAdmin nessun problema. Quando leggo la tabella da DataBrowser nessun problema, quando provo a salvare le modifiche mi tira fuori un bel messaggio "Valore non Valido" e non salva.
Allego il listato che è alquanto corto.

Codice: [Seleziona]
Public Sub _new()
End

Public Sub Form_Open()
     Me.Center
     Me.caption = " - GESTIONE PROVA - app : " & Me.name
     Me.Show
            Inizio() 
End


Public Sub btn_exit_Click()

  Me.Close

End


Public Sub Inizio()
  
          M1.ConnettiDB()
'
'Definizione della tabella del DataSource
'
          
          DS_TipoMov.Table = "tipomovs" 

         DB_TipoMov.Columns = ["tmov_sigla", "tmov_descrizione"]
         DB_TipoMov.Grid = True

'
'Intestazione delle colonne del DataBrowser
'
         DB_TipoMov.View.Columns[0].Title = "Sigla"
         DB_TipoMov.View.Columns[1].Title = "Descrizione"
'
'Definizione delle larghezze delle colonne del DataBrowser
'
         DB_TipoMov.View.Columns[0].Width = 70
         DB_TipoMov.View.Columns[1].Width = 500

'          
'
'Definizione dei campi di gestione campi record
'
         DC_Sigla.Field = "tmov_sigla"
         DC_Descrizione.Field = "tmov_descrizione"
 
End


18
Programmazione / Re: Conoscere l'indice dell'ultimo record inserito
« il: 14 Dicembre 2012, 22:59:54 »
Intanto Milio grazie per la cortese risposta.
Sto cercando di adattare il tuo codice al mio prg ed ho fatto in questo modo:
Codice: [Seleziona]
       
            sTabella = m1.sPrefix & "causali"
            hRecMod = M1.$hconn.Create(sTabella) 
            hRecMod!cau_sigla = TB_Sigla.Text 
            hRecMod!cau_descrizione = TB_Descrizione.Text
            hRecMod.Update
            
           sql = "SELECT LAST_INSERT_ID() "

            hRecMod = M1.$hconn.Exec(sql)  ' esegue la query
           
           Print "ID ", hRecMod.Available, hRecMod.Count
           Print hRecMod!cau_sigla
           
Stranamente  hRecMod.Available è true e hRecord.Counti =1  però va in errore sulla print successiva. Suggerimenti?

19
Programmazione / Conoscere l'indice dell'ultimo record inserito
« il: 14 Dicembre 2012, 11:10:30 »
Premessa:
Mysql : ho una tabella, faccio una query e decido di inserire un altro record. Nel record l'indice si chiama mov_id. QUindi faccio la create, passo i parametri nei campi del record e alla fine update. Perfetto. A questo punto posso conoscere l'indice mov_id appena inserito senza dover rifare una query?

20
Programmazione / Re: Risoluzione monitor
« il: 11 Dicembre 2012, 15:47:42 »
dimenticavo utilizzo fedora 17

21
Programmazione / Re: Risoluzione monitor
« il: 11 Dicembre 2012, 15:46:58 »
è un 22"

22
Programmazione / Risoluzione monitor
« il: 11 Dicembre 2012, 13:16:25 »
Salute a tutti. Problemino col monitor. Qualcuno sa dirmi se 1680 è il max della risoluzione video gestibile correttamente da Gambas? Ho un monitor da 1920 però se imposto una form a 1680 mi occupa tutto lo schermo. Valori superiori a 1680 non sono centrati ma lasciano a sx uno spazio verticale. Avete visto qualcosa di simile?

23
Programmazione (Gambas 2) / Re: Uscita da un programma
« il: 22 Ottobre 2012, 11:40:52 »
Bravo Vuott. Grazie.
il Me.show risolve. grazie
Codice: [Seleziona]
Public Sub Form_Open()

     Me.Center
     Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
     Me.Show
If ValProgramma > M1.UtenteValProg Then
  Application.Daemon = True
  Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
    Me.Close
  Return
Else
          Inizio()
Endif
End
scusatemi dove inserisco il risolto?

24
Programmazione (Gambas 2) / Re: Uscita da un programma
« il: 22 Ottobre 2012, 11:35:58 »
idem
Codice: [Seleziona]
Public Sub Form_Open()

     Me.Center
     Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
     
If ValProgramma > M1.UtenteValProg Then
  Application.Daemon = True
  Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
    Me.Close
  Return
Else
          Inizio()
Endif
End


In realtà il messaggio sta dentro Form_Open(). Come si comporta Form_Open().
A me servirebbe quello che in altri linguaggi sono le operazioni che vengono fatte prima dell'apertura della form. E' fattibile?

25
Programmazione (Gambas 2) / Re: Uscita da un programma
« il: 22 Ottobre 2012, 11:31:13 »
Avevo deciso di far vedere comunque la form. In realtà gambas mi fa vedere il messaggio e poi mi evidenzia la form.
Che non sia possibile inserire controlli dentro il Form_Open()?

Codice: [Seleziona]
Public Sub Form_Open()

     Me.Center
     Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
     
If ValProgramma > M1.UtenteValProg Then
  Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
  Return
  Me.Close
Else
          Inizio()
Endif
End

26
Programmazione (Gambas 2) / Re: Uscita da un programma
« il: 22 Ottobre 2012, 11:25:00 »
Anche inserendo il return il problema rimane. :hatecomputer:

Codice: [Seleziona]
Public Sub Form_Open()

If ValProgramma > M1.UtenteValProg Then
  
  Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
  Return
  Me.Close
Else

     Me.Center
     Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name

          Inizio()
Endif
End


27
Programmazione (Gambas 2) / Re: Uscita da un programma
« il: 22 Ottobre 2012, 11:11:33 »
Intanto grazie per la rapida risposta. Anchio sto lavorando con gambas-3 e Fedora-17.
Codice: [Seleziona]
Public Sub Form_Open()

If ValProgramma > M1.UtenteValProg Then
  Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
  me.hide
  Me.Close
Else
     Me.Center
     Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
          Inizio()
Endif
End

Il codice sopra dovrebbe essere la modifica che suggerivi. Il problema permane.
Questo codice serve a impedire la esecuzione del programma se l'utente non ha le giuste credenziali( che sono poi un valore numerico).
Se l'utente non ha le giuste credenziali il programma viene eseguito, effettuato il controllo  viene chiuso. Gambas invece visualizza sempre il form.
Come fare a farlo uscire senza visualizzare il form?
In realtà poi non mi interessa neanche l'hide io vorrei chiudere il programma e tornare al programma chiamante. Spero di aver chiarito.

28
Programmazione (Gambas 2) / [RISOLTO]Uscita da un programma
« il: 22 Ottobre 2012, 10:40:30 »
Buongiorno a tutti.
Anni fa programmavo in gambas2 poi per un po di tempo ho smesso e ora sto ricominciando con gambas3. Questo forum come allora è certamente molto utile e infatti provo a richiedere aiuto.
Dal programma principale richiamo un form. La prima cosa che effettua questo programma richiamato è un controllo per vedere se può essere eseguito. Questo controllo avviene in base al confronto tra 2 numeri. In un caso esegue il programma, nell'altro caso scrive un messaggio e deve uscire subito.
Come faccio a uscire subito da questo programma? In realtà anche se non deve essere eseguito il programma mi evidenzia la form con il messaggio e poi mi consente di uscire. E' possibile uscire facendo vedere solo il messaggio. Grazie in anticipo per le risposte.
Codice: [Seleziona]
Public Sub Form_Open()

If ValProgramma > M1.UtenteValProg Then
  Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
    Me.Close
Endif

Me.Center
Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name

          Inizio()

End


29
Programmazione / Re: Hide form chiamante
« il: 22 Novembre 2010, 23:24:00 »
Codice: [Seleziona]
Public Sub BTN_VisAvProgetto_Click()
  ProgettoTotVis.TB_SiglaProgetto.Text = Me.TB_SiglaProgetto.Text
  ProgettoTotVis.TB_DesProgetto.Text = Me.TB_Descrizione.Text
  ProgettoTotVis.VB_AnnoProgetto.Value = Me.VB_AnnoProgetto.Value
     ProgettoTotVis.ShowModal
      Me.Visible = False
End


Public Sub BTN_Chiudi_Click()
 InsDatiMensili.Visible = True
  Me.close

End


Posto la parte di codice col le sub interessate. Purtroppo non funziona. Quando chiudo  ProgettoTotVis  la Form InsDatiMensili resta invisibile.
Mistero ....
Il problema comunque non era quello di risparmiare spazio, bensì un fattore estetico. Volevo avere quando necessario, la possibilità di avere sul video solo la form aperta senza form sottostanti, esclusivamente per un problema di pulizia della videata.


30
Programmazione / Re: Hide form chiamante
« il: 22 Novembre 2010, 16:53:54 »
Purtroppo non funziona.
Quando provo a chiudere la Form2 questa non si chiude, anche se sotto di essa si vede l'apertura della Form1. Altro problema : la Form1 che viene riaperta e nella quale erano stati inseriti dei dati, viene completamente resettata. Morale la Form2 non si schioda dal video. C'è qualcosa che le impedisce di chiudersi.

Questa modalità la vorrei gestire per evitare di avere a video molte forms aperte contemporaneamente.

Pagine: 1 [2] 3 4 ... 6