车辆维修管理系统论文

车辆维修管理系统论文内容摘要：

，表结构如下： 字段名称 类型 说明 ID 自动编号 pj 表主健 pjmc 文本 配件名称 pjpym 文本 配 件拼音码 pjxh 文本 配件型号 pjdw 文本 配件单位 sl 数字 配件数量（保留） zy 文本 配件主用车型 ty 文本 配件通用车型 pjgg 文本 配件规格 xsjg 数字 配件销售价格 sysm 文本 配件使用说明 ry表，维修人员及所属班组的相关资料，表结构如下： 字段名称 类型 说明 ID 自动编号 ry 表主健 jb 文本 级别（便于分类） bh 文本 编号（便于分类） mc 名称 维修人员姓名或班组名 1 jyr 表，汽车维修检验人员的相关资料，表结构如 下： 字段名称 类型 说明 ID 自动编号 pj 表主健 xm 文本 检验员姓名 系统主要窗体及关键技术介绍 登录窗体 介绍 系统操作人员打开软件后，首先显示的是操作人员登录界面。 窗体通过调用VB函数 year、 month、 day和 week，取得系统当前日期，以提醒操作人员当前日期是否有误，以免打开主界面后产生不正确的代码。 同时，窗体加载时利用连接字符串连接系统数据库，打开表 cz，取得 cz表中所有操作人员名称，显示在列表框中供操作人员选择。 操作人员选择属于自己的用户名，键入密码后登录 主界面即可。 窗体加载的源码如下： = Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 amp。 星期 amp。 Weekday(Date) 13 39。 数据库连接 strCnn = Provider=。 Data Source= amp。 amp。 \。 Set Cnn = New strCnn SQL = select * from cz SQL Set rs = New SQL, Cnn, adOpenDynamic, adLockBatchOptimistic Do While Not (1): Loop Set rs = Nothing Set Cnn = Nothing = 0 窗体预览效果如下： 维修系统主界面窗体 介绍 维修系统主界面是子窗体。 本系统在设计时将相关窗体全部作为子窗体看待，母窗体除了起个容器的作用外，没有其它的功能和作用。 主界面显示系统主要操作的所有内容，包括业务接待、维修派工、领用材料、结算出厂、单车档案、单据查询等方面。 维修主界面窗体加载了三个 DateGrid 控件，分别显示主界面窗体的当前在修车辆情况、维修派工明细、材料领用明细三个方面内容。 DateGrid 控件与 Adodc控件记录集绑定，采用 SQL 语句对需显示的记录和字段进行筛选。 对在修车辆 情况、维修派工明细、材料领用明细三部分控件内容分别在公共模块中定义公共函 14 数 LD、 PG、 LL，加载 DateGrid 控件时采取调用公共函数的方法。 在模块中定义这三个函数，是为了方便以后对这三个控件数据记录集重新加载时，不需要再编写这些重复代码。 系统主窗体定义了加载在修车辆情况 DateGrid 控件的 RowColChange 事件，这个事件是在当前操作记录发生改变时发生的事件，主要是为了保证维修派工明细和材料领用明细这两个 DateGrid 控件与其的同步变化。 退出软件使用的方法是调用窗体的 QueryUnload 事件。 这个事件是在窗体卸载前发生的事件，经弹出确认窗体确认退出后，关闭主界面和母窗体界面。 在模块中定义的三个公共函数 LD、 PG、 LL 的源代码如下： Public Sub LD() On Error GoTo err1 = Provider=。 Data Source= amp。 amp。 \。 = select jddlsh,cph,khmc,jcsj,bxxm,ydccsj,sxr,jcr,clxh,fyjs , from kh,cl,jd where = and = and = amp。 True amp。 order by jddlsh Set = = 在修车辆一览表 (0).Caption = 报修单流水号 (1).Caption = 车牌号码 (2).Caption = 车属单位 (3).Caption = 进厂时间 (4).Caption = 报修项目 (5).Caption = 预计出厂时间 (6).Caption = 送修人 (7).Caption = 接车人 (8).Caption = 车辆型号 (9).Caption = 费用结算方式 (10).Caption = 接待表主键 (10).Width = 0 = (1).text pglsh = (10).text jdwx = (0).text 15 For u = 0 To 10 (u).Locked = True Next u Exit Sub err1: jdwx = 0 On Error Resume Next End Sub Public Sub PG() On Error Resume Next = Provider=。 Data Source= amp。 amp。 \。 = select pgdh,wxlb,wxjg,wxfy,wxry,jyr,yc from wx where jdid= amp。 jdwx amp。 and yc= amp。 False amp。 order by pgdh Set = (0).Caption = 派工单号 (1).Caption = 维修类别 (2).Caption = 维修项目 (3).Caption = 维修费用 (4).Caption = 维修人员 (5).Caption = 检验员 (6).Width = 0 For u = 0 To 6 (u).Locked = True Next u End Sub Public Sub LL() On Error Resume Next = Provider=。 Data Source= amp。 amp。 \。 16 = select pjmc,pjxh,gg,dw,sl,jg,clfy,yc from hj where jdid= amp。 jdwx amp。 and yc= amp。 False Set = (0).Caption = 配件名称 (1).Caption = 配件型号 (2).Caption = 配件规格 (3).Caption = 单位 (4).Caption = 数量 (5).Caption = 价格 (6).Caption = 材料费用 (7).Width = 0 For u = 0 To 7 (u).Locked = True Next u End Sub 维修主界面窗体的预览效果如下： 业务接待功能介绍 业务接待是车辆进厂的第一项工作。 操作员打开“业务接待单”界面后，登记车主和车辆的相关资料，并记录下车主的报修项目，接待功能完成。 业务接待单能根据当前日期和今日业务接待数量，自动产生一个顺序化的流水号。 流水号 17 使用 8位整数显示， 第一位显示当前年份的最后一个数字，第二位到第五位分别显示月份（两位数格式）和日期（两位数格式），第六位和第八位显示的是当前接待的顺序号。 单日最大接待量达 999 台次，能够满足绝大多数修理厂的最大业务接待能力。 当接待完成后，点击确认按钮，将接待报修的情况写入数据库中的jd表，同时调用 LD 函数，使用接待的车辆显示在主界面窗体的 在修车辆情况一览表中。 业务接待窗体预览如下： 维修派工功能介绍 车辆经过报 修接待后，在主窗体界面的在修车辆情况一览表中选取后，就可以安排人员维修了。 在点击维修派工按钮后，打开维修派工界面。 维修派工窗体加载时，采用字符串连接数据库 wx 表的方法 ， 提取当前接待报修流水号下的派工单数量，根据该车已派工单的数量自动产生派工单号，产生的派工单号为该车业务接待流水号后连接派工单数量加 1的这个数值。 这个数值就是同业务接待流水号下的派工单总数量。 在本系统中设置这个数值为个位数，最大数值为 9，最小数值为 1。