美容院管理系统论文

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

Pr