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