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