VB汽车美容管理系统(源代码+系统+外文翻译+英文文献+开题报告+任务书)
收藏
资源目录
压缩包内文档预览：(预览前20页/共23页)
编号：149910936
类型：共享资源
大小：7.43MB
格式：RAR
上传时间：2021-10-10
上传人：好资料QQ****51605
认证信息
个人认证
孙**（实名认证）
江苏
IP属地：江苏
20
积分
- 关 键 词：
-
VB
汽车
美容
管理
系统
源代码
外文
翻译
英文
文献
开题
报告
任务书
- 资源描述：
-
VB汽车美容管理系统(源代码+系统+外文翻译+英文文献+开题报告+任务书),VB,汽车,美容,管理,系统,源代码,外文,翻译,英文,文献,开题,报告,任务书
- 内容简介：
-
材料入库模块源代码如下：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 = 车辆基本信息表Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = 库存材料清单Adodc2.RefreshAdodc3.ConnectionString = adoAdodc3.RecordSource = 车辆用料信息表Adodc3.RefreshAdodc4.ConnectionString = adoAdodc4.RecordSource = 车辆消费信息表Adodc4.RefreshEnd Sub结算汇总模块源代码如下：Private Sub Command1_Click()Dim n1 As Longn1 = 0If DataCombo1.Text And DTPicker1.Value ThenIf Not Adodc2.Recordset.BOF ThenAdodc2.RefreshAdodc2.Recordset.MoveFirstWhile Not Adodc2.Recordset.EOFIf DateValue(Adodc2.Recordset.Fields(0
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号