健身中心会员管理系统论文

健身中心会员管理系统论文内容摘要：

员交费管理 、系统管理 、报表打印 等功能。 3． 1． 2软件结构设计 本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后会员档案添加 会员档案修改 会员档案删除 卡信息添加 卡信息修改 卡信息删除 卡信息 浏览 会员缴费浏览 会员缴费查询 添加用户 重新登录 更改密码 系统管理 会员缴费管理 会员卡管理 会员档案管理 会员 管理系统 可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。 3． 2 数据库设计 数据库采用了 Microsoft 推出的 Access 数据库，这是微软集成到 Office 中的一个桌面数 据库 ，能够快速方便的和 Office 的其他套件综合使用。 由于 Access 具有显著的简易性和有效性，大量的桌面数据库系统都采用 Access 作为后台数据库。 使用Access 的好处还在于，如果你的系统扩展到 Client/Server 模式的时候，可以使用Microsoft 的数据库服务器软件 SQL Server，此时，程序只需要简单的修改一下链接（ ADO 的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。 3． 2． 1 本系统中所涉及到的主要实体共有以下几 个数据表： class 表： {年 度 ， 卡种 ， 所属 ， 时限 ， 项目 ，主管教练， 备注 } jf 表： {卡 号， 年度 ，交费，欠费，日期，操作员 } use 表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} 接受数据 处理中心 卡 管理 档案 管理 交费管理 系统 管理 其他管理 打印报表 xj 表： {卡 号，姓名，性别， 卡种 ，出生年月，家庭住址，邮政编码，联系电话，注册 时间，备注 } jiaofei 表： {年度 ， 所属，时限，会 费 } 3． 2． 2 各表的物理结构如下： Class 表： 字段名称 类型 宽度 小数位 年 度 文本 16 卡种 文本 20 所属 文本 5 时限 文本 8 项目 文本 16 主管教练 文本 8 备注 备注 Jf 表： 字段名称 类型 宽度 小数位 卡 号 文本 5 年度 文本 50 交费 货币 自动 欠费 货币 自动 日期 日期 /时间 操作员 文本 10 Use 表： 字段名称 类型 宽度 小数位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj 表： 字段名称 类型 宽度 小数位 卡 号 文本 9 姓名 文本 8 性别 文本 2 卡种 文本 10 出生年月 日期 /时间 家庭住址 文本 30 邮政编码 数字（长整型） 联系电话 数字（长整型） 注册 时间 日期 /时间 备注 备注 jiaofei 表： 字段名称 类型 宽度 小数位 年 度 文本 16 项目 文本 50 时限 文本 20 学费 货币 自动 第四章 系统的功能 本部分主要内容为本系统的运行界面以及主要界面的源代码。 4． 1 系统登陆界面： 本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在 USE 表中，本系统根据不同的用户而设置了不同的权限，可以用 111。 111为用户名和密码来登陆本系统。 Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用户名错误。 , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If username = (0) txtsql2 = select username from use where password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql2) If = True Then MsgBox 密码错误。 , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 and password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用户名称和密码不匹配。 , vbExclamation + vbOKOnly, 警告 Exit Sub End If = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 4． 2 系统主界面： 本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有5个功能菜单和 12 个子菜单（功能模块），从而实现了本系统从 会员卡 管理、 会员 档案管理、 会员 缴费管理、 系统管理 等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。 Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim find1 As Integer Dim liulan1 As Integer Private Sub add_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联 系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If modi = False (0) End Sub Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权 限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub claasfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub Private Sub classapp_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If classmodi = False (0) End Sub Public Sub clabrowse() txtsql = select * from class (0) = 浏览班级设置 End Sub Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub classfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) End Sub Private Sub find_Click() End Sub Private Sub classkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub denglu2_Click() Unload Me End Sub Private Sub jiaofeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub jiaofeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系。 ,。