CBuilder学生信息管理系统软件开发实训

1、某些图片出于隐私保护删除第1章绪论11背景与意义11.2国内外现状的研究1第2章学生信息管理系统模块功能设计及实现22.1系统功能分析22.2系统功能模块22.3系统功能实现22.3.1数据查找与浏览模块22.3.2数据修改模块22.3.3报表显示模块22.3.4系统封面构成模块22.4系统模块框架图3第3章学生信息管理系统设计步骤43系统封面设计43.2数据库创建7321创建数据库别名73.2.2创建数据表83.3学生信息管理系统主界面设计8331主界面总体设计83.3.2信息浏览功能设计123.3.3信息删除功能设计133.3.4信息查询功能设计133.3.5信息更新功能设计163.4学生

2、信息添加界面设计163.5学生信息修改界面设计193.6照片信息添加与修改223.7报表打印界面设计23结论26参考文献27第1章绪论1.1背景与意义随着我国高等院校的连年扩招，学牛人数不断增加，给学校各院系的学牛管理工作带来了 巨大的压力.同时，信息时代的到来,使高校的学牛管理工作不可抗拒的地加速进入信息网络 时代,学牛信息的管理采取和利用在高校中将发挥越来越重要的作用同时随着素质教育的深 入开展，要做好学牛管理工作，各院系就必须尽可能多地掌握学牛情况.在学生人数大量增加, 而学牛管理教师缓慢增加的同时，我们就必须有一个良好的学牛信息管理系统,这样才能把握 学生的信息动态.在这其中，信息的采

3、集是尤为重要的，只有具有了全面的学生信息，才能在了 解学牛的同时降低学牛管理的工作量也只有拥有了健全完整的学生信息，我们才能更好的合 理的利用学牛管理信息,并服务于学牛.学牛管理系统是一个学校不可缺少的部分，它的内容 对于学校的决策者和管理者来说都至关重要，所以学牛管理系统应该能够为管理者提供充足 的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方 式存在着许多缺点：效率低、保密性差，另外，时间一长，将产牛大量的文件和数据，这对 于查找、更新和维护都带来了不少的困难，随着科学技术的不断提高，计算机科学日渐成熟, 其强大的功能己为人们深刻认识，它己进入人类社会的各个

4、领域，并发挥着越来越重要的作 用，作为计算机应用的一部分，使用计算机对学牛信息进行管理，具有手工管理无法比拟的 优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成木低等。 这些优点能够极大地提高学牛信息管理的效率，也是学校的科学化、正规化、管理与世界接 轨的重要条件，因此。开发这样一套系统成为很有必要的事情1.2国内外现状的研究计算机在管理中的应用开始于1954年，当时美国首先用计算机处理工资单。40多年来, 计算机在处理管理信息方面发展迅速。例如，60年代美国计算机在管理中应用项目不到300 项，到了 1975年达到2670项。而现在，美国在财务会计上90%的工作由计算

5、机完成；物资 管理中80-100%的信息处理由计算机完成；计划管理中是8090%。据计算机应用方面发展 较快的国家统计，计算机用于经济管理的约占80%；用于科技运算的占8%；用于生产过程控 制的占12%。我国在全国范围内推广计算机在管理中的应用，是在70年代末开始的，虽然起 步较晚，近几年发展却较快，特别是微型计算机的出现和普及为信息处理提供了物美价廉的 手段，对于推动我国管理信息处理的现代化起了重要的作用。第2章 学生信息管理系统模块功能设计及实现2.1系统功能分析 资料维护：系统维护包括对各种表记录的修改、删除、添加等操作。 资料维护：对数据表中的信息进行浏览。 系统查询：可以按学号、姓名

6、等相关信息进行详细或模糊查询。 报表统计：学号、学生姓名、学生性别、所在班级、年龄、入学日期、职务、照片和 简历等字段。 其它操作：系统封面、计吋器控制与人性化提示信息。2. 2系统功能模块学牛管理系统由数据查找与浏览、数据修改、报表显示和系统封面构成。2. 3系统功能实现2.3.1数据查找与浏览模块(1) 数据查找：学号、学生姓名、学生性别、所在班级、年龄、入学日期、职务、照片 和简历等字段进行精确或模糊查找。(2) 数据浏览：可以对数据表中的数据实现，上一项、下一项、首相、尾项等操作。(3) 其他信息：设置字体、颜色属性和一些提示信息。2. 3. 2数据修改模块(1) 添加数据：增加一个新

7、的记录。(2) 修改数据：修改原有记录。2.3.3报表显示模块显示当前查找到的数据内容，以报表形式打印。2. 3. 4系统封面构成模块(1) 系统时钟：在在设定的时间间隔内，系统封面显示达到或超过设定的显示吋间，系 统封面会自动释放(2) 功能实现：进入主界面与退出系统。2. 4系统模块框架图系统模块框架由四部分，八项功能组成，如图1所示:数据查找数据浏览其他信息添加 数 据修改数据以报表形式打印功 能 实 现系统时钟系统模块框架图第3章 学生信息管理系统设计步骤3.1系统封面设计首先在系统封面插入自己喜欢的图片，利用additional选项卡中的timage组件完成插 入图片,stretch

8、属性改为true拉伸图片至整个窗体，利用tlabel组件显示"学生信息管 理系统”和剩余的时间。另外利用system选项卡中的ttimer组件来设置进入系统的定吋操 作。最后利用两个tbutton组件完成进入系统与退出系统的功能，设置showhint属性为true 显示提示，caption输入（&r）可进行al t+r快捷键操作。系统封面图设计如下：图2.系统封面设计图 本部分程序代码如下：/#include <vcl.h>#pragina hdrstopinclude ”unitl.h”include hunit2.hh/#pragma package(smar

9、t_init)#pragma resourceint logintime=6;tform 1 *form 1;/void _fastcall tforml:timerltimer(tobject sender)if(logintime=0)timer 1 ->enabled=false;form2->show();forml->hide();logintime=l;logintime;label 1 ->caption ="剩余(m+inttostr(logintime)+n 秒)自动进入"/void _fastcall tforml :button

10、lclick(tobject sender)timer 1 ->enabled=false;form2->show();/void _fastcall tforml :button2click(tobject sender)close();/void _fastcall tforml :formclosequery(tobject * sender, bool & canclose) if(messagedlg("确实要关闭系统吗?" ,mtconfirmation,tmsgdlgbuttons()«mbok«mbcancel,0)=

11、mrcancel)canclose=false;/本系统设计的进入程序的倒计吋间为6秒，到6秒以后系统自动进入登陆界面，也可以 点击进入按钮立刻进入系统。在关闭系统吋，会询问是否关闭系统，以免发生误操作。程序 运行后界面效果图如下：图3.系统封面运行效果图系统运行时，当点击退出按钮，或者alt+c快捷键，会出现如下界面:欢迎便冃学生信見耸遅矣統i oi 回 i图4系统退出界面图3. 2数据库创建3.2.1创建数据库别名利用bde administrator新建一个叫student的别名，选择好路径后点击应用，保存别 名，如图5所示：醪 bde administrator c:program f

12、ilescommon filesborland sharedbde 对鎳(o)碍(e)查看(v)选项(p)帮助(h)所有数据库别名student的定义数揺库|定义i日“数据库typestandard由殆bcdemosdefault driverparadox由“舌 dbase filesenable bcdfalse由 “d efaultd dpathf:c+田苗 excel files+ " ib local由“殆lyt田百 ms access database"e sludent图5.数据库别名建立界面3. 2. 2创建数据表新建一个数据表 biao. db,添加 xh

13、、xm、xb、bj、nl、rxrq、zw、zp、jl 字段，xb 为逻 辑型l, zp为图案型g,其他为字符型a,双击xii设置为关键字。图6.数据表结构在table properties下拉列表框中选择secondary indexes吋，单击define按钮，将显示 define secondary indexes对话框。从fields列表框中选择索引字段添加到右边的index fields列表框中。添加xh作为索引字段，单击0k按钮，输入索引名,如tndex_xh，再单击ok 按钮结束索引字段的定义。所有字段输入完后，点击save as,保存为bmo. db即可。3. 3学生信息管理系统

14、主界面设计3.3.1主界面总体设计学生信息管理系统主界而主要由菜单栏、数据显示栏、文本显示、文本输入框和状态栏 以及功能按钮组成。通过设置table 1, datasource 1, query 1, datasource2属性，进行数据库 与表的连接。属性设置由对彖检视器界面设置，其屮tablcl的database name设置为数据库别 名 student, table name为数据库的名称 biao. db,另外datasource 1 组件的dataset 属性设置为tablel , tablel的active属性设为true , dbgrid 1的datasource属性设为 da

15、tasource 1 这样，tdbgridl组件就与数据库相联立起來了，queryr datasourcc2> tdbgrid2 设置同上，qucryl额外设置sql屈性为sclcctfrom biao. dbo学生信息管理系统主界面图如 下：图7.学生信息管理系统主界面图主界面程序如下：/#include <vcl.h>#pragma hdrstop#include munit2.h"#include "unit3.hn#include "unit4.h”#include "unitl.h”#include "unit5.h

16、u/#pragma package(smart_init)#pragma resource n*.dfm"tform2 *form2;/void _fastcall tform2:button 1oc1 ick(tobject sender)if(messagedlg(h真的更新数据库表? m,mtconfirmation,tmsgdlgbuttons()«mbyes«mbno,0)=mryes)table 1 ->active=false;table 1 ->active=true;elsetable l->cancel();statusbar

17、l->panels->itemso->text=h 进行了更新数据库”；/void _fastcall tform2:dbimage 1 click(tobject sender)if(table 1 ->readonly)return;if(opendialog 1 ->execute()table l->edit();dbimagel->picture->loadfromfile(opendialogl->filename);table l->post();/void _fastcall tform2:button7click(t

18、object sender)form3->show();statusbarl->panels->itemso->text="进行了 添加记录”；/void _fastcall tform2:button8click(tobject sender)if(table 1 ->findkey( arrayofconst(edit 1 >text)showmessagec'id录找到，可以修改！ ”)；form4->show();statusbar 1 ->panels->items 0 ->text=11 进行了修改记录&

19、quot;elseshowmessage("查无此人！ ”);editl->text=nu;/void _fastcall tform2:table 1 calcfields(tdataset dataset)if(table 1 ->fieldbyname(mxb" )-> asboolean)table 1 ->fieldbyname(usex")->asstring="男”;elsetablel->fieldbyname("sexn)->asstring="女"；/void _

20、fastcall tform2:n2c1 ick(tobject sender)forml->show();/void _fastcall tform2:n3click(tobject sender)form2->close();forml->close();/void _fastcall tform2:buttonllclick(tobject sender)form5->quickrep 1 ->preview();form5->close();statusbar 1 ->panels->items 0 ->text= '* 进

21、行了 打印报表”；/void _fastcall tform2:query 1 calcfields(tdataset dataset)if(queryl->fieldbyname(nxb")->asboolean)query 1 ->fieldbyname(,'sex,)->asstring="男”;elsequery l->fieldbyname(nsex")->asstring="女"；/void _fastcall tform2: :formcreate(tobject * sender)st

22、atusbarl->panels->itemso->text=n 欢迎使用学生管理系统”；statusbarl->panels->itemsl->text=now();/void _fastcall tform2:hlclick(tobject sender)showmessage("欢迎使用学生信息管理系统！ n本界面有如下功能：n1学生信息浏览、添加、修改、查找和删除的操作。n2浏览、添加和修改学生照片。n3 数据维护完毕可更新数据库n4.进行打印报表。/void _fastcall tform2:n51 click(tobject sende

23、r)if(fontdialog 1 ->execute()form2->font=fontdialog 1 ->font;/void _fastcall tform2:c 1 click(tobject sender)if(colordialogl ->execute()form2->panel 1 ->color=colordialog 1 ->color;form3->panel 1 ->color=colordialog 1 ->color;form4->panel 1 ->color=colordialog 1 -

24、>color; /void _fastcall tform2:d 1 click(tobject sender)if(colordialogl ->execute()dbgrid 1 ->color=colordialog 1 ->color;dbgrid2->color=colordialog 1 ->color; /3. 3. 2信息浏览功能设计信息管理主界而中的置顶、上一条、下一条、置尾按钮与tablel相连，具体实现程序如 下：/void _fastcall tform2:button3click(tobject sender)table l->

25、;first();statusbarl->paneis->itemso->text=n 点击了首项按钮”;/-void _fastcall tform2:button4click(tobject sender)table l->next();statusbar 1 ->panels->items ->text=n 点击了下一项按钮”；/void _fastcall tform2:button5click(tobject sender)table 1 ->moveby(-1);statusbar 1 ->panels->items -&

26、gt;text=n 点击了上一项按钮”；/void _fastcall tform2:button6click(tobject sender)table l->last();statusbar l->panels->itemso->text="点击了 尾项按钮”；/3. 3. 3信息删除功能设计利用信息管理主界而删除按钮实现数据库的删除功能，具体程序如下：/void _fastcall tform2:button9click(tobject sender)ansistring ass;if(application->messagebox("确定

27、要删除:"+ass+”的记录吗？ ").c_str(),”提示,mb_yesno)=idyes)table l->delete();statusbar l->panels->itemso->text="进行了 删除记录"/3.3. 4信息查询功能设计利用tqueryl> datasource2与数据表的关联，通过sql语句实现信息精确查找或模糊查 找的功能，将结果显示在tdbgrid2otqueryl的sql属性要特别设置为selectfrom biao. db。 功能效果如下：图8.精确查找效果图图9.模糊查找效果图本功能

28、程序如下：/void _fastcall tform2:buttonlclick(tobject sender)ansistring ass,tabname;tabname=hbiao.dbn;query 1 ->active=false;query 1 ->sql->clear();query 1 ->sql->add("select *”)；£1 -h 冷unoopjog讨 v心ond)nsojl)ui+“:m 糜&眸糜轴彰 d 谢“mxojx-iolsluqiivsquedvljmsmeis osp:“事糜轴为吕谢生“二以0丄vo

29、sui勿i<s2inm<.n?£sme)s (o=)uno3pjoo0y<- xjono)j!hu=k-iwh tonjj=9aijoy<- k.ionf)(.hx a9 hhahotl)ppv<-nbs<-lno-(uj%h+±<-nipa+h%. a>in hx hh3hmh)ppv<-n0s<-1-(ssu)ppv<-qds<-1:“q珂d+qureuq切+g iaiohj.=ssb：(“* idanas.)ppv<-nds<-1oid<-nds<-mndspj=oapoy

30、<-心 on。二思 ctovi 乩二 oweuqm touipuqurssp sulngisuy(gpu%* 29©0丄)羽!0乙uomq:乙lujohjl he6s% p!oa. i匾率场口事糜尸)x0丄vosui勿i<s2inm<.n?£sme)s(0=juno3pjooo>j<-i xjono)j!hu=k-iwh 19njj=0aij9y<-心 on。(.hx a3 hhahok)ppv<-n0s<-1-(z+k-pipa+,u=hx 3hahm.)ppv<-qds<-1:(ssp)ppv<-qds&

31、lt;-1：“q科d+qweuqm+.n pvo&l二sse3. 3. 5信息更新功能设计当点击添加按钮时，当前添加的数据被录入到数据库中，由于table组件功能的局限性， 需要将数据库关闭后在打开，数据才算真正的录入，因而信息管理主界面有数据更新和刷新 功能，具体程序如下：/void _fastcall tform2:button 10c1 ick(tobject sender)if(messagedlg(h真的更新数据库表？ "jntconfirmation,tmsgdlgbuttons()«mbyes«mbno,0)=mryes)table 1 -&

32、gt;active=false;table 1 ->active=true;elsetable l->cancel();statusbar 1 ->panels->items 0 ->text=n 进行 了 更新数据库”;/3.4学生信息添加界面设计添加界面就由一系列tbutton组件、tlabel组件、tedit组件和tmemo组件通过编程来 实现，通过信息管理主界面的添加按钮调出添加界面，注意在窗体调用的时候要把被调窗体 的头文件放在调用窗体的头文件中，这样才能实现窗体间的调用。添加界面设计如下：图10.添加界面本程序实现的功能有当添加的某一项为空吋，提醒输入

33、内容不能为空，当点击清空按钮 时，实现各个编辑框信息清除，为下一次数据录入做准备。添加界面程序如下：/#include <vcl.h>#pragma hdrstop#include "unit3h”#include munit2.h"/#pragma package(smart_init)#pragma resource ”*.dfm"tform3 *form3;/void _fastcall tform3:button 1 click(tobject sender)if(edit 1 ->text.isempty()showmessage(h输

34、入的学号不能为空”)；return;if(edit2->text.isempty()showmessage(h输入的姓名不能为空j;return;if(edit3->text.isempty()showmessage(n输入的性别不能为空”);return;if(edit4->text.isempty()showmessage(n输入的班级不能为空”)；return;if(edit5->text.isempty()showmessage(n输入的年龄不能为空')；return;if(edit6->text.isempty()showmessage(n输入的

35、入学日期不能为空”)；return;if(edit7->text.isempty()showmessage(n输入的职务不能为空”)；return;if(memo 1 >text.isempty()showmessage(n输入的简历不能为空”)；return;table 1 ->append();table l->fieldbyname(,xhh)->asstring=editl->text.trim();tablel->fieldbyname(nxmn)->asstring=edit2->text.trim();tablel->f

36、ieldbyname(,xb,)->asstring=edit3->text.trim();table l->fieldbyname(,'bj,)->asstring=edit4->text.trim();tablel->fieldbyname(unl")->asstring=edit5->text.trim();tablel->fieldbyname("rxrqn)->asstring=edit6->text.trim();table l->fieldbyname(nzwu)->asst

37、ring=edit7->text.trim();tablel->fieldbyname(njln)->asstring=memol->text.trim();table l->post();showmessage("添加成功! ”);form2->show();form3->close();/void _fastcall tform3:button3click(tobject sender)form3->close();/void _fastcall tform3:button2click(tobject sender) editl-&

38、gt;text=,h,;edit2->text=,h,;edit3->text=,h,;edit4->text=,h,;edit5->text=,m,;edit6->text=,n;edit7->text=,m,;memol->text=nn;/3. 5学生信息修改界面设计数据修改界面主要完成数据库原有数据的修改功能。本设计思想为，先在主界面快捷查 询要修改数据的原信息，确认其存在然后光标定位其位置，之后完成修改。快捷查询的程序 代码如下：/void _fastcall tform3:button8click(tobject sender)if(tab

39、le 1 ->findkey(arrayofconst(edit 1 ->text)showmessage(”记录找到，可以修改！ ”)；elseshowmessage("查无此人！ ”);editl->text=,n;/在主界面点击修改后效果如下：图11.搜索待修改学号效果面实现修改的代码如下：/#include <vcl.h>#pragma hdrstop#include "unit4.h”#include "unit2.hu/#pragma package(smart_init)#pragma resource n*.dfm&q

40、uot;tform4 *form4;/void _fastcall tform4:buttonlclick(tobject sender)if(dbeditl->text.isempty()showmessage(n输入的学号不能为空”);return;if(dbedit2->text.isempty()showmessage(n输入的姓名不能为空”)；return;if(dbedit3->text.isempty()showmessage(n输入的性别不能为空”);return;if(dbedit4->text.isempty()showmessage(n输入的班级不

41、能为空”)；return;if(dbedit5->text.isempty()showmessage(n输入的年龄不能为空”)；return;if(dbedit6->text.isempty()showmessage(n输入的入学口期不能为空”)；return;if(dbmemo 1 ->text.isempty()showmessage(n输入的简历不能为空”)；return;form2->table 1 ->edit();form2->table 1 ->fieldbyname(nxh")->asstring=dbeditl >

42、;text.trim();旁耳耳淀浴亘疾啟萍斗form2vtaborvfiadbyname(=xmvvasstringhdbedit2texr.trim()； formyvtabolvfieldbynamec.xbvvassh'inghdbedicvtexltrimoi form2vtabfrlvfi2-dbynamc(=bjvvasstringhdbedir4vtcxt.trim()； form2vtabfrvfieldbyname(=nlvvasstringhdbedit5vtcxt.tri m()； form2vtaborvfieebyname (二rxrq-vvassh.ngh

43、dbedigvtexltrimp f0rm2otablervfi2-dbyname(zwvvass5.nghdbedit7otext.trim0; form2vtabfrrvfiadbynamc(jl=)vasstringhdbmemorvtcx.trim()； form2vtable 1 ivposto;showmessage(»a一 =)；form2vstatusbarrvpanelsvitemsovtexth=bicu池；form2vshow()八form4vcosc()；= void fastcall tform4xbuiton2click(tobject sender)db

44、editrvtexnl;dbedityvtexiw;dbedisvtex 口二.；dbeditfvtexzw;dbmemo 1 vtext"三-八dbedigvtexiw;dbedityvtexzw;dbedisvtexf.;)_ void fastcall tform4xbuhon3c=ck(tobject sender)(form4vcose()；信息修改界面如下:图12.信息修改界面3.6照片信息添加与修改木系统利用data control选项卡中的tdbimage组件完成。添加一个tdbimage组件和一 个opendialogs组件，双击table组件，出现一个编辑器，单击右键，选中add all fields, 点击ok,设置所有字段的tfield属性，然后设置tdbimage组件属性，datasource属性设为 datasourcel, datafield 的属性设为 zp, opendialogs 事件中的 fitler 中编辑 bmp|*. bmp | jpg i*. jpg|所有文件|*.*,双击tdb image,编写相关程序，代码如下：/void _fastcall tform2:dbimagelclick(tobject sender)if(table 1 ->readonly)return;if(opend