课程设计模版.docx

1、课程设计模版学号：200510119101 成绩：_武汉科技大学城市学院 外语外事职业学院课程设计报告院 系 武科大城院信息科学与工程系专 业 信息与计算科学 年级 班 05级 一班 课程名称 数据库原理与应用 设计题目 零件交易管理信息系统 姓 名 指导教师 代炽伯 2007年 6 月 29 日注：此页请下载“任务书”中自己的一页，并将“功能要求”和“课程设计报告主要内容”改写成自己编写的系统中的具体情况。不要超过一页。注意： 第一页填写的内容全部由计算机输入，教师姓名填课程设计辅导教师名。 报告书经教师检查后，用A4纸打印。设计题目:零件交易管理信息系统设计主要内容:一、开发平台：VB+

2、SQL SERVER 2000二、功能要求：1、设计内容设计一个零件交易管理信息系统，该系统的用户由一般用户和管理员组成，然后不同的用户拥有不同的权限，各自完成各自的管理功能，首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用sql server2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。2、零件交易管理信息系统主要功能（1）用户管理：用户登录界面、用户注册界面、零件信息查询界面、本用户密码的修改界面，工程项目使用零件情况界面（2）管理员管理：管理员登

3、录界面、现有零件供应情况界面、供应商情况界面、工程项目情况界面 3、零件交易管理信息系统数据库表单（可以按照需求增加） （1）工程项目信息表单，主要字段有：编号（J#）、项目名（Jname）、项目日期（Date）（2）零件信息表单，主要字段有：编号（P#）、零件名（Pname）、颜色（Color）、重量（Weight）（3）供应商信息表单，主要字段有：编号（S#）、名称（Sname）、供应地（Address）（4）工程项目使用零件情况表单，主要字段有：编号（J#）、编号（P#）、数量（Total）（5）供应商供应零件表单：编号（S#）、编号（P#）、数量（Amount）三、课程设计报告主要内容

4、： 1 零件交易管理信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍） 2 零件交易管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格） 3 零件交易管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）4 零件交易管理信息系统程序设计（按照功能模块给出详细的程序代码，并给出重点语句的注释）课程设计报告书 -零件交易管理信息系统1.零件交易管理信息系统需求分析1.1欢迎界面系统启动之后便可进入欢迎界面，单击“系统登陆”按钮便可进入选择登陆界面。1.2选择登录1.2.1选中管理员登录后便进入管理员登陆界面1.2.2选中用户登陆后便进入用户登陆界

5、面1.3管理员界面： 可以进行现有零件供应管理，供应商管理，工程项目情况管理。1.3.1现有零件供应管理 利用VB界面，管理员可以查询现有零件的供应情况，添加信息，删除记录，从而改变了数据库中的信息。1.3.2供应商情况管理 管理员可以查询，修改，删除，添加供应商信息，在VB界面中修改了数据库中的信息。1.3.3工程项目管理 管理员可以根据需要对工程项目的情况进行查询，添加，删除和更新，从而改变数据库中的信息。1.4用户界面： 用户可以进行本用户密码的修改，查看零件信息和工程项目使零件情况。1.4.1本用户密码修改用户通过输入和确认新密码来更改自己的密码。 1.4.2零件信息查询 用户进入界面

6、后可看到所有零件的信息。1.4.3工程项目使用零件情况 进入界面后用户可看到所有工程项目使用零件的情况。2零件交易管理信息系统界面设计图1：欢迎界面图2：登陆界面图3：用户登陆界面图4：新用户注册界面 图5：管理员登陆界面 图6：用户服务界面对象属性设定值Option1Caption本用户密码的修改Option2Caption零件信息查询Option3caption工程项目零件使用情况图7：管理员服务界面图8：用户密码修改 图9：零件信息查询对象属性设置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsource零件信息表

7、visiblefalsecaptionAdodc1图10：工程项目使用零件情况界面对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsource工程项目使用零件情况表 visiblefalse图11：供应商情况界面对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsource供应商情况表visiblefalseframecaption添加信息Lable1caption编号Lable

8、2caption姓名Lable3caption供应地Lable4caption 按编号图12：零件供应情况界面对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsource供应商供应零件表visiblefalseLable1caption编号1Lable2caption编号2Lable3caption数量图13：工程项目信息对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsour

9、ce工程项目信息表visiblefalseLable1caption编号caption项目名caption项目日期3零件交易管理信息系统数据库设计零件交易信息管理系统总共涉及7张表，分别是工程项目信息表，零件信息表，供应商信息表，工程项目使用零件情况表，供应商供应零件表，管理员表和用户信息表。表1工程项目信息表字段名称标始名称数据类型是否允许为空字段说明Jno编号char否主码Jname项目名char否Date项目日期smalldatetime是 表2零件信息表字段名称标始名称数据类型是否允许为空字段说明Pno编号char否主码Pname零件名char否Color颜色char是Weight重量

10、char是表3供应商信息表字段名称标始名称数据类型是否允许为空字段说明Sno编号char否主码Sname名称char否Address供应地char是 表4工程项目使用零件情况表字段名称标始名称数据类型是否允许为空字段说明Jno编号char否主码Pno编号char否主码Total数量char是表5供应商供应零件表字段名称标始名称数据类型是否允许为空字段说明Sno编号char否主码Pno编号char否主码Amount数量char是表6用户信息表字段名称标始名称数据类型是否允许为空字段说明姓名姓名char否密码密码char否身份身份char否表7管理员表字段名称标始名称数据类型是否允许为空字段说明姓

11、名姓名char否密码密码char否身份身份char否4零件交易管理信息系统程序设计（部分代码）41欢迎界面欢迎界面是整个系统的首页，用户可通过它进入到登陆系统。42登陆界面 进入此界面后，使用者可根据自己的身份选择登陆方式。普通用户选择用户登陆，管理员选择管理员登陆。43用户登陆和新用户注册界面普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下Private Sub Command1_Click()Dim strselectname As StringDim str As StringDim strselectpassword As StringDim strp

12、assword As StringDim strselectuserlevel As StringDim ret_select As Booleanstr = Trim(Text1.Text)strselectname = select 姓名 from 用户信息表 where 姓名= & & str & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GQS101;Data Source=7-01Adodc1.Co

13、mmandType = adCmdTextAdodc1.RecordSource = strselectname/从用户信息表中查询所有的用户姓名Adodc1.RefreshIf Adodc1.Recordset.EOF = True Then ret = MsgBox(姓名错误！, 48, warming!)/如果用户输入的姓名与用户信息表中姓名不一致，就会出现该对话框提醒用户重新输入 Text1.Text = Text2.Text = Exit SubEnd Ifstrselectpassword = select 密码 from 用户信息表 where 姓名 = & & Trim(Tex

14、t1.Text) & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GQS101;Data Source=7-01Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GQS101;Data Source=7-01/与用户信息表数据库进 行

15、连接Adodc1.CommandType = adCmdText Adodc1.RecordSource = strselectpasswordAdodc1.RefreshAdodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectpasswordAdodc1.RefreshIf StrComp(Trim(Adodc1.Recordset.Fields(密码).Value), Trim(Text2.Text) 0 Then ret = MsgBox(密码错误！, 48, warming!)/如果用户输入的密码与用户信息表中的密码不一

16、致就会出现该对话框 Text2.Text = Text2.SetFocus Exit Sub Else MsgBox 登录成功/一致的话就会提醒用户登陆成功！ End If Unload Form3 Form6.Show End Sub新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了用户信息表中（部分代码如下）Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial C

17、atalog=gqs101;Data Source=7-01Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 姓名 from 用户信息表 where 姓名 = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 用户名已经存在！请重新输入, 0, 提示 Text1.Text = Text1.SetFocus Exit SubEnd IfAdodc1.ConnectionString = Provider=SQLOLEDB.

18、1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=gqs101;Data Source=7-01Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 用户信息表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(姓名).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(密码).Value = Trim(Text2.Text)Adodc1.

19、Recordset.Fields(身份).Value = 用户Adodc1.Recordset.UpdateMsgBox 恭喜你注册成功/确认无误后用户就成功注册了Text1.Text = Text2.Text = Text3.Text = Exit Sub44管理员登陆界面管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。它的代码与管理员登陆代码类似，输入的姓名和密码必须是管理员表中相应的信息，否则就无法成功登陆。45用户服务表界面用户登陆进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了三种服务，分别是“本用户密码的修改”，“零件信息查询”和“工程项目

20、使用零件情况”。46本用户密码的修改界面用户如需修改自己的密码可在此界面进行，用户通过登陆界面登陆到此，然后在此界面中输入原始密码和新密码并验证新密码，确认后如果无误就会提示用户修改成功，并且其密码在用户信息表中也会有相应的修改。（代码如下）If Trim(Text1.Text = ) Then MsgBox 请输入密码！, 0, 提示 Text1.SetFocus Exit SubEnd IfAdodc1.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=

21、gqs101;Data Source=7-01Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 用户信息表 where 密码 = & Trim(Text1.Text) & /在用户信息表中根据密码查询用户的信息Adodc1.RefreshIf Adodc1.Recordset.EOF = True Then MsgBox 密码不正确，请重新输入！, 0, 提示/输入的密码必须与原信息表中一致 Text2.Text = Text3.Text = Text2.SetFocus Exit SubEnd IfIf Tri

22、m(Text2.Text) = Then MsgBox 请输入新密码, 0, 提示/在文本框中输入用户的新密码 Text2.SetFocus Exit SubEnd IfIf Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 请验证新密码！, 0, 提示/验证所输入的新密码 Text2.Text = Text3.Text = Text2.SetFocus Exit SubEnd IfAdodc1.Recordset.Fields(密码).Value = Trim(Text3.Text)Adodc1.Recordset.UpdateAdodc1.Refr

23、eshMsgBox 修改密码成功！, 0, 提示Form8.HideForm6.Show47零件信息的查询界面用户可通过此界面所提供的内容查询所有的零件信息。所有的信息通过控件DataGrid与Adodc控件和相应的数据库连接起来，设置相应的属性后所有信息便可显示在DataGrid上供用户查看。附图：48工程项目使用零件情况界面该界面所用的控件与零件信息查询所用的一样，用户想要查看的信息也会显示在DataGrid上。附图：49管理员服务界面此界面为管理员提供了“现有零件供应情况”，“供应商情况”和“工程项目情况”的查询三种服务。管理员可根据需要进行选择。410现有零件供应情况界面管理员在此界面

24、可查看所有零件的供应情况并可以根据实际情况对信息进行添加，删除和更新。（部分重要代码如下）Adodc1.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gqs101;Data Source=7-01Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 供应商供应零件表 where Sno = & Trim(Text1.Text) & and Sno= & Trim(Text1.T

25、ext) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 编号1已经存在！请用他名, 0, 提示/编号不能与数据库表中的编号重复 Text1.Text = Text1.SetFocus Exit SubEnd If Adodc1.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gqs101;Data Source=7-01Adodc1.CommandType = adCmdTextAd

26、odc1.RecordSource = select * from 供应商供应零件表 where Sno = & Trim(Text2.Text) & and Sno= & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 编号2已经存在！请用他名, 0, 提示 Text2.Text = Text2.SetFocus Exit SubEnd If Adodc1.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False

27、;User ID=sa;Initial Catalog=gqs101;Data Source=7-01Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 供应商供应零件表Adodc1.RefreshAdodc1.Recordset.AddNew/为数据库表添加新的记录Adodc1.Recordset.Fields(Sno).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(Pno).Value = Trim(Text2.Text)Adodc1.Recordset.Fields(Amount).V

28、alue = Trim(Text3.Text)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox 添加成功Text1.Text = Text2.Text = Text3.Text = 在这里添加代码转到登录界面Exit SubPrivate Sub Command2_Click()Dim res As Integer res = MsgBox(确实要删除此行记录吗？, vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End IfEnd IfText1.Text = Text2.Text = Text3.Te