大学生社团管理系统论文

课题的研究背景及意义大学生社团是由高校学生依据兴趣爱好自愿组成，按照章程自主开展活动的学生组织。“高校学生社团活动是实施素质教育的重要途径和有效方式，在加强校园文化建设、提高学生综合素质、引导学生适应社会、促进学生成才就业等方面发挥着重要作用，是新形势下有效凝聚学生、开展思想政治教育的重要组织发动方式，是以班级年级为主开展学生思想政治教育的重要补充〞。学生社团作为繁荣校园文化、促进学生全面开展的有效载体，锻炼了学生的社会能力，培养了他们乐群互助的合作精神，其地位和作用越来越受到人们的普遍重视。并且随着我国社会主义市场经济和高等教育的开展，特别是高校大规模扩招，高校学生社团的种类、数量越来越多，作用也越来越大。学生社团已经成为高校校园文化的一道亮丽的风景线。但当前我国高校学生社团开展中也存在不少问题，如“数量少〞、“活动方式单一〞、“资金短缺，物质条件较差〞、“管理不标准〞等一系列问题。如何更好地利用大学生社团的组织和活动，将其建设成为进行思想教育的有利阵地、学术探讨思想交流的第二课堂，是高校学生工作的一个重要课题。正如《中共中央国务院关于进一步加强和改良大学生思想政治教育的意见》所指出，“要加强对社团的领导和管理，帮助大学生社团选聘指导老师，支持和引导大学生社团自主开展活动〞。同时，美国是世界高等教育最兴旺的国家之一，大学已经成为美国科研的主要基地，承当了全国60%以上的根底研究任务。而且，美国是一个崇尚组织社团的国家，其社团组织形成可追溯到殖民地时期。在这些因素的影响下，美国高校的学生社团种类、数量、活动方式等明显多于其他国家高校，其学生社团管理体系也较为健全，形成了一套独特的管理和辅导模式。美国大学对学生社团一般都积极地予以鼓励与支援。如美国最有影响力的哈佛大学就拥有600多个学生社团。美国大学培养出众多的政界、商界、科技界、文艺界领军人物，其中大多数曾是学生社团活动的积极分子，如尼克松、卡特、肯尼迪等都曾是学校社团活动的风云人物。而且由于中美两国在社会制度和意识形态上的本质区别，使得两国高校的学生社团也有着各自本质的特点。而通过比拟研究，尽可能在厘清各自历史开展沿革、现有开展状状、宏观管理政策、微观运营方面的区别，从而将各自内在的结构性优势与缺乏进一步明朗化，从而有助于我们借鉴美国高校学生社团的成功经验和运作模式，加强我国高校学生社团的管理，进一步推动学生社团的良性开展。开发的可行性研究可行性研究的目的，就是用最小的代价在尽可能短的时间内确定问题是否能够解决。要到达这个目的，必须分析几种主要的可能解法的利弊，从而判断原定的系统规模和目标是否现实，系统完成后所能带来的效益是否大到值得投资开发这个系统的程度。因此，可行性研究实质上是要进行一次大大压缩简化了的系统分析和设计的过程，也就是在较高层次上以较抽象的方式进行的系统分析和设计的过程。系统的可行性分析主要包括技术可行性、经济可行性、操作可行性和法律可行性。本系统的可行性分析如下：技术可行性本系统开发工具使用delphi7.0，使用的语言pascal加上SQL查询语句。Pascal语言语法严格，结构严密，非常适合我们学生使用。本系统所使用数据库为access2003，该数据库结构体小，操作简单，易于编程。此外，本系统没有使用delphi7.0自带的rave报表，因为rave报表一般只能用来制作简单的静态报表，而且在报表格式上设置比拟麻烦，用程序来控制尤为困难，而且容易出错，故而本人使用控件导出至EXCEL模板，形成报表，易于格式设置及编辑排版。由上可以看出利用开发这个系统在技术上是可行的。经济可行性从本平台开发的角度出发，平台开发所需资金甚少，在人力方面只需一人大约花三四个月的时间进行设计与实现，而在软硬件方面只需一台计算机(硬件：CPU＋内存：512MB＋硬盘：80G)和相关的软件(WindowsXP+access2003＋0ffice2003)即可。相对实现这个系统后学校和学生带来的方便和好处，这些经济的投入是可行并值得的。开发本系统需要一台个人电脑和相应的软件即可，并且开发的时间不是很长。综上所述，开发该系统在经济上是可以实现的。操作可行性：在系统设计和实现前三个星期主要是以看书以及收集有关系统方面的资料为主，接下来就是对系统的分析，做数据库，界面，以及中间的连接。该系统面向全校师生，用户无需进行培训，只要具备一定的计算机根底知识即可，适用范围比拟广，由此可认为该系统在操作性上是可行的。法律可行性：这个大学生社团管理系统由本人设计和开发而成，在法律上并未侵害他人权利，无须承当任何法律责任，所以在法律方面开发此系统是完全可行的。课题需求分析大学生社团以“繁荣校园文化，打造社团品牌，推进素质拓展，效劳广阔同学〞为宗旨，以实现大学学生社团的自我管理、自我监督、自我开展为目标，通过多层面组织引导学生社团活动，进行能力培养，提高大学生思想觉悟，增强大学生的综合素质。大学生社团的根本任务〔职能〕：1、贯彻、执行校团委关于学生社团活动的任务、方针和措施，并积极主动开展有利于社团开展的工作；2、处理学生社团的日常事务，稳固、监督、评议社团及社团活动；3、倡导、组织、监督各社团多层次开展健康向上、丰富多彩的校园文化和社会实践活动，使社团切实丰富同学们的第二课堂生活，提高校园科技文化气氛，形成校园特色文化效劳；4、代表本校所有社团的正当、合法的利益和意志，表达和维护各社团利益，协调学校与社团之间、社团与社团之间、社团与社会之间的关系，为社团活动的开展创造良好的环境。5、代表本校与其他地区〔高校〕学生社团进行交流合作。现在本校有如下社团组织：音乐坊、吉他协会、心理协会、计算机协会、跆拳道协会、轮滑协会、蓝马协会、读书协会、求是学社、法律援助中心、篮球协会、羽毛球协会、健美操协会、网球协会、书画社、奕仙棋社、极限社团、乒乓球协会、武术协会、舞影随行、英语协会、韩语协会、国防协会、天文社、悠悠球协会等社团。根据以上情况，该系统总体目标如下:〔1〕以真实、准确数据为根底，以先进、有效、合理的管理方法为核心，以现代计算机技术为手段，建设大学生社团管理系统。〔2〕提高园内办事效率，社团协会负责人及会员能及时、准确地掌握各种信息，为决策提供有效的依据。〔3〕实现内部管理电脑化，实现信息共享。大学生社团管理系统是一款用于学校社团管理的应用软件，内有简单易用用户界面、功能强大的数据库操作和查询操作，可以直接在上面登记社团资料，包括社团档案登记、社团活动登记，社团会员登记、社团部门登记、社团会费申请、审批等功能。可以直接在上面查询各种资料，可以按照指定的字段进行查询功能，此外由于delphi的rave报表在制作动态报表上有所欠缺，故而本人导出查询数据到EXCEL指定的模板从而进行打印。并具有用户权限管理等根本的权限功能。本软件通用性增强，操作简单，操作工作量小。数据存储量大，分类清楚，使工作更轻松。5、数据库的设计本系统是单机版的系统，使用的是access2003数据库。数据库中共有用户表、社团部表、会员表、活动表、申请经费表、经费审批表、社团部根本情况表。1、用户表字段名称数据类型字段长度允许空否备注用户名文本10NO主键，用户登录名称口令文本6NO即密码权限文本1NO权限用以限制用户使用软件功能2、社团部表字段名称数据类型字段长度允许空否备注社团全称文本20NO主键社团负责人文本8NO中文名称最长为4个，英文8个社团创始人文本8NO主管单位文本20NO由学校哪个部门负责监管成立日期日期/时间NO成立协会日期社团性质文本20YES社团经费货币NO供以后协会活动开支社团简介文本20NO社团特征码文本6NO会费申请、查看时来确认。备注文本20YES3、会员表字段名称数据类型字段长度允许空否备注会员编号文本3NO主键姓名文本8NO性别文本2NO系别文本10NO班级文本10NO宿舍文本20YES文本11YES社团部文本20NO职位文本10YES会费货币货币NO参加日期日期/时间日期/时间NO4、活动表字段名称数据类型字段长度允许空否备注活动名称文本20NO所属社团文本20NO相关内容文本50YES发起人文本8NO发起时间日期/时间NO备注文本50YES5、申请经费表字段名称数据类型字段长度允许空否备注申请社团文本20NO尚有金额货币NO申请金额货币NO申请理由文本50YES申请日期日期/时间NO6、经费审批表字段名称数据类型字段长度允许空否备注申请部门文本20NO申请金额货币NO申请原因文本50NO审批方案文本6NO审批人文本8NO审批日期日期/时间NO审批理由文本50YES7、社团部根本情况表字段名称数据类型字段长度允许空否备注共有协会个数数字NO共有会员个数数字NO共有社团经费货币NO备注文本50YES系统设计系统总体功能结构本课题经过实际的需求分析，采用delphi7.0+access2003技术进行实现，整个系统效劳于普通用户、系统管理员两类用户，从操作简便、界面美观、灵活实用的用户要求出发，设计整个系统的功能模块如下列图：大学生社团管理系统系统模块框图大学生社团管理系统社团相关社团相关系统设置帮助会员相关系统设置帮助会员相关会员信息查询会员信息设置社团信息查询社团活动查询社团经费管理社团活动管理社团部门管理社团部根本信息会员信息查询会员信息设置社团信息查询社团活动查询社团经费管理社团活动管理社团部门管理社团部根本信息退出系统注销修改用户密码关于退出系统注销修改用户密码关于主程序窗体设计〔1〕实现目标程序启动后，在“系统登录〞界面验证操作员密码后，将进入主程序界面。主程序界面主要实现如下功能：〔1〕可通过菜单和工具栏快速选取工程，调用相就子程序。〔2〕显示系统日期和时间。〔3〕在窗口显示前，根据登录界面中的权限代码来设置不同用户可以使用不同的功能模块。主程序界面如下列图所示：〔2〕实现过程。添加新窗体，设置窗体name属性为main，设置窗体Caption属性为“校职工档案管理系统〞，保存窗体为mainform.pas。主要程序代码如下：计数器的代码：procedureTfrmmain.Timer1Timer(Sender:TObject);beginStatusBar1.Panels[0].Text:='欢送使用大学生社团管理系统';statusbar1.Panels[1].Text:=formatdatetime('yyyy''年''m''月''d''日''dddd'+'hh:mm:ssAM/PM',now);end;功能：状态栏的第一格显示“欢送使用大学生社团管理系统〞，第二格显示当前系统的日期时间。显示窗体时执行的代码：procedureTfrmmain.FormShow(Sender:TObject);beginifqx='1'thenbeginfrmmain.StatusBar1.Panels[2].Text:='您为系统管理员，可以使用软件所有功能！';endelsefrmmain.StatusBar1.Panels[2].Text:='您为一般用户，你只可以使用根本功能！';ifqx='2'thenbeginfrmmain.N5.Enabled:=false;frmmain.N9.Enabled:=false;frmmain.N10.Enabled:=false;frmmain.N13.Enabled:=false;frmmain.n22.Enabled:=false;endend;功能：当qx这个全局变量值为1时，表示刚刚登录的时候是使用了系统管理员，可以使用所有的功能，值为2时，表示刚刚是一般用户，只能使用局部功能。〔一〕系统设置功能设计系统设置模块对使用本系统的用户进行用户名、密码、用户身份的验证，确保了系统的平安性。本模块具有三项功能：〔1〕输入用户名和密码登录后，系统统根据用户身份让用户进入不同的界面进行具有权限的用户操作。分为guest用户，和admin用户，guest只有查看功能，admin具有所有功能。〔2〕用户注销，退出用户界面返回登录界面；〔3〕系统管理员可以进入设置用户密码界面，可以设置用户表中所有记录的口令和密码字段。该系统只设置了两个用户，一个超级管理员，一个guest用户。原因就在于，本系统可能会有很多会员使用，如果用户表中添加很多用户，管理起来不方便。而且没有这个必要，本系统除了超级管理员可以使用所有功能之外，其它用户只能使用查询功能，所以建太多用户和一个用户几乎没有区别。所以本系统中没有添加用户这一功能。1、登录功能实现如下：模块功能：输入用户名之后，在用户表中搜索是否有该用户名存在，如果有该用户名存在，那么验证密码正确与否，如果密码正确那么将其对应的权限赋值给一个变量。然后显示主界面，隐藏用户登录界面。主要代码如下：procedureTfrmlogin.Button1Click(Sender:TObject);begintryadoconnection1.Connected:=true;adotable1.Filter:='用户名='''+edit1.Text+'''';adotable1.Filtered:=true;adotable1.Open;exceptapplication.Terminate;end;ifadotable1.RecordCount=1thenbeginpasswd:=trim(adotable1['口令']);qx:=trim(adotable1['权限']);ifpasswd=edit2.Textthenbeginfrmmain.show;edit1.Text:='';edit2.Text:='';frmlogin.hide;exit;endelseapplication.messagebox('请确认密码，注意大小写！','密码不匹配',mb_ok);edit1.SetFocus;edit2.Text:='';endelseapplication.MessageBox('请重新输入用户名！','用户名不正确！',mb_OK);edit1.SetFocus;edit1.Text:='';edit2.text:='';end;2、修改密码功能实现如下：模块功能：输入用户名，系统检查该用户名是否存在，假设是存在的话，那么验证原密码是否正确，假设正确，那么输入新的密码并再次确认，如果两次密码相同，那么密码修改成功。界面包括控件adoconnection和adoquery，连接数据表用户表。“确定〞按钮代码如下：varusername,pwd:string;beginusername:=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['口令']))thenbeginshowmessage('该用户不存在或原口令不正确！');edit1.Text:='';edit2.Text:='';edit3.Text:='';edit4.Text:='';edit1.SetFocus;exit;end;if(edit3.Text='')or(edit3.Text<>edit4.Text)thenbeginshowmessage('密码不能为空或两次密码不一致，请检查！');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中。详细代码如下：vari:integer;beginmemo1.Text:=adotable1.fieldbyname('备注').AsString;//把备注写入到memo中。adoquery1.close;adoquery1.SQL.Clear;adoquery1.SQL.Add('selectcount(*)as记录数from社团部表');adoquery1.Open;i:=adoquery1.fieldbyname('记录数').AsInteger;adoquery1.close;adoquery1.sql.clear;adoquery1.SQL.add('selectsum(社团经费)as经费from社团部表');adoquery1.open;label3.Caption:=inttostr(i);//读协会个数赋值给label3的caption属性。label7.Caption:=inttostr(adoquery1.fieldbyname('经费').AsInteger);adoquery1.close;adoquery1.sql.clear;adoquery1.SQL.add('selectcount(*)as人数from会员表');adoquery1.open;label5.Caption:=inttostr(adoquery1.fieldbyname('人数').AsInteger);close;end;此外，本表单还使用到了打印功能，所以在这个表单中就存在报表。本报表没有使用自带的rave报表，rave报表在格式设置及生成查询报表这一块功能比拟弱，所以我使用ExcelApplication控件，把查询结果导出到指定名称的excel表中。当然在导出之前，是参照excel模板，这样导出的excel文件，局部格式是已经设置好的，还可以自己设置效果然后打印。实现代码如下：varExcelApp:TExcelApplication;//用来连接Excel应用程序ExcelWkbook:TExcelWorkbook;//工作薄ExcelWksheet:TExcelWorksheet;//Excel数据表i,j:integer;beginadoquery1.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:='社团详细情况';forj:=0toAdoQuery1.Fields.Count-1do//先写字段名beginExcelWksheet.Cells.item[2,j+1]:=AdoQuery1.Fields[j].DisplayLabel;//Cells对象：表示工作表的一个单元格。ExcelWksheet.Cells.item[2,j+1].font.size:=10;end;fori:=2toAdoQuery1.RecordCount+1do//一共要读AdoQuery1.RecordCount-1条记录beginforj:=0toAdoQuery1.Fields.Count-1dobeginExcelWksheet.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等控件，控件属性见表单设置。功能描述：该程序共有五个按钮，由界面可见添加，修改两个按钮会弹出界面来添加或修改数据。删除功能，直接在界面上表达。添加窗体如下：确定按钮代码如下：ifedit1.Text=''thenshowmessage('请输入社团名称')elseifedit2.Text=''thenshowmessage('请输入负责人')elseifedit3.Text=''thenshowmessage('请输入创始人')elseifedit4.Text=''thenshowmessage('请输入主管单位')elseifmaskedit1.Text='____-__-__'thenshowmessage('请输入成立日期')elseifmaskedit2.Text='______'thenshowmessage('请输入社团特征码')elseiffrmstxxsz.adotable1.Locate('社团全称',edit1.Text,[])thenbeginshowmessage('已经有该社团，请重新输入');edit1.Text:='';edit2.text:='';edit3.Text:='';edit4.Text:='';maskedit1.text:='____-__-__';maskedit2.Text:='______';edit6.Text:='';edit7.Text:='';memo1.Text:='';memo2.Text:='';edit1.SetFocus;endelsebeginifmessagedlg('确实要添加该社团吗？',mtInformation,[mbOK,mbCancel],0)=mrokthenbeginfrmstxxsz.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:='';edit7.Text:='';memo1.Text:='';memo2.Text:='';edit1.SetFocus;frmstxxsz.adotable1.Append;endelsebeginshowmessage('添加失败');frmstxxsz.adotable1.Append;end;end;该添加功能为了防止用户在执行过程中多个重要字段不录入，故而对相应字段输入为空时，提醒用户完善信息，否那么无法继续往下执行。当点击确定保存数据时，检查准备添加的社团名称是否已经在原有的数据表中存在，如果存在那么重新录入，否那么添加信息到社团部表中，并显示添加成功。其他功能描述略。代码详见源程序。打印功能同部门打印大同小异，这里不再解释。3、社团活动管理界面如下：该界面所包含控件与社团部门管理类似，不再列举。模块功能：由部门发起活动，活动信息包括活动名称、所属社团、发起人、相关内容及发起时间。可以添加、删除、修改。4、活动经费管理该模块包括四个子模块，分别为：经费申请、取消申请、经费审批、查看审批情况。〔1〕经费申请模块：主要是由相关负责人登录社团经费申请界面，登录时需要选择所在社团，输入社团特征码确认其具备经费申请资格。在进入经费申请界面后，可以看到所属社团目前所剩余经费，在界面中输入申请的金额，点击申请按钮确认。如果申请的金额超过剩余金额，系统会作出提示，要求重新申请。社团登录界面经费申请界面社团登录的进入按钮代码类似于系统登录代码，这里不再赘述。申请按钮代码类似前面模块中添加模块中确实定按钮，代码详见源程序。〔2〕取消申请模块：在提出申请之后，如果因为其他原因不想再申请经费了或是想用其他的理由申请更多的经费了，那么进入取消申请模块。在该模块中，可以见到本协会所提出的所有申请记录〔还没有审批过的记录〕。可以在表单中选择想取消的申请记录，单击“取消申请〞按钮取消这条记录。“取消申请〞按钮的代码类似于部门管理模块中的删除按钮。取消申请，实际上就是把数据表中的记录删除掉。〔3〕经费申请模块：在提出申请之后，超级管理员即社团总负责人可对各协会发出的申请做出审批，在申请记录中选取相应记录，那么该记录的信息会在下面表达出来，填写批准与否，如果批准了，那么在该社团经费中扣除相应的费用，并且提交审批记录到相应的数据表中，如果没有批准，那么该记录被取消，同样提交审批记录到相应的数据表中。审批按钮代码如下：iftrim(label3.Caption)=''thenshowmessage('请在上表中选择记录，假设无记录，那么自己退出')elseifstrtoint(label5.Caption)<strtoint(label8.caption)thenbeginshowmessage('该协会申请的经费超过了它目前还剩余的经费总数！无法审批');endelsebeginifcombobox1.Text='批准'thenbeginadotable3.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-ddhh:mm:ss',Now);adotable2.Post;combobox1.Text:='';edit1.Text:='';memo2.Text:='';adotable1.Edit;adotable1.Delete;end;〔4〕查看经费审批结果模块：该模块显示登录协会所提交的所有申请的审批记录，最后一条记录即为社团负责人最近审批的记录。单击记录表中的记录，那么审批的信息就会在下面表达出来。单击记录表表达记录信息的代码如下：procedureTfrmcksp.DBGr