关 键 词：

VB 汽车 美容 管理 系统 设计 论文 源代码 开题 报告 外文 翻译

资源描述：

VB汽车美容管理系统设计(论文+源代码+开题报告+外文翻译),VB,汽车,美容,管理,系统,设计,论文,源代码,开题,报告,外文,翻译

内容简介：

毕 业 设 计 任 务 书（理工） 学院计算机科学与技术学生姓名董 青专业计算机科学与技术班级计升0402班学号0422201166指导教师石少俭职 称副教授课题名称汽车美容店管理系统业务管理起止日期自 2006年 4 月 3 日 起 至 2006 年 6 月 15 日一、课题来源、目的与要求：近年来随着社会现代化的发展越来越快，科学技术的逐渐提高，汽车的使用越来越普及，同时汽车美容店等相应产业也日益增多，规模逐渐增大，传统的手工统计各项业务流程和资料管理工作已经很难满足当前汽车美容店管理的需要。为改善企业中因手工统计车辆、材料、财务等各类信息的烦琐及复杂性，在节省企业工作时间的同时，提高企业的工作效率，达到提升企业效益的目的，因此急需要一套完整的计算机化汽车美容店信息管理解决方案。汽车美容店业务管理子系统是汽车美容店管理系统中一个组成部分，系统的实现的主要功能有：材料管理、车辆管理、财务管理。设计的指导思想是：一切为客户着想，界面美观大方，操作简单明了，而且作为一个实用的操作系统要有良好的容错性，在用户出现误操作时能尽量及时地给出警告，以便用户及时改正。二、主要设计内容：1材料管理功能如下：材料入库登记，系统管理员可对材料信息进行查询、删除、修改、添加等操作，普通用户可进行查询操作。2. 车辆管理功能如下：来车登记，车辆基本信息管理，车辆美容信息登记与管理。系统管理员对信息可进行各项操作，普通用户只可进行查询。 3.财务管理功能如下：查询具体车辆的消费信息，对车辆消费进行结算，根据客户类型的不同可进行不同的优惠。三、主要设计技术指标与参数：能够较自主的完成软件的分析、设计、实现以及软件的测试等工作。设计的软件能够实现浏览、修改、查询等功能，具有一定的通用行。数据库应包含库存材料信息、车辆基本信息、车辆美容信息、车辆消费信息等，便于快速查询。数据库的设计和使用必须确保数据的准确性、可靠性、完整性、安全性及保密性。四、分阶段指导性进度计划：12006.4.32006.4.9 熟悉课题任务、明确研究方向，学习有关基础知识22006.4.102006.4.23师生讨论，确定方案，熟悉开发环境32006.4.232006.5.7 明确设计框架、通过系统分析确定各个模板的功能。42006.5.82006.5.14 完成数据库设计，绘制流程图52006.5.152006.5.28各模块编程、调试62006.5.292006.6.4 系统测试，撰写毕业论文，交导师审阅72006.6.52006.6.15 论文再次修改、打印、装订，准备答辩五、主要参考文献资料：1 张海藩,等. 软件工程. 北京：人民邮电出版社，2003.72 萨师煊,王珊,等. 数据库系统概论. 北京：高等教育出版社，19953 李成忠,潘启敬,等. 管理信息系统开发中的数据库设计计算机应用. 北京：机械工业出版社,19954 郭胜,夏邦,等. Visual Basic数据库开发入门与范例解析. 北京：机械工业出版社，2004.15 柳青,刘渝妍,等. Visual Basic程序设计教程. 北京：高等教育出版社2002.26 丁学钧，温秀梅,等. Visual Basic语言程序设计教程与实验. 北京：清华大学出版社 2005.37 徐敏，郑有增，等. Visual Basic程序设计. 北京：中国水利水电出版社2005.38 黄淼元，等. Visual Basic控件应用编程实例教程. 北京：希望电子出版社，2002指导教师（签字）： 20 年 月 日系主任（签字）： 20 年 月 日注：本表由指导教师填写，经系主任审定后下发学生。毕业论文工作总结工作任务完成情况（包括任务书中规定的工作内容、研究目标等，如未能完成须说明原因）：在毕业设计开始以来的十周时间中，基本顺利、按时的完成下发的任务。这次毕业设计中我所做的汽车美容店管理系统业务管理，包括材料管理、车辆管理和财务管理，在规定时间内完成软件的分析、设计、实现以及软件的测试等工作。1材料管理功能如下：材料入库登记，系统管理员可对材料信息进行查询、删除、修改、添加等操作，普通用户可进行查询操作。2. 车辆管理功能如下：来车登记，车辆基本信息管理，车辆美容信息登记与管理。系统管理员对信息可进行各项操作，普通用户只可进行查询。 3.财务管理功能如下：查询具体车辆的消费信息，对车辆消费进行结算，根据客户类型的不同可进行不同的优惠。数据库应包含材料、车辆基本信息和车辆消费等信息，便于快速查询。数据库的设计和使用确保了数据的准确性、可靠性、完整性、安全性及保密性。主要创新点：系统界面规范整洁，实现了图形化，操作方便，容易掌握，不需要专业知识即可操作，整个系统简单易用。系统中使用各种表格，保存相关的信息，方便查询、浏览、修改等操作。系统可大幅度节约劳动力，提高资源的管理力度及效率，实现智能化的管理，大大减少以前因为手工统计和资源管理带来的错误，充分发挥计算机的优势。工作状况（包括工作态度、刻苦精神、协作精神、个人精力投入、出勤等情况）： 在整个设计过程中本人以极其认真的态度对待每一个细节，或可能出现的错误，都要在最短的时间内得到解决。 期间遇到这样那样的问题，在老师的大力支持、帮助下多数会得到很好的解决。当然也离不开同组同学给我的帮助，我们的相互帮助，相互学习，取长补短，查缺补漏，才使得这次的设计得以顺利完成。 无论是设计过程还是撰写论文的过程中，本人都积极参与其中，并按时出勤每次导师主持的例会。收获、体会及建议：在开发过程中，碰到了各种各样的困难。成功的建立了数据字典，确立了系统所需要的各项数据，确定了各个数据表之间的联系，完善建立了数据库。接着着手对系统的总体设计和详细设计工作，开始了对系统的编码工作。因为Visual Basic对数据库开发的强大功能，及它的代码效率高，几乎完美的面向对象语言和技术，所以我选择了Visual Basic作为开发工具。在整个的开发过程中，查询了大量的资料，请教指导老师，将所有的困难一一化解，最终，成功的开发出了这个汽车修理店管理管理系统业务管理子系统。当然它还不是至善至美，还存在一些功能上的限制和缺点，但它有着强大的功能，友好的界面，完全能够胜任汽车美容店的实际工作需要。通过本系统的开发，使我巩固了所学的数据库和Visual Basic开发工具的使用等方面的知识，学会了系统开发的一般方法，加深了对MIS系统开发的认识，初步掌握了软件开发的一般常识和步骤，使我认识到软件开发工作的艰巨性和复杂性，为今后在工作中学好用好计算机打下了坚实的基础。 学生签字： 2006年6月13日毕业设计开题报告（理工类）设计题目汽车美容店管理系统业务管理学生姓名董 青学号0422201166专业计算机科学与技术一、 课题的目的意义：随着社会的发展，人们生活水平的提高，使用汽车的人群与日剧增，随之产生了汽车美容店等与汽车相关的新兴行业。随着汽车消费的日渐成熟，汽车美容店的规模也越来越大，传统的人工管理已很难满足当今汽车美容店的需要，智能化的汽车美容店业务管理系统也应运而生，基于这一目的，开发了本系统，同时也提高了自己的软件开发能力。二、近年来国内外研究现状： 业务管理系统是一个企事业单位不可缺少的部分，它的内容对于企事业单位的决策者和管理者来说都至关重要，所以业务管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多缺点，如：效率低、保密性差，另外时间长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高，计算机科学技术日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对业务信息进行管理，具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高业务管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。业务管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。汽车美容店业务管理系统包括材料管理，车辆管理，财务管理等功能模块。 三、设计方案的可行性分析和预期目标：可行性分析：实现本系统所需的软件为Visual Basic 6.0本身要求的软硬件环境没有特殊要求 。硬件要求：一般在486以上处理器,16MB以上内存等。软件要求： Windows 9x， Windows NT或更高版本的操作系统。Access 2000对计算机的要求是：中文Windows 95或 Windows NT以上操作系统的支持；IBM兼容机，具有80486MHZ以上 处理器；32MB以上内存。以上电脑配置所用计算机均能满足，因此完成此设计具有可行性。预期目标：成功的开发出一个机构简单，界面友好，功能完善，操作方便，简捷实用的汽车美容店人事管理系统，能实现员工管理，客户管理，系统管理等，其中包括基本的信息录入，查询等功能，并能应用到实际工作中。通过对该系统的使用，提高用户的工作效率，加快电子化进程的推进。四、所需要的仪器设备、材料：1.硬件环境：CPU：Intel C 2.26GHz，内存：256MB，硬盘：40G，光驱：16DVD显卡：SiS，机箱：世纪之梦，网卡：集成2.软件环境：Windows XP，Visual Basic 6.0，Access 20003.所需材料：1.软件工程（第二版） 张海藩 人民邮电出版社该书由五篇共16章构成，第一篇讲述软件工程与软件过程；第二篇讲述结构化分析、设计与实现；第三篇讲述面向对象的概念、模型、分析、设计与实现；第四篇讲述软件项目的计划、组织和控制，并介绍了一些相关的国际标准；第五篇讲述形式化方法、统一建模语言UML和软件重用。2. Visual Basic 6.0 入门与提高 王钦主编 人民邮电出版社该书分为入门篇和提高篇，入门篇讲述了Visual Basic语言的基本概念和编程的基础知识；提高篇内容包括：数据库开发、多媒体应用等3.Visual Basic 6.0 数据库开发与专业应用 敬铮主编 国防工业出版社该书主要讲述了应用Visual Basic 6.0进行数据库开发的应用技术与技巧五、课题分阶段进度计划：序号起止日期工 作 内 容阶段成果14.3 4.9熟悉课题任务、明确研究方向，学习有关基础知识完成准备阶段的任务24.104.23师生讨论，确定方案，熟悉开发环境完成开题报告和相关的翻译34.3 5.7明确设计框架、通过系统分析确定各个模板的功能完成分析阶段的任务45.8 5.14完成数据库设计，绘制流程图完成数据库设计55.145.25各模块编程、调试完成编码65.296.4系统测试，撰写毕业论文，交导师审阅系统整体完成76.5 6.15论文再次修改、打印、装订，准备答辩完成毕业论文指导教师意见： 签字： 2006年 月 日山东理工大学毕业设计（论文）手册学院 计算机科学与技术 系 计算机科学与技术专业 计算机科学与技术 班级 计升0402班 学生姓名 董 青 学号 0422201166 指导教师 石少俭 职称 副教授 山东理工大学教务处编印二六年四月毕业设计（论文）自 二六年四月三日 至 二六年六月十五日 共十周山东理工大学 毕业设计（代码部分）学 院： 计算机科学与技术学院 专 业： 计算机科学与技术 学生姓名： 董 青 指导教师： 石少俭 毕业设计（论文）时间：二六 年 四月三日 六月十五日 共 十 周材料入库模块源代码如下：Private Sub Command1_Click()If Text1.Text And Text2.Text And DTPicker1.Value And Text4.Text And Text5.Text And DataCombo1.Text And Text7.Text ThenAdodc1.RefreshAdodc2.RecordSource = select * from 库存材料清单 where 材料号= & Text1.Text & Adodc2.RefreshIf Adodc2.Recordset.BOF Thenmsg$ = 确定要添加该记录吗？ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 添加记录)If ans = vbOK ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = CStr(DTPicker1.Value)Adodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = Text5.TextAdodc1.Recordset.Fields(5) = DataCombo1.TextAdodc1.Recordset.Fields(6) = Text7.TextAdodc1.Recordset.Fields(7) = Text8.TextAdodc1.Recordset.UpdateMsgBox (保存成功！*_*)End IfElse MsgBox 材料号不能重复，该材料号已存在！, 48, 警告End IfElse MsgBox 资料输入不全，请重新输入！, 64, 提示End IfText1.SetFocusText1.Text = Text2.Text = Text4.Text = Text5.Text = DataCombo1.Text = Text7.Text = Text8.Text = End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text4.Text = Text5.Text = DataCombo1.Text = Text7.Text = Text8.Text = End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc1.ConnectionString = adoAdodc1.RecordSource = 库存材料清单Adodc1.RefreshAdodc2.ConnectionString = adoAdodc3.ConnectionString = adoAdodc3.RecordSource = gysxxAdodc3.RefreshEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text ThenMsgBox 该材料号已经存在，请重新输入！, 48, 提示Text1.Text = End IfAdodc1.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Text7_GotFocus()If Not Adodc3.Recordset.BOF ThenAdodc3.Recordset.MoveFirstWhile Not Adodc3.Recordset.EOFIf Adodc3.Recordset.Fields(0) = DataCombo1.Text ThenText7.Text = Adodc3.Recordset.Fields(1)End IfAdodc3.Recordset.MoveNextWendEnd IfEnd Sub库存管理模块源代码如下：Dim sql As StringPrivate Sub Command1_Click()If DataCombo1.Text = And DataCombo2.Text = And DataCombo3.Text = ThenMsgBox 请在组合框中输入你要查询的内容！, 64, 提示ElseIf DataCombo1.Text = And DataCombo2.Text = And DataCombo3.Text Thensql = select * from 库存材料清单 where 供应商号 = & DataCombo3.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text = And DataCombo2.Text And DataCombo3.Text = Thensql = select * from 库存材料清单 where 进货日期= & DataCombo2.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text = And DataCombo2.Text And DataCombo3.Text Thensql = select * from 库存材料清单 where 进货日期= & DataCombo2.Text & and 供应商号= & DataCombo3.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text And DataCombo2.Text = And DataCombo3.Text = Thensql = select * from 库存材料清单 where 材料号= & DataCombo1.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text And DataCombo2.Text = And DataCombo3.Text Thensql = select * from 库存材料清单 where 材料号= & DataCombo1.Text & and 供应商号= & DataCombo3.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text And DataCombo2.Text And DataCombo3.Text = Thensql = select * from 库存材料清单 where 材料号= & DataCombo1.Text & and 进货日期= & DataCombo2.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCombo1.Text And DataCombo2.Text And DataCombo3.Text Thensql = select * from 库存材料清单 where 材料号= & DataCombo1.Text & and 进货日期= & DataCombo2.Text & and 供应商号= & DataCombo3.Text & Adodc1.RecordSource = sqlAdodc1.RefreshEnd IfIf Adodc1.Recordset.BOF ThenMsgBox 对不起，该库存不存在！, 64, 提示End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If DataGrid1.AllowUpdate = False Then DataGrid1.AllowUpdate = True DataGrid1.AllowDelete = True Command3.Caption = 锁定 MsgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Command3.Caption = 修改 MsgBox 您进入锁定状态！ End IfEnd SubPrivate Sub Command4_Click()msg$ = 确定要删除该库存材料记录吗？ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 删除记录)If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc1.ConnectionString = adoAdodc1.RecordSource = 库存材料清单Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = 库存材料清单Adodc2.RefreshIf CurUser.User_type 1 Then Command3.Enabled = False Command4.Enabled = False End IfEnd Sub美容项目定义模块源代码如下：Private Sub Command1_Click()If Text1.Text And Text2.Text And Text3.Text ThenAdodc2.RecordSource = select * from 美容项目定义表 where 美容项目编号= & Text1.Text & Adodc2.RefreshIf Adodc2.Recordset.BOF ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.UpdateElseMsgBox 该美容项目编号已存在！, 48, 警告End IfElseMsgBox 资料输入不全，请重新输入！, 64, 提示End IfText1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()msg$ = 确定要删除该美容项目吗？ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 删除记录)If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()If DataGrid1.AllowUpdate = False Then DataGrid1.AllowUpdate = True DataGrid1.AllowDelete = True Command5.Caption = 锁定 MsgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Command5.Caption = 修改 MsgBox 您进入锁定状态！End IfEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text ThenMsgBox 该美容项目编号已经存在，请重新输入！, 48, 提示Text1.Text = End IfAdodc1.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc1.ConnectionString = adoAdodc1.RecordSource = 美容项目定义表Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub美容项目查询模块源代码如下：Private Sub Command1_Click()If DataCombo1.Text = ThenMsgBox (输入不能为空！)ElseAdodc2.RecordSource = select * from 美容项目定义表 where 美容项目名称= & DataCombo1.Text & Adodc2.RefreshDataGrid1.Columns(0).Width = 1200DataGrid1.Columns(1).Width = 1200DataGrid1.Columns(2).Width = 1200End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc1.ConnectionString = adoAdodc1.RecordSource = 美容项目定义表Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub来车登记模块源代码如下：Dim sql As StringPrivate Sub Command1_Click()If DTPicker1.Value And Text2.Text And Text3.Text And Text4.Text And DataCombo1.Text Thenmsg$ = 确定要添加该登记吗？ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 添加登记)If ans = vbOK ThenAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = DataCombo1.TextAdodc1.Recordset.Fields(5) = Text5.TextAdodc1.Recordset.UpdateMsgBox (成功登记！-)ElseExit SubEnd IfDim sql As Stringsql = select * from 车辆基本信息表 where 车牌号码= & Text2.Text & Adodc3.RecordSource = sqlAdodc3.RefreshIf Adodc3.Recordset.BOF Then Adodc2.Refresh Adodc2.Recordset.AddNewAdodc2.Recordset.Fields(0) = Text2.TextAdodc2.Recordset.Fields(1) = Text3.TextAdodc2.Recordset.Fields(2) = Text4.TextAdodc2.Recordset.Fields(3) = Text5.TextAdodc2.Recordset.UpdateEnd IfElseMsgBox 资料输入不全，请重新输入！, 64, 提示End IfDTPicker1.SetFocusText2.Text = Text3.Text = Text4.Text = DataCombo1.Text = Text5.Text = End SubPrivate Sub Command2_Click()Text2.Text = Text3.Text = Text4.Text = Text5.Text = DataCombo1.Text = End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc1.ConnectionString = adoAdodc1.RecordSource = 来车登记表Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = 车辆基本信息表Adodc2.RefreshAdodc3.ConnectionString = adoAdodc4.ConnectionString = adoAdodc4.RecordSource = bmxxAdodc4.RefreshEnd Sub车辆基本信息管理模块源代码如下：Private Sub Command1_Click()查询车辆基本信息.ShowEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()msg$ = 确定要删除该项信息吗？ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 删除记录)If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command4_Click()If DataGrid1.AllowUpdate = False Then DataGrid1.AllowUpdate = True DataGrid1.AllowDelete = True Command4.Caption = 锁定 MsgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Command4.Caption = 修改 MsgBox 您进入锁定状态！End IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc1.ConnectionString = adoAdodc1.RecordSource = 车辆基本信息表Adodc1.RefreshIf CurUser.User_type 1 Then Command3.Enabled = False Command4.Enabled = FalseEnd IfEnd Sub车辆美容信息管理模块源代码如下：Private Sub Command1_Click()Dim sum1, x, z As CurrencyDim y, n1, l, l1 As Longsum1 = 0n1 = 0l1 = 0If CStr(DTPicker1.Value) And Text2.Text And Text3.Text And DataCombo1.Text And DataCombo5.Text And DataCombo6.Text Then修改库存材料清单Dim q, q1 As Longq1 = 0If Not Adodc5.Recordset.BOF Then Adodc5.Refresh Adodc5.Recordset.MoveFirst While Not Adodc5.Recordset.EOF If Adodc5.Recordset.Fields(0) = DataCombo5.Text And Adodc5.Recordset.Fields(1) = DataCombo6.Text Then q1 = 1 If Adodc5.Recordset.Fields(4) CLng(Text3.Text) Then MsgBox 这种材料的库存数量不够！, 48, 警告 DataCombo5.Text = DataCombo6.Text = Text2.Text = Text3.Text = Exit Sub Else q = Adodc5.Recordset.Fields(4) Adodc5.Recordset.Fields(4) = q - CLng(Text3.Text) Adodc5.Recordset.Update End If End If Adodc5.Recordset.MoveNext Wend If q1 = 0 Then MsgBox 库存中没有这种材料！, 48, 警告 End If 修改库存材料清单完毕End IfIf q1 = 1 ThenAdodc6.RefreshIf Not Adodc6.Recordset.BOF ThenAdodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOF 查找一下车辆用料信息表中是否存在这种材料If Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text And Adodc6.Recordset.Fields(2) = DataCombo5.Text And Adodc6.Recordset.Fields(3) = DataCombo6.Text And Adodc6.Recordset.Fields(4) = Text2.Text Thenl = Adodc6.Recordset.Fields(5)l1 = 1Adodc6.Recordset.Fields(5) = l + CLng(Text3.Text) 如果存在，只修改数量Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.MoveNextWendEnd IfIf l1 = 0 Then 如果不存在，则在车辆用料信息表中添加新记录Adodc6.Recordset.AddNewAdodc6.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc6.Recordset.Fields(1) = DataCombo1.TextAdodc6.Recordset.Fields(2) = DataCombo5.TextAdodc6.Recordset.Fields(3) = DataCombo6.TextAdodc6.Recordset.Fields(4) = Text2.TextAdodc6.Recordset.Fields(5) = Text3.TextAdodc6.Recordset.UpdateAdodc6.RefreshEnd IfIf Not Adodc9.Recordset.BOF ThenAdodc9.Refresh 在车辆消费信息表中添加该车辆的材料费Adodc9.Recordset.MoveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCombo1.Text Thenn1 = 1 如果车辆消费信息表中存在当天该车的记录时Adodc6.Refresh 在车辆用料信息表中，计算该车的材料费Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysum1 = sum1 + zEnd IfAdodc6.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(3) = sum1Adodc9.Recordset.Fields(4) = sum1 + Adodc9.Recordset.Fields(2)Adodc9.Recordset.UpdateEnd IfAdodc9.Recordset.MoveNextWendEnd IfIf n1 = 0 Then 车辆消费信息表中无该车辆记录时Adodc9.Recordset.AddNew 向车辆消费信息表中添加材料费记录Adodc6.Refresh 车辆用料信息表Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysum1 = sum1 + zEnd IfAdodc6.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(3) = sum1Adodc9.Recordset.Fields(4) = sum1Adodc9.Recordset.Update 保存记录End IfEnd IfElseMsgBox 资料输入不全，请重新输入！, 64, 提示End IfDataCombo5.Text = DataCombo6.Text = Text2.Text = Text3.Text = DataCombo5.SetFocusEnd SubPrivate Sub Command2_Click()DataCombo1.Text = DataCombo2.Text = DataCombo3.Text = DataCombo4.Text = Unload MeEnd SubPrivate Sub Command3_Click()修改美容项目.ShowEnd SubPrivate Sub Command4_Click()Dim sum, x, z As CurrencyDim y, n As Longsum = 0 n = 0If DTPicker1.Value And DataCombo1.Text And DataCombo2.Text And DataCombo3.Text And DataCombo4.Text ThenAdodc4.Refresh 车辆美容信息登记表Adodc4.Recordset.AddNewAdodc4.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc4.Recordset.Fields(1) = DataCombo1.TextAdodc4.Recordset.Fields(2) = DataCombo4.TextAdodc4.Recordset.Fields(3) = DataCombo2.TextAdodc4.Recordset.Fields(4) = DataCombo3.TextAdodc4.Recordset.UpdateAdodc9.RefreshIf Not Adodc9.Recordset.BOF Then 判断一下表是否为空表Adodc9.RefreshAdodc9.Recordset.MoveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCombo1.Text Thenn = 1Adodc4.RefreshAdodc4.Recordset.MoveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCombo1.Text Thensum = sum + Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(2) = sumAdodc9.Recordset.Fields(4) = sum + Adodc9.Recordset.Fields(3)Adodc9.Recordset.Update 保存End IfAdodc9.Recordset.MoveNextWendEnd IfIf n = 0 ThenAdodc9.Recordset.AddNew 向车辆消费信息表中添加美容项目消费Adodc4.RefreshAdodc4.Recordset.MoveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCombo1.Text Thensum = sum + Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.MoveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc9.Recordset.Fields(1) = DataCombo1.TextAdodc9.Recordset.Fields(2) = sumAdodc9.Recordset.Fields(4) = sumAdodc9.Recordset.Update 保存End IfElse MsgBox 资料输入不全，请重新输入！, 64, 提示End IfDataCombo2.Text = DataCombo3.Text = DataGrid1.Columns(0).Width = 1500DataGrid1.Columns(1).Width = 1500DataCombo2.SetFocusEnd SubPrivate Sub Command5_Click()修改用料.ShowEnd SubPrivate Sub Command6_Click()If DataGrid1.AllowUpdate = False Then DataGrid1.AllowUpdate = True DataGrid1.AllowDelete = True Command6.Caption = 锁定 MsgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Command6.Caption = 修改 MsgBox 您进入锁定状态！End IfEnd SubPrivate Sub DataCombo2_GotFocus()Adodc7.RecordSource = select 美容项目,价格 from 车辆美容信息登记表 where 日期= & CStr(DTPicker1.Value) & and 车牌号码= & DataCombo1.Text & Adodc7.RefreshEnd SubPrivate Sub DataCombo5_GotFocus()Adodc8.RecordSource = select 材料号,材料名称,单价,数量 from 车辆用料信息表 where 日期= & CStr(DTPicker1.Value) & and 车牌号码= & DataCombo1.Text & Adodc8.RefreshDataGrid2.Columns(0).Width = 1000DataGrid2.Columns(1).Width = 1000DataGrid2.Columns(2).Width = 1000DataGrid2.Columns(3).Width = 1000End SubPrivate Sub DataCombo3_GotFocus() 查询美容项目定义表，美容价格随着美容项目的选择而变If Not Adodc2.Recordset.BOF ThenAdodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(1) = DataCombo2.Text ThenDataCombo3.Text = Adodc2.Recordset.Fields(2)End IfAdodc2.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub DataCombo6_GotFocus()If Not Adodc5.Recordset.BOF Then 根据填入的材料号，材料名称会自动出现Adodc5.Recordset.MoveFirstWhile Not Adodc5.Recordset.EOFIf Adodc5.Recordset.Fields(0) = DataCombo5.Text ThenDataCombo6.Text = Adodc5.Recordset.Fields(1)End IfAdodc5.Recordset.MoveNextWendEnd IfEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc1.ConnectionString = adoAdodc1.RecordSource = 车辆基本信息表Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = 美容项目定义表Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = bmxxAdodc3.RefreshAdodc4.ConnectionString = adoAdodc4.RecordSource = 车辆美容信息登记表Adodc4.RefreshAdodc5.ConnectionString = adoAdodc5.RecordSource = 库存材料清单Adodc5.RefreshAdodc6.ConnectionString = adoAdodc6.RecordSource = 车辆用料信息表Adodc6.RefreshAdodc9.ConnectionString = adoAdodc9.RecordSource = 车辆消费信息表Adodc9.RefreshIf CurUser.User_type 1 Then Command3.Enabled = False Command5.Enabled = False End IfEnd Sub修改美容项目模块源代码如下：Private Sub Command1_Click()Dim l, x, y As Longl = 0Adodc2.Refresh 在美容项目登记表中删除项目Adodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf Adodc2.Recordset.Fields(0) = Text1.Text And Adodc2.Recordset.Fields(1) = DataCombo1.Text And Adodc2.Recordset.Fields(2) = DataCombo2.Text And Adodc2.Recordset.Fields(3) = DataCombo3.Text And Adodc2.Recordset.Fields(4) = DataCombo4.Text Then l = 1 y = Adodc2.Recordset.Fields(4) msg$ = 确定要删除该美容项目吗？ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 删除记录)If ans = vbOK ThenAdodc2.Recordset.DeleteAdodc2.Recordset.MoveNextAdodc2.Recordset.Update Adodc2.Refresh End If DataGrid1.Columns(0).Width = 1200DataGrid1.Columns(1).Width = 1200DataGrid1.Columns(2).Width = 1200DataGrid1.Columns(3).Width = 1200DataGrid1.Columns(4).Width = 1200End IfAdodc2.Recordset.MoveNextWendIf l = 0 Then 要删除的项目不存在时MsgBox (数据库中没有您要删除的项目！)End IfAdodc6.Refresh 修改车辆消费信息表中的人工费合计和总金额Adodc6.Recordset.MoveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = Text1.Text And Adodc6.Recordset.Fields(1) = DataCombo1.Text Thenx = Adodc6.Recordset.Fields(2)Adodc6.Recordset.Fields(2) = x - yAdodc6.Recordset.Fields(4) = Adodc6.Recordset.Fields(2) + Adodc6.Recordset.Fields(3)Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.MoveNextWendDataCombo2.Text = DataCombo3.Text = DataCombo4.Text = DataCombo2.SetFocusEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If DataGrid1.AllowUpdate = False Then DataGrid1.AllowUpdate = True DataGrid1.AllowDelete = True Command3.Caption = 锁定 MsgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Command3.Caption = 修改 MsgBox 您进入锁定状态！End IfEnd SubPrivate Sub DataCombo2_GotFocus()Adodc1.RecordSource = select * from 车辆美容信息登记表 where 日期= & Text1.Text & and 车牌号码= & DataCombo1.Text & Adodc1.RefreshEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc1.ConnectionString = adoAdodc2.ConnectionString = adoAdodc2.RecordSource = 车辆美容信息登记表Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = 车辆基本信息表Adodc3.RefreshAdodc5.ConnectionString = adoAdodc5.RecordSource = 美容项目定义表Adodc5.RefreshAdodc6.ConnectionString = adoAdodc6.RecordSource = 车辆消费信息表Adodc6.RefreshText1.SetFocusEnd Sub修改用料模块源代码如下：Private Sub Command1_Click()Dim l, x, y, z, m, l1 As Longl = 0l1 = 0Adodc3.Refresh 在车辆用料信息表中删除信息If Not Adodc3.Recordset.BOF Then Adodc3.Recordset.MoveFirst While Not Adodc3.Recordset.EOF If Adodc3.Recordset.Fields(0) = Text1.Text And Adodc3.Recordset.Fields(1) = DataCombo1.Text And Adodc3.Recordset.Fields(2) = DataCombo2.Text And Adodc3.Recordset.Fields(3) = DataCombo3.Text And Adodc3.Recordset.Fields(4) = Text2.Text Then l = 1 z = Adodc3.Recordset.Fields(5) m = z - CLng(Text3.Text) If m 0 Then msg$ = 确定要修改该用料信息吗？ ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 修改记录) If ans = vbOK Then l1 = 1 Adodc3.Recordset.Fields(5) = m Adodc3.Recordset.Update Adodc3.Refresh y = Adodc3.Recordset.Fields(4) * CLng(Text3.Text) End If ElseIf m = 0 Then msg$ = 确定要删除该用料信息吗？ ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 删除记录) If ans = vbOK Then l1 = 1 y = Adodc3.Recordset.Fields(4) * CLng(Text3.Text) Adodc3.Recordset.Delete Adodc3.Recordset.MoveNext Adodc3.Refresh End If ElseIf m 0 Then MsgBox (您要删除的数量大于该车实际用量！) End IfDataGrid1.Columns(0).Width = 1200DataGrid1.Columns(1).Width = 1200DataGrid1.Columns(2).Width = 1200DataGrid1.Columns(3).Width = 1200DataGrid1.Columns(4).Width = 1200DataGrid1.Columns(5).Width = 1200If l1 = 1 ThenAdodc4.Refresh 修改车辆消费信息表中的材料费合计和总金额If Not Adodc4.Recordset.BOF Then Adodc4.Recordset.MoveFirst While Not Adodc4.Recordset.EOF If Adodc4.Recordset.Fields(0) = Text1.Text And Adodc4.Recordset.Fields(1) = DataCombo1.Text Then x = Adodc4.Recordset.Fields(3) Adodc4.Recordset.Fields(3) = x - y Adodc4.Recordset.Fields(4) = Adodc4.Recordset.Fields(2) + Adodc4.Recordset.Fields(3) Adodc4.Recordset.Update End If Adodc4.Recordset.MoveNext WendEnd If Adodc2.Refresh 修改库存材料清单 If Not Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirst While Not Adodc2.Recordset.EOF If Adodc2.Recordset.Fields(0) = DataCombo2.Text And Adodc2.Recordset.Fields(1) = DataCombo3.Text Then Adodc2.Recordset.Fields(4) = Adodc2.Recordset.Fields(4) + CLng(Text3.Text) Adodc2.Recordset.Update End If Adodc2.Recordset.MoveNext Wend End If 修改库存材料清单完毕End IfDataCombo2.Text = DataCombo3.Text = Text2.Text = Text3.Text = DataCombo2.SetFocusExit SubEnd IfAdodc3.Recordset.MoveNextWendEnd IfIf l = 0 Then 要删除的项目不存在时MsgBox (数据库中没有您要删除的信息！)End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub DataCombo2_GotFocus()Adodc5.RecordSource = select * from 车辆用料信息表 where 日期= & Text1.Text & and 车牌号码= & DataCombo1.Text & Adodc5.RefreshEnd SubPrivate Sub Form_Load()Dim ado As String, mpath As Stringmpath = App.pathIf Right(mpath, 1) Then mpath = mpath + ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + mpath + database.mdbAdodc5.ConnectionString = adoAdodc1.ConnectionString = adoAdodc1.RecordSource =