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.Show End Sub （2）查看设备 Form2 代码如下： Private Sub Command1_Click() Adodc1.Recordset.MovePrevious ’数据移到上一条 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst MsgBox "已经是第一条" End If End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveNext ’ 数据移到下一条 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox "已经是最后一条" End If End Sub Private Sub Command3_Click() Form3.Show End Sub Private Sub Command4_Click() Form4.Show End Sub Private 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 If End Sub Private Sub Command6_Click() End End Sub Private Sub Command7_Click() Adodc1.Recordset.MoveFirst ’ 显示第一条数据 End Sub Private Sub Command8_Click() Adodc1.Recordset.MoveLast ’ 显示最后一条数据 End Sub （3）添加设备 Form3 代码如下： Private Sub Command1_Click() Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.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.Update Adodc1.Recordset.MoveLast MsgBox "该设备已添加" End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub Command3_Click() Unload Me Form2.Show End Sub Form4 代码如下： Private Sub Command1_Click() Dim check As Integer Adodc1.Refresh Adodc1.Recordset.MoveFirst M = 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 的值 Wend Adodc1.Refresh X = 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.MoveNext Wend Adodc1.Refresh D = 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.MoveNext Wend Adodc1.Refresh S = Val(Trim(Text4)) Adodc1.Recordset.MoveFirst While 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.MoveNext Wend Adodc1.Refresh G = 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.MoveNext Wend Adodc1.Refresh R = 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.MoveNext Wend If check = 0 Then MsgBox ("无此设备!") End If Text1.Locked = True ’显示查询结果后，文本框内容不可更改 Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text1.Locked = False ’按清除键后，文本框内容不可更改 Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False End Sub 效果及存在问题不能将添加的设备马上显示出来，功能较为简单，不够完善总结通过这次实验周的实践，我感受到了VB设计的趣味性，了解了VB的实用性。虽然在实践时出现了许多问题，但通过老师和同学们的帮助，顺利的完成了课程设计，使我对VB有了进一步的认识，更渐渐喜欢上VB。目录第一章　项目概要 1 1.1 项目背景 1 1.2 项目建设内容与工期 2 1.3 投资估算和资金筹措 3 1.3.1投资估算 3 1.3.2 资金筹措方案 3 1.4 效益分析 4 1.4.1 经济效益 4 1.4.2 社会效益 5 1.4.3 生态效益 5 第二章项目区概况 6 2.1 自然概况 6 2.2 社会经济状况 8 第三章项目建设的必要性和可行性 10 3.1 项目区农业发展的制约因素 10 3.2项目建设的必要性 10 3.3 项目建设的可行性 13 第四章水资源评价及水利工程设施 14 4.1 项目区水资源概况 14 4.2 水利工程措施 14 第五章规划设计 18 5.1 指导思想 18 5.2 选项原则 18 5.3 建设标准 18 5.4 道路建设 19 5.5 建设规模 20 5.6 规划布局 20 第六章开发任务与开发原则 22 6.1 开发任务 22 6.2 开发原则 22 第七章投资估算与资金筹措 24 7.1投资估算 24 7.2 资金来源构成及筹措方案 24 第八章综合效益分析 26 8.1 经济效益 26 8.2 社会效益 26 8.3 生态效益 26 第九章组织实施和运行管护 28 9.1 组织机构设置 28 9.2 项目实施管理 29 9.3 运行管理和维护 29 第十章环境影响与评价 31 10.1生态影响分析评价 31 10.2 环境质量影响分析评价 31 第十一章可行性研究结论和建议 33 11.1 项目可行性研究的总体评价 33 11.2 主要污染物及治理措施 35 11.3 问题与建议 36

展开阅读全文