课程设计模版新.docx
《课程设计模版新.docx》由会员分享，可在线阅读，更多相关《课程设计模版新.docx（29页珍藏版）》请在冰点文库上搜索。
课程设计模版新
学号：
200510119101成绩：
________
武汉科技大学城市学院外语外事职业学院
课程设计报告
院系武科大城院信息科学与工程系
专业信息与计算科学
年级班05级一班
课程名称数据库原理与应用
设计题目零件交易管理信息系统
姓名
指导教师代炽伯
2008年6月29日
注：
此页请下载“任务书”中自己的一页，并将“功能要求”和“课程设计报告主要内容”改写成自己编写的系统中的具体情况。
不要超过一页。
注意：
第一页填写的内容全部由计算机输入，教师姓名填课程设计辅导教师名。
报告书经教师检查后，用A4纸打印。
设计题目
零件交易管理信息系统
设计主要内容
一、开发平台VB+SQLSERVER2000
二、功能要求
1、设计内容
设计一个零件交易管理信息系统，该系统的用户由一般用户和管理员组成，然后不同的用户拥有不同的权限，各自完成各自的管理功能，首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。
用sqlserver2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。
2、零件交易管理信息系统主要功能
（1）用户管理：
用户登录界面、用户注册界面、零件信息查询界面、本用户密码的修改界面，工程项目使用零件情况界面
（2）管理员管理：
管理员登录界面、现有零件供应情况界面、供应商情况界面、工程项目情况界面
3、零件交易管理信息系统数据库表单（可以按照需求增加）
（1）工程项目信息表单，主要字段有：
编号（J#）、项目名（Jname）、项目日期（Date）
（2）零件信息表单，主要字段有：
编号（P#）、零件名（Pname）、颜色（Color）、重量（Weight）
（3）供应商信息表单，主要字段有：
编号（S#）、名称（Sname）、供应地（Address）
（4）工程项目使用零件情况表单，主要字段有：
编号（J#）、编号（P#）、数量（Total）
（5）供应商供应零件表单：
编号（S#）、编号（P#）、数量（Amount）
三、课程设计报告主要内容
1零件交易管理信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍）
2零件交易管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格）
3零件交易管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）
4零件交易管理信息系统程序设计（按照功能模块给出详细的程序代码，并给出重点语句的注释）
1.零件交易管理信息系统需求分析
图1.1零件交易管理信息系统
1.1欢迎界面
系统启动之后便可进入欢迎界面，单击“系统登陆”按钮便可进入选择登陆界面。
1.2选择登录
1.2.1选中管理员登录后便进入管理员登陆界面
1.2.2选中用户登陆后便进入用户登陆界面
1.3管理员界面
可以进行现有零件供应管理，供应商管理，工程项目情况管理。
1.3.1现有零件供应管理
利用VB界面，管理员可以查询现有零件的供应情况，添加信息，删除记录，
从而改变了数据库中的信息。
1.3.2供应商情况管理
管理员可以查询，修改，删除，添加供应商信息，在VB界面中修改了数据库中的信息。
1.3.3工程项目管理
管理员可以根据需要对工程项目的情况进行查询，添加，删除和更新，从而改变数据库中的信息。
1.4用户界面
用户可以进行本用户密码的修改，查看零件信息和工程项目使零件情况。
1.4.1本用户密码修改
用户通过输入和确认新密码来更改自己的密码。
1.4.2零件信息查询
用户进入界面后可看到所有零件的信息。
1.4.3工程项目使用零件情况
进入界面后用户可看到所有工程项目使用零件的情况。
2．零件交易管理信息系统界面设计
图2.1欢迎界面
图2.2登陆界面
图2.3用户登陆界面
图2.4新用户注册界面
图2.5管理员登陆界面
图2.6用户服务界面
表2.1用户服务界面属性表
对象
属性
设定值
Option1
Caption
本用户密码的修改
Option2
Caption
零件信息查询
Option3
caption
工程项目零件使用情况
图2.7管理员服务界面
图2.8用户密码修改界面
图2.9零件信息查询界面
表2.2零件信息查询界面属性表
对象
属性
设置值
datagrid
datasource
Adodc1
Adodc1
commandtype
2-adcmdtable
recordsource
零件信息表
visible
false
caption
Adodc1
图2.10工程项目使用零件情况界面
表2.3工程项目使用零件情况界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
工程项目使用零件情况表
visible
false
图2.11供应商情况界面
表2.4供应商情况界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
供应商情况表
visible
false
frame
caption
添加信息
Lable1
caption
编号
Lable2
caption
姓名
Lable3
caption
供应地
Lable4
caption
按编号
图2.12零件供应情况界面
表2.5零件供应情况界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
供应商供应零件表
visible
false
Lable1
caption
编号1
Lable2
caption
编号2
Lable3
caption
数量
图2.13工程项目信息界面
表2.6工程项目信息界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
工程项目信息表
visible
false
Lable1
caption
编号
caption
项目名
caption
项目日期
3．零件交易管理信息系统数据库设计
零件交易信息管理系统总共涉及7张表，分别是工程项目信息表，零件信息表，供应商信息表，工程项目使用零件情况表，供应商供应零件表，管理员表和用户信息表。
表3.1工程项目信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Jno
编号
char
否
主码
Jname
项目名
char
否
Date
项目日期
smalldatetime
是
表3.2零件信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Pno
编号
char
否
主码
Pname
零件名
char
否
Color
颜色
char
是
Weight
重量
char
是
表3.3供应商信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Sno
编号
char
否
主码
Sname
名称
char
否
Address
供应地
char
是
表3.4工程项目使用零件情况表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Jno
编号
char
否
主码
Pno
编号
char
否
主码
Total
数量
char
是
表3.5供应商供应零件表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Sno
编号
char
否
主码
Pno
编号
char
否
主码
Amount
数量
char
是
表3.6用户信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
姓名
姓名
char
否
密码
密码
char
否
身份
身份
char
否
表3.7管理员表
字段名称
标始名称
数据类型
是否允许为空
字段说明
姓名
姓名
char
否
密码
密码
char
否
身份
身份
char
否
4．零件交易管理信息系统程序设计（部分代码）
4.1欢迎界面
欢迎界面是整个系统的首页，用户可通过它进入到登陆系统。
4.2登陆界面
进入此界面后，使用者可根据自己的身份选择登陆方式。
普通用户选择用户登陆，管理员选择管理员登陆。
4.3用户登陆和新用户注册界面程序设计
普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。
部分重要代码如下
PrivateSubCommand1_Click（）
DimstrselectnameAsString
DimstrAsString
DimstrselectpasswordAsString
DimstrpasswordAsString
DimstrselectuserlevelAsString
Dimret_selectAsBoolean
str=Trim（Text1.Text）
strselectname="select姓名from用户信息表where姓名="&"'"&str&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=GQS101;DataSource=7-01"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectname//从用户信息表中查询所有的用户姓名
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
ret=MsgBox（"姓名错误！
",48,"warming!
"）//如果用户输入的姓名与用户信息表中姓名不一致，就会出现该对话框提醒用户重新输入
Text1.Text=""
Text2.Text=""
ExitSub
EndIf
strselectpassword="select密码from用户信息表where姓名="&"'"&Trim（Text1.Text）&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=GQS101;DataSource=7-01"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=GQS101;DataSource=7-01"//与用户信息表数据库进行连接
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectpassword
Adodc1.Refresh
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectpassword
Adodc1.Refresh
IfStrComp（Trim（Adodc1.Recordset.Fields（"密码"）.Value）,Trim（Text2.Text））<>0Then
ret=MsgBox（"密码错误！
",48,"warming!
"）//如果用户输入的密码与用户信息表中的密码不一致就会出现该对话框
Text2.Text=""
Text2.SetFocus
ExitSub
Else
MsgBox"登录成功"//一致的话就会提醒用户登陆成功！
EndIf
UnloadForm3
Form6.Show
EndSub
新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了用户信息表中（部分代码如下）
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=gqs101;DataSource=7-01"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select姓名from用户信息表where姓名='"&Trim（Text1.Text）&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户名已经存在！
请重新输入",0,"提示"
Text1.Text=""
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=gqs101;DataSource=7-01"
Adodc1.CommandType=adCmdTable
Adodc1.RecordSource="用户信息表"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"姓名"）.Value=Trim（Text1.Text）
Adodc1.Recordset.Fields（"密码"）.Value=Trim（Text2.Text）
Adodc1.Recordset.Fields（"身份"）.Value="用户"
Adodc1.Recordset.Update
MsgBox"恭喜你注册成功"//确认无误后用户就成功注册了
Text1.Text=""
Text2.Text=""
Text3.Text=""
ExitSub
4.4管理员登陆界面
管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。
它的代码与管理员登陆代码类似，输入的姓名和密码必须是管理员表中相应的信息，否则就无法成功登陆。
4.5用户服务表界面
用户登陆进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了三种服务，分别是“本用户密码的修改”，“零件信息查询”和“工程项目使用零件情况”。
4.6用户密码修改界面程序设计
用户如需修改自己的密码可在此界面进行，用户通过登陆界面登陆到此，然后在此界面中输入原始密码和新密码并验证新密码，确认后如果无误就会提示用户修改成功，并且其密码在用户信息表中也会有相应的修改。
（代码如下）
IfTrim（Text1.Text=""）Then
MsgBox"请输入密码！
",0,"提示"
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=gqs101;DataSource=7-01"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from用户信息表where密码='"&Trim（Text1.Text）&"'"//在用户信息表中根据密码查询用户的信息
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"密码不正确，请重新输入！
",0,"提示"//输入的密码必须与原信息表中一致
'Text2.Text=""
'Text3.Text=""
Text2.SetFocus
ExitSub
EndIf
IfTrim（Text2.Text）=""Then
MsgBox"请输入新密码",0,"提示"//在文本框中输入用户的新密码
Text2.SetFocus
ExitSub
EndIf
IfTrim（Text2.Text）<>Trim（Text3.Text）Then
MsgBox"请验证新密码！
",0,"提示"//验证所输入的新密码
Text2.Text=""
Text3.Text=""
Text2.SetFocus
ExitSub
EndIf
Adodc1.Recordset.Fields（"密码"）.Value=Trim（Text3.Text）
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"修改密码成功！
",0,"提示"
Form8.Hide
Form6.Show
4.7零件信息的查询界面
用户可通过此界面所提供的内容查询所有的零件信息。
所有的信息通过控件DataGrid与Adodc控件和相应的数据库连接起来，设置相应的属性后所有信息便可显示在DataGrid上供用户查看。
图4.1零件信息的查询界面
4.8工程项目使用零件情况界面
该界面所用的控件与零件信息查询所用的一样，用户想要查看的信息也会显示在DataGrid上。
图4.2工程项目使用零件情况界面
4.9管理员服务界面
此界面为管理员提供了“现有零件供应情况”，“供应商情况”和“工程项目情况”的查询三种服务。
管理员可根据需要进行选择。
4.10现有零件供应情况界面程序设计
管理员在此界面可查看所有零件的供应情况并可以根据实际情况对信息进行添加，删除和更新。
（部分重要代码如下）
Adodc1.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=gqs101;DataSource=7-01"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from供应商供应零件表whereSno='"&Trim（Text1.Text）&"'andSno='"&Trim（Text1.Text）&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"编号1已经存在！
请用他名",0,"提示"//编号不能与数据库表中的编号重复
Text1.Text=""
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=gqs101;DataSource=7-01"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from供应商供应零件表whereSno='"&Trim（Text2.Text）&"'andSno='"&Trim（Text1.Text）&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"编号2已经存在！
请用他名",0,"提示"
Text2.Text=""
Text2.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=gqs101;DataSource=7-01"
Adodc1.CommandType=adCmdTable
Adodc1.RecordSource="供应商供应零件表"
Adodc1.Refresh
Adodc1.Recordset.AddNew//为数据库表添加新的记录
Adodc1.Recordset.Fields（"Sno"）.Value=Trim（Text1.Text）
Adodc1.Recordset.Fields（"Pno"）.Value=Trim（Text2.Text）
Adodc1.Recordset.Fields（"Amount"）.Value=Trim（Text3.Text）
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"添加成功"
Text1.Text=""
Text2.Text=""
Text3.Text=""
'在这里添加代码转到登录界面
ExitSub
PrivateSubCommand2_Click（）
DimresAsInteger
res=MsgBox（"确实要删除此行记录吗？
",vbExclamation+vbYesNo+vbDefaultButton2）
Ifres=vbYe
升级会员 