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

Case \

ForceScreenLock PC_NumberA PC_NumberA = 0 Case \

ForceShutDown PC_NumberA Case \

ForceReboot PC_NumberA Case \

ReleaseLock PC_NumberA PC_NumberA = 0 End Select

PC_NumberA = 0 End Sub ' í???êy?Y′|àí

Public Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Params() As String If bytesTotal > 0 Then

On Error GoTo error_proc

Winsock1.GetData strData '?óê?êy?Y ServerDealData strData '?óê?êy?Y′|àí Exit Sub End If error_proc:

If Err.Number = 10054 Then MsgBox \?????á??ó\ MsgBox Err.Description End Sub

五、窗体5代码

Private Sub Form_Load()

datPrimaryRS.ConnectionString = concn datPrimaryRS.CommandType = adCmdTable datPrimaryRS.RecordSource = \datPrimaryRS.Refresh End Sub

Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) '′í?ó′|àí3ìDò′ú????óú′?′| '??òao???′í?ó￡?×￠êíμ???ò?DD '??òa2????ü??￡??ú′?ìí?ó′ú??ò?′|àí?ü??

MsgBox \End Sub

Private Sub Form_Resize() On Error Resume Next 'μ±′°ì?μ÷??ê±?áμ÷??í???

grdDataGrid.Width = Me.ScaleWidth

grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 30 - picButtons.Height End Sub

Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault End Sub

Private Sub cmdAdd_Click() On Error GoTo AddErr

datPrimaryRS.Recordset.AddNew Exit Sub AddErr:

MsgBox Err.Description End Sub

Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext

If .EOF Then .MoveLast End With

MsgBox \?3y3é1|\

Exit Sub DeleteErr:

MsgBox Err.Description End Sub

Private Sub cmdUpdate_Click() On Error GoTo UpdateErr

datPrimaryRS.Recordset.UpdateBatch adAffectAll MsgBox \üD?3é1|\ Exit Sub UpdateErr:

MsgBox Err.Description End Sub

Private Sub cmdClose_Click() Unload Me End Sub

四、窗体4代码

Private Sub Form_Load()

datPrimaryRS.ConnectionString = \Source=\& App.Path & \ datPrimaryRS.CommandType = adCmdTable datPrimaryRS.RecordSource = \datPrimaryRS.Refresh End Sub

Private Sub Form_Resize() On Error Resume Next 'μ±′°ì?μ÷??ê±?áμ÷??í???

grdDataGrid.Width = Me.ScaleWidth

grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 30 - picButtons.Height End Sub

Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault End Sub

Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) '′í?ó′|àí3ìDò′ú????óú′?′| '??òao???′í?ó￡?×￠êíμ???ò?DD '??òa2????ü??￡??ú′?ìí?ó′ú??ò?′|àí?ü?? MsgBox \End Sub

Private Sub cmdAdd_Click() On Error GoTo AddErr

datPrimaryRS.Recordset.AddNew Exit Sub AddErr:

MsgBox Err.Description End Sub

Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext

If .EOF Then .MoveLast End With Exit Sub DeleteErr:

MsgBox Err.Description End Sub

Private Sub cmdUpdate_Click() On Error GoTo UpdateErr

datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr:

MsgBox Err.Description End Sub

Private Sub cmdClose_Click() Unload Me End Sub

六、窗体6代码

Private Sub CmdEnter1_Click() frmMember.Show vbModal End Sub

Private Sub CmdEnter2_Click() frmSetpwd.Show vbModal End Sub

Private Sub CmdOnline_Click() frmOnline.Show vbModal End Sub

Private Sub Command1_Click() frmsetprice.Show vbModal End Sub

Private Sub Command2_Click() frmHistory.Show vbModal End Sub