VB课程设计题目--设备管理系统.doc

VB程序设计课程设计课程设计题目设备管理系统 目 录一、课程设计的目的与要求二、任务描述对系统要实现的功能进行确切的描述。 三、设计 详细说明程序的设计思想，所用到的算法、数据结构技巧等四、效果及存在问题说明系统的运行效果（附上界面图形）、存在哪些不足以及预期的解决办法五、总结 课程设计的目的与要求1、教学目的使学生在理论课程结束后，通过课程设计能进一步巩固对VB编程机制的理解，真正掌握运用VB进行软件开发的方法和原理，从而锻炼学生开发能力、程序调试的能力，及程序错误处理的能力。 2、教学要求从课程设计的目的出发，通过课程设计的各个环节，达到以下教学要求（1）进一步掌握VB语言程序设计的基本思想和方法；（2）掌握面向对象的可视化程序设计的基本原理及应用； 任务描述建立设备数据库表，存储设备的信息，包括设备的名称、数量、型号、规格等信息；能够实现对设备的查询、修改、添加等操作。设计1、设备管理系统的功能 1、查看设备：用来实现对设备的浏览、删除2、查询设备：用来实现对设备的查询3、添加设备：用来实现对设备的添加2、连接数据源 利用ADO控件将Access数据源连接到程序中建立Access数据库打开Access，建立名为“设备”的数据库。在数据库中选择“使用设计器创建表”输入名称、型号、单价、数量、规格、购买日期。保存命名为“设备管理”。3、窗体名称标题From1登陆界面From2查看设备From3添加设备From4查找设备（1）登陆界面From1 代码如下：Private Sub Command1_Click()Form2.ShowEnd Sub（2）查看设备 Form2 代码如下：Private Sub Command1_Click()Adodc1.Recordset.MovePrevious 数据移到上一条If Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox 已经是第一条End IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveNext 数据移到下一条If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox 已经是最后一条End IfEnd SubPrivate Sub Command3_Click()Form3.ShowEnd SubPrivate Sub Command4_Click()Form4.ShowEnd SubPrivate Sub Command5_Click()On Error Resume Next If MsgBox(确定删除该记录？, vbOKCancel, 提示) = vbOK Then Adodc1.Recordset.Delete 删除正显示的记录 Adodc1.Recordset.MoveNext 显示下一条数据 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End IfEnd SubPrivate Sub Command6_Click()EndEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MoveFirst 显示第一条数据End SubPrivate Sub Command8_Click()Adodc1.Recordset.MoveLast 显示最后一条数据End Sub （3）添加设备 Form3 代码如下：Private Sub Command1_Click()Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(1) = Trim(Text1)Adodc1.Recordset.Fields(2) = Trim(Text2)Adodc1.Recordset.Fields(3) = Trim(Text3)Adodc1.Recordset.Fields(4) = Trim(Text4)Adodc1.Recordset.Fields(5) = Trim(Text5)Adodc1.Recordset.Fields(6) = Trim(Text6) 将文本框中的值赋值给数据库Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox 该设备已添加End Sub Private Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubPrivate Sub Command3_Click()Unload MeForm2.ShowEnd SubForm4 代码如下：Private Sub Command1_Click()Dim check As IntegerAdodc1.RefreshAdodc1.Recordset.MoveFirstM = Trim(Text1)While Adodc1.Recordset.EOF True If Adodc1.Recordset.Fields(1) = M Then Text2.Text = Adodc1.Recordset.Fields(2) Text3.Text = Adodc1.Recordset.Fields(3) Text4.Text = Adodc1.Recordset.Fields(4) Text5.Text = Adodc1.Recordset.Fields(5) Text6.Text = Adodc1.Recordset.Fields(6) check = check + 1 用循环语句判断文本框中的 End If 值 是否等于数据库中相应 Adodc1.Recordset.MoveNext 的值 WendAdodc1.RefreshX = Trim(Text2)While Adodc1.Recordset.EOF True If Adodc1.Recordset.Fields(2) = X Then Text1.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(3) Text4.Text = Adodc1.Recordset.Fields(4) Text5.Text = Adodc1.Recordset.Fields(5) Text6.Text = Adodc1.Recordset.Fields(6) check = check + 1 End If Adodc1.Recordset.MoveNextWendAdodc1.RefreshD = Val(Trim(Text3)While Adodc1.Recordset.EOF True If Adodc1.Recordset.Fields(3) = D Then Text1.Text = Adodc1.Recordset.Fields(1) Text2.Text = Adodc1.Recordset.Fields(2) Text4.Text = Adodc1.Recordset.Fields(4) Text5.Text = Adodc1.Recordset.Fields(5) Text6.Text = Adodc1.Recordset.Fields(6) check = check + 1 End If Adodc1.Recordset.MoveNextWendAdodc1.RefreshS = Val(Trim(Text4)Adodc1.Recordset.MoveFirstWhile Adodc1.Recordset.EOF True If Adodc1.Recordset.Fields(4) = S Then Text1.Text = Adodc1.Recordset.Fields(1) Text2.Text = Adodc1.Recordset.Fields(2) Text3.Text = Adodc1.Recordset.Fields(3) Text5.Text = Adodc1.Recordset.Fields(5) Text6.Text = Adodc1.Recordset.Fields(6) check = check + 1 End If Adodc1.Recordset.MoveNextWendAdodc1.RefreshG = Trim(Text5)While Adodc1.Recordset.EOF True If Adodc1.Recordset.Fields(5) = G Then Text1.Text = Adodc1.Recordset.Fields(1) Text2.Text = Adodc1.Recordset.Fields(2) Text3.Text = Adodc1.Recordset.Fields(3) Text4.Text = Adodc1.Recordset.Fields(4) Text6.Text = Adodc1.Recordset.Fields(6) check = check + 1 End If Adodc1.Recordset.MoveNextWendAdodc1.RefreshR = Trim(Text6)While Adodc1.Recordset.EOF True If Adodc1.Recordset.Fields(6) = R Then Text1.Text = Adodc1.Recordset.Fields(1) Text2.Text = Adodc1.Recordset.Fields(2) Text3.Text = Adodc1.Recordset.Fields(3) Text4.Text = Adodc1.Recordset.Fields(4) Text5.Text = Adodc1.Recordset.Fields(5) check = check + 1 End If Adodc1.Recordset.MoveNextWendIf check = 0 Then MsgBox (无此设备!) End If Text1.Locked = True 显示查询结果后，文本框内容不可更改 Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = TrueEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text1.Locked = False 按清除键后，文本框内容不可更改Text2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked = FalseEnd Sub效果及存在问题不能将添加的设备马上显示出来，功能较为简单，不够完善总结通过这次实验周的实践，我感受到了VB设计的趣味性，了解了VB的实用性。 虽然在实践时出现了许多问题，但通过老师和同学们的帮助，顺利的完成了课程设计，使我对VB有了进一步的认识，更渐渐喜欢上VB。