发布时间 : 星期四 文章数据库课程设计网吧管理系统更新完毕开始阅读d3d875561cd9ad51f01dc281e53a580217fc504f
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