点酒水.frm

VOD卡拉OK点歌系统源码

         Width           =   3135
      End
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   240
         MouseIcon       =   "点酒水.frx":CDBD
         MousePointer    =   99  'Custom
         TabIndex        =   11
         Top             =   6720
         Width           =   855
      End
      Begin VB.Label Label2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   1320
         MouseIcon       =   "点酒水.frx":D0C7
         MousePointer    =   99  'Custom
         TabIndex        =   10
         Top             =   6720
         Width           =   735
      End
      Begin VB.Label Label3 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   2160
         MouseIcon       =   "点酒水.frx":D3D1
         MousePointer    =   99  'Custom
         TabIndex        =   9
         Top             =   6720
         Width           =   735
      End
      Begin VB.Label Label4 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   3120
         MouseIcon       =   "点酒水.frx":D6DB
         MousePointer    =   99  'Custom
         TabIndex        =   8
         Top             =   6720
         Width           =   735
      End
      Begin VB.Label Label5 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   3960
         MouseIcon       =   "点酒水.frx":D9E5
         MousePointer    =   99  'Custom
         TabIndex        =   7
         Top             =   6720
         Width           =   735
      End
      Begin VB.Label Label6 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   4920
         MouseIcon       =   "点酒水.frx":DCEF
         MousePointer    =   99  'Custom
         TabIndex        =   6
         Top             =   6720
         Width           =   615
      End
      Begin VB.Label Label7 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   5760
         MouseIcon       =   "点酒水.frx":DFF9
         MousePointer    =   99  'Custom
         TabIndex        =   5
         Top             =   6720
         Width           =   975
      End
      Begin VB.Label Label8 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   6960
         MouseIcon       =   "点酒水.frx":E303
         MousePointer    =   99  'Custom
         TabIndex        =   4
         Top             =   6720
         Width           =   615
      End
      Begin VB.Label Label9 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   7800
         MouseIcon       =   "点酒水.frx":E60D
         MousePointer    =   99  'Custom
         TabIndex        =   3
         Top             =   6720
         Width           =   735
      End
      Begin VB.Label Label10 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   8760
         MouseIcon       =   "点酒水.frx":E917
         MousePointer    =   99  'Custom
         TabIndex        =   2
         Top             =   6720
         Width           =   615
      End
      Begin VB.Label Label11 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   495
         Left            =   5280
         MouseIcon       =   "点酒水.frx":EC21
         MousePointer    =   99  'Custom
         TabIndex        =   1
         Top             =   455
         Width           =   4095
      End
   End
End
Attribute VB_Name = "点酒水"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''Public jsdb As database
''Public jsrs As Recordset
Public jm As String

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case Else

Call pf.pubkey(KeyCode, 点酒水.jm)
End Select
End Sub

Private Sub Form_Load()
Dim FileName As String
Dim aline As String
Dim i As Integer
i = 0
FileName = App.path & "\酒水.txt"
Open FileName For Input As 1
Do While Not EOF(1)
   Line Input #1, aline
   Label12(i).Caption = aline
   i = i + 1
   Loop
Close 1
Set jsdb = OpenDatabase(App.path & "\酒水.mdb")

End Sub

Private Sub Label1_Click()
Call pf.Main
End Sub

Private Sub Label10_Click()
Call pf.volumesub
End Sub

Private Sub Label12_Click(Index As Integer)
pf.jstype = Label12(Index).Caption
Unload 酒水列表
酒水列表.Show
End Sub

Private Sub Label2_Click()
Call pf.chosid("主界面")
End Sub

Private Sub Label3_Click()
Call pf.back(Me.jm)
End Sub

Private Sub Label4_Click()
Call pf.spaly
End Sub
Private Sub Label5_Click()
Call pf.repaly
End Sub

Private Sub Label6_Click()
Call pf.ysong
End Sub

Private Sub Label7_Click()
Call pf.nextsong
End Sub

Private Sub Label8_Click()
Call pf.calls
End Sub

Private Sub Label9_Click()
Call pf.volumeadd
End Sub

Private Sub Picture2_Click()
Call pf.bsong
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
主界面.Show
End If
End Sub

Private Sub 伴唱_Click()
Call pf.bsong
End Sub

Private Sub 暂停_Click()
Call pf.sstop
End Sub