Public Class MainPage
Public Sub Add_Data()
con.Open()
Dim rs As New OleDb.OleDbCommand("Insert into tbLMPH(IDday,ThisDay,ThisMonth,ThisYear,StartTime,FinishTime,Notes) values ('" & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "' , '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "')", con)
rs.ExecuteNonQuery()
con.Close()
Display_Data()
End Sub
Public Sub Display_Data()
con.Open() 'opening the connection
Dim dt As New DataTable("tbLMPH")
Dim rs As New OleDb.OleDbDataAdapter("Select * from tbLMPH", con)
rs.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Refresh()
Label1.Text = dt.Rows.Count
rs.Dispose()
con.Close()
End Sub
Public Sub Search()
con.Open()
Dim dt As New DataTable("tbLMPH")
Dim rs As New OleDb.OleDbDataAdapter("Select * from tbLMPH where ThisYear='" & TextBox8.Text & "' or ThisMonth='" & TextBox9.Text & "' ", con)
rs.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Refresh()
Label1.Text = dt.Rows.Count
rs.Dispose()
con.Close()
' Display_Data()
End Sub
Public Sub GetData()
con.Open()
Dim dt As New DataTable("tbLMPH")
Dim rs As New OleDb.OleDbDataAdapter("Select * from tbLMPH where IDday='" & TextBox1.Text & "' ", con)
rs.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Refresh()
Label1.Text = dt.Rows.Count
rs.Dispose()
con.Close()
If Val(Label1.Text) = 1 Then
Dim i As Integer
i = DataGridView1.CurrentRow.Index
TextBox2.Text = DataGridView1.Item(1, i).Value
TextBox3.Text = DataGridView1.Item(2, i).Value
TextBox4.Text = DataGridView1.Item(3, i).Value
TextBox5.Text = DataGridView1.Item(4, i).Value
TextBox6.Text = DataGridView1.Item(5, i).Value
TextBox7.Text = DataGridView1.Item(6, i).Value
End If
' Display_Data()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'MaindbDataSet.tbLMPH' table. You can move, or remove it, as needed.
Me.TbLMPHTableAdapter.Fill(Me.MaindbDataSet.tbLMPH)
My.Computer.Audio.Play(My.Resources.jimmy2, AudioPlayMode.Background)
Display_Data()
Timer1.Start()
Label2.ForeColor = Color.White
Display_Data()
End Sub
Public Sub Update_Data()
con.Open()
Dim rs As New OleDb.OleDbCommand("Update tbLMPH set ThisDay='" & TextBox2.Text & "', ThisMonth='" & TextBox3.Text & "', ThisYear='" & TextBox4.Text & "', StartTime='" & TextBox5.Text & "', FinishTime='" & TextBox6.Text & "', Notes='" & TextBox7.Text & "' where IDday='" & TextBox1.Text & "' ", con)
rs.ExecuteNonQuery()
con.Close()
Display_Data()
End Sub
Public Sub Delete_Data()
con.Open()
Dim rs As New OleDb.OleDbCommand("Delete * from tbLMPH where IDday='" & TextBox1.Text & "' ", con)
rs.ExecuteNonQuery()
con.Close()
Display_Data()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = Format(TimeOfDay)
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If Label2.ForeColor = Color.White Then
Label2.ForeColor = Color.White
Else
Label2.ForeColor = Color.White
Label2.ForeColor = Color.White
End If
End Sub
Private Sub WindowsUIButtonPanel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel1.Click
Add_Data()
End Sub
Private Sub WindowsUIButtonPanel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel2.Click
GetData()
End Sub
Private Sub WindowsUIButtonPanel3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel3.Click
Select Case MsgBox("Are you sure you want to update this record?", MsgBoxStyle.YesNo, "Update Confirmation")
Case MsgBoxResult.Yes
Update_Data()
Case MsgBoxResult.No
' Do something if no
End Select
End Sub
Private Sub WindowsUIButtonPanel4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel4.Click
Select Case MsgBox("Are you sure you want to delete this record?", MsgBoxStyle.YesNo, "Delete Confirmation")
Case MsgBoxResult.Yes
Delete_Data()
Case MsgBoxResult.No
' Do something if no
End Select
End Sub
Private Sub WindowsUIButtonPanel5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel5.Click
Search()
End Sub
Private Sub WindowsUIButtonPanel6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel6.Click
Met.Show()
End Sub
Private Sub WindowsUIButtonPanel7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel7.Click
MP3Player.Show()
End Sub
Private Sub WindowsUIButtonPanel8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel8.Click
StopWatch.Show()
End Sub
Private Sub WindowsUIButtonPanel9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel9.Click
MPReport.Show()
End Sub
Private Sub WindowsUIButtonPanel10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsUIButtonPanel10.Click
SongList.Show()
Me.Hide()
End Sub
Private Sub WindowsUIButtonPanel12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
WarmUp.Show()
Me.Hide()
End Sub
Private Sub WarmUpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WarmUpToolStripMenuItem.Click
WarmUp.Show()
Me.Hide()
End Sub
Private Sub ScalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScalesToolStripMenuItem.Click
Scales.Show()
Me.Hide()
End Sub
Private Sub ExercisesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExercisesToolStripMenuItem.Click
Exercises.Show()
Me.Hide()
End Sub
Private Sub ArpeggiosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArpeggiosToolStripMenuItem.Click
Arpeggios.Show()
Me.Hide()
End Sub
Private Sub EarTrainingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EarTrainingToolStripMenuItem.Click
EarTraining.Show()
Me.Hide()
End Sub
Private Sub ImpovisationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImpovisationToolStripMenuItem.Click
Improvisation.Show()
Me.Hide()
End Sub
Private Sub SongListToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SongListToolStripMenuItem.Click
SongList.Show()
Me.Hide()
End Sub
Private Sub ReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportToolStripMenuItem.Click
MPReport.Show()
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
AboutBox1.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MPHPlanner.Show()
End Sub
End Class