- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)