数据库课程设计网吧管理系统

Option Explicit

Public blnReceived As Boolean

Public blnOnlineOK As Boolean '?D??ê?·??ú?? Public strData As String

Private Sub DataGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '°′??óò?ü￡?μˉ3?2?μ￥

If Button = 2 Then PopupMenu mnupopup End Sub

Private Sub Form_Activate() 'ò??¤???í???á??μ??D??

datagrid1.Left = (Me.ScaleWidth - datagrid1.Width) / 2 End Sub

Private Sub Form_Load() 'êy?Yá??ó3?ê??ˉ

Adodc1.ConnectionString = concn Adodc1.CommandType = adCmdTable Adodc1.RecordSource = \ Adodc1.Refresh

Call DisableX(Me) '??ó?1?±?′°ì? Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String

Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open concn

sql = \ rs.Open sql, cn, adOpenKeyset rs.MoveNext rs.MoveFirst

glngClientNum = rs.RecordCount

ReDim gstrClientIP(glngClientNum - 1) While Not rs.EOF

gstrClientIP(rs(\ rs.MoveNext

Wend rs.Close

Set rs = Nothing cn.Close

Set cn = Nothing With Winsock1

.Protocol = sckUDPProtocol

.RemoteHost = gstrClientIP(glngClientNum - 1) .RemotePort = 4001 .LocalPort = 4002

End With

blnReceived = False blnOnlineOK = False Timer3.Enabled = False Exit Sub

Label1.Caption = \μ??μí3éè??--?·ìí?óDT???í?§??ip,??D?DT??￡?·?·¨μ??????ú±ào?\ Label1.Visible = True End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnupopup End Sub

Private Sub Form_Resize()

datagrid1.Left = (Me.ScaleWidth - datagrid1.Width) / 2 End Sub

Private Sub Form_Unload(Cancel As Integer) Dim Frm As Form

For Each Frm In Forms Unload Frm

Set Frm = Nothing Next Frm End Sub

Private Sub mnuExit_Click() End End Sub

Private Sub mnuLimittime_Click() frmLimittime.Show 1 'μ÷ó??Tê±′°ì? End Sub

Private Sub mnuLock_Click() If MsgBox(\?·?òaí?3?2￠í￡?1??·?￡?\ frmCounter.Show 1 'μ÷ó?frmCounter ′°ì? End If End Sub

Private Sub mnusystem_Click() frmSystem.Show vbModal End Sub

Private Sub mnuTiming_Click() frmTiming.Show 1 'μ÷ó???ê±′°ì? End Sub

Private Sub Timer1_Timer()

Dim cn As ADODB.Connection Dim rst As ADODB.Recordset Dim strsql As String Dim i As Integer Dim A As String

A = Adodc1.Recordset![jstate] = \??D\ Set cn = New Connection

Set rst = New ADODB.Recordset cn.Open concn

strsql = \pc set [time]=format((DateDiff(\+(Minute(now())-Minute(stime))/60), \ where jstate=\??D\ cn.Execute strsql

i = Adodc1.Recordset.AbsolutePosition Adodc1.Refresh

rst.CursorLocation = adUseClient

strsql = \??D\ rst.Open strsql, cn, adOpenDynamic, adLockOptimistic If rst.RecordCount > 0 Then rst.MoveFirst

While Not rst.EOF rst![jstate] = \′??·?\ rst.Update

MsgBox (\ú[\??ú?÷?Tê±ò?μ?\ rst.MoveNext Wend End If

Adodc1.Recordset.AbsolutePosition = i End Sub

Private Sub Timer3_Timer() '???ùóDμ??ú???ú?÷μ?3?ê±??êy?óò? Dim cn As ADODB.Connection Dim rst As ADODB.Recordset Dim strsql As String

Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.Open concn

strsql = \ rst.Open strsql, cn

If rst.BOF And rst.EOF Then Exit Sub End If

While Not rst.EOF

AddTimeOut rst(\ rst.MoveNext Wend End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Dim PC_NumberA As Integer Dim cn As ADODB.Connection Dim i As Integer

Dim rst As ADODB.Recordset Set cn = New Connection

Set rst = New ADODB.Recordset cn.Open concn

frmManager.datagrid1.Row = frmManager.datagrid1.Row frmManager.datagrid1.Col = 0

PC_Number1 = frmManager.datagrid1.Text PC_NumberA = CInt(PC_Number1) Select Case Button.Key Case \

Case \ frmTiming.Show Case \ frmLimittime.Show