Add files via upload

DominicWoozy · May 24, 2019 · bcdbed7 · bcdbed7
1 parent 22a04f3
commit bcdbed7
Show file tree

Hide file tree

Showing 26 changed files with 905 additions and 58 deletions.
diff --git a/课设3/Form1.Designer.vb b/课设3/Form1.Designer.vb
diff --git a/课设3/Form1.resx b/课设3/Form1.resx
@@ -146,6 +146,9 @@
   <metadata name="MusicDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 111</value>
   </metadata>
+  <metadata name="MusicDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 111</value>
+  </metadata>
   <metadata name="Music_infoTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>478, 111</value>
   </metadata>

diff --git a/课设3/Form1.vb b/课设3/Form1.vb
@@ -6,27 +6,14 @@ Public Class Form1
     Public sqlcon As New SqlConnection("server=(local);database=music;Integrated Security=True")
     Public artist As String
     Public album As String
+    Public userid As Integer
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'TODO: 这行代码将数据加载到表“MusicDataSet.user_data”中。您可以根据需要移动或删除它。
-        Me.User_dataTableAdapter.Fill(Me.MusicDataSet.user_data)
         'TODO: 这行代码将数据加载到表“MusicDataSet.music_file”中。您可以根据需要移动或删除它。
         Me.Music_fileTableAdapter.Fill(Me.MusicDataSet.music_file)
         'TODO: 这行代码将数据加载到表“MusicDataSet.music_info”中。您可以根据需要移动或删除它。
         Me.Music_infoTableAdapter.Fill(Me.MusicDataSet.music_info)
         'TODO: 这行代码将数据加载到表“MusicDataSet.music_info”中。您可以根据需要移动或删除它。
         Me.Music_infoTableAdapter.Fill(Me.MusicDataSet.music_info)
-        'TODO: 这行代码将数据加载到表“MusicDataSet.lyrics”中。您可以根据需要移动或删除它。
-
-        'TODO: 这行代码将数据加载到表“MusicDataSet.music_info”中。您可以根据需要移动或删除它。
-        Me.Music_infoTableAdapter.Fill(Me.MusicDataSet.music_info)
-        'TODO: 这行代码将数据加载到表“MusicDataSet1.music_file”中。您可以根据需要移动或删除它。
-        Me.Music_infoTableAdapter.Fill(Me.MusicDataSet.music_info)
-        'TODO: 这行代码将数据加载到表“MusicDataSet.music_file”中。您可以根据需要移动或删除它。
-        Me.Music_fileTableAdapter.Fill(Me.MusicDataSet.music_file)
-        'TODO: 这行代码将数据加载到表“MusicDataSet.music_info”中。您可以根据需要移动或删除它。
-        Me.Music_infoTableAdapter.Fill(Me.MusicDataSet.music_info)
-
-
 
     End Sub
 
@@ -36,18 +23,25 @@ Public Class Form1
     End Sub
 
     Private Sub DataGridView1_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
-        Dim x As Integer, y As Integer, a As Integer, b As Integer
+        Dim x As Integer, y As Integer, a As Integer, b As Integer, i As Integer, j As Integer, musicname As String
         x = DataGridView1.CurrentCellAddress.X
         y = DataGridView1.CurrentCellAddress.Y
         b = DataGridView1.Rows(y).Cells(x - 1).Value
+        musicname = DataGridView1.CurrentCell.Value
         If x = 1 Then
             a = MusicfileBindingSource.Find("music_id", b)
             If a = -1 Then
                 MsgBox("此音乐没有对应文件")
             Else
                 MusicFilePath = MusicDataSet.music_file.Rows(a)("music_file")
                 AxWindowsMediaPlayer1.URL = System.IO.Path.GetFullPath(MusicFilePath)
-
+                i = User_dataTableAdapter.IfMusicExists(userid, b)
+                If i = 0 Then
+                    User_dataTableAdapter.InsertNewUserdata(userid, b, musicname, 1, 0)
+                Else
+                    User_dataTableAdapter.UserdataMusicCountPlusOne(userid, b)
+                    MsgBox(User_dataTableAdapter.SumAllCounts(userid))
+                End If
             End If
         End If
         If DataGridView1.CurrentCell.ColumnIndex = 3 Then
@@ -100,4 +94,5 @@ Public Class Form1
         Form4.Close()
         End
     End Sub
+
 End Class