大学生社团管理系统.docx

  1. 1、本文档共11页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
精品文档 精品文档 袇 膃肅 羄肇 袀虿 羇莂 薄PAGE PAGE10 精品文档 PAGE 精品文档 你我共享 皖西学院社团管理系统 学生姓名:汤长江周子坤 薛伟彭年 专业班级:信息与计算科学1001班 学院名称: 金融与数学学院 指导老师: 范祥林 AAAAAA 精品文档 你我共享 绪论 大学生社团以“繁荣校园文化,打造社团品牌,推进素质拓展,服务广大同 学”为宗旨,以实现大学学生社团的自我管理、自我监督、自我发展为目标,通 过多层面组织引导学生社团活动, 进行能力培养,提高大学生思想觉悟,增强大 学生的综合素质。 数据库的设计 本系统是单机版的系统,使用的是 SQLserver2008数据库。 数据库中共有成员表、活动表、用户表、社团表、社团基本情况表。 数据库名:皖西学院社团管理系统 表名:成员表 序号 列名 数据类型 长度 小数位 标识 主键 外键 允许 默认值 说明 空 1 xh varchar 50 0 是 否 2 xm varchar 50 0 是 3 xb varchar 50 0 是 4 psw varchar 50 0 是 5 stmc varchar 50 0 是 6 zw varchar 50 0 是 7 lxdh varchar 50 0 是 表名:活动表 序号 列名 数据类型 长度 小数位 标识 主键 外键 允许 默认值 说明 空 1 hdmc varchar 20 0 是 否 2 ssst varchar 20 0 是 3 xgnr varchar 50 0 是 4 hdsj varchar 20 0 是 AAAAAA 精品文档 你我共享 表名:用户表 序号 列名 数据类型 长度 小数位 标识 主键 外键 允许 默认值 说明 空 1 uid varchar 50 0 是 否 2 id varchar 50 0 是 3 mk varchar 50 0 是 4 psw varchar 50 0 是 表名:社团表 序号 列名 数据类型 长度 小数位 标识 主键 外键 允许 默认值 说明 空 1 stmc varchar 20 0 是 否 2 stcsr varchar 20 0 是 3 stfzr varchar 20 0 是 4 clrq varchar 20 0 是 表名:社团基本情况表 序号 列名 数据类型 长度 小数位 标识 主键 外键 允许 默认值 说明 空 1 stgs varchar MAX 0 是 2 hyfs varchar MAX 0 是 AAAAAA 精品文档 你我共享 系统总体功能结构 皖西学院社团管理 系 系 社 成 活 统 团 员 动 设 相 相 相 置 关 关 关 社 退 社 社 社 成 成 活 活 团 出 团 团 团 员 员 动 动 部 系 部 信 信 信 信 信 信 基 统 基 息 息 息 息 息 息 本 本 设 查 设 查 设 查 情 情 置 询 置 询 置 询 况 况 主程序窗体设计 (1)实现目标 程序启动后,在“系统登录”界面验证操作员密码后,将进入主程序界面。 主程序界面主要实现如下功能: (1)可通过菜单和工具栏快速选取项目,调用相应子程序。 (2)在窗口显示前,根据登录界面中的权限代码来设置不同用户可以使用 不同的功能模块。 主程序界面如下: AAAAAA 精品文档 你我共享 登陆界面如下: 主要代码如下: stringname,psw,check_ddlb_1 intli_n name=trim(sle_1.text) psw=trim(sle_2.text) check_ddlb_1=trim(ddlb_1.text) ifname=""orpsw=""then AAAAAA 精品文档 你我共享 messagebox("错误提示","用户或密码不能为空") else choosecasecheck_ddlb_1 case"管理员" selectcount(*)into:li_n fromlogin wheremk='管理员'andid=:nameandpsw=:psw;ifli_n=1then open(w_demo1) w_demo1.changemenu(m_main) close(parent) else messagebox("错误提示","无此管理员"+string(li_n)) endif case"成员" selectcount(*)into:li_n fromlogin wheremk='成员'andid=:nameandpsw=:psw; ifli_n=1then open(w_demo1) w_demo1.changemenu(m_main2) close(parent) else messagebox("错误提示","无此成员"

文档评论(0)

157****8893 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档