课程设计模版新Word下载.docx
- 文档编号:22950592
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:29
- 大小:2.04MB
课程设计模版新Word下载.docx
《课程设计模版新Word下载.docx》由会员分享,可在线阅读,更多相关《课程设计模版新Word下载.docx(29页珍藏版)》请在冰豆网上搜索。
管理员登录界面、现有零件供应情况界面、供应商情况界面、工程项目情况界面
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
零件信息查询
Option3
caption
工程项目零件使用情况
图2.7管理员服务界面
图2.8用户密码修改界面
图2.9零件信息查询界面
表2.2零件信息查询界面属性表
设置值
datagrid
datasource
Adodc1
commandtype
2-adcmdtable
recordsource
零件信息表
visible
false
图2.10工程项目使用零件情况界面
表2.3工程项目使用零件情况界面属性表
dadagrid
工程项目使用零件情况表
visible
图2.11供应商情况界面
表2.4供应商情况界面属性表
供应商情况表
frame
添加信息
Lable1
编号
Lable2
姓名
Lable3
供应地
Lable4
按编号
图2.12零件供应情况界面
表2.5零件供应情况界面属性表
供应商供应零件表
编号1
编号2
数量
图2.13工程项目信息界面
表2.6工程项目信息界面属性表
工程项目信息表
项目名
项目日期
3.零件交易管理信息系统数据库设计
零件交易信息管理系统总共涉及7张表,分别是工程项目信息表,零件信息表,供应商信息表,工程项目使用零件情况表,供应商供应零件表,管理员表和用户信息表。
表3.1工程项目信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Jno
char
否
主码
Jname
Date
smalldatetime
是
表3.2零件信息表
Pno
Pname
零件名
Color
颜色
Weight
重量
表3.3供应商信息表
Sno
Sname
名称
Address
表3.4工程项目使用零件情况表
Total
表3.5供应商供应零件表
Amount
表3.6用户信息表
密码
身份
表3.7管理员表
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.CommandType=adCmdText
Adodc1.RecordSource=strselectpassword
IfStrComp(Trim(Adodc1.Recordset.Fields("
密码"
).Value),Trim(Text2.Text))<
>
0Then
密码错误!
)//如果用户输入的密码与用户信息表中的密码不一致就会出现该对话框
Text2.SetFocus
Else
MsgBox"
登录成功"
//一致的话就会提醒用户登陆成功!
EndIf
UnloadForm3
Form6.Show
EndSub
新用户还可以通过此界面进行注册,新用户只要输入自己的姓名,注册密码并确认注册便可以成功注册,同时该用户的信息也被写入到了用户信息表中(部分代码如下)
InitialCatalog=gqs101;
Adodc1.RecordSource="
select姓名from用户信息表where姓名='
IfAdodc1.Recordset.EOF=FalseThen
用户名已经存在!
请重新输入"
0,"
提示"
Text1.SetFocus
Adodc1.CommandType=adCmdTable
用户信息表"
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("
姓名"
).Value=Trim(Text1.Text)
).Value=Trim(Text2.Text)
身份"
).Value="
用户"
Adodc1.Recordset.Update
MsgBox"
恭喜你注册成功"
//确认无误后用户就成功注册了
Text1.Text="
Text2.Text="
Text3.Text="
ExitSub
4.4管理员登陆界面
管理员需要输入自己的姓名和密码,经过系统验证无误后就可以进入下一个界面了。
它的代码与管理员登陆代码类似,输入的姓名和密码必须是管理员表中相应的信息,否则就无法成功登陆。
4.5用户服务表界面
用户登陆进去后,可以到用户服务界面选择自己所需的服务,该界面为用户提供了三种服务,分别是“本用户密码的修改”,“零件信息查询”和“工程项目使用零件情况”。
4.6用户密码修改界面程序设计
用户如需修改自己的密码可在此界面进行,用户通过登陆界面登陆到此,然后在此界面中输入原始密码和新密码并验证新密码,确认后如果无误就会提示用户修改成功,并且其密码在用户信息表中也会有相应的修改。
(代码如下)
IfTrim(Text1.Text="
)Then
请输入密码!
UserID=sa;
select*from用户信息表where密码='
//在用户信息表中根据密码查询用户的信息
密码不正确,请重新输入!
//输入的密码必须与原信息表中一致
IfTrim(Text2.Text)="
Then
请输入新密码"
//在文本框中输入用户的新密码
IfTrim(Text2.Text)<
Trim(Text3.Text)Then
请验证新密码!
//验证所输入的新密码
Text3.Text="
).Value=Trim(Text3.Text)
修改密码成功!
Form8.Hide
Form6.Show
4.7零件信息的查询界面
用户可通过此界面所提供的内容查询所有的零件信息。
所有的信息通过控件DataGrid与Adodc控件和相应的数据库连接起来,设置相应的属性后所有信息便可显示在DataGrid上供用户查看。
图4.1零件信息的查询界面
4.8工程项目使用零件情况界面
该界面所用的控件与零件信息查询所用的一样,用户想要查看的信息也会显示在DataGrid上。
图4.2工程项目使用零件情况界面
4.9管理员服务界面
此界面为管理员提供了“现有零件供应情况”,“供应商情况”和“工程项目情况”的查询三种服务。
管理员可根据需要进行选择。
4.10现有零件供应情况界面程序设计
管理员在此界面可查看所有零件的供应情况并可以根据实际情况对信息进行添加,删除和更新。
(部分重要代码如下)
select*from供应商供应零件表whereSno='
andSno='
编号1已经存在!
请用他名"
//编号不能与数据库表中的编号重复
Adodc1.ConnectionString="
Trim(Text2.Text)&
编号2已经存在!
供应商供应零件表"
Adodc1.Recordset.AddNew//为数据库表添加新的记录
Sno"
Pno"
Amount"
添加成功"
在这里添加代码转到登录界面
PrivateSubCommand2_Click()
DimresAsInteger
res=MsgBox("
确实要删除此行记录吗?
vbExclamation+vbYesNo+vbDefaultButton2)
Ifres=vbYe
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 课程设计 模版