getType = rst.Fields(\权限\ MDIFrmmain.Show

Unload Me '验证权限 Else

MsgBox \密码不正确，请查证！\警告！\ sum = sum + 1 If sum = 3 Then

MsgBox \看样子你不是合法的用户，请你离开。\\

End End If End If End If rst.Close End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load() X0 = Screen.Width Y0 = Screen.Height X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0

Set Cnn = New ADODB.Connection Cnn.ConnectionString

=

\

Source=\

Cnn.ConnectionTimeout = 30 Cnn.Open End Sub

6.2 系统主界面实现

系统主界面是系统所有功能的大容器，通过主界面可以进入任何模块进行操作，界面截图及相关代码如下： 1. 系统主界面

图6-2 系统主界面

2. 实现代码

Private Sub about_Click() Frmabout.Show End Sub

Private Sub button_ButtonClick(ByVal button As MSComctlLib.button) Select Case button Case \提前预约\ Frmyuyue.Show Case \前台收银\

Frmqiantai.Show Case \商品管理\ Frmshangpin.Show Case \会员管理\ Frmhuiyuan.Show Case \员工考勤\ Frmygkq.Show Case \服务项目\ Frmfwxm.Show Case \员工管理\ Frmygjb.Show Case \用户管理\ Frmyonghu.Show Case \关于\ Frmabout.Show Case \退出\

i = MsgBox(\是否确定退出系统！\提示\ If i = vbNo Then Exit Sub End End Select End Sub

Private Sub cxdl_Click() Frmlogin.Show Unload Me End Sub

Private Sub fuwuxiangmu_Click() Frmfwxm.Show End Sub

Private Sub huiyuan_Click() Frmhuiyuan.Show End Sub

Private Sub MDIForm_Load()

Me.Caption = \美容院管理系统------用户：\ 类型：\End Sub

Private Sub qtsy_Click() Frmqiantai.Show End Sub

Private Sub shangpin_Click() Frmshangpin.Show End Sub

Private Sub tiqianyy_Click() Frmyuyue.Show End Sub

Private Sub tuichu_Click()

i = MsgBox(\是否确定退出系统！\提示\If i = vbNo Then Exit Sub End End Sub

Private Sub yggz_Click() Frmyggz.Show End Sub

Private Sub ygjbxx_Click() Frmygjb.Show End Sub

Private Sub ygkq_Click() Frmygkq.Show End Sub

Private Sub yonghu_Click() Frmyonghu.Show End Sub

6.3 前台管理管理模块

客户前台管理实现客户消费的登记、结账、账单等方面的设计，是系统的核心内容，其实现界面及代码如下： 1. 前台管理界面