www.pudn.com > SkyMediaSongTool.rar > Form2.frm
VERSION 5.00
Begin VB.Form Form2
BorderStyle = 1 'Fixed Single
Caption = "编辑歌曲信息"
ClientHeight = 4200
ClientLeft = 45
ClientTop = 330
ClientWidth = 6555
Icon = "Form2.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4200
ScaleWidth = 6555
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CheckBox Check1
Caption = "跳过保存确认,直接保存"
Height = 345
Left = 840
TabIndex = 25
Top = 3600
Value = 1 'Checked
Width = 2460
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 450
Left = 4935
TabIndex = 19
Top = 3555
Width = 1440
End
Begin VB.CommandButton Command1
Caption = "保存修改"
Height = 450
Left = 3420
TabIndex = 18
Top = 3555
Width = 1440
End
Begin VB.Frame Frame1
Caption = "歌曲信息"
Height = 3420
Left = 105
TabIndex = 0
Top = 60
Width = 6330
Begin VB.TextBox Label11
ForeColor = &H000000FF&
Height = 285
Left = 3585
Locked = -1 'True
TabIndex = 27
Top = 2985
Width = 2340
End
Begin VB.CommandButton Command3
Caption = ">>>"
Height = 315
Left = 3030
TabIndex = 26
Top = 840
Width = 465
End
Begin VB.ComboBox Tlanguage
Height = 300
ItemData = "Form2.frx":030A
Left = 1020
List = "Form2.frx":0326
TabIndex = 24
Text = "国语"
Top = 1680
Width = 1980
End
Begin VB.CheckBox Tsex
Caption = "电影"
Height = 240
Left = 4590
TabIndex = 23
Top = 1710
Width = 1485
End
Begin VB.TextBox Ttemp
Height = 285
Left = 4500
TabIndex = 22
Top = 2070
Width = 1440
End
Begin VB.CheckBox tdiskname
Caption = "劲榜"
Height = 255
Left = 4575
TabIndex = 20
Top = 1335
Width = 1320
End
Begin VB.TextBox Tqindex
Height = 330
Left = 4560
TabIndex = 17
Top = 840
Width = 1455
End
Begin VB.ComboBox Tmtvorvcd
Height = 300
ItemData = "Form2.frx":035A
Left = 4560
List = "Form2.frx":0364
TabIndex = 15
Text = "0"
Top = 420
Width = 1455
End
Begin VB.TextBox Tarea
Height = 300
Left = 1020
TabIndex = 13
Top = 2940
Width = 1980
End
Begin VB.ComboBox Ttype
Height = 300
ItemData = "Form2.frx":036E
Left = 1020
List = "Form2.frx":03C3
TabIndex = 11
Text = "流行金曲"
Top = 2520
Width = 1980
End
Begin VB.TextBox Tlengthes
Height = 300
Left = 1020
TabIndex = 9
Top = 2115
Width = 1980
End
Begin VB.TextBox Tsinger
Height = 300
Left = 1020
TabIndex = 6
Top = 1290
Width = 1980
End
Begin VB.TextBox Tname
Height = 300
Left = 1020
TabIndex = 4
Top = 840
Width = 1980
End
Begin VB.TextBox TID
Height = 300
Left = 1020
Locked = -1 'True
TabIndex = 2
Top = 420
Width = 1980
End
Begin VB.Label Label12
Caption = "搜索到媒体文件路径:"
Height = 270
Left = 3570
TabIndex = 28
Top = 2700
Width = 1830
End
Begin VB.Label Label10
Caption = "点击率:"
Height = 270
Left = 3570
TabIndex = 21
Top = 2100
Width = 945
End
Begin VB.Label Label9
Caption = "拼音索引:"
Height = 225
Left = 3585
TabIndex = 16
Top = 885
Width = 900
End
Begin VB.Label Label8
Caption = "声 道:"
Height = 225
Left = 3585
TabIndex = 14
Top = 420
Width = 900
End
Begin VB.Label Label7
Caption = "音 量:"
Height = 255
Left = 135
TabIndex = 12
Top = 2940
Width = 840
End
Begin VB.Label Label6
Caption = "类 型:"
Height = 255
Left = 135
TabIndex = 10
Top = 2520
Width = 840
End
Begin VB.Label Label5
Caption = "长 度:"
Height = 255
Left = 135
TabIndex = 8
Top = 2100
Width = 840
End
Begin VB.Label Label4
Caption = "语 种:"
Height = 255
Left = 135
TabIndex = 7
Top = 1680
Width = 840
End
Begin VB.Label Label3
Caption = "歌 星:"
Height = 255
Left = 135
TabIndex = 5
Top = 1260
Width = 840
End
Begin VB.Label Label2
Caption = "歌 名:"
Height = 255
Left = 135
TabIndex = 3
Top = 840
Width = 840
End
Begin VB.Label Label1
Caption = "ID编号:"
Height = 255
Left = 135
TabIndex = 1
Top = 420
Width = 840
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
rs.Open "select * from " & Form1.Combo2.Text & " where id='" & Form1.LV1.SelectedItem.Text & "'", conn, 1, 3
If rs.EOF And rs.BOF Then
MsgBox "未找到相关记录,该记录不存在!", vbOKOnly + vbCritical, "提示"
rs.Close
Exit Sub
Else
If Trim(Tname.Text) <> "" Then
rs("singname") = Trim(Tname.Text)
Form1.LV1.SelectedItem.SubItems(1) = Trim(Tname.Text)
End If
If Trim(Tsinger.Text) <> "" Then
rs("singer") = Trim(Tsinger.Text)
Form1.LV1.SelectedItem.SubItems(2) = Trim(Tsinger.Text)
End If
If Trim(Tlanguage.Text) <> "" Then
rs("language") = Trim(Tlanguage.Text)
Form1.LV1.SelectedItem.SubItems(3) = Trim(Tlanguage.Text)
End If
If Trim(Tlengthes.Text) <> "" Then
rs("lengthes") = Trim(Tlengthes.Text)
Form1.LV1.SelectedItem.SubItems(4) = Trim(Tlengthes.Text)
End If
If typetxttotypeid(Trim(Ttype.Text)) <> "" Then
rs("type") = typetxttotypeid(Trim(Ttype.Text))
Form1.LV1.SelectedItem.SubItems(5) = typetxttotypeid(Trim(Ttype.Text))
End If
If Trim(Tarea.Text) <> "" Then
rs("area") = Trim(Tarea.Text)
Form1.LV1.SelectedItem.SubItems(6) = Trim(Tarea.Text)
End If
If Trim(Tmtvorvcd.Text) <> "" Then
rs("mtvorvcd") = Trim(Tmtvorvcd.Text)
Form1.LV1.SelectedItem.SubItems(7) = Trim(Tmtvorvcd.Text)
End If
If Trim(Tqindex.Text) <> "" Then
rs("qindex") = Trim(Tqindex.Text)
Form1.LV1.SelectedItem.SubItems(8) = Trim(Tqindex.Text)
End If
If Trim(tdiskname.Value) <> "" Then
rs("diskname") = Trim(tdiskname.Value)
Form1.LV1.SelectedItem.SubItems(9) = Trim(tdiskname.Value)
End If
If Trim(Tsex.Value) <> "" Then
rs("sex") = Trim(Tsex.Value)
Form1.LV1.SelectedItem.SubItems(10) = Trim(Tsex.Value)
End If
If Trim(Ttemp.Text) <> "" Then
rs("temp") = Trim(Ttemp.Text)
Form1.LV1.SelectedItem.SubItems(11) = Trim(Ttemp.Text)
End If
rs.Update
End If
rs.Close
If Check1.Value = 0 Then
MsgBox "记录保存成功!", vbOKOnly + vbInformation, "提示"
End If
Unload Me
End Sub
Private Sub Command2_Click()
Unload Form2
End Sub
Private Sub Command3_Click()
Tqindex = getpy(Tname.Text)
Tlengthes = Len(Tqindex.Text)
End Sub
Private Sub Tname_Change()
Tqindex = getpy(Tname.Text)
Tlengthes = Len(Tqindex.Text)
End Sub