学士学位论文—-vb课程设计题目设备管理系统

1、VB 程序设计课程设计课程设计题目设备管理系统一、课程设计的目的与要求二、任务描述对系统要实现的功能进行确切的描述。三、设计详细说明程序的设计思想，所用到的算法、数据结构技 巧等四、效果及存在问题说明系统的运行效果（附上界面图形）、存在哪些不足以及预期的解决办法五、总结课程设计的目的与要求1、教学目的使学生在理论课程结束后， 通过课程设 计能进一步巩固对 VB编程机制的理解，真 正掌握运用VB进行软件开发的方法和原理， 从而锻炼学生开发能力、程序调试的能力， 及程序错误处理的能力。2、教学要求 从课程设计的目的出发，通过课程设计 的各个环节，达到以下教学要求（1）进一步掌握VB语言程序设计的基

2、 本思想和方法；（ 2）掌握面向对象的可视化程序设计 的基本原理及应用；任务描述建立设备数据库表，存储设备的信息，包括设备的名称、 数量、型号、规格等信息；能够实现对设备的查询、修改、 添加等操作。设计1、设备管理系统的功能1、查看设备：用来实现对设备的浏览、删除2、查询设备：用来实现对设备的查询3、添加设备：用来实现对设备的添加2、连接数据源利用ADO控件将Access数据源连接到程序中建立Access数据库打开Access，建立名为“设备”的数据库。在数据库中选 择“使用设计器创建表”输入名称、型号、单价、数量、规 格、购买日期。保存命名为“设备管理”。3、窗体名称标题Froml登陆界面F

3、rom2查看设备From3添加设备From4查找设备(1 )登陆界面Froml代码如下：Private Sub Comma nd1_Click()Form2.ShowEnd Sub(2)查看设备已轻是最后一条Form2 代码如下：Private Sub Command1_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox 已经是第一条 End IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.Mo

4、veNextIf 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 NextIf MsgBox( 确定删除该记录？Adodc1.Recordset.Delete数据移到上一条数据移到下一条, vbOKCancel, 提示 )

5、= vbOK Then删除正显示的记录Adodc1.Recordset.MoveNext 显示下一条数据If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub Command6_Click()End显示第一条数据显示最后一条数据End SubPrivate Sub Comma nd7_Click()AdodcI.Recordset.MoveFirstEnd SubPrivate Sub Comma nd8_Click()Adodc1.Recordset.MoveLast End Su

6、b(3)添加设备Form3代码如下:Private Sub Comma nd1_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

7、.Fields(6) = Trim(Text6)AdodcI.Recordset.UpdateAdodcI.Recordset.MoveLastMsgBox 该设备已添加”End Sub将文本框中的值赋值给数据库Private Sub Comma nd2_Click()Text1.Text =Text2.Text =Text3.Text =Text4.Text =Text5.Text =Text6.Text =End SubPrivate Sub Comma nd3_Click() Un load MeForm2.ShowEnd SubForm4代码如下:Private Sub Comma n

8、d1_Click() Dim check As In teger Adodc1.RefreshAdodc1.Recordset.MoveFirstM = Trim(Text1)While Adodc1.Recordset.EOF TrueIf Adodc1.Recordset.Fields(1) = M ThenText2.Text = Adodc1.Recordset.Fields(2)Text3.Text = Adodc1.Recordset.Fields(3)Text4.Text = Adodc1.Recordset.Fields(4)Text5.Text = Adodc1.Record

9、set.Fields(5)Text6.Text = Adodc1.Recordset.Fields(6)check = check + 1End IfAdodc1.Recordset.MoveNext用循环语句判断文本框中的 值 是否等于数据库中相应 的值WendAdodc1.RefreshX = Trim(Text2)While Adodc1.Recordset.EOF TrueIf Adodc1.Recordset.Fields(2) = X ThenText1.Text = Adodc1.Recordset.Fields(1)Text3.Text = Adodc1.Recordset.F

10、ields(3)Text4.Text = Adodc1.Recordset.Fields(4)Text5.Text = Adodc1.Recordset.Fields(5)Text6.Text = Adodc1.Recordset.Fields(6)check = check + 1End IfAdodc1.Recordset.MoveNextWendAdodc1.RefreshD = Val(Trim(Text3)While Adodc1.Recordset.EOF TrueIf Adodc1.Recordset.Fields(3) = D ThenText1.Text = Adodc1.R

11、ecordset.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 + 1End IfAdodc1.Recordset.MoveNextWendAdodc1.RefreshS = Val(Trim(Text4)Adodc1.Recordset.MoveFirstWhile Adodc1.Re

12、cordset.EOF TrueIf Adodc1.Recordset.Fields(4) = S ThenText1.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 + 1End IfAdodc1.Recordset.MoveNextWen

13、dAdodc1.RefreshG = Trim(Text5)While Adodc1.Recordset.EOF TrueIf Adodc1.Recordset.Fields(5) = G ThenText1.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

14、= check + 1End IfAdodc1.Recordset.MoveNextWendAdodc1.RefreshR = Trim(Text6)While Adodc1.Recordset.EOF TrueIf Adodc1.Recordset.Fields(6) = R ThenText1.Text = Adodc1.Recordset.Fields(1)Text2.Text = Adodc1.Recordset.Fields(2)Text3.Text = Adodc1.Recordset.Fields(3)Text4.Text = Adodc1.Recordset.Fields(4)

15、Text5.Text = Adodc1.Recordset.Fields(5)check = check + 1End IfAdodc1.Recordset.MoveNextWendIf check = 0 ThenMsgBox ( 无此设备 !)End IfText1.Locked = True 显示查询结果后，文本框内容不可更改Text2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text1.Locked = False 按清除键后，文本框内容