Newsgroup: it.comp.lang.visual-basic
Titolo: planning

c'è qualcuno che mi sa dare un Consilio
su come fare un planing con vb6
per gestire 27 camere, per poter inserire le prenotazioni
giornaliere?
io ho provato con l'ogetto msflexrid ma non ho risolto
nulla mi potreste aiutare?
grazie 1000 a tutti 

 giornaliere?
L'idea di utilizzare una msflexgrid per realizzare la gestione delle
prenotazioni è senz'altro interessante.
Tra i vari aspetti, la msflexgrid ha la caratteristica di dare la
possibilità di gestire l'aspetto di ogni singola cella, che potrebbe 
assumere in colore differente se libera, prenotata od occupata.
Il problema è che la msflexgrid, da sola, è un foglio bianco!!
Oviamente non stò a dirti che devi scriverti tutto il codice per la 
gestione degli archivi in cui memorizzare i dati e devi aggiungere 
i pulsanti necessari per attivare le varie funzioni del programma.
Puoi comunque utilizzare gli eventi click, doppioclick e altri ancora
per inserire parte del codice.
Hai già deciso quali informazioni gestire?
Hai già pensato alla struttura degli archivi?
Hai provato a cercare applicazioni in VBA per EXCEL che affrontino
problemi simili da cui prendere spunto?
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

gino-gino ha scritto:

non te ne avere a male ma...
non hai risolto nulla per la semplice ragione che non sai programmare!
Le tue richieste lasciano intendere una lacuna di fondo abissale...una
lcuna che comunque può essere colmata leggendo un qualsiasi manuale di
programmazione...addirittura anche con l'help di VB6
COMUNQUE visto che altrimenti passo sempre da cattivo
Apri vb6
nuovo progetto....metti una form....una flex grid....due pulsanti
poi incolla questo codice
********************INIZIO CODICE INCOLLA DA QUI SOTTO*************
Option Explicit
Dim Riga As Long
Dim Colonna As Long
Private Sub Form_Load()
Me.Command1.Caption = "Imposta Griglia"
Me.Command2.Caption = "Simula"
Me.Caption = "Demo planner by Wodka40°"
End Sub
Private Sub Command1_Click()
Dim n As Long
With Flex1
    'quante righe?
    .Rows = 12
    'quante colonne??
    .Cols = 12
    'Intestazioni?
    .FixedCols = 1
    .FixedRows = 1
    'riempio intestazione colonna
    'quindi ...linea Zero!
    .Row = 0
    For n = 1 To 11
        .Col = n 'linea zero colonna variabile
        .Text = "st." & CStr(n)
    Next n
    'adesso le intestazioni delle righe
    'facciamola più complicata
    'Colonna ....zero
    .Col = 0
    For n = 1 To 11
        .Row = n ' colonna zero...riga variabile
        'cosa mostra? Mostra 11 giorni a partire da oggi
        .Text = DateAdd("d", n, Date)
    Next n
    'ed ancora
    'larghezza colonne
    ' per comodità le faccio uguali...
    'nulla toglie di farle una diversa dall'altra
    For n = 1 To 11
        .ColWidth(n) = 500
    Next n
    ' ed infine.....colore di default
    ' conta dalla riga uno alla riga finale
    For Riga = 1 To .Rows - 1 '-1 perchè comincia a contare da zero
        For Colonna = 1 To .Cols - 1 ' ...vedi sopra...
            .Row = Riga
            .Col = Colonna
            .CellBackColor = vbGreen 'colore sfondo cella verde
        Next Colonna
    Next Riga
End With
End Sub
Private Sub Command2_Click()
'simuliamo qualcosa
'stanza n.3
'stanza numero3 =colonna flexgrid?
' numero 4
With Flex1
    .Col = 4
    'data?
    'da domani?
    'riga 2 allora
    .Row = 2
    'stanza occupata???
    'SI!
    .CellBackColor = vbRed
    'riferimento al codice della prenotazione???
    .Text = "AS89"
    'si fermano per 3 giorni?
    'va fatto per le altre righe
    ' te lo faccio manuale...ma qui i dati vanno recuperati
    ' dal database e dalla sua gestione!
    .Row = 3
    .CellBackColor = vbRed
    .Text = "AS89"
    .Row = 4
    .CellBackColor = vbRed
    .Text = "AS89"
End With
End Sub
Private Sub Flex1_DblClick()
'Ultimo evento del demo
'recupero delle info
'questo è soltanto un metodo macchinoso che va a leggere
'le intestazioni
'in realtà una volta recuperato
'il codice della prenotazione
'dovresti avere tutto nel database
'e con una query sul database
'recuperare tutto
Dim codPrenotazione As String
Dim dataPrenotazione As String
Dim StanzaPrenotazione As String
Dim savePosC As Long
Dim savePosR As Long
Dim pos As Long
Dim testo As String
With Flex1
    codPrenotazione = .Text
    savePosC = .Col
    savePosR = .Row
    .Row = 0
    StanzaPrenotazione = .Text
    .Row = savePosR
    .Col = 0
    dataPrenotazione = .Text
    .Col = savePosC
    testo = "Cod.Prenotazione: " & codPrenotazione + vbCrLf
    testo = testo & "Stanza: " & StanzaPrenotazione + vbCrLf
    testo = testo & "Data stanza occupata:" & dataPrenotazione
    MsgBox testo, vbInformation, "Dati prenotazione"
End With
End Sub
'*****************************FINE CODICE
Ed ora?
prima clicca su  "Imposta griglia"...ti disegna la griglia
poi.....
su simula
ti simula una prenotazione
.....ed adesso?
se fai doppio click sulla prenotazione ti da alcune info
Cosa manca?
Tutto!
Questo è solo il frontend...la grafica di presentazione...manca la
gestione dei dati...
le tue prenotazioni saranno in archivio...catalogate...vanno recuperate
Inoltre ci deve essre la possibilità di modificarle (se qualcuno non
si presenta? o chiede di prolungare??? se uno da la caparra e ferma la
stanza...ma non conferma???) ...
La presentazione è l'ultima cosa....concentrati su come organizzare i
dati...butta giù un tracciato record....
PENSA PRIMA DI AGIRE!!!

Ti ringrazio molto per il tuo esempio,ora ho qualcosa su cui lavorare
Sul discorso che dici che non sono un programmatore HI PERFETTAMENTE ragione
non sono un gran che , resta il fatto che io mi diverto in vb6, e 
sinceramente mi rilassa
visto che per me è solo un hobby , altrimenti farei proprio la fame .
Finora ho fatto solo 2 programmi, premetto che ci ho messo alincirca 7 anni 
circa
uno è la gestione di gare di trial l' altro la gestione di un albergo 
fatture e ricevute.
e qualcosa sulle camere.
tutto qui.
comunque se hai tempo in un post e l'altro te li spedisco, cosi vedi tutte 
le cazzate che ho fatto
altrimenti niente , ti ringrazio di nuovo del tuo esempio
ciao a presto 


Ciao
Ho da poco realizzato un planning utilizzando VB6.
Ti posso consigliare di non uitilizzare la flexgrid ma una matrice di
controlli text, che colori opportunamente dopo aver analizzato i dati da un
database.
Se hai bisogno di un aiuto fatti vivo.
A presto
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


innanzi tutto ti ringrazio della tua disponibilità.
Scusa mi potresti spedire un piccolo esempio te ne sarei grato.
Ma come fai se in un giorno x  scade un cliente e ne arriva un altro
chiaramente nella stessa camere.
puoi colorare solo metà del controllo text ?

 ha scritto nel messaggio 
news:4519edfb$0$30253$4faf...@reader1.news.tin.it...

Se vuoi c'e' un' applicativo stupendo in tedesco chiamato
Hotelmanager con tutti i sorgenti......Pero' e' in VB.net
prova a cercare su google  e poi devi tradurlo
ciao