etklokmain.frm

vod 点歌系统,VB开发,操作相对比较简单.

          Select Case Int(Trim(Chr(KeyAscii) + Chr(EtYKQ.CheckKey)))
                  Case 11
                    FlgqImg_Click (0)
                    EtYKQ.ShowYKQ "国 语 歌 曲", True
                  Case 12
                    FlgqImg_Click (1)
                    EtYKQ.ShowYKQ "粤 语 歌 曲", True
                  Case 13
                    FlgqImg_Click (2)
                    EtYKQ.ShowYKQ "台 语 歌 曲", True
                  Case 14
                    FlgqImg_Click (3)
                    EtYKQ.ShowYKQ "英 文 歌 曲", True
                  Case 15
                    FlgqImg_Click (4)
                    EtYKQ.ShowYKQ "音 乐 舞 曲", True
                  Case 21
                    HcgqImgs_Click (0)
                    EtYKQ.ShowYKQ "国 语 合 唱", True
                  Case 22
                    HcgqImgs_Click (1)
                    EtYKQ.ShowYKQ "粤 语 合 唱", True
                  Case 23
                    HcgqImgs_Click (2)
                    EtYKQ.ShowYKQ "台 语 合 唱", True
                  Case 24
                    HcgqImgs_Click (3)
                    EtYKQ.ShowYKQ "英 文 合 唱", True
                  Case 25
                    HcgqImgs_Click (4)
                    EtYKQ.ShowYKQ "其 它 合 唱", True
                  Case 31
                    LxgbImgs_Click (0)
                    EtYKQ.ShowYKQ "流 行 独 唱", True
                  Case 32
                    LxgbImgs_Click (1)
                    EtYKQ.ShowYKQ "流 行 合 唱", True
                  Case 41
                    DyxpImgs_Click (0)
                    EtYKQ.ShowYKQ "精 彩 电 影", True
                  Case 42
                    DyxpImgs_Click (1)
                    EtYKQ.ShowYKQ "相 声 小 品", True
            End Select
        Case 27
          ToolImg_Click (6)
        Case 13
          EtYKQ.ShowYKQ "已选中歌曲", True
          GQList_Click
        Case 33
          Select Case SelectStyle
                  Case 1
                    SongPageUP
                  Case 2
                    YdgqImg_Click (2)
                  Case 3
                    StarPageUp_Click
            End Select
        Case 34
          Select Case SelectStyle
                  Case 1
                    SongPageDown
                  Case 2
                    YdgqImg_Click (3)
                  Case 3
                    StarPageDown_Click
            End Select
        Case 38
          If SelectStyle = 1 Then
            GQList.SetFocus
          Else
            YDGQList.SetFocus
          End If
        Case 40
          If SelectStyle = 1 Then
            GQList.SetFocus
          Else
            YDGQList.SetFocus
          End If
        Case 44
          If StarLbe.Caption = "歌星点歌" Then
            ListItemShow "歌星点歌", "Where Song_GXM='" + Trim(StarImg(0).ToolTipText) + "'"
            EtYKQ.ShowYKQ "歌星" + Trim(StarImg(0).ToolTipText), True
          End If
        Case 46
          If StarLbe.Caption = "歌星点歌" Then
            ListItemShow "歌星点歌", "Where Song_GXM='" + Trim(StarImg(1).ToolTipText) + "'"
            EtYKQ.ShowYKQ "歌星" + Trim(StarImg(1).ToolTipText), True
          End If
        Case 98
          If StarLbe.Caption = "歌星点歌" Then
            ListItemShow "歌星点歌", "Where Song_GXM='" + Trim(StarImg(2).ToolTipText) + "'"
            EtYKQ.ShowYKQ "歌星" + Trim(StarImg(2).ToolTipText), True
          End If
        Case 102
          If StarLbe.Caption = "歌星点歌" Then
            ListItemShow "歌星点歌", "Where Song_GXM='" + Trim(StarImg(3).ToolTipText) + "'"
            EtYKQ.ShowYKQ "歌星" + Trim(StarImg(3).ToolTipText), True
          End If
        Case 99
        
    End Select
End Sub

Public Sub OneClassImg_Click(Index As Integer)
  Select Case Index
    Case 0
      SelectFrme "分类歌曲"
    Case 1
      SelectFrme "合唱歌曲"
    Case 2
      SelectFrme "流行歌曲"
    Case 3
      SelectFrme "电影小品"
  End Select
End Sub

Private Sub OneClassImg_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  If OneClassIndex <> Index Then
    If OneClassIndex <> -1 Then
      OneClassImg(OneClassIndex).Picture = LoadPicture()
    End If
    Select Case Index
        Case 0
          OneClassImg(Index).Picture = LoadPicture(App.Path + "\Pic\分类歌曲.bmp")
        Case 1
          OneClassImg(Index).Picture = LoadPicture(App.Path + "\Pic\合唱歌曲.bmp")
        Case 2
          OneClassImg(Index).Picture = LoadPicture(App.Path + "\Pic\流行歌曲.bmp")
        Case 3
          OneClassImg(Index).Picture = LoadPicture(App.Path + "\Pic\电影小品.bmp")
    End Select
    OneClassIndex = Index
  End If
End Sub

Private Sub SelectFrme(FrmeIndex As String)
 Select Case FrmeIndex
        Case "分类歌曲"
          GQFLFrme.Visible = True
          HCGQFrme.Visible = False
          LXGBFrme.Visible = False
          DYXPFrme.Visible = False
        Case "合唱歌曲"
          HCGQFrme.Visible = True
          GQFLFrme.Visible = False
          LXGBFrme.Visible = False
          DYXPFrme.Visible = False
        Case "流行歌曲"
          LXGBFrme.Visible = True
          GQFLFrme.Visible = False
          HCGQFrme.Visible = False
          DYXPFrme.Visible = False
        Case "电影小品"
          DYXPFrme.Visible = True
          LXGBFrme.Visible = False
          GQFLFrme.Visible = False
          HCGQFrme.Visible = False
  End Select
End Sub

Private Sub GQListClear()
  SongPage = 0
  PageLab.Caption = Str(SongPage)
  AllPage.Caption = Str(SongPage)
  GQList.ListItems.Clear
End Sub

Public Sub FlgqImg_Click(Index As Integer)
  GQListClear
  Select Case Index
        Case 0
          SelectName.Caption = "国语歌曲"
        Case 1
          SelectName.Caption = "粤语歌曲"
        Case 2
          SelectName.Caption = "台语歌曲"
        Case 3
          SelectName.Caption = "英文歌曲"
        Case 4
          SelectName.Caption = "音乐舞曲"
  End Select
  ListItemShow SelectName.Caption
End Sub

Private Sub FlgqImg_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  If FlgqIndex <> Index Then
    If FlgqIndex <> -1 Then
      FlgqImg(FlgqIndex).Picture = LoadPicture()
    End If
    Select Case Index
        Case 0
          FlgqImg(Index).Picture = LoadPicture(App.Path + "\Pic\国语歌曲.bmp")
        Case 1
          FlgqImg(Index).Picture = LoadPicture(App.Path + "\Pic\粤语歌曲.bmp")
        Case 2
          FlgqImg(Index).Picture = LoadPicture(App.Path + "\Pic\台语歌曲.bmp")
        Case 3
          FlgqImg(Index).Picture = LoadPicture(App.Path + "\Pic\英文歌曲.bmp")
        Case 4
          FlgqImg(Index).Picture = LoadPicture(App.Path + "\Pic\音乐舞曲.bmp")
    End Select
    FlgqIndex = Index
  End If
End Sub

Private Sub HcgqImgs_Click(Index As Integer)
  GQListClear
  Select Case Index
        Case 0
          SelectName.Caption = "国语合唱"
        Case 1
          SelectName.Caption = "粤语合唱"
        Case 2
          SelectName.Caption = "台语合唱"
        Case 3
          SelectName.Caption = "英文合唱"
        Case 4
          SelectName.Caption = "其它合唱"
  End Select
  ListItemShow SelectName.Caption
End Sub

Private Sub HcgqImgs_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  If HcgqIndex <> Index Then
    If HcgqIndex <> -1 Then
      HcgqImgs(HcgqIndex).Picture = LoadPicture()
    End If
    Select Case Index
          Case 0
            HcgqImgs(Index).Picture = LoadPicture(App.Path + "\Pic\国语合唱.bmp")
          Case 1
            HcgqImgs(Index).Picture = LoadPicture(App.Path + "\Pic\粤语合唱.bmp")
          Case 2
            HcgqImgs(Index).Picture = LoadPicture(App.Path + "\Pic\台语合唱.bmp")
          Case 3
            HcgqImgs(Index).Picture = LoadPicture(App.Path + "\Pic\英文合唱.bmp")
          Case 4
            HcgqImgs(Index).Picture = LoadPicture(App.Path + "\Pic\其它合唱.bmp")
    End Select
    HcgqIndex = Index
  End If
End Sub

Private Sub LxgbImgs_Click(Index As Integer)
  GQListClear
  Select Case Index
         Case 0
           SelectName.Caption = "流行独唱"
         Case 1
           SelectName.Caption = "流行合唱"
   End Select
   ListItemShow SelectName.Caption
End Sub

Private Sub LxgbImgs_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  If LxgbIndex <> Index Then
    If LxgbIndex <> -1 Then
      LxgbImgs(LxgbIndex).Picture = LoadPicture()
    End If
    Select Case Index
            Case 0
              LxgbImgs(Index).Picture = LoadPicture(App.Path + "\Pic\流行独唱.bmp")
            Case 1
              LxgbImgs(Index).Picture = LoadPicture(App.Path + "\Pic\流行合唱.bmp")
    End Select
    LxgbIndex = Index
  End If
End Sub

Private Sub DyxpImgs_Click(Index As Integer)
  GQListClear
 Select Case Index
        Case 0
          SelectName.Caption = "精彩电影"
        Case 1
          SelectName.Caption = "相声小品"
  End Select
  ListItemShow SelectName.Caption
End Sub

Private Sub DyxpImgs_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  If DyxpIndex <> Index Then
    If DyxpIndex <> -1 Then
      DyxpImgs(DyxpIndex).Picture = LoadPicture()
    End If
    Select Case Index
        Case 0
          DyxpImgs(Index).Picture = LoadPicture(App.Path + "\Pic\精彩电影.bmp")
        Case 1
          DyxpImgs(Index).Picture = LoadPicture(App.Path + "\Pic\相声小品.bmp")
    End Select
  End If
  DyxpIndex = Index
End Sub

Public Sub ChangeImg_Click()
  If ChangeImg.ToolTipText = "歌星点歌" Then
    StarFrme(0).Visible = True
    StarFrme(1).Visible = True
    ChangeImg.ToolTipText = "已点歌曲"
    StarLbe.Caption = "歌星点歌"
  Else
    StarFrme(0).Visible = False
    StarFrme(1).Visible = False
    ChangeImg.ToolTipText = "歌星点歌"
    StarLbe.Caption = "已点歌曲"
  End If
End Sub

Private Sub ChangeImg_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If ChangeFlag Then
  If ChangeImg.ToolTipText = "歌星点歌" Then
    ChangeImg.Picture = LoadPicture(App.Path + "\Pic\歌星点歌A.bmp")
  Else
    ChangeImg.Picture = LoadPicture(App.Path + "\Pic\已点歌曲.bmp")
  End If
  ChangeFlag = False
End If
End Sub

Private Sub ChangeImg2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Not ChangeFlag Then
  If ChangeImg.ToolTipText = "歌星点歌" Then
    ChangeImg.Picture = LoadPicture(App.Path + "\Pic\歌星点歌.bmp")
  Else
    ChangeImg.Picture = LoadPicture()
  End If
  ChangeFlag = True
End If
End Sub

Private Sub DglbImg_Click(Index As Integer)
 Select Case Index
        Case 0
          EtXzdg.Show 1
        Case 1
          EtZsdb.Show 1
        Case 2
          EtXbdg.Show 1
 End Select
End Sub

Private Sub DglbImg_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  If DglbIndex <> Index Then
    If DglbIndex <> -1 Then
      DglbImg(DglbIndex).Picture = LoadPicture()
    End If
    Select Case Index
            Case 0
              DglbImg(Index).Picture = LoadPicture(App.Path + "\Pic\字数点歌.bmp")
            Case 1
              DglbImg(Index).Picture = LoadPicture(App.Path + "\Pic\字首点歌.bmp")
            Case 2
              DglbImg(Index).Picture = LoadPicture(App.Path + "\Pic\性别点歌.bmp")
    End Select
    DglbIndex = Index
  End If
End Sub

Private Sub Form_Load()
  GQList.ColumnHeaders.Clear
  GQList.ColumnHeaders.Add , , "Record", GQList.Width / 18
  GQList.ColumnHeaders.Add , , "SongName", GQList.Width / 1.35
  GQList.ColumnHeaders.Add , , "StarName", GQList.Width / 1
  GQList.ColumnHeaders.Add , , "FileName"
  GQList.ColumnHeaders.Add , , "ThisYcsd"
  YDGQList.ColumnHeaders.Clear
  YDGQList.ColumnHeaders.Add , , "SongName", YDGQList.Width
  YDGQList.ColumnHeaders.Add , , "ThisYcsd"
  YDGQList.ColumnHeaders.Add , , "FileName"
  YDGQList.ColumnHeaders.Add , , "SongCaption"
  YDGQList.ColumnHeaders.Add , , "SongID"
  StarIndex = 0
  StarCount = 0
  ZmgqIndex = -1
  SelPagIndex = -1
  ToolIndex = -1
  StarPagIndex = -1
  YdgqToolIndex = -1
  DglbIndex = -1
  OneClassIndex = -1
  FlgqIndex = -1
  HcgqIndex = -1
  LxgbIndex = -1
  DyxpIndex = -1
  ChangeFlag = True
  SelectStyle = 0
  BFNameLab.Caption = ThisBFName
  WelMsgLab.Caption = WecomeMessage
  WelMsgLab.Width = Len(WecomeMessage) * 300
  StarPicInit
  OneClassImg_Click 0
  FlgqImg_Click 0
End Sub

Public Sub ListItemShow(SongDB As String, Optional SelectStr As String)
Dim SqlStr As String
Dim i As Integer
  SongPage = 1
  PageLab.Caption = Str(SongPage)
  i = 0
  GQList.ListItems.Clear
  Select Case SongDB
      Case "国语歌曲"