etdvdsys.frm

一个 点歌系统

                  RsSong.AddNew
                End If
                RsSong.Fields("Song_GM").Value = SongNameTxt.Text
                RsSong.Fields("Song_GXM").Value = StarNameTxt.Text
                RsSong.Fields("Song_BDCS").Value = "0"
                RsSong.Fields("Song_FilePath").Value = SongFileTxt.Text
                RsSong.Fields("Song_GMCD").Value = SongCountCbo.Text
                RsSong.Fields("Song_GMZS").Value = UCase(SongZSCbo.Text)
                
                Select Case SongYZCbo.ListIndex
                        Case 0
                            RsSong.Fields("Song_GQYZ").Value = 1
                        Case 1
                            RsSong.Fields("Song_GQYZ").Value = 2
                        Case 2
                            RsSong.Fields("Song_GQYZ").Value = 3
                        Case 3
                            RsSong.Fields("Song_GQYZ").Value = 4
                        Case 4
                            RsSong.Fields("Song_GQYZ").Value = 5
                        Case 5
                            RsSong.Fields("Song_GQYZ").Value = 6
                        Case 6
                            RsSong.Fields("Song_GQYZ").Value = 7
                        Case 7
                            RsSong.Fields("Song_GQYZ").Value = 8
                        Case 8
                            RsSong.Fields("Song_GQYZ").Value = 9
                End Select
                Select Case StarXBCbo.ListIndex
                        Case 0
                            RsSong.Fields("Song_GXXB").Value = 1
                        Case 1
                            RsSong.Fields("Song_GXXB").Value = 0
                        Case 2
                            RsSong.Fields("Song_GXXB").Value = 2
                End Select
                If SongHCCbo.ListIndex = 0 Then
                    RsSong.Fields("Song_ISHC").Value = 1
                Else
                    RsSong.Fields("Song_ISHC").Value = 0
                End If
                If SongSDCbo.ListIndex = 1 Then
                  RsSong.Fields("Song_YCSD").Value = 1
                Else
                  RsSong.Fields("Song_YCSD").Value = 0
                End If
                Select Case SongLXCbo.ListIndex
                        Case 0
                            RsSong.Fields("Song_ISLX").Value = 0
                        Case 1
                            RsSong.Fields("Song_ISLX").Value = 1
                End Select
                RsSong.UpdateBatch
                SetupStyle (1)
                SongNameTxt.Enabled = False
                StarNameTxt.Enabled = False
                SongFileTxt.Enabled = False
                SongCountCbo.Enabled = False
                SongYZCbo.Enabled = False
                SongHCCbo.Enabled = False
                SongZSCbo.Enabled = False
                StarXBCbo.Enabled = False
                SongSDCbo.Enabled = False
                SongLXCbo.Enabled = False
                SongINI
              End If
          Case 6
              SetupStyle (1)
              SongNameTxt.Enabled = False
              StarNameTxt.Enabled = False
              SongFileTxt.Enabled = False
              SongCountCbo.Enabled = False
              SongYZCbo.Enabled = False
              SongHCCbo.Enabled = False
              SongZSCbo.Enabled = False
              StarXBCbo.Enabled = False
              SongSDCbo.Enabled = False
              SongLXCbo.Enabled = False
              SongINI
          Case 7
              If LeftDVD Then
                MsgBox "当前采用左声道播放歌曲!", vbInformation, "声道转换"
              End If
          Case 8
              If RightDVD Then
                MsgBox "当前采用右声道播放歌曲!", vbInformation, "声道转换"
              End If
  End Select
End Sub

Private Sub Command10_Click()
  SaveCfgINI "WelcomeMessage", "WelcomeMessage", Trim(WelcomeMsgTxt.Text)
End Sub

Private Sub Command19_Click()
  RsStar.Close
  RsSong.Close
  Cnn.Close
  StopDVD
  CloseDVD
  Unload Me
End Sub

Private Sub Command2_Click()
  CommonDialog1.ShowOpen
  SongFileTxt.Text = CommonDialog1.FileName
  If FindMpg(Trim(SongFileTxt.Text)) Then
    FileLinkLab = "此文件连接正确!"
  Else
    Beep
    FileLinkLab = "此文件连接不正确!"
  End If
End Sub

Private Sub Command3_Click()
  SaveCfgINI "ThisBFName", "ThisBFName", Trim(BfNameTxt.Text)
End Sub

Private Sub Command4_Click(Index As Integer)
  If RsStar.State Then
    Select Case Index
            Case 0
              AddStarFlag = True
              Command4(0).Enabled = False
              Command4(1).Enabled = False
              Command4(2).Enabled = False
              Command4(3).Enabled = True
              Command4(4).Enabled = True
              Command5(7).Enabled = False
              Command5(6).Enabled = False
              Command5(5).Enabled = False
              Command5(4).Enabled = False
              Command8.Enabled = True
              StarNTxt.Enabled = True
              StarPTxt.Enabled = True
              StarNTxt.Text = ""
              StarPTxt.Text = ""
            Case 1
              AddStarFlag = False
              Command4(0).Enabled = False
              Command4(1).Enabled = False
              Command4(2).Enabled = False
              Command4(3).Enabled = True
              Command4(4).Enabled = True
              Command5(7).Enabled = False
              Command5(6).Enabled = False
              Command5(5).Enabled = False
              Command5(4).Enabled = False
              Command8.Enabled = True
              StarNTxt.Enabled = True
              StarPTxt.Enabled = True
            Case 2
              If (MsgBox("您真的要删除吗？", vbYesNo, "Delete True?")) Then
                RsStar.Delete
                RsStar.UpdateBatch
                RsStar.MoveFirst
                StarINI
              End If
            Case 3
              If AddStarFlag Then
                RsStar.AddNew
              End If
              If StarNTxt.Text <> "" And StarPTxt.Text <> "" Then
                RsStar.Fields("StarName").Value = StarNTxt.Text
                RsStar.Fields("StarPath").Value = StarPTxt.Text
                RsStar.Fields("StarBDCS").Value = "0"
                RsStar.UpdateBatch
              Else
                MsgBox "输入项不能为空！", vbInformation, "输入错误"
              End If
              Command4(0).Enabled = True
              Command4(1).Enabled = True
              Command4(2).Enabled = True
              Command4(3).Enabled = False
              Command4(4).Enabled = False
              Command5(7).Enabled = True
              Command5(6).Enabled = True
              Command5(5).Enabled = True
              Command5(4).Enabled = True
              Command8.Enabled = False
              StarNTxt.Enabled = False
              StarPTxt.Enabled = False
              StarINI
            Case 4
              Command4(0).Enabled = True
              Command4(1).Enabled = True
              Command4(2).Enabled = True
              Command4(3).Enabled = False
              Command4(4).Enabled = False
              Command5(7).Enabled = True
              Command5(6).Enabled = True
              Command5(5).Enabled = True
              Command5(4).Enabled = True
              Command8.Enabled = False
              StarNTxt.Enabled = False
              StarPTxt.Enabled = False
              StarINI
    End Select
  End If
End Sub

Private Sub Command5_Click(Index As Integer)
If RsSong.State Then
  Select Case Index
          Case 0
              RsSong.MoveFirst
              SongINI
          Case 1
            If Not RsSong.BOF Then
              RsSong.MovePrevious
            End If
            If Not RsSong.BOF Then
              SongINI
            Else
              RsSong.MoveNext
            End If
          Case 2
            If Not RsSong.EOF Then
              RsSong.MoveNext
            End If
            If Not RsSong.EOF Then
              SongINI
            Else
              RsSong.MovePrevious
            End If
          Case 3
            RsSong.MoveLast
            SongINI
          Case 7
            RsStar.MoveFirst
            StarINI
          Case 6
            If Not RsStar.BOF Then
              RsStar.MovePrevious
            End If
            If Not RsStar.BOF Then
              StarINI
            Else
              RsStar.MoveNext
            End If
          Case 5
            If Not RsStar.EOF Then
              RsStar.MoveNext
            End If
            If Not RsStar.EOF Then
              StarINI
            Else
              RsStar.MovePrevious
            End If
          Case 4
            RsStar.MoveLast
            StarINI
  End Select
End If
  
End Sub

Private Sub SetupStyle(StyleIndex As Integer)
  Select Case StyleIndex
          Case 0
            Command1(0).Enabled = False
            Command1(1).Enabled = True
            Command1(7).Enabled = True
            Command1(8).Enabled = True
          Case 1
            Command1(2).Enabled = True
            Command1(3).Enabled = True
            Command1(4).Enabled = True
            Command1(5).Enabled = False
            Command1(6).Enabled = False
            Command2.Enabled = False
            Command5(0).Enabled = True
            Command5(1).Enabled = True
            Command5(2).Enabled = True
            Command5(3).Enabled = True
          Case 2
            Command1(2).Enabled = False
            Command1(3).Enabled = False
            Command1(4).Enabled = False
            Command1(5).Enabled = True
            Command1(6).Enabled = True
            Command2.Enabled = True
            Command5(0).Enabled = False
            Command5(1).Enabled = False
            Command5(2).Enabled = False
            Command5(3).Enabled = False
            SongNameTxt.Enabled = True
            StarNameTxt.Enabled = True
            SongFileTxt.Enabled = True
            SongCountCbo.Enabled = True
            SongYZCbo.Enabled = True
            SongHCCbo.Enabled = True
            SongZSCbo.Enabled = True
            StarXBCbo.Enabled = True
            SongSDCbo.Enabled = True
            SongLXCbo.Enabled = True
        Case 3
            Command1(0).Enabled = True
            Command1(1).Enabled = False
            Command1(7).Enabled = False
            Command1(8).Enabled = False
  End Select
End Sub

Private Function ScanData() As Boolean
Dim DataFlag As Boolean

  DataFlag = False
  If SongNameTxt.Text = "" Then
    DataFlag = True
  End If
  If StarNameTxt.Text = "" Then
    DataFlag = True
  End If
  If SongFileTxt.Text = "" Then
    DataFlag = True
  End If
  If SongCountCbo.Text = "" Then
    DataFlag = True
  End If
  If SongYZCbo.Text = "" Then
    DataFlag = True
  End If
  If SongHCCbo.Text = "" Then
    DataFlag = True
  End If
  If SongZSCbo.Text = "" Then
    DataFlag = True
  End If
  If StarXBCbo.Text = "" Then
    DataFlag = True
  End If
  If SongSDCbo.Text = "" Then
    DataFlag = True
  End If
  If SongLXCbo.Text = "" Then
    DataFlag = True
  End If
  If DataFlag Then
    MsgBox "输入项不能为空！", vbInformation, "输入错误"
    ScanData = False
  Else
    ScanData = True
  End If
End Function

Private Sub Command6_Click(Index As Integer)
  If RsStar.State Then
    RsStar.MoveFirst
    RsStar.Find ("StarName ='" + Trim(StarFindTxt.Text) + "'")
    If Not RsStar.EOF Then
      StarINI
    Else
      MsgBox "歌曲没找到!", vbInformation, "没找到"
      StarFindTxt.Text = ""
      RsStar.MoveFirst
      StarINI
    End If
  End If
End Sub

Private Sub Command7_Click()
  If RsSong.State Then
    RsSong.MoveFirst
    RsSong.Find ("Song_GM ='" + Trim(SongFindTxt.Text) + "'")
    If Not RsSong.EOF Then
      SongINI
    Else
      MsgBox "歌曲没找到!", vbInformation, "没找到"
      SongFindTxt.Text = ""
      RsSong.MoveFirst
      SongINI
    End If
  End If
End Sub

Private Sub Command8_Click()
  CommonDialog2.ShowOpen
  StarPTxt.Text = CommonDialog2.FileName
  If Not FindMpg(Trim(StarPTxt.Text)) Then
    Beep
    MsgBox "此文件连接正确!", vbInformation, "找不到文件"
  End If
End Sub

Private Sub Command9_Click()
  SaveCfgINI "BDNumber", "BDNumber", Trim(BDCountTxt.Text)
End Sub

Private Sub Form_Load()
  SetupStyle (1)
End Sub

Private Sub SongCountCbo_Change()
  MsgBox "改变"
End Sub

Private Sub TabStrip1_Click()
  Select Case TabStrip1.SelectedItem.Index
          Case 1
            FrameSong.Visible = True
            FrameStar.Visible = False
            FrameOther.Visible = False
          Case 2
            FrameSong.Visible = False
            FrameStar.Visible = True
            FrameOther.Visible = False
          Case 3
            FrameSong.Visible = False
            FrameStar.Visible = False
            FrameOther.Visible = True
  End Select
End Sub