VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm main 
   BackColor       =   &H8000000C&
   Caption         =   "語音聊天室管理系統"
   ClientHeight    =   5700
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   7800
   Icon            =   "main.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   Begin ComctlLib.Toolbar Toolbar 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7800
      _ExtentX        =   13758
      _ExtentY        =   741
      ButtonWidth     =   635
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   4
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   ""
            Key             =   ""
            Description     =   ""
            Object.ToolTipText     =   "開始服務"
            Object.Tag             =   ""
            ImageIndex      =   1
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   ""
            Key             =   ""
            Description     =   ""
            Object.ToolTipText     =   "暫停服務"
            Object.Tag             =   ""
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   ""
            Key             =   ""
            Description     =   ""
            Object.ToolTipText     =   "關閉服務"
            Object.Tag             =   ""
            ImageIndex      =   3
         EndProperty
      EndProperty
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   1
      Top             =   5445
      Width           =   7800
      _ExtentX        =   13758
      _ExtentY        =   450
      Style           =   1
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   1
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Timer refresh_time 
      Interval        =   60000
      Left            =   3480
      Top             =   3240
   End
   Begin MSWinsockLib.Winsock sckServer 
      Index           =   0
      Left            =   3120
      Top             =   3240
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin MSWinsockLib.Winsock sckListen 
      Left            =   2760
      Top             =   3240
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin ComctlLib.ImageList ImageList 
      Left            =   2160
      Top             =   3120
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   3
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":014A
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":04E4
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":087E
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu menu_system 
      Caption         =   "系統(&S)"
      Begin VB.Menu menu_system_room 
         Caption         =   "房間設置"
         Shortcut        =   ^R
      End
      Begin VB.Menu menu_system_temp1 
         Caption         =   "-"
      End
      Begin VB.Menu menu_system_exit 
         Caption         =   " 退  出 "
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu menu_manage 
      Caption         =   "管理(&M)"
      Begin VB.Menu menu_manage_user 
         Caption         =   "用戶管理"
         Shortcut        =   ^U
      End
      Begin VB.Menu menu_manage_active 
         Caption         =   "在線管理"
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu menu_about 
      Caption         =   "關于(&A)"
      Begin VB.Menu menu_about_about 
         Caption         =   "關于"
         Shortcut        =   ^B
      End
      Begin VB.Menu menu_about_help 
         Caption         =   "幫助"
         Shortcut        =   ^H
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Load()
   Dim NowTime As Date
   NowTime = "2002-11-18"
   If DateDiff("d", NowTime, Date) > 10 Then
       MsgBox "測試期已過", vbOKOnly, "提示"
       End
    End If
   Call ConnectDataBase(db_host, db_name, db_user, db_pass)
   Call InitRoom
   Call start_server
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   If MsgBox("確認退出系統嗎？", vbOKCancel, "提示") = vbOK Then
       End
   Else
      Cancel = -1
   End If
End Sub

Private Sub menu_manage_active_Click()
  active.Show
End Sub

Private Sub menu_manage_user_Click()
   user_setup.Show
  End Sub


Private Sub menu_system_exit_Click()
   Unload Me
End Sub

Private Sub menu_system_room_Click()
  room_setup.Show
End Sub

Private Sub refresh_time_Timer()
   StatusBar1.SimpleText = Now()
   Call CloseAllMic
End Sub

Private Sub Toolbar_ButtonClick(ByVal Button As ComctlLib.Button)
  Select Case Button.index
     Case 2
       Call start_server
    Case 3
       Call pause_server
    Case 4
       Call stop_server
  End Select
End Sub

Private Sub sckListen_ConnectionRequest(ByVal requestID As Long) '決定由哪一Winsock接受請求
  Dim i As Integer
  For i = 0 To sckServer.Count - 1
   If sckServer(i).State = 0 Then
    sckServer(i).Accept requestID
    Exit Sub
    Exit For
   End If
  Next i
  Load sckServer(sckServer.Count)
  sckServer(sckServer.Count - 1).Accept requestID
End Sub

Private Sub sckListen_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  Call start_server
End Sub

Private Sub sckServer_Close(index As Integer)
 Call UserLogout(index)
End Sub

Private Sub sckServer_DataArrival(index As Integer, ByVal bytesTotal As Long)
  Dim s As Variant
  Dim i As Integer
  sckServer(index).GetData s
  If bytesTotal <= 60 Then
      Call ProcessData(s, index)
      Exit Sub
    Else
        If Len(s) <> 162 And Len(s) <> 325 Then Exit Sub
        For i = 0 To sckServer.Count - 1 Step 1
         If sckServer(i).State = 7 And index <> i And User_info(index).RoomID = User_info(i).RoomID Then
             sckServer(i).SendData s
             DoEvents
         End If
        Next i
    End If
End Sub


Private Sub sckServer_Error(index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  sckServer(index).Close
End Sub