access数据库应用技术健身中心会员管理系统

access数据库应用技术健身中心会员管理系统内容摘要：

员密码 文本 5 性别 文本 8 联系电话 文本 16 备注 备注 卡种 表： 字段名称 类型 宽度 小数位 年度 文本 16 卡种 文本 20 所属 文本 5 时限 文本 8 项目 文本 16 主管教练 文本 8 备注 备注 交费 表： 字段名称 类型 宽度 小数位 卡号 文本 5 年度 文本 50 交费 货币 自动 欠费 货币 自动 日期 日期 /时间 操作员 文本 10 会员信息 表： 字段名称 类型 宽度 小数位 卡号 文本 9 姓名 文本 8 性别 文本 2 卡种 文本 10 出生年月 日期 /时间 家庭住址 文本 30 邮政编码 数字（长整型） 联系电话 数字（长整型） 注册时间 日期 /时间 备注 备注 学费表： 字段名称 类型 宽度 小数位 年度 文本 16 项目 文本 50 时限 文本 20 学费 货币 自动 出于本系统是健身中心会员管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。 六、 系统的功能 系统登陆界面： 本部分主要内容为本系统的运行界面以及主要界面的源代码。 本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码 保存在管理员表中，本系统根据不同的用户而设置了不同的权限。 Private Sub Command5_Click() Dim i As Integer Dim sql As String Dim rst As Set rst = New If IsNull(Me![管理员编号 ]) Then MsgBox 请输入管理员编号 ! 管理员编号 Exit Sub ElseIf IsNull(Me![密码 ]) Then MsgBox 请输入密码 密码 Exit Sub End If sql = select*from 管理员 where 管理员编号 =39。 amp。 Me![管理员编号 ] amp。 39。 and 管理员密码 =39。 amp。 Me![密码 ] amp。 39。 sql, , adOpenKeyset, adLockOptimistic If 0 Then 主界面 Else MsgBox 您输入的管理员编号和密码有误，请重新输入 ! Me![管理员编号 ] = Me![密码 ] = 管理员编号 End If Set rst = Nothing End Sub Private Sub Command7_Click() On Error GoTo Err_Command7_Click Exit_Command7_Click: Exit Sub Err_Command7_Click: MsgBox Resume Exit_Command7_Click End Sub Private Sub Command8_Click() On Error GoTo Err_Command8_Click Exit_Command8_Click: Exit Sub Err_Command8_Click: MsgBox Resume Exit_Command8_Click。