毕业设计信息管理系统Word格式文档下载.docx
《毕业设计信息管理系统Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《毕业设计信息管理系统Word格式文档下载.docx(25页珍藏版)》请在冰豆网上搜索。
![毕业设计信息管理系统Word格式文档下载.docx](https://file1.bdocx.com/fileroot1/2023-1/21/68aeb889-c7f5-4887-93e8-15e41b1249a0/68aeb889-c7f5-4887-93e8-15e41b1249a01.gif)
2.2数据库设计…………………………………....
三.详细设计
3.1引言……………………....................................
3.2软件工程的工具…………………………….......
3.3内容…………………………………………
3.4应用程序的创建…………………………………
四.参考文献………………………………………
五.小结……………………………………………
一.需求分析
1.1功能分析:
●录入,用于学生成绩/选课信息的录入;
●删除,用于学生成绩/选课信息的删除;
●修改,用于学生成绩/选课信息的部分或全部修改;
●查询,用于学生成绩/选课信息的查询。
、
数据流图(DFD):
1.2开发与运行环境
成绩管理系统开发与运行环境如下:
开发环境:
WindowsXP
数据库管理系统:
MicrosoftofficeAccecc
运行环境:
Windows98/ME/2000/XP
数据库实现
使用MicrosoftAccecc创建数据库创建成绩信息,课程资源,数据处理录入,学生基本信息,用户,管理员等表。
二.系统设计
2.1系统模块设计
模块设计如图:
学生成绩管理
2.2数据库结构设计
创建表
1成绩信息表
成绩修改
成绩查询
添加删除成绩
退出系统
2.课程资源表
3.数据处理录入表
4.学生基本信息表
5.用户表
6.管理员表
成绩=学号+姓名+性别+所在系别。
学号=数字;
姓名=文本;
性别=文本;
所在系别=文本。
.课程资源=所在系别+所在专业+所在班级+课程名称+课程代码
学生=学号+姓名+民族+出生年+出生月。
用户=用户名+密码+性别+出生年+出生月。
管理=编码+管理员+密码。
三、详细设计
3.1引言
目的:
对整个软件开发的过程进行编写和设计。
背景:
用于对项目的来源。
本软件实属原来开发人员所开发。
3.2软件开发的工具
计算机、SQLServer2000+Access、WindowsXP。
3.3内容
软件设计的过程和所需要的过程界面,对一些程序进行编码。
3.4应用程序的创建
1.欢迎界面的创建
(1)启动VB,单击工具栏上的<
Ctrl+w>
按钮将自动创建的窗体保存。
(2)向窗体中添加2个控件选项卡中Standard选项卡内的Label和一个Panel1控件,一个Timer1控件。
单击工具栏上的SaveAll按钮保存。
(3)Label1的Caption属性为“欢迎进入”,Label2的Caption属性为“学生成绩管理系统”。
设置好的窗体如图所示:
为实现窗体功能,需要添加如下代码
procedureTForm1.Timer1Timer(Sender:
TObject);
begin
ifform1.panel2.Left<
form1.panel1.Widththen
begin
form1.panel2.Left:
=form1.panel2.Left+5;
exit;
end;
timer1.Enabled:
=false;
flag:
=true;
end;
2.登录窗体的创建
(1)启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)将主窗体的Caption属性改为“登录”。
向窗体中添加2个Edit控件,4个Image控件,8个Label控件,8个Panel控件,并设置各控件的属性如表示。
控件名
属性
修改后的属性
Label1
caption
用户名
Label2
密码
Button1
Caption
用户登录
Button2
新用户注册
Button3
超级管理员登
Button4
。
procedureTForm2.SpeedButton1Click(Sender:
results:
=ADOTable1.Lookup('
用户名'
edit1.text,'
密码'
);
{检索数据库中对应用户名的密码项}
ifedit1.Text='
'
then
application.MessageBox('
用户名不能为空!
'
提示'
mb_ok)
elseifedit2.Text='
application.messagebox('
密码不能为空!
警告'
else
showmessage('
密码错误或用户不存在!
edit1.Visible:
edit2.Visible:
edit1.Text:
='
;
edit2.Text:
end.
3,退出窗体的创建
(1)启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)向窗体中添加1个Image控件,2个Label控件,2个SpeedButton控件.并设置各控件的属性。
SpeedButton
确定退出
取消退出
procedureTForm3.SpeedButton1Click(Sender:
application.ProcessMessages;
form2.Close;
form3.Close;
4.用户注册窗体的创建
(1),启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2),将主窗体的Caption属性改为“新用户注册”。
向窗体中添加4个ComboBox控件,9个Edit控件,2个Image控件,16个Label控件,2个Memo控件,10个Panel控件,3个SpeedButton控件.并设置各控件的属性如表所示。
修改后属性
Label3
核对密码
Label4
性别
Label5
出生年月
Label6
联系地址
Label7
联系电话
Label8
邮政编码
Label9
电子邮件
Label10
所在系别
Label11
所在班级
Label12
个人爱好
Label13
选择用户头像
Label14
用户注册
SpeedButton1
提交
SpeedButton2
重置
SpeedButton3
取消
为实现窗体功能,需要添加如下代码:
procedureTForm4.SpeedButton1Click(Sender:
SQL.Clear;
SQL.Add('
select*from用户表where用户表.用户名=:
a'
parameters.ParamByName('
).Value:
=Trim(Edit1.Text);
Open;
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.Text='
)then
application.MessageBox('
信息不完整!
错误操作'
mb_ok);
elseifh<
>
kthen
密码不匹配!
else
ifADOQuery1.Eof=falsethen
ShowMessage('
该用户已经存在,请重新填写'
Edit1.Clear
end
ifnot(IsVaildEmailAddr(Edit7.Text))then
您输入的电子邮件地址格式不合法!
Edit7.Clear;
adoquery1.sql.clear;
Adoquery1.sql.add('
insertinto用户表(用户名,密码,性别,出生年,出生月,联系地址,联系电话,邮政编码,电子邮箱,所在系别,所在班级,个人爱好,用户头像,用户备注)values(:
1,:
2,:
3,:
4,:
5,:
6,:
7,:
8,:
9,:
10,:
11,:
12,:
13,:
14)'
Adoquery1.execsql;
数据已录入,请查看!
完成提示'
Result:
=True;
//以上的判断都通过,则表示地址字符串为合法
5.学生窗体的创建
(1)打开VisualBasic6.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控件。
并设置各控件的属性,设置好的窗体如图所示:
procedureTForm6.Edit9KeyPress(Sender:
TObject;
varKey:
Char);
Application.MessageBox('
邮政编码只能用数字表示,请重新输入!
0+64)
procedureTForm6.Edit1KeyPress(Sender:
学号只能用数字表示,请重新输入!
procedureTForm6.Edit10KeyPress(Sender:
联系电话只能用数字表示,请重新输入!
6查找窗体的创建
(1)启动VB,工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)将主窗体的Caption属性改为“精确查找”,向窗体中添加1个GroupBox控件,在GroupBox控件上添加1个Edit,1个Label控件,1个SpeedButton控件。
procedureTForm8.SpeedButton1Click(Sender:
form7.PageControl1.ActivePage:
=form7.tabsheet2;
ifedit1.Text='
MessageBox(handle,'
请输入姓名,不能为空!
MB_OKorMB_ICONINFORMATION);
form7.adoquery1.SQL.Clear;
form7.adoquery1.Close;
form7.adoquery1.sql.Add('
select*from用户表where用户名='
+Edit1.Text+'
查询完毕!
form7.adoquery1.Open;
7成绩录入窗体的创建
(1)启动VB,单击工具栏上的SaveAll按钮将自动创建的窗体保存。
(2)将主窗体的Caption属性改为“成绩录入”,向窗体中添加1个GroupBox控件,在GroupBox控件上2个ComboBox控件,8个Edit控件,3个GroupBox控件,12个Label控件,1个Memo控件,2个Panel控件,并设置各控件的属性,设置好的窗体如图所示:
procedureTForm9.SpeedButton1Click(Sender:
withADOQuery1do
close;
select*from成绩信息表where成绩信息表.学号=:
if(edit1.Text='
)or(combobox1.Text='
)or(combobox2.Text='
)then
exit;
end
elseifADOQuery1.Eof=falsethen
该学生已经存在,请重新填写'
adoquery1.close;
insertinto成绩信息表(学号,姓名,性别,所在系别,所在专业,所在班级,课程名称,课程代号,学期,成绩,备注内容)'
+'
values(:
11)'
edit1.Text:
edit2.Text:
8学生成绩管理窗体的创建
(2)将主窗体的Caption属性改为“学生成绩管理系统”,向窗体中添加1个MainMenul控件,2个Panel控件,1个PopupMenul控件,1个StausBar控件,1个TreeView控件。
向Panel1控件上添加6个GroupBox控件,在每个GroupBox控件上添加1个SpeedButton控件。
在Panel2上添加2个DBGrid控件1个Image控件,1个Panel控件,
procedureTForm10.BitBtn2Click(Sender:
DBgrid1.Visible:
DBgrid2.Visible:
DBgrid1.Font.Color:
=clteal;
ifedit5.Text='
adoquery2.SQL.Clear;
adoquery2.Close;
adoquery2.sql.add('
select*from学生基本信息表where学号='
+Edit5.Text+'
adoquery2.Open;
statusbar1.Panels[1].Text:
总共找到'
+inttostr(ADOQuery2.RecordCount)+'
条记录'
edit5.Text:
procedureTForm10.BitBtn3Click(Sender:
var
sql:
string;
if(edit6.Text<
)or(edit7.Text<
)or(edit8.Text<
)or(edit9.Text<
)or(edit10.Text<
)or(edit11.Text<
)or(combobox2.Text<
sql:
where(学号like'
%'
+edit6.Text+'
)or(姓名like'
+edit7.Text+'
)or(所在系别like'
+combobox2.Text+'
)or(所在专业like'
+edit8.Text+'
)or(所在班级like'
+edit9.Text+'
)or(贯籍like'
+edit10.Text+'
)or(政治面目like'
+edit11.Text+'
)'
没有查询条件!
ADOQuery2.SQL.Add('
select*from学生基本信息表'
edit6.Text:
edit7.Text:
edit8.Text:
edit9.Text:
edit10.Text:
edit11.Text:
procedureTForm10.BitBtn4Click(Sender:
adoquery1.SQL.Clear;
adoquery1.Close;
adoquery1.sql.add('
select*from成绩信息表where学号='
+Edit12.Text+'
adoquery1.Open;
+inttostr(ADOQuery1.RecordCount)+'