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

Unload Me Exit Sub

error_proc:

MsgBox Err.Description, vbCritical, \?\ Unload Me End Sub

Private Sub cmdvipexit_Click() Unload Me End Sub

Private Sub cmdvipcounter_Click() Dim Gdiscount As Double Dim cn As ADODB.Connection Dim i As Integer

Dim rst As ADODB.Recordset Dim strsql As String Dim uprice As Double Set cn = New Connection

Set rst = New ADODB.Recordset cn.Open concn

frmManager.Adodc1.Recordset!endtime = Now()

Gdiscount = frmMember.datPrimaryRS.Recordset![DISCOUNT] '?á?±μ????§é?μ??e??

txtvipmoney.Text = frmManager.Adodc1.Recordset!Time * frmManager.Adodc1.Recordset![uprice] * Gdiscount

strsql = \into history (pcid,starttime,endtime,pay,userid) values (\& frmManager.Adodc1.Recordset![Mid] & \& frmManager.Adodc1.Recordset!stime & \& frmManager.Adodc1.Recordset!endtime & \& txtvipmoney.Text & \& frmManager.Adodc1.Recordset!userID & \ cn.Execute strsql

'?üD?MEMBER±í

strsql = \member set countNum=countNum+1,TOTALTIME=TOTALTIME+\& frmManager.Adodc1.Recordset!Time & \ WHERE userid=\ cn.Execute strsql '2é3?ó??§óà??

strsql = \\

rst.Open strsql, cn, adOpenDynamic, adLockOptimistic If rst.BOF And rst.EOF Then MsgBox \ Exit Sub

End If

uprice = rst(\ If uprice < 0 Then MsgBox \§\& frmManager.Adodc1.Recordset![userID] & \?··?\& (-uprice) & \\

End If strsql = \pc set mstate=0,stime=0,jstate=\′??·?\frmManager.Adodc1.Recordset![Mid] On Error GoTo error_proc

cn.Execute strsql rst.Close

Set rst = Nothing cn.Close

Set cn = Nothing

frmManager.Refresh 'ê1êy?Yí?2???ê? MsgBox \á?±ê?·?3é1|\ Unload Me Exit Sub error_proc:

MsgBox Err.Description, vbCritical, \?\ Unload Me End Sub

Private Sub Form_Load() '′óêy?Y?a?D??è?é?í?ê±??

If IsNull(frmManager.Adodc1.Recordset![Time]) = False Then '×￠òa2??üó??a??D?ê??3?μ txttime.Text=txtviptime.Text = frmManager.Adodc1.Recordset![Time] & \ '??ê?é?í?ó|???e?? If (frmManager.Adodc1.Recordset![userID] = \Or (IsNull(frmManager.Adodc1.Recordset![userID])) Then frmCounter.SSTab1.Tab = 0

txttime.Text = frmManager.Adodc1.Recordset![Time] & \

txtmoney.Text = frmManager.Adodc1.Recordset!Time * frmManager.Adodc1.Recordset!uprice & \

frmCounter.cmdvipcounter.Visible = False Else

frmCounter.SSTab1.Tab = 1

txtviptime.Text = frmManager.Adodc1.Recordset![Time] & \

txtvipmoney.Text = frmManager.Adodc1.Recordset!Time * frmManager.Adodc1.Recordset!uprice

& \

frmCounter.cmdcounter.Visible = False End If Else

MsgBox \?í?ê±???aá?\End If

End Sub

二、窗体2代码

Option Explicit

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.Height = Me.ScaleHeight - 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 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 cmdClose_Click() Unload Me End Sub

三、窗体3代码

Option Explicit

Private Sub cmdok_Click() If txtHour.Text = \ MsgBox \μ?ê±??ê?è?2??ü?a??,????ê?!\ txtHour.Text = \ txtHour.SetFocus Else

frmManager.Adodc1.Recordset!mstate = 1

frmManager.Adodc1.Recordset![lTime] = txtHour.Text frmManager.Adodc1.Recordset![stime] = Now() frmManager.Adodc1.Recordset![jstate] = \??D\ frmManager.Adodc1.Recordset.Save Unload Me End If End Sub

Private Sub cmdcancel_Click() Unload Me End Sub

Private Sub Form_Load()

' Dim cn As ADODB.Connection ' Dim rst As ADODB.Recordset ' Set cn = New Connection

' Set rst = New ADODB.Recordset ' cn.Open concn End Sub

四、窗体4代码