Dim cn As Connection
Dim rs As Recordset
Dim r As Integer
Dim color As Integer
Dim d As Date
Dim sql As String
Dim flag As Boolean
Dim mese As String
Private Sub Form_Load()
sql = "select * from movimenti;"
Call query(sql)
End Sub
Sub init()
With DataGrid1
.AllowAddNew = False
.AllowDelete = False
.AllowUpdate = False
End With
End Sub
Sub query(str As String)
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = App.Path & "/" & "spese.mdb"
cn.Open
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.Source = str
Set rs.ActiveConnection = cn
rs.Open
Set DataGrid1.DataSource = rs
End Sub
Private Sub mnuesci_Click()
MsgBox "Programma realizzato da Albertking82", vbInformation, "Esci"
End
End Sub
Private Sub mnumese_Click(Index As Integer)
If mnumese(Index).Caption < 10 Then
mese = "0" & mnumese(Index).Caption
Else
mese = mnumese(Index).Caption
End If
lbltit.Caption = Format(mese & "/" & Year(Date), "mmmm yyyy")
sql = "select tipoentrata,mese,anno,sum(entrata)as Somma_Entrate from movimenti where mese='" & mese & "' and entrata <>0" & " and anno='" & CStr(Year(Date)) & "' group by tipoentrata,mese,anno;"
Call query(sql)
Call init
End Sub
Private Sub mnunum_Click()
lbltit.Caption = mnunum.Caption & " (Entrate/Uscite)"
sql = "select count(idspesa) as Numero_spese_totali from movimenti;"
Call query(sql)
Call init
End Sub
Private Sub mnuoperazioni_Click()
lbltit.Caption = "Modifica-Cancella-Aggiungi"
Call Form_Load
With DataGrid1
.AllowAddNew = True
.AllowDelete = True
.AllowUpdate = True
End With
End Sub
Private Sub mnusentrate_Click()
lbltit.Caption = mnusentrate.Caption
sql = "select tipoentrata,sum(entrata) as Somma_entrate from movimenti where entrata <> 0 group by tipoentrata;"
Call query(sql)
Call init
End Sub
Private Sub mnututto_Click()
lbltit.Caption = mnututto.Caption
Call Form_Load
Call init
End Sub
Private Sub mnumeseu_Click(Index As Integer)
If mnumeseu(Index).Caption < 10 Then
mese = "0" & mnumeseu(Index).Caption
Else
mese = mnumeseu(Index).Caption
End If
lbltit.Caption = Format(mese & "/" & Year(Date), "mmmm yyyy")
sql = "select tipouscita,mese,anno,sum(uscita)as Somma_Uscite from movimenti where mese='" & mese & "' and uscita <>0" & " and anno='" & CStr(Year(Date)) & "' group by tipouscita,mese,anno;"
Call query(sql)
Call init
End Sub
Private Sub mnuuscite_Click()
lbltit.Caption = mnuuscite.Caption
sql = "select tipouscita,sum(uscita) as Somma_uscite from movimenti group by tipouscita;"
Call query(sql)
Call init
End Sub