图6-3 前台管理界面
2. 该模块实现代码
Private Sub Combo2_Click() On Error Resume Next
rst.Open \项目名称='\'\
If rst.RecordCount = 0 Then
MsgBox \没有要查询的记录！\提示\ rst.Close Exit Sub End If
Text4(0).Text = rst.Fields(\项目编号\ Text4(1).Text = rst.Fields(\价格\ Text4(2).Text = rst.Fields(\会员打折\rst.Close End Sub
Private Sub Command1_Click() On Error Resume Next
If Text1(0).Text = \ MsgBox \请将选择会员！\提示\
Exit Sub End If
If Text9.Text = \ MsgBox \请将信息填写完整\提示\ Exit Sub End If
rst.Open \ rst.AddNew
rst.Fields(\收费员\ rst.Fields(\总费用\ rst.Fields(\消费项目\ rst.Fields(\会员编号\ rst.Fields(\会员姓名\ rst.Fields(\收费时间\ rst.Update rst.Close
rst.Open \会员编号='\Cnn, adOpenKeyset, adLockOptimistic
rst.Fields(\消费总额\消费总额\ rst.Update rst.Close
MsgBox \收费成功成功！\提示\
Text5.Text = \End Sub
Private Sub Command2_Click() If Text5 = \
MsgBox \缺少必要收费字段，请查证！\提示\ Exit Sub End If
Text9.Text = Val(Text4(1)) * Val(Text5) / 10 End Sub
Private Sub Command3_Click() On Error Resume Next If Combo1.Text = \
MsgBox \请选择要查询的字段！\提示\ Combo1.SetFocus Exit Sub End If
If Text2.Text = \
MsgBox \请输入要查询的条件！\提示\ Text2.SetFocus Exit Sub End If
If Combo1.Text = \会员编号\
rst.Open \* From huiyuan where 会员编号='\+ Trim(Text2.Text) + \
If rst.RecordCount = 0 Then
MsgBox \没有要查询的记录！\提示\ rst.Close Exit Sub End If
Text1(0).Text = rst.Fields(\会员编号\ Text1(1).Text = rst.Fields(\会员名称\ Text1(2).Text = rst.Fields(\电话\ Combo3.Text = rst.Fields(\性别\ Text1(3).Text = rst.Fields(\消费总额\ Text1(4).Text = rst.Fields(\家庭住址\
'-------------------------------------------检查会员等级 If Val(rst.Fields(\消费总额\ Text3.Text = \初级会员\
ElseIf Val(rst.Fields(\消费总额\消费总额\
Text3.Text = \普通会员\
ElseIf Val(rst.Fields(\消费总额\消费总额\
Text3.Text = \高级会员\
ElseIf Val(rst.Fields(\消费总额\ Text3.Text = \特级会员\
End If rst.Close
ElseIf Combo1.Text = \会员名称\
rst.Open \* From huiyuan where 会员名称='\+ Trim(Text2.Text) + \
If rst.RecordCount = 0 Then
MsgBox \没有要查询的记录！\提示\ rst.Close Exit Sub End If
Text1(0).Text = rst.Fields(\会员编号\ Text1(1).Text = rst.Fields(\会员姓名\ Text1(2).Text = rst.Fields(\电话\ Combo3.Text = rst.Fields(\性别\ Text1(3).Text = rst.Fields(\消费总额\ Text1(4).Text = rst.Fields(\家庭地址\
'-------------------------------------------检查会员等级 If Val(rst.Fields(\消费总额\ Text3.Text = \初级会员\
ElseIf Val(rst.Fields(\消费总额\消费总额\
Text3.Text = \普通会员\
ElseIf Val(rst.Fields(\消费总额\消费总额\
Text3.Text = \高级会员\
ElseIf Val(rst.Fields(\消费总额\ Text3.Text = \特级会员\ End If rst.Close Else
MsgBox \请选择要查询的正确字段！\提示\End If End Sub
Private Sub Command4_Click()