Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Le mie spese - Frmoperazioni.frm

Frmoperazioni.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Dim cn As Connection
  2. Dim rs As Recordset
  3. Dim r As Integer
  4. Dim color As Integer
  5. Dim d As Date
  6. Dim sql As String
  7. Dim flag As Boolean
  8. Dim mese As String
  9.  
  10. Private Sub Form_Load()
  11.  
  12.  sql = "select * from movimenti;"
  13.  Call query(sql)
  14.  
  15. End Sub
  16. Sub init()
  17.  
  18. With DataGrid1
  19.    
  20.     .AllowAddNew = False
  21.     .AllowDelete = False
  22.     .AllowUpdate = False
  23.    
  24.   End With
  25.  
  26. End Sub
  27. Sub query(str As String)
  28.  
  29.  Set cn = New ADODB.Connection
  30.  Set rs = New ADODB.Recordset
  31.  cn.Provider = "microsoft.jet.oledb.4.0"
  32.  cn.ConnectionString = App.Path & "/" & "spese.mdb"
  33.  cn.Open
  34.  rs.LockType = adLockOptimistic
  35.  rs.CursorLocation = adUseClient
  36.  rs.Source = str
  37.  Set rs.ActiveConnection = cn
  38.  rs.Open
  39.  Set DataGrid1.DataSource = rs
  40.  
  41. End Sub
  42.  
  43. Private Sub mnuesci_Click()
  44.  
  45. MsgBox "Programma realizzato da Albertking82", vbInformation, "Esci"
  46. End
  47.  
  48. End Sub
  49.  
  50. Private Sub mnumese_Click(Index As Integer)
  51.  
  52.   If mnumese(Index).Caption < 10 Then
  53.      mese = "0" & mnumese(Index).Caption
  54.    Else
  55.      mese = mnumese(Index).Caption
  56.   End If
  57.   lbltit.Caption = Format(mese & "/" & Year(Date), "mmmm yyyy")
  58. 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;"
  59. Call query(sql)
  60. Call init
  61.  
  62. End Sub
  63.  
  64. Private Sub mnunum_Click()
  65.  
  66.  lbltit.Caption = mnunum.Caption & " (Entrate/Uscite)"
  67.  sql = "select count(idspesa) as Numero_spese_totali from movimenti;"
  68.  Call query(sql)
  69.  Call init
  70.  
  71. End Sub
  72.  
  73. Private Sub mnuoperazioni_Click()
  74.  
  75. lbltit.Caption = "Modifica-Cancella-Aggiungi"
  76. Call Form_Load
  77.  
  78.   With DataGrid1
  79.    
  80.     .AllowAddNew = True
  81.     .AllowDelete = True
  82.     .AllowUpdate = True
  83.    
  84.   End With
  85.  
  86. End Sub
  87.  
  88.  
  89. Private Sub mnusentrate_Click()
  90. lbltit.Caption = mnusentrate.Caption
  91. sql = "select tipoentrata,sum(entrata) as Somma_entrate from movimenti where entrata <> 0  group by tipoentrata;"
  92. Call query(sql)
  93. Call init
  94.  
  95. End Sub
  96.  
  97. Private Sub mnututto_Click()
  98.  
  99.  lbltit.Caption = mnututto.Caption
  100.  Call Form_Load
  101.  Call init
  102.  
  103. End Sub
  104.  
  105. Private Sub mnumeseu_Click(Index As Integer)
  106.  
  107.   If mnumeseu(Index).Caption < 10 Then
  108.      mese = "0" & mnumeseu(Index).Caption
  109.    Else
  110.      mese = mnumeseu(Index).Caption
  111.   End If
  112.  
  113.  lbltit.Caption = Format(mese & "/" & Year(Date), "mmmm yyyy")
  114.  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;"
  115.  Call query(sql)
  116.  Call init
  117.  
  118. End Sub
  119.  
  120. Private Sub mnuuscite_Click()
  121.  
  122.   lbltit.Caption = mnuuscite.Caption
  123.   sql = "select tipouscita,sum(uscita) as Somma_uscite from movimenti group by tipouscita;"
  124.   Call query(sql)
  125.   Call init
  126.  
  127. End Sub