毕业设计信息管理系统.docx

1、毕业设计信息管理系统黔东南民族职业技术学院毕业论文 题 目：学生成绩管理系统姓 名： 班 级： 指导老师: 2007年5月28日前 言管理信息系统是一个利用计算机软件硬件资源以及数据库的人-机系统，它提供信息支持企业或组织实现运行，管理和决策功能。随着我国改革开放的深入和加入WTO与世界接轨后，各行各业的许多企业通过使用计算机设备和管理信息系统来运行，由VisualBasic的易用性和灵活性，所以它是开发管理信息系统的首选。VisualBasic的应用程序开发极易上手，只需要一些VisualFoxPro数据库及操作;结构化查询语言;结构化程序设计;查询与视图设计;面向对象的基础知识。随着可视化

2、技术的发展，VB逐渐成为新一代计算机程序设计的工具。利用这种工具，能够使用户摆脱了面向过程语言的许多细节，而主要的精力集中在解决问题上和设计用户好界面 上,使编程工作变得轻松快捷。因此，在各个领域中应用非常广泛。 许多计算机专业和非计算机专业的人员常常用它来编程开发应用程序和软件。这些都使得VisualBasic结构严谨、概念准确、理论联系实际、深入浅出、通俗易懂，成为一套非常好用的程序开发环境。随着市场的竞争日趋剧烈，人才已成为实现企业战略目标的关键因素，企业中人心的向背和员工对工作的投入程度在很大程度上决定了该企业的兴衰与成败。如何能保持本企业员工的工作责任感，激励他们的工作热情，减少人才

3、的流失，已成为困扰企业主管和人力资源经理日益尖锐的问题。本项目是为学生成绩管理系统而设计的，目前,经营方式的变革和日薪月益的新技术的应用，使通企业迎来了高速发展的新纪元。面对此问题企业需要通过改革和创新，提高管理能力，提高核心竞争力，通过导入规范的信息管理系统，建立信息化管理平台，借助先进的计算机技术，网络通信技术以及先进的计算机管系统软件，实现集团化、专业化、信息化的经营方式，以实现集中管理，使业务周期缩短，成本降低，提高核心竞争力。 系统使用说明安装好系统，进入学生成绩管理系统的主界面，然后调出需要的管理窗口，如调出学生查找学生基本信息查询成绩查询/学生基本信息修改/成绩修改等窗口，可根据

4、它的属性对其进行相应的设置，如果不需要做任何工作既可退出本系统。目 录一 需求分析 1.1 功能需求 1.2开发与运行环境.二 系统设计. 2.1 系统模块设计. 2.2 数据库设计.三 详细设计 3.1 引言. 3.2 软件工程的工具. 3.3 内容 3. 应用程序的创建四参考文献五小结一. 需求分析1.1 功能分析： 录入，用于学生成绩/选课信息的录入； 删除，用于学生成绩/选课信息的删除； 修改，用于学生成绩/选课信息的部分或全部修改； 查询，用于学生成绩/选课信息的查询。、数据流图（DFD）：1.2开发与运行环境 成绩管理系统开发与运行环境如下：开发环境：Windows XP数据库管理

5、系统：Microsoft office Accecc 运行环境：Windows 98/ME/2000/XP数据库实现使用Microsoft Accecc创建数据库创建成绩信息, 课程资源，数据处理录入，学生基本信息，用户，管理员等表。二 系统设计2.1 系统模块设计模块设计如图：学生成绩管理2.2 数据库结构设计创建表1成绩信息表 成绩修改成绩查询添加删除成绩退出系统 2.课程资源表3数据处理录入表4学生基本信息表5用户表6管理员表 成绩=学号+姓名+性别+所在系别。 学号=数字；姓名=文本; 性别=文本；所在系别=文本。 .课程资源=所在系别+所在专业 +所在班级 +课程名称 +课程代码 学

6、生=学号+姓名+民族+出生年+出生月。 用户=用户名+密码+性别+出生年+出生月。 管理=编码+管理员+密码。 三、详细设计3.1 引言目的：对整个软件开发的过程进行编写和设计。背景：用于对项目的来源。本软件实属原来开发人员所开发。3.2软件开发的工具计算机、SQL Server 2000 +Access、WindowsXP。3.3内容软件设计的过程和所需要的过程界面，对一些程序进行编码。3.4应用程序的创建 1欢迎界面的创建(1) 启动VB，单击工具栏上的按钮将自动创建的窗体保存。(2) 向窗体中添加2个控件选项卡中Standard选项卡内的Label和一个Panel1控件，一个Timer1

7、控件。单击工具栏上的Save All 按钮保存。（3）Label1的Caption属性为“欢迎进入”，Label2的Caption属性为“学生成绩管理系统”。设置好的窗体如图所示：为实现窗体功能，需要添加如下代码procedure TForm1.Timer1Timer(Sender: TObject);begin if form1.panel2.Leftform1.panel1.Width then begin form1.panel2.Left:=form1.panel2.Left+5; exit; end; timer1.Enabled:=false; flag:=true;end;2登录

8、窗体的创建（1）启动VB，单击工具栏上的Save All 按钮将自动创建的窗体保存。（2）将主窗体的Caption属性改为“登录”。向窗体中添加2个Edit控件，4个Image控件，8个Label控件，8个Panel 控件,并设置各控件的属性如表示。设置好的窗体如图所示：控件名属性修改后的属性控件名属性修改后的属性Label1caption用户名Label2caption密码Button1Caption用户登录Button2Caption新用户注册Button3Caption超级管理员登Button4Caption退出系统。为实现窗体功能，需要添加如下代码procedure TForm2.Sp

9、eedButton1Click(Sender: TObject);begin results:=ADOTable1.Lookup(用户名,edit1.text,密码);检索数据库中对应用户名的密码项 if edit1.Text= then application.MessageBox(用户名不能为空！,提示,mb_ok) else if edit2.Text= then application.messagebox(密码不能为空！,警告,mb_ok) else showmessage(密码错误或用户不存在！); edit1.Visible:=true; edit2.Visible:=true;

10、 edit1.Text:=; edit2.Text:=;end;end.3，退出窗体的创建（1） 启动VB ，单击工具栏上的Save All 按钮将自动创建的窗体保存。（2） 向窗体中添加1个Image控件，2个Label控件，2个SpeedButton控件.并设置各控件的属性。设置好的窗体如图所示：控件名属性修改后的属性SpeedButtoncaption确定退出SpeedButtoncaption取消退出为实现窗体功能，需要添加如下代码procedure TForm3.SpeedButton1Click(Sender: TObject);beginapplication.ProcessMe

11、ssages;form2.Close;form3.Close;end;4用户注册窗体的创建（1），启动VB ，单击工具栏上的Save All 按钮将自动创建的窗体保存。（2），将主窗体的Caption属性改为“新用户注册”。向窗体中添加4个ComboBox控件，9个Edit控件，2个Image控件，16个Label控件，2个Memo控件，10个Panel控件，3个SpeedButton控件.并设置各控件的属性如表所示。设置好的窗体如图所示：控件名属性修改后属性控件名属性修改后属性Label1Caption用户名Label2Caption密码Label3Caption核对密码Label4Capt

12、ion性别Label5Caption出生年月Label6Caption联系地址Label7Caption联系电话Label8Caption邮政编码Label9Caption电子邮件Label10Caption所在系别Label11Caption所在班级Label12Caption个人爱好Label13Caption选择用户头像Label14Caption用户注册SpeedButton1Caption提交SpeedButton2Caption重置SpeedButton3Caption取消为实现窗体功能，需要添加如下代码：procedure TForm4.SpeedButton1Click(Sen

13、der: TObject);begin SQL.Clear; SQL.Add(select * from 用户表 where 用户表.用户名=:a); parameters.ParamByName(a).Value:=Trim(Edit1.Text); Open;end;h:=edit2.Text;k:=edit3.Text;if (edit1.Text=)or(edit2.Text=)or(edit3.Text=) or (edit4.Text=)or (edit5.Text=)or (edit6.Text=)or (edit7.Text=)or (edit8.Text=)or (edit9

14、.Text=)thenbeginapplication.MessageBox(信息不完整！,错误操作,mb_ok);else if hk thenbeginapplication.MessageBox(密码不匹配！,错误操作,mb_ok);else if ADOQuery1.Eof=false then begin ShowMessage(该用户已经存在，请重新填写); Edit1.Clear endelseif not (IsVaildEmailAddr(Edit7.Text) then begin ShowMessage(您输入的电子邮件地址格式不合法!); Edit7.Clear;ado

15、query1.sql.clear;Adoquery1.sql.add(insert into 用户表(用户名,密码,性别,出生年,出生月,联系地址,联系电话,邮政编码,电子邮箱,所在系别,所在班级,个人爱好,用户头像,用户备注)values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14);Adoquery1.execsql;application.MessageBox(数据已录入，请查看！,完成提示,mb_ok); Result:=True; /以上的判断都通过，则表示地址字符串为合法 end;5学生窗体的创建（1）打开V isualBasic

16、6.0教材，按F5键或单击工具栏上”启动”按钮运行程序,程序运行结果如图。（2）将窗体的Caption属性改为“学生基本信息”。向窗体中添加1个GroupBox控件，在GroupBox上添加4个ComboBox控件，16个Edit控件，3个GroupBox控件，在GroupBox2上添加1个SpeedButton控件，在GroupBox3上添加1个SpeedButton控加，在GroupBox4控件上添加1个SpeedButton控件，25个Label控件，2个Memo控件，2个Panel控件。并设置各控件的属性，设置好的窗体如图所示：为实现窗体功能，需要添加如下代码：procedure TF

17、orm6.Edit9KeyPress(Sender: TObject; var Key: Char);begin Application.MessageBox(邮政编码只能用数字表示，请重新输入！,警告,0+64) end;end;procedure TForm6.Edit1KeyPress(Sender: TObject; var Key: Char);begin Application.MessageBox(学号只能用数字表示，请重新输入！,警告,0+64) end;end;procedure TForm6.Edit10KeyPress(Sender: TObject; var Key:

18、Char);begin Application.MessageBox(联系电话只能用数字表示，请重新输入！,警告,0+64) end;end;6查找窗体的创建（1）启动VB,工具栏上的Save All 按钮将自动创建的窗体保存。（2）将主窗体的Caption属性改为“精确查找”，向窗体中添加1个GroupBox控件，在GroupBox控件上添加1个Edit，1个Label控件，1个SpeedButton控件。并设置各控件的属性，设置好的窗体如图所示：为实现窗体功能，需要添加如下代码：procedure TForm8.SpeedButton1Click(Sender: TObject);begi

19、nform7.PageControl1.ActivePage:=form7.tabsheet2;if edit1.Text= then begin MessageBox(handle,请输入姓名,不能为空！,提示,MB_OK or MB_ICONINFORMATION); exit; endelse begin form7.adoquery1.SQL.Clear; form7.adoquery1.Close; form7.adoquery1.sql.Add(select *from 用户表 where 用户名=+Edit1.Text+); MessageBox(handle,查询完毕！,提示,

20、MB_OK or MB_ICONINFORMATION); form7.adoquery1.Open; edit1.Text:=; end;end;7成绩录入窗体的创建（1）启动VB ，单击工具栏上的Save All 按钮将自动创建的窗体保存。（2）将主窗体的Caption属性改为“成绩录入”，向窗体中添加1个GroupBox控件，在GroupBox控件上2个ComboBox控件，8个Edit控件，3个GroupBox控件，12个Label控件，1个Memo控件，2个Panel控件,并设置各控件的属性，设置好的窗体如图所示：为实现窗体功能，需要添加如下代码：procedure TForm9.S

21、peedButton1Click(Sender: TObject);beginbeginwith ADOQuery1 do begin close; SQL.Clear; SQL.Add(select * from 成绩信息表 where 成绩信息表.学号=:a); parameters.ParamByName(a).Value:=Trim(Edit1.Text); Open; end; if (edit1.Text=)or(edit2.Text=)or(edit3.Text=) or (edit4.Text=)or (edit5.Text=)or (edit6.Text=)or (edit7

22、.Text=)or (edit8.Text=)or(combobox1.Text=)or(combobox2.Text=) thenbeginapplication.MessageBox(信息不完整！,错误操作,mb_ok);exit;endelse if ADOQuery1.Eof=false then begin ShowMessage(该学生已经存在，请重新填写); Edit1.Clear endelsebeginadoquery1.close;adoquery1.sql.clear;Adoquery1.sql.add(insert into 成绩信息表(学号,姓名,性别,所在系别,所在

23、专业,所在班级,课程名称,课程代号,学期,成绩,备注内容)+values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11);Adoquery1.execsql;application.MessageBox(数据已录入，请查看！,完成提示,mb_ok);edit1.Text:=;edit2.Text:=;end;end;end;8学生成绩管理窗体的创建（1）启动VB ，单击工具栏上的Save All 按钮将自动创建的窗体保存。（2）将主窗体的Caption属性改为“学生成绩管理系统”，向窗体中添加1个MainMenul控件，2个Panel控件，1个PopupMenul控件

24、，1个StausBar控件，1个TreeView控件。向Panel1控件上添加6个GroupBox控件，在每个GroupBox 控件上添加1个SpeedButton控件。在Panel2上添加2个DBGrid控件1个Image控件，1个Panel控件，为实现窗体功能，需要添加如下代码procedure TForm10.BitBtn2Click(Sender: TObject);beginDBgrid1.Visible:=true;DBgrid2.Visible:=false;DBgrid1.Font.Color:=clteal;if edit5.Text= then begin MessageB

25、ox(handle,请输入姓名,不能为空！,提示,MB_OK or MB_ICONINFORMATION); exit; endelse begin adoquery2.SQL.Clear; adoquery2.Close; adoquery2.sql.add(select *from 学生基本信息表 where 学号=+Edit5.Text+); MessageBox(handle,查询完毕！,提示,MB_OK or MB_ICONINFORMATION); adoquery2.Open; statusbar1.Panels1.Text:=总共找到 +inttostr(ADOQuery2.R

26、ecordCount)+ 条记录; edit5.Text:=; end;end;procedure TForm10.BitBtn3Click(Sender: TObject);varsql:string;beginif (edit6.Text)or (edit7.Text)or (edit8.Text)or (edit9.Text)or (edit10.Text)or (edit11.Text)or (combobox2.Text)then sql:=where (学号 like+%+edit6.Text+%) or (姓名 like+%+edit7.Text+%) or (所在系别 like

27、+%+combobox2.Text+%) or (所在专业 like+%+edit8.Text+%) or (所在班级 like+%+edit9.Text+%) or (贯籍 like+%+edit10.Text+%)or (政治面目 like+%+edit11.Text+%) else begin application.messagebox(没有查询条件！,提示,mb_ok); exit; end; ADOQuery2.SQL.Add(select * from 学生基本信息表); statusbar1.Panels1.Text:=总共找到 +inttostr(ADOQuery2.Reco

28、rdCount)+ 条记录; edit6.Text:=; edit7.Text:=; edit8.Text:=; edit9.Text:=; edit10.Text:=; edit11.Text:=;end;procedure TForm10.BitBtn4Click(Sender: TObject);begin MessageBox(handle,请输入姓名,不能为空！,提示,MB_OK or MB_ICONINFORMATION); exit; endelse begin adoquery1.SQL.Clear; adoquery1.Close; adoquery1.sql.add(select *from 成绩信息表 where 学号=+Edit12.Text+); MessageBox(handle,查询完毕！,提示,MB_OK or MB_ICONINFORMATION); adoquery1.Open; statusbar1.Panels1.Text:=总共找到 +inttostr(ADOQuery1.RecordCount)+ 条记录;