tvsong.frm

广播级有线电视台MTV互动点播系统

      GqMc(Jsq).Caption = ""
   '===设置选择内容的标签为不可见=======
      GqMc(Jsq).Visible = False
   '===设置选择内容的标签的字体颜色为深蓝色=======
      GqMc(Jsq).ForeColor = &HFF0000
   Next Jsq
   '====每屏限时操作的秒数重计====
   Mp = MpTime
End Sub

'===输入祝福语密码的Timer=============
Private Sub ZfyTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
Dim Ll As String, Bh
Dim ZfyRst As Recordset
'===用户是否挂机,判断总限时或每屏限时是否已到=
   If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
       TV_Exit
'===用户是否按键=====
     ElseIf ZjBZ = 1 And Flag = 0 Then
       If InStr("1234567890*#", Ajz) > 0 Then
             Select Case Ajz
                Case "*"  '===如果按了"*"号键,直接跳到普通点歌=====
                '===禁用输入祝福语密码的时间控件=====
                    ZfyTimer.Enabled = False
                '===把游飞字幕的内容设定为系统默认值=====
                    YfZm = YfZm0
                '===设定清屏的图片=====
                    sOption = "GqLb"
                '===启动清屏动画=====
                    Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
                '===启动选择歌曲类别的窗体=====
                    Call Load_GqLb
                '===启用选择歌曲类别的时间控件=====
                    GqLbTimer.Enabled = True
                '===输入祝福语密码的标签不可见=====
                    lZfy.Visible = False
                Case "#"  '===如果按了"#"号键,确认此祝福语密码和内容是否存在==
                '===如果用户确认密码,读出来====
                    Bh = Trim(lZfy.Caption)
                '===检索祝福语密码是否存在=====
                    Set ZfyRst = DB.OpenRecordset("select * from zfy where bh='" + Bh + "'")
                    If Not ZfyRst.EOF Then '===祝福语密码如果存在=====
                    '===禁用输入祝福语密码的时间控件=====
                        ZfyTimer.Enabled = False
                    '===读出祝福语内容=====
                        YfZm = ZfyRst("zfy")
                    '===删除该条记录=====
                        ZfyRst.Delete
                    '===释放祝福语记录集的变量=====
                        Set ZfyRst = Nothing
                    '===设定清屏的图片=====
                        sOption = "GqLb"
                    '===启动清屏动画=====
                        Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
                    '===启动选择歌曲类别的窗体=====
                        Call Load_GqLb
                    '===启用选择歌曲类别的时间控件=====
                        GqLbTimer.Enabled = True
                    '===输入祝福语密码的标签不可见=====
                        lZfy.Visible = False
                      Else '===祝福语密码不存在=====
                    '===禁用输入祝福语密码的时间控件=====
                        ZfyTimer.Enabled = False
                    '===设定清屏的图片=====
                        sOption = "Zfy"
                    '===启动清屏动画=====
                        Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
                    '===启动输入祝福语密码的窗体=====
                        Call Load_Zfy
                    '===启用输入祝福语密码的时间控件=====
                        ZfyTimer.Enabled = True
                    End If
                Case Else  '===如果按了"01234567890"号键=====
                    If Len(Trim(lZfy.Caption)) <= 3 Then lZfy.Caption = Trim(lZfy.Caption) + Ajz
             End Select
       End If
     Else
      Flag = 0
   End If
   '===清空按键值=======
   Ajz = " "
End Sub

'=========选择歌曲类别============================
Private Sub Load_GqLb()
'===遇到错误执行下一句===
On Error Resume Next
   Dim Jsq, Start$
'===显示选择结果的的标签不可见,并且清空=====
   XS_Caption.Visible = False
   XS_Caption = ""
'===显示选择页数比例的的标签不可见,并且清空=====
   BL.Visible = False
   BL.Caption = ""
   For Jsq = 0 To 8
   '===设置选择内容的标签为空=======
      GqMc(Jsq).Caption = ""
   '===设置选择内容的标签为不可见=======
      GqMc(Jsq).Visible = False
   '===设置选择内容的标签的字体颜色为深蓝色=======
      GqMc(Jsq).ForeColor = &HFF0000
   Next Jsq
'===读取歌曲类别=============
   Open App.Path + "\SONGTYPE.CFG" For Input As #2
'===计数器清零=====
   Jsq = 0
   While Not EOF(2) And Jsq <= 6
   'If (Time$ >= "08:00:00" And Jsq <> 6) Or Time$ < "08:00:00" Then
      Input #2, Start$
   '===设置选择内容的标签的字体颜色为深蓝色=======
      GqMc(Jsq).ForeColor = &HFF0000
   '===设置选择标签的内容=======
      GqMc(Jsq).Caption = Trim(Start$)
   '===设置选择标签为可见=======
      GqMc(Jsq).Visible = True
   'End If
   '===计数器 + 1 =======
      Jsq = Jsq + 1
   Wend
   Close #2
'===启用选择歌曲类别的时间控件=====
   GqLbTimer.Enabled = True
'====每屏限时操作的秒数重计====
   Mp = MpTime
End Sub

Private Sub GqLbTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
'===设定清屏的图片=====
sOption = "GqLb"
'===用户是否挂机,判断总限时或每屏限时是否已到================
   If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
       TV_Exit
'==============用户是否按键==============================
     ElseIf ZjBZ = 1 And Flag = 0 Then
       If InStr("12345670", Ajz) > 0 Then
          Select Case Ajz
             Case "0"
             '===禁用选择歌曲类别的时间控件=====
                 GqLbTimer.Enabled = False
             '===启动选择点歌类别的窗体=====
                 Call Load_Csh
             '===启用选择点歌类别的时间控件=====
                 CshTimer.Enabled = True
             Case Else
             '===设定清屏的图片=====
                 sOption = "GqLb"
             '===禁用选择歌曲类别的时间控件=====
                 GqLbTimer.Enabled = False
             '===接受用户的按键选择===
                 GqMc_Click (Ajz - 1)
          End Select
       End If
     Else
      Flag = 0
   End If
   '===清空按键值=======
   Ajz = " "
End Sub

'=========选择原唱歌手============================
Private Sub Load_XzGs()
'===遇到错误执行下一句===
On Error Resume Next
Dim i
If Flag = 1 Then
   Flag = 0
'===显示选择结果的的标签清空,并重新符值=====
   XS_Caption.Caption = ""
   XS_Caption.Caption = GqLb
'===显示选择页数比例的的标签可见,并且清空=====
   BL.Visible = True
   BL.Caption = ""
   For i = 0 To 8
       DoEvents
       If Not RmRsT.EOF Then  '===如果有记录====
       '===读取歌手姓名,并且排序=====
           GqMc(i).Caption = Trim(Str(i + 1)) + "." + Trim(RmRsT("rm"))
           GqMc(i).Visible = True
       '===设定标签的字体颜色为深蓝色====
           GqMc(i).ForeColor = &HFF0000
       '===歌手总数 + 1 =====
           RmUser = RmUser + 1
       '===记录指针移到下一条记录=====
           RmRsT.MoveNext
         Else  '===如果已经没有记录了===
           GqMc(i).Visible = False
       End If
   Next i
   BL.Caption = TV_BL(RmUser, RmZong)
'===启用选择歌手的时间控件=====
   XzGsTimer.Enabled = True
End If
'====每屏限时操作的秒数重计====
   Mp = MpTime
End Sub

Private Sub XzGsTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
Dim kk
'===设定清屏的图片=====
sOption = "XzGs"
'===用户是否挂机,判断总限时或每屏限时是否已到================
   If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
       TV_Exit
'==============用户是否按键==============================
     ElseIf ZjBZ = 1 And Flag = 0 Then
       If InStr("0123456789*#", Ajz) > 0 Then
          Select Case Ajz
            Case "0"
            '===设定清屏的图片=====
                sOption = "GqLb"
            '===禁用选择歌手的时间控件=====
                XzGsTimer.Enabled = False
            '===启动清屏动画=====
                Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
            '===启动选择歌曲类别的窗体=====
                Call Load_GqLb
            Case "*"
                If RmUser > 9 Then
                   For kk = (Val(Mid(BL.Caption, 1, InStr(BL.Caption, "/") - 1)) - 2) * 9 To RmUser - 1
                       DoEvents
                   '===歌手总数 - 1 =====
                       RmUser = RmUser - 1
                   '===记录指针移到上一条记录===
                       RmRsT.MovePrevious
                   Next kk
                   Flag = 1
               '===启动清屏动画=====
                   Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
               '===启动选择歌手的窗体=====
                   Call Load_XzGs
                End If
            Case "#"
                If RmZong > RmUser Then
                   Flag = 1
                '===启动清屏动画=====
                   Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
                '===启动选择歌手的窗体=====
                   Call Load_XzGs
                End If
            Case Else
            '===设定清屏的图片=====
                sOption = "XzGs"
            '===禁用选择歌手的时间控件=====
                XzGsTimer.Enabled = False
            '===接受用户的按键选择===
                GqMc_Click (Ajz - 1)
          End Select
       End If
     Else
       '===启动选择歌手的窗体=====
       Call Load_XzGs
       Flag = 0
   End If
   '===清空按键值=======
   Ajz = " "
End Sub

'=========选择播放歌曲============================
Private Sub Load_XzGq()
'===遇到错误执行下一句===
On Error Resume Next
Dim i
'===显示选择页数的的标签清空=====
   BL.Visible = True
   BL.Caption = ""
'===可选择的按键的变量清空=====
   KxAJZ = ""
'===显示选择结果的的标签清空,并重新符值=====
   XS_Caption.Caption = ""
   XS_Caption = GsXm
   For i = 0 To 8
       DoEvents
       If Not GmRsT.EOF Then  '===如果歌曲存在====
        '===可选择的按键的变量清空=====
            KxAJZ = KxAJZ + Trim(CStr(i + 1))
        '===读取歌曲名称,并且排序====
            GqMc(i).Caption = Trim(Str(i + 1)) + "." + Trim(GmRsT("gm"))
        '===选择标签可见===
            GqMc(i).Visible = True
        '===选择标签的字体颜色为深蓝色===
            GqMc(i).ForeColor = &HFF0000
        '===歌曲总数 + 1 ===
            GmUser = GmUser + 1
        '===记录指针移到下一条记录===
            GmRsT.MoveNext
          Else  '===如果歌曲不存在===
        '===选择标签不可见===
            GqMc(i).Visible = False
       End If
   Next i
'===显示选择页数的的标签重新付值=====
   BL.Visible = True
   BL.Caption = TV_BL(GmUser, GmZong)
'===累计可按键的字串=====
   KxAJZ = KxAJZ + "0*#"
'===启用选择歌曲的时间控件=====
   XzGqTimer.Enabled = True
'====每屏限时操作的秒数重计====
   Mp = MpTime
End Sub

Private Sub XzGqTimer_Timer()
'===遇到错误执行下一句===
On Error Resume Next
Dim kk
'===设定清屏的图片=====
sOption = "XzGq"
'===用户是否挂机,判断总限时或每屏限时是否已到================
   If Ajz = "S" Or Max <= 1 Or Mp <= 1 Then
       TV_Exit
'==============用户是否按键==============================
     ElseIf ZjBZ = 1 And Flag = 0 Then
       If InStr(KxAJZ, Ajz) > 0 Then
             Select Case Ajz
                Case "0"
                '===设定清屏的图片=====
                    sOption = "XzGs"
                '===禁用选择歌曲的时间控件=====
                    XzGqTimer.Enabled = False
                    'If GqLb1 = "7" Then
                    '   Set RmRsT = DB.OpenRecordset("select distinct rm from TV_Song.Dat where val(djs)>50 and gqlb1<>'1' order by rm ")
                    '  Else
                       Set RmRsT = DB.OpenRecordset("select distinct rm from Tv_Song.Dat where gqlb1='" + GqLb1 + "' order by rm ")
                    'End If
                    If Not RmRsT.EOF Then
                        If RmUser > 9 Then
                            For kk = 0 To Fix((RmUser - 1) / 9) * 9 - 1
                               DoEvents
                           '===记录指针移到下一条记录===
                               RmRsT.MoveNext
                            Next kk
                           '===重新计算歌手总数====
                            RmUser = Fix((RmUser - 1) / 9) * 9
                          Else
                          '===歌手总数清零===
                            RmUser = 0
                        End If
                        Flag = 1
                    '===启动清屏动画=====
                        Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
                    '===启动选择歌手的窗体=====
                        Call Load_XzGs
                      Else
                    '===启用选择歌曲的时间控件=====
                        XzGqTimer.Enabled = True
                    End If
                Case "*"
                    If GmUser > 9 Then
                       For kk = (Val(Mid(BL.Caption, 1, InStr(BL.Caption, "/") - 1)) - 2) * 9 To GmUser - 1
                           DoEvents
                       '===歌曲总数 - 1 ====
                           GmUser = GmUser - 1
                       '===记录指针移到上一条记录===
                           GmRsT.MovePrevious
                       Next kk
                   '===启动清屏动画=====
                       Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
                   '===启动选择歌曲的窗体=====
                       Call Load_XzGq
                    End If
                Case "#"
                    If GmZong > GmUser Then
                    '===启动清屏动画=====
                       Call DH(Int(ZsDh * Rnd + 1), sOption, BJ)
                    '===启动选择歌曲的窗体=====
                       Call Load_XzGq
                    End If
                Case Else
                '===禁用选择歌曲的时间控件=====
                    XzGqTimer.Enabled = False
                '===接受用户的按键选择===
                    GqMc_Click (Ajz - 1)
             End Select
       End If
     Else
       Flag = 0
    '===启动选择歌曲的窗体=====
       Call Load_XzGq
   End If
   '===清空按键值=======
   Ajz = " "
End Sub