大学生社团管理系统论文(1)

大学生社团是由高校学生依据兴趣爱好自愿组成，按照章程自主开展活动的学生组织。“高校学生社团活动是实施素质教育的重要途径和有效方式，在加强校园文化建设、提高学生综合素质、引导学生适应社会、促进学生成才就业等方面发挥着重要作用，是新形势下有效凝聚学生、开展思想政治教育的重要组织动员方式，是以班级年级为主开展学生思想政治教育的重要补充”。学生社团作为繁荣校园文化、促进学生全面发展的有效载体，锻炼了学生的社会能力，培养了他们乐群互助的合作精神，其地位和作用越来越受到人们的普遍重视。 并且随着我国社会主义市场经济和高等教育的发展，特别是高校大规模扩招，高校学生社团的种类、数量越来越多，作用也越来越大。学生社团已经成为高校校园文化的一道亮丽的风景线。但当前我国高校学生社团发展中也存在不少问题，如“数量少”、“活动方式单一”、“资金短缺，物质条件较差”、“管理不规范”等一系列问题。如何更好地利用大学生社团的组织和活动，将其建设成为进行思想教育的有利阵地、学术探讨思想交流的第二课堂，是高校学生工作的一个重要课题。正如《关于进一步加强和改进大学生思想政治教育的意见》所指出，“要加强对社团的领导和管理，帮助大学生社团选聘指导老师，支持和引导大学生社团自主开展活动”。

同时，美国是世界高等教育最发达的国家之一，大学已经成为美国科研的主要基地，承担了全国60%以上的基础研究任务。而且，美国是一个崇尚组织社团的国家，其社团组织形成可追溯到殖民地时期。在这些因素的影响下，美国高校的学生社团种类、数量、活动方式等明显多于其他国家高校，其学生社团管理体系也较为健全，形成了一套独特的管理和辅导模式。美国大学对学生社团一般都积极地予以鼓励与支援。如美国最有影响力的哈佛大学就拥有600多个学生社团。美国大学培养出众多的政界、商界、科技界、文艺界领军人物，其中大多数曾是学生社团活动的积极分子，如尼克松、卡特、肯尼迪等都曾是学校社团活动的风云人物。而且由于中美两国在社会制度和意识形态上的本质区别，使得两国高校的学生社团也有着各自本质的特点。而通过比较研究，尽可能在厘清各自历史发展沿革、现有发展状状、宏观管理、微观运营方面的区别，从而将各自内在的结构性优势与不足进一步明朗化，从而有助于我们借鉴美国高校学生社团的成功经验和运作模式，加强我国高校学生社团的管理，进一步推动学生社团的良性发展。

开发的可行性研究 可行性研究的目的，就是用最小的代价在尽可能短的时间内确定问题是否能够解决。要达到这个目的，必须分析几种主要的可能解法的利弊，从而判断原定的系统规模和目标是否现实，系统完成后所能带来的效益是否大到值得投资开发这个系统的程度。因此，可行性研究实质上是要进行一次大大压缩简化了的系统分析和设计的过程，也就是在较高层次上以较抽象的方式进行的系统分析和设计的过程。

系统的可行性分析主要包括技术可行性、经济可行性、操作可行性和法律可行性。本系统的可行性分析如下：

技术可行性

本系统开发工具使用delphi7.0，使用的语言pascal加上SQL查询语句。Pascal语言语法严格，结构严密，非常适合我们学生使用。本系统所使用数据库为access2003，该数据库结构体小，操作简单，易于编程。此外，本系统没有使用delphi7.0自带的rave报表，因为rave报表一般只能用来制作简单的静态报表，而且在报表格式上设置比较麻烦，用程序来控制尤

为困难，而且容易出错，故而本人使用控件导出至EXCEL模板，形成报表，易于格式设置及编辑排版。由上可以看出利用开发这个系统在技术上是可行的。

经济可行性

从本平台开发的角度出发，平台开发所需资金甚少，在人力方面只需一约花三四个月的时间进行设计与实现，而在软硬件方面只需一台计算机(硬件：CPU＋内存：512MB＋硬盘：80G)和相关的软件(Windows XP+access2003＋0ffice2003)即可。相对实现这个系统后学校和学生带来的方便和好处，这些经济的投入是可行并值得的。开发本系统需要一台个人电脑和相应的软件即可，并且开发的时间不是很长。综上所述，开发该系统在经济上是可以实现的。 操作可行性：

在系统设计和实现前三个星期主要是以看书以及收集有关系统方面的资料为主，接下来就是对系统的分析，做数据库，界面，以及中间的连接。该系统面向全校师生，用户无需进行培训，只要具备一定的计算机基础知识即可，适用范围比较广，由此可认为该系统在操作性上是可行的。 法律可行性：

这个大学生社团管理系统由本人设计和开发而成，在法律上并未侵害他利，无须承担任何法律责任，所以在法律方面开发此系统是完全可行的。

课题需求分析

大学生社团以“繁荣校园文化，打造社团品牌，推进素质拓展，服务广大同学”为宗旨，以实现大学学生社团的自我管理、自我监督、自我发展为目标，通过多层面组织引导学生社团活动，进行能力培养，提高大学生思想觉悟，增强大学生的综合素质。

大学生社团的基本任务（职能）：

1、贯彻、执行校团委关于学生社团活动的任务、方针和措施，并积极主动开展有利于社团发展的工作；

2、处理学生社团的日常事务，巩固、监督、评议社团及社团活动；

3、倡导、组织、监督各社团多层次开展健康向上、丰富多彩的校园文化和社会实践活动，使社团切实丰富同学们的第二课堂生活，提高校园科技文化气氛，形成校园特色文化服务； 4、代表本校所有社团的正当、合法的利益和意志，表达和维护各社团利益，协调学校与社团之间、社团与社团之间、社团与社会之间的关系，为社团活动的开展创造良好的环境。 5、代表本校与其他地区（高校）学生社团进行交流合作。

现在本校有如下社团组织：

音乐坊、吉他协会、心理协会、计算机协会、跆拳道协会、轮滑协会、蓝马协会、读书协会、求是学社、法律援助中心、篮球协会、羽毛球协会、健美操协会、网球协会、书画社、奕仙棋社、极限社团、乒乓球协会、武术协会、舞影随行、英语协会、韩语协会、国防协会、天文社、悠悠球协会等社团。

根据以上情况，该系统总体目标如下:

（1）以真实、准确数据为基础，以先进、有效、合理的管理方法为核心，以现代计算机技术为手段，建设大学生社团管理系统。

（2）提高园内办事效率，社团协会负责人及会员能及时、准确地掌握各种信息，为决策提供有效的依据。

（3）实现内部管理电脑化，实现信息共享。

大学生社团管理系统是一款用于学校社团管理的应用软件，内有简单易用用户界面、功能强大的数据库操作和查询操作，可以直接在上面登记社团资料，包括社团档案登记、社团活动登记，社团会员登记、社团部门登记、社团会费申请、审批等功能。可以直接在上面查询各

种资料，可以按照指定的字段进行查询功能，此外由于delphi的rave报表在制作动态报表上有所欠缺，故而本人导出查询数据到EXCEL指定的模板从而进行打印。并具有用户权限管理等基本的权限功能。本软件通用性增强，操作简单，操作工作量小。数据存储量大，分类清楚，使工作更轻松。

5、数据库的设计

本系统是单机版的系统，使用的是access2003数据库。

数据库有用户表、社团部表、会员表、活动表、申请经费表、经费审批表、社团部基本情况表。 1、用户表 字段名称 用户名 口令 权限

2、社团部表 字段名称 社团全称 社团负责人 社团创始人 主管单位 成立日期 社团性质 社团经费 社团简介 社团特征码 备注

3、会员表 字段名称 会员编号 姓名 性别 系别 班级 宿舍 电话 数据类型 文本 文本 文本 文本 文本 文本 文本 字段长度 3 8 2 10 10 20 11 允许空否 NO NO NO NO NO YES YES 备注 主键 数据类型 文本 文本 文本 字段长度 10 6 1 允许空否 NO NO NO 备注 主键，用户登录名称 即密码 权限用以用户使用软件功能 数据类型 文本 文本 文本 文本 日期/时间 文本 货币 文本 文本 文本 字段长度 20 8 8 20 20 20 6 20 允许空否 NO NO NO NO NO YES NO NO NO YES 备注 主键 中文名称最长为4个，英文8个 由学校哪个部门负责监管 成立协会日期 供以后协会活动开支 会费申请、查看时来确认。 社团部 职位 会费 加入日期

4、活动表 字段名称 活动名称 所属社团 相关内容 发起人 发起时间 备注

5、申请经费表 字段名称 申请社团 尚有金额 申请金额 申请理由 申请日期

6、经费审批表 字段名称 申请部门 申请金额 申请原因 审批方案 审批人 审批日期 审批理由 文本 文本 货币 日期/时间 20 10 货币 日期/时间 NO YES NO NO 数据类型 文本 文本 文本 文本 日期/时间 文本 字段长度 20 20 50 8 50 允许空否 NO NO YES NO NO YES 备注 数据类型 文本 货币 货币 文本 日期/时间 字段长度 20 50 允许空否 NO NO NO YES NO 备注 数据类型 文本 货币 文本 文本 文本 日期/时间 文本 字段长度 20 50 6 8 50 允许空否 NO NO NO NO NO NO YES 备注

7、社团部基本情况表 字段名称 共有协会个数 共有会员个数 共有社团经费 备注

数据类型 数字 数字 货币 文本 字段长度 50 允许空否 NO NO NO YES 备注

系统设计

系统总体功能结构

本课题经过实际的需求分析，采用delphi7.0+access2003技术进行实现，整个系统服务于普通用户、系统管理员两类用户，从操作简便、界面美观、灵活实用的用户要求出发，设计整个系统的功能模块如下图： 系统模块框图 修 改 用注销 退出系社社团部门管理 社团活动管理 社团经费管理 社团活动查询 社团信息查询 会员信息设置 会员信息查询 关于 大学生社团管理系统 系统设置 社团相关 会员相关 帮助 户密 码 主程序窗体设计

团部统 基 本信息 （1）实现目标

程序启动后，在“系统登录”界面验证操作员密码后，将进入主程序界面。主程序界面主要实现如下功能：

（1）可通过菜单和工具栏快速选取项目，调用相就子程序。 （2）显示系统日期和时间。

（3）在窗口显示前，根据登录界面中的权限代码来设置不同用户可以使用不同的功能模块。

主程序界面如下图所示：

（2）实现过程。

添加新窗体，设置窗体name属性为main，设置窗体Caption属性为“校职工档案管理系统”，保存窗体为mainform.pas。 主要程序代码如下： 计数器的代码：

procedure Tfrmmain.Timer1Timer(Sender: TObject); begin

StatusBar1.Panels[0].Text :='欢迎使用大学生社团管理系统';

statusbar1.Panels[1].Text :=formatdatetime('yyyy''年''m''月''d''日''dddd'+'hh:mm:ss AM/PM',now); end;

功能：状态栏的第一格显示“欢迎使用大学生社团管理系统”，第二格显示当前系统的日期时间。

显示窗体时执行的代码：

procedure Tfrmmain.FormShow(Sender: TObject); begin

if qx='1' then

begin

frmmain.StatusBar1.Panels[2].Text :='您为系统管理员，可以使用软件所有功能！'; end else

frmmain.StatusBar1.Panels[2].Text :='您为一般用户，你只可以使用基本功能！'; if qx='2' then begin

frmmain.N5.Enabled :=false; frmmain.N9.Enabled :=false; frmmain.N10.Enabled :=false; frmmain.N13.Enabled :=false; frmmain.n22.Enabled :=false;

end

end;

功能：当qx这个全局变量值为1时，表示刚才登录的时候是使用了系统管理员，可以使用所有的功能，值为2时，表示刚才是一般用户，只能使用部分功能。

（一）系统设置功能设计

系统设置模块对使用本系统的用户进行用户名、密码、用户身份的验证，确保了系统的安全性。本模块具有三项功能：

（1）输入用户名和密码登录后，系统统根据用户身份让用户进入不同的界面进行具有权限的用户操作。分为guest用户，和admin用户，guest只有查看功能，admin具有所有功能。 （2）用户注销，退出用户界面返回登录界面；

（3）系统管理员可以进入设置用户密码界面，可以设置用户表中所有记录的口令和密码字段。

该系统只设置了两个用户，一个超级管理员，一个guest用户。原因就在于，本系统可能会有很多会员使用，如果用户表中添加很多用户，管理起来不方便。而且没有这个必要，本系统除了超级管理员可以使用所有功能之外，其它用户只能使用查询功能，所以建太多用户和一个用户几乎没有区别。所以本系统中没有添加用户这一功能。 1、登录功能实现如下：

模块功能：输入用户名之后，在用户表中搜索是否有该用户名存在，如果有该用户名存在，则验证密码正确与否，如果密码正确则将其对应的权限赋值给一个变量。然后显示主界面，隐藏用户登录界面。 主要代码如下：

procedure Tfrmlogin.Button1Click(Sender: TObject); begin try

adoconnection1.Connected :=true;

adotable1.Filter :='用户名='''+edit1.Text +''''; adotable1.Filtered:=true; adotable1.Open ; except

application.Terminate ; end;

if adotable1.RecordCount=1 then begin

passwd:=trim(adotable1['口令']);

qx:=trim(adotable1['权限']); if passwd =edit2.Text then begin

frmmain.show; edit1.Text :=''; edit2.Text :=''; frmlogin.hide; exit; end

else

application.messagebox('请确认密码，注意大小写！','密码不匹配',mb_ok); edit1.SetFocus ; edit2.Text :=''; end

else

application.MessageBox('请重新输入用户名！','用户名不正确！',mb_OK); edit1.SetFocus ; edit1.Text :=''; edit2.text:='';

end;

2、修改密码功能实现如下：

模块功能：输入用户名，系统检查该用户名是否存在，若是存在的话，则验证原密码是否正确，假如正确，则输入新的密码并再次确认，如果两次密码相同，则密码修改成功。 界面包括控件adoconnection和adoquery，连接数据表用户表。 “确定”按钮代码如下： var username,pwd:string; begin

username:=edit1.Text ; adoquery1.Close ;

adoquery1.SQL.clear;

adoquery1.SQL.Add('select 用户名,口令 from 用户表'); adoquery1.SQL.Add('where 用户名='''+username+''''); adoquery1.Open ;

if (adoquery1.RecordCount =0)or(edit2.Text <>trim(adoquery1.FieldValues['口令'])) then begin

showmessage('该用户不存在或原口令不正确！'); edit1.Text :=''; edit2.Text :=''; edit3.Text :=''; edit4.Text :=''; edit1.SetFocus ; exit;

end;

if(edit3.Text ='')or(edit3.Text <>edit4.Text ) then

begin

showmessage('密码不能为空或两次密码不一致，请检查！'); edit1.Text :=''; edit2.Text :=''; edit3.Text :=''; edit4.Text :=''; edit1.SetFocus ; exit; end;

pwd:=trim(edit3.Text ); adoquery1.close;

adoquery1.SQL.Clear ;

adoquery1.SQL.Add('update 用户表 set 口令='''+pwd+'''');

adoquery1.SQL.Add('where 用户名='''+edit1.text+''''); adoquery1.ExecSQL ;

showmessage('更改密码成功！'); edit1.Text :=''; edit2.Text :=''; edit3.Text :=''; edit4.Text :=''; edit1.SetFocus ; exit; end;

3、注销功能

该功能比较简单，就是显示出隐藏的登录窗口，关闭主窗体。

4、退出系统

使用application.Terminate，它表示中断程序，退出总系统。它和close不同，close是关闭指定

的窗体。

（二）、社团相关模块 1、社团部基本情况 窗体如下：

该窗体使用控件，adoconnect，adoquery，adotable，label，memo，button，ExcelApplication1，ExcelWorkbook1，ExcelWorksheet1，控件属性设置见程序表单。

该窗体的主要实现思想：窗体载入时，使用count语句统计出“社团部表”的所有记录数，即协会个数；使用循环累加，得出所有协会费用之和；使用count语句统计出“会员表”中会员个数；读出社团部基本情况表中备注的内容到memo中。 详细代码如下：

var i:integer; begin

memo1.Text :=adotable1.fieldbyname('备注').AsString ;//把备注写入到memo中。 adoquery1.close;

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select count(*) as 记录数 from 社团部表'); adoquery1.Open;

i:=adoquery1.fieldbyname('记录数').AsInteger ;

adoquery1.close; adoquery1.sql.clear;

adoquery1.SQL.add('select sum(社团经费) as 经费 from 社团部表'); adoquery1.open;

label3.Caption :=inttostr(i);//读协会个数赋值给label3的caption属性。 label7.Caption :=inttostr(adoquery1.fieldbyname('经费').AsInteger);

adoquery1.close; adoquery1.sql.clear;

adoquery1.SQL.add('select count(*) as 人数 from 会员表'); adoquery1.open;

label5.Caption :=inttostr(adoquery1.fieldbyname('人数').AsInteger ); close; end;

此外，本表单还使用到了打印功能，所以在这个表单中就存在报表。本报表没有使用自带的rave报表，rave报表在格式设置及生成查询报表这一块功能比较弱，所以我使用ExcelApplication控件，把查询结果导出到指定名称的excel表中。当然在导出之前，是参照excel模板，这样导出的excel文件，部分格式是已经设置好的，还可以自己设置效果然后打印。

实现代码如下：

var

ExcelApp:TExcelApplication;//用来连接Excel应用程序 ExcelWkbook:TExcelWorkbook;//工作薄 ExcelWksheet:TExcelWorksheet;//Excel数据表 i,j:integer; begin

adoquery1.close;

adoquery1.SQL.clear;

adoquery1.SQL.Add('select * from 社团部表');

adoquery1.open;

ExcelApp:=TExcelApplication.Create(Application);//创建Excel应用 ExcelWkbook:=TExcelWorkbook.Create(Application);//创建工作薄 ExcelWksheet:=TExcelWorksheet.Create(Application);//创建工作表

ExcelApp.Connect; //连接Excel应用程序

excelapp.Visible[0]:=true;

ExcelApp.WorkBooks.Open('D:\\大学生社团管理系统\\社团部详细表模板.xls',EmptyParam, EmptyParam,

EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

EmptyParam, EmptyParam, EmptyParam,

EmptyParam, EmptyParam, EmptyParam, 0); //打开模板文件

ExcelApp.ActiveWorkbook; //设置活动工作簿 Excelapp.ActiveSheet; //设置活动工作表

ExcelWkbook.ConnectTo(ExcelApp.Workbooks[1]); //工作簿与Excel应用程序连接 ExcelWksheet.ConnectTo(ExcelWkbook.Worksheets[1] as _worksheet); //工作表与工作簿连接 adotable1.First;

ExcelWksheet.Cells.item[1,1].value:= '社团详细情况'; for j:=0 to AdoQuery1.Fields.Count-1 do // 先写字段名

begin

ExcelWksheet.Cells.item[2,j+1]:=AdoQuery1.Fields[j].DisplayLabel; // Cells对象：表示工作表的一个单元格。

ExcelWksheet.Cells.item[2,j+1].font.size:=10; end;

for i:=2 to AdoQuery1.RecordCount+1 do // 一共要读AdoQuery1.RecordCount-1条记录 begin

for j:=0 to AdoQuery1.Fields.Count-1 do begin

ExcelWksheet.Cells.item[i,j+1]:=AdoQuery1.Fields[j]. Asstring; //写入记录

end;

AdoQuery1.Next; end;

ExcelWksheet.Columns.AutoFit; //列自适应

ExcelWksheet.SaveAs('D:\\大学生社团管理系统\\'+'社团部详细情况报表'); //按用户提供的文件名保存文件 ExcelApp.Disconnect; end;

2、社团信息设置 界面如下所示：

该表中包括connection，adotable，adoquery，ExcelApplication1，ExcelWorkbook1，ExcelWorksheet1等控件，控件属性见表单设置。

功能描述：该程序共有五个按钮，由界面可见添加，修改两个按钮会弹出界面来添加或修改数据。删除功能，直接在界面上体现。 添加窗体如下：

确定按钮代码如下：

if edit1.Text='' then showmessage('请输入社团名称')

else if edit2.Text='' then showmessage('请输入负责人')

else if edit3.Text='' then showmessage('请输入创始人')

else if edit4.Text='' then showmessage('请输入主管单位')

else if maskedit1.Text='____-__-__' then showmessage('请输入成立日期') else if maskedit2.Text ='______' then showmessage('请输入社团特征码') else if frmstxxsz.adotable1.Locate('社团全称',edit1.Text,[]) then begin

showmessage('已经有该社团，请重新输入'); edit1.Text:=''; edit2.text:=''; edit3.Text :=''; edit4.Text :='';

maskedit1.text:='____-__-__'; maskedit2.Text :='______'; edit6.Text :=''; edit7.Text :=''; memo1.Text :=''; memo2.Text:=''; edit1.SetFocus ; end else

begin

if messagedlg('确实要添加该社团吗？',mtInformation,[mbOK, mbCancel],0)=mrok then begin

frmstxxsz.adotable1.Edit;

frmstxxsz.adotable1.Append;

frmstxxsz.adotable1.FieldByName('社团全称').AsString:=edit1.Text; frmstxxsz.adotable1.FieldByName('社团负责人').AsString:=edit2.Text; frmstxxsz.adotable1.FieldByName('社团创始人').AsString:=edit3.Text; frmstxxsz.adotable1.FieldByName('主管单位').AsString:=edit4.Text; frmstxxsz.adotable1.FieldByName('成立日期').AsString:=maskedit1.text; frmstxxsz.adotable1.FieldByName('社团性质').AsString:=edit6.Text; frmstxxsz.adotable1.FieldByName('社团经费').AsString:=edit7.Text; frmstxxsz.adotable1.FieldByName('社团简介').AsString:=memo1.Text;

frmstxxsz.adotable1.FieldByName('备注').AsString:=memo2.Text;

frmstxxsz.ADOTable1.FieldByName('社团特征码').AsString :=maskedit2.Text ; frmstxxsz.adotable1.post; showmessage('添加成功'); edit1.Text:=''; edit2.text:=''; edit3.Text :=''; edit4.Text :=''; maskedit1.text:=''; maskedit2.Text :='';

edit6.Text :=''; end

else begin

showmessage('添加失败'); frmstxxsz.adotable1.Append; end;

end;

该添加功能为了防止用户在执行过程中多个重要字段不录入，故而对相应字段输入为空时，提醒用户完善信息，否则无法继续往下执行。当点击确定保存数据时，检查准备添加的社团名称是否已经在原有的数据表中存在，如果存在则重新录入，否则添加信息到社团部表中，并显示添加成功。

其他功能描述略。代码详见源程序。

打印功能同部门打印大同小异，这里不再解释。 3、社团活动管理 界面如下：

edit7.Text :=''; memo1.Text :=''; memo2.Text:=''; edit1.SetFocus ;

frmstxxsz.adotable1.Append;

该界面所包含控件与社团部门管理类似，不再列举。

模块功能：由部门发起活动，活动信息包括活动名称、所属社团、发起人、相关内容及发起时间。可以添加、删除、修改。

4、活动经费管理

该模块包括四个子模块，分别为：经费申请、取消申请、经费审批、查看审批情况。 （1）经费申请模块：主要是由相关负责人登录社团经费申请界面，登录时需要选择所在社团，输入社团特征码确认其具备经费申请资格。在进入经费申请界面后，可以看到所属社团目前所剩余经费，在界面中输入申请的金额，点击申请按钮确认。如果申请的金额超过剩余金额，系统会作出提示，要求重新申请。

社团登录界面

经费申请界面

社团登录的进入按钮代码类似于系统登录代码，这里不再赘述。

申请按钮代码类似前面模块中添加模块中的确定按钮，代码详见源程序。

（2）取消申请模块：在提出申请之后，如果因为其他原因不想再申请经费了或是想用其他的理由申请更多的经费了，则进入取消申请模块。在该模块中，可以见到本协会所提出的所有申请记录（还没有审批过的记录）。可以在表单中选择想取消的申请记录，单击“取消申请”按钮取消这条记录。

“取消申请”按钮的代码类似于部门管理模块中的删除按钮。取消申请，实际上就是把数据表中的记录删除掉。

（3）经费申请模块：在提出申请之后，超级管理员即社团总负责人可对各协会发出的申请做出审批，在申请记录中选取相应记录，则该记录的信息会在下面体现出来，填写批准与否，如果批准了，则在该社团经费中扣除相应的费用，并且提交审批记录到相应的数据表中，如果没有批准，则该记录被取消，同样提交审批记录到相应的数据表中。

审批按钮代码如下：

if trim(label3.Caption)='' then showmessage('请在上表中选择记录，若无记录，则自己退出') else

if strtoint(label5.Caption )< strtoint(label8.caption) then begin

showmessage('该协会申请的经费超过了它目前还剩余的经费总数！无法审批'); end

else begin

if combobox1.Text='批准' then

begin

adotable3.Filtered :=false;

adotable3.Filter :='社团全称='+QuotedStr(label3.caption); adotable3.Filtered :=true;

adotable3.Edit;

adotable3.FieldByName('社团经费').value:=inttostr(adotable3.FieldByName('社团经费').AsInteger -strtoint(label8.caption)); adotable3.Post; end; adotable2.edit;

adotable2.Append;

adotable2.FieldByName('申请部门').AsString :=label3.Caption ; adotable2.FieldByName('申请金额').AsString :=label8.Caption ; adotable2.FieldByName('申请原因').AsString :=memo1.Text ;

adotable2.FieldByName('审批方案').AsString :=combobox1.Text ;

adotable2.FieldByName('审批人').AsString:=edit1.Text ;

adotable2.FieldByName('审批理由').AsString :=memo2.Text ;

adotable2.FieldByName('审批日期').AsString :=FormatDateTime('yyyy-mm-dd hh:mm:ss', Now);

adotable2.Post; combobox1.Text :=''; edit1.Text :=''; memo2.Text :=''; adotable1.Edit;

adotable1.Delete; end;

（4）查看经费审批结果模块：该模块显示登录协会所提交的所有申请的审批记录，最后一条记录即为社团负责人最近审批的记录。单击记录表中的记录，则审批的信息就会在下面体现出来。

单击记录表体现记录信息的代码如下：

procedure Tfrmcksp.DBGrid1CellClick(Column: TColumn); begin

label2.Caption :=adotable1.fieldbyname('审批方案').AsString ; label4.Caption :=adotable1.fieldbyname('审批人').AsString ; label7.Caption :=adotable1.fieldbyname('审批日期').AsString ; memo1.Text :=adotable1.fieldbyname('审批理由').AsString ; end;

5、社团活动查询：

功能：想参加社团活动的会员，可登录该系统调用社团活动查询界面，选择相应的字段，填写相应的查询值，即可查找出相应的记录。

搜索功能的实现：

procedure Tfrmhdcx.Button1Click(Sender: TObject); begin

if combobox1.Text ='活动名称' then begin

adoquery1.Close;

adoquery1.SQL.Clear;

adoquery1.sql.add('select * from 活动表 where 活动名称=\"' + Trim(edit1.Text) + '\"'); adoquery1.Open; end;

if combobox1.Text ='所属社团' then begin

adoquery1.Close;

adoquery1.SQL.Clear;

adoquery1.sql.add('select * from 活动表 where 所属社团=\"' + Trim(edit1.Text) + '\"'); adoquery1.Open; end;

if combobox1.Text ='发起时间' then begin

adoquery1.Close;

adoquery1.SQL.Clear;

adoquery1.sql.add(format('select * from 活动表 where 发起时间 = #%s# ', [DateToStr(datetimepicker1.Date)])); adoquery1.Open; end;

end;

这段代码使用adoquery查询来实现查询。 6、社团信息查询模块：

此模块可供想参加协会的学生来查询社团部的大概情况，了解有关协会的相关信息，可选择

查询字段，查询相应的记录。

该模块的查询功能实现与上个模块类似，都是使用adoquery查询实现。 （三）会员相关模块

该模块包含两个子模块：会员信息设置模块和会员信息查询模块。

1、会员信息模块：想加入协会的会员可在该模块中选择相应的部门填写相应的信息完成加入协会操作。界面中主要有四项功能，增加会员，删除会员，修改会员信息，退出界面。

下面简单描述一下修改会员信息功能的实现。 行修改，确认保存进数据表。 修改会员信息的表单如下：

先单击选中想修改的记录。则该会员的信息进入修改会员信息表单的相应控件中，对数据进

会员编号是不可修改的，因为那是主键，主键的值在数据表中是唯一的，故而只可以修改其他的字段值。

按钮代码详见源程序。

2、会员信息查询：

该模块主要是为社团负责人提供方便，他们可以在该表单中查询他们想要联系的会员信息。会员信息包括班级，宿舍，联系电话等信息。在这里提供了按照姓名来进行搜索。会员录入时数据表中没有身份证号字段，如果有该字段，则在这个表单中最好的搜索字段则应该是身份证号（唯一性）。

搜索代码略。

（四）帮助模块

该模块包括：帮助和关于。

1、帮助模块

提供帮助文档，供对该系统不熟练的用户来学习，通过文档的学习，很容易便能掌握该系统的使用。

单表使用了一个memo控件，设置它显示右边滚动条，方便用户查看帮助信息。 界面如下：

2、关于模块

提供本模块的简单信息，如版本啊，制作人啊诸如此类的信息。