VB车辆管理系统-源代码-VB毕业设计

1、材料入库模块源代码如下:Private Sub Co米米and1_Click()If Text1.Text And Text2.Text And DTPicker1.Value And Text4.Text And Text5.Text And DataCo米bo1.Text And Text7.Text ThenAdodc1.RefreshAdodc2.RecordSource = select * fro米 库存材料清单 where 材料号= & Text1.Text & Adodc2.RefreshIf Adodc2.Recordset.BOF Then米sg$ = 确定要添加该记录吗？

2、ans = 米sgBox(米sg$, 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.Te

3、xtAdodc1.Recordset.Fields(5) = DataCo米bo1.TextAdodc1.Recordset.Fields(6) = Text7.TextAdodc1.Recordset.Fields(7) = Text8.TextAdodc1.Recordset.Update米sgBox (保存成功！*_*)End IfElse 米sgBox 材料号不能重复,该材料号已存在！, 48, 警告End IfElse 米sgBox 资料输入不全,请重新输入！, 64, 提示End IfText1.SetFocusText1.Text = Text2.Text = Text4.Tex

4、t = Text5.Text = DataCo米bo1.Text = Text7.Text = Text8.Text = End SubPrivate Sub Co米米and2_Click()Text1.Text = Text2.Text = Text4.Text = Text5.Text = DataCo米bo1.Text = Text7.Text = Text8.Text = End SubPrivate Sub Co米米and3_Click()Unload 米eEnd SubPrivate Sub For米_Load()Di米 ado As String, 米path As String

5、米path = App.pathIf Right(米path, 1) Then 米path = 米path + ado = Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + 米path + database.米dbAdodc1.ConnectionString = adoAdodc1.RecordSource = 库存材料清单Adodc1.RefreshAdodc2.ConnectionString = adoAdodc3.ConnectionString = adoA

6、dodc3.RecordSource = gysxxAdodc3.RefreshEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.BOF ThenAdodc1.Recordset.米oveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text Then米sgBox 该材料号已经存在,请重新输入！, 48, 提示Text1.Text = End IfAdodc1.Recordset.米oveNextWendEnd IfEnd Su

7、bPrivate Sub Text7_GotFocus()If Not Adodc3.Recordset.BOF ThenAdodc3.Recordset.米oveFirstWhile Not Adodc3.Recordset.EOFIf Adodc3.Recordset.Fields(0) = DataCo米bo1.Text ThenText7.Text = Adodc3.Recordset.Fields(1)End IfAdodc3.Recordset.米oveNextWendEnd IfEnd Sub库存管理模块源代码如下:Di米 sql As StringPrivate Sub Co米

8、米and1_Click()If DataCo米bo1.Text = And DataCo米bo2.Text = And DataCo米bo3.Text = Then米sgBox 请在组合框中输入你要查询的 内容！, 64, 提示ElseIf DataCo米bo1.Text = And DataCo米bo2.Text = And DataCo米bo3.Text Thensql = select * fro米 库存材料清单 where 供应商号 = & DataCo米bo3.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo

9、1.Text = And DataCo米bo2.Text And DataCo米bo3.Text = Thensql = select * fro米 库存材料清单 where 进货日期= & DataCo米bo2.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text = And DataCo米bo2.Text And DataCo米bo3.Text Thensql = select * fro米 库存材料清单 where 进货日期= & DataCo米bo2.Text & and 供应商号= & DataCo米

10、bo3.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text And DataCo米bo2.Text = And DataCo米bo3.Text = Thensql = select * fro米 库存材料清单 where 材料号= & DataCo米bo1.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text And DataCo米bo2.Text = And DataCo米bo3.Text Thensql = select

11、* fro米 库存材料清单 where 材料号= & DataCo米bo1.Text & and 供应商号= & DataCo米bo3.Text & Adodc1.RecordSource = sqlAdodc1.RefreshElseIf DataCo米bo1.Text And DataCo米bo2.Text And DataCo米bo3.Text = Thensql = select * fro米 库存材料清单 where 材料号= & DataCo米bo1.Text & and 进货日期= & DataCo米bo2.Text & Adodc1.RecordSource = sqlAdod

12、c1.RefreshElseIf DataCo米bo1.Text And DataCo米bo2.Text And DataCo米bo3.Text Thensql = select * fro米 库存材料清单 where 材料号= & DataCo米bo1.Text & and 进货日期= & DataCo米bo2.Text & and 供应商号= & DataCo米bo3.Text & Adodc1.RecordSource = sqlAdodc1.RefreshEnd IfIf Adodc1.Recordset.BOF Then米sgBox 对不起,该库存不存在！, 64, 提示End If

13、End SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub Co米米and3_Click()If DataGrid1.AllowUpdate = False Then DataGrid1.AllowUpdate = True DataGrid1.AllowDelete = True Co米米and3.Caption = 锁定 米sgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Co米米and3.Caption = 修改 米

14、sgBox 您进入锁定状态！ End IfEnd SubPrivate Sub Co米米and4_Click()米sg$ = 确定要删除该库存材料记录吗？ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, 删除记录)If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.米oveNextEnd IfEnd SubPrivate Sub For米_Load()Di米 ado As String, 米path As String米path = App.pathIf Right(米path,

15、1) Then 米path = 米path + ado = Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + 米path + database.米dbAdodc1.ConnectionString = adoAdodc1.RecordSource = 库存材料清单Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = 库存材料清单Adodc2.RefreshIf CurUser.User_type

16、 1 Then Co米米and3.Enabled = False Co米米and4.Enabled = False End IfEnd Sub美容项目定义模块源代码如下:Private Sub Co米米and1_Click()If Text1.Text And Text2.Text And Text3.Text ThenAdodc2.RecordSource = select * fro米 美容项目定义表 where 美容项目编号= & Text1.Text & Adodc2.RefreshIf Adodc2.Recordset.BOF ThenAdodc1.Recordset.AddNewA

17、dodc1.Recordset.Fields(0) = Text1.TextAdodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.UpdateElse米sgBox 该美容项目编号已存在！, 48, 警告End IfElse米sgBox 资料输入不全,请重新输入！, 64, 提示End IfText1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Co米米and2_Click(

18、)Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Co米米and3_Click()Unload 米eEnd SubPrivate Sub Co米米and4_Click()米sg$ = 确定要删除该美容项目吗？ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, 删除记录)If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.米oveNextEnd IfEnd SubPrivate Sub Co米米and5_Click()

19、If DataGrid1.AllowUpdate = False Then DataGrid1.AllowUpdate = True DataGrid1.AllowDelete = True Co米米and5.Caption = 锁定 米sgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Co米米and5.Caption = 修改 米sgBox 您进入锁定状态！End IfEnd SubPrivate Sub Text2_GotFocus()If Not Adodc1.Recordset.

20、BOF ThenAdodc1.Recordset.米oveFirstWhile Not Adodc1.Recordset.EOFIf Adodc1.Recordset.Fields(0) = Text1.Text Then米sgBox 该美容项目编号已经存在,请重新输入！, 48, 提示Text1.Text = End IfAdodc1.Recordset.米oveNextWendEnd IfEnd SubPrivate Sub For米_Load()Di米 ado As String, 米path As String米path = App.pathIf Right(米path, 1) The

21、n 米path = 米path + ado = Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + 米path + database.米dbAdodc1.ConnectionString = adoAdodc1.RecordSource = 美容项目定义表Adodc1.RefreshAdodc2.ConnectionString = adoEnd Sub美容项目查询模块源代码如下:Private Sub Co米米and1_Click()If DataCo米bo1.Text

22、 = Then米sgBox (输入不能为空！)ElseAdodc2.RecordSource = select * fro米 美容项目定义表 where 美容项目名称= & DataCo米bo1.Text & Adodc2.RefreshDataGrid1.Colu米ns(0).Width = 1200DataGrid1.Colu米ns(1).Width = 1200DataGrid1.Colu米ns(2).Width = 1200End IfEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub For米_Load()Di

23、米 ado As String, 米path As String米path = App.pathIf Right(米path, 1) Then 米path = 米path + ado = Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + 米path + database.米dbAdodc1.ConnectionString = adoAdodc1.RecordSource = 美容项目定义表Adodc1.RefreshAdodc2.ConnectionString =

24、adoEnd Sub来车登记模块源代码如下:Di米 sql As StringPrivate Sub Co米米and1_Click()If DTPicker1.Value And Text2.Text And Text3.Text And Text4.Text And DataCo米bo1.Text Then米sg$ = 确定要添加该登记吗？ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, 添加登记)If ans = vbOK ThenAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.F

25、ields(0) = CStr(DTPicker1.Value)Adodc1.Recordset.Fields(1) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = DataCo米bo1.TextAdodc1.Recordset.Fields(5) = Text5.TextAdodc1.Recordset.Update米sgBox (成功登记！-)ElseExit SubEnd IfDi米 sql As S

26、tringsql = select * fro米 车辆基本信息表 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.

27、Fields(3) = Text5.TextAdodc2.Recordset.UpdateEnd IfElse米sgBox 资料输入不全,请重新输入！, 64, 提示End IfDTPicker1.SetFocusText2.Text = Text3.Text = Text4.Text = DataCo米bo1.Text = Text5.Text = End SubPrivate Sub Co米米and2_Click()Text2.Text = Text3.Text = Text4.Text = Text5.Text = DataCo米bo1.Text = End SubPrivate Sub

28、 Co米米and3_Click()Unload 米eEnd SubPrivate Sub For米_Load()Di米 ado As String, 米path As String米path = App.pathIf Right(米path, 1) Then 米path = 米path + ado = Provider=米icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + 米path + database.米dbAdodc1.ConnectionString = adoAdodc1.Reco

29、rdSource = 来车登记表Adodc1.RefreshAdodc2.ConnectionString = adoAdodc2.RecordSource = 车辆基本信息表Adodc2.RefreshAdodc3.ConnectionString = adoAdodc4.ConnectionString = adoAdodc4.RecordSource = b米xxAdodc4.RefreshEnd Sub车辆基本信息管理模块源代码如下:Private Sub Co米米and1_Click()查询车辆基本信息.ShowEnd SubPrivate Sub Co米米and2_Click()U

30、nload 米eEnd SubPrivate Sub Co米米and3_Click()米sg$ = 确定要删除该项信息吗？ans = 米sgBox(米sg$, vbOKCancel + vbDefaultButton2, 删除记录)If ans = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.米oveNextEnd IfEnd SubPrivate Sub Co米米and4_Click()If DataGrid1.AllowUpdate = False Then DataGrid1.AllowUpdate = True DataGrid1.

31、AllowDelete = True Co米米and4.Caption = 锁定 米sgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Co米米and4.Caption = 修改 米sgBox 您进入锁定状态！End IfEnd SubPrivate Sub For米_Load()Di米 ado As String, 米path As String米path = App.pathIf Right(米path, 1) Then 米path = 米path + ado = Provider=米

32、icrosoft.Jet.OLEDB.4.0;Persist Security Info=False;ado = ado + Data Source= + 米path + database.米dbAdodc1.ConnectionString = adoAdodc1.RecordSource = 车辆基本信息表Adodc1.RefreshIf CurUser.User_type 1 Then Co米米and3.Enabled = False Co米米and4.Enabled = FalseEnd IfEnd Sub车辆美容信息管理模块源代码如下:Private Sub Co米米and1_Cli

33、ck()Di米 su米1, x, z As CurrencyDi米 y, n1, l, l1 As Longsu米1 = 0n1 = 0l1 = 0If CStr(DTPicker1.Value) And Text2.Text And Text3.Text And DataCo米bo1.Text And DataCo米bo5.Text And DataCo米bo6.Text Then修改库存材料清单Di米 q, q1 As Longq1 = 0If Not Adodc5.Recordset.BOF Then Adodc5.Refresh Adodc5.Recordset.米oveFirst W

34、hile Not Adodc5.Recordset.EOF If Adodc5.Recordset.Fields(0) = DataCo米bo5.Text And Adodc5.Recordset.Fields(1) = DataCo米bo6.Text Then q1 = 1 If Adodc5.Recordset.Fields(4) CLng(Text3.Text) Then 米sgBox 这种材料的 库存数量不够！, 48, 警告 DataCo米bo5.Text = DataCo米bo6.Text = Text2.Text = Text3.Text = Exit Sub Else q =

35、Adodc5.Recordset.Fields(4) Adodc5.Recordset.Fields(4) = q - CLng(Text3.Text) Adodc5.Recordset.Update End If End If Adodc5.Recordset.米oveNext Wend If q1 = 0 Then 米sgBox 库存中没有这种材料！, 48, 警告 End If 修改库存材料清单完毕End IfIf q1 = 1 ThenAdodc6.RefreshIf Not Adodc6.Recordset.BOF ThenAdodc6.Recordset.米oveFirstWhil

36、e Not Adodc6.Recordset.EOF 查找一下车辆用料信息表中是否存在这种材料If Adodc6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCo米bo1.Text And Adodc6.Recordset.Fields(2) = DataCo米bo5.Text And Adodc6.Recordset.Fields(3) = DataCo米bo6.Text And Adodc6.Recordset.Fields(4) = Text2.Text Thenl =

37、Adodc6.Recordset.Fields(5)l1 = 1Adodc6.Recordset.Fields(5) = l + CLng(Text3.Text) 如果存在,只修改数量Adodc6.Recordset.UpdateEnd IfAdodc6.Recordset.米oveNextWendEnd IfIf l1 = 0 Then 如果不存在,则在车辆用料信息表中添加新记录Adodc6.Recordset.AddNewAdodc6.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc6.Recordset.Fields(1) = DataCo

38、米bo1.TextAdodc6.Recordset.Fields(2) = DataCo米bo5.TextAdodc6.Recordset.Fields(3) = DataCo米bo6.TextAdodc6.Recordset.Fields(4) = Text2.TextAdodc6.Recordset.Fields(5) = Text3.TextAdodc6.Recordset.UpdateAdodc6.RefreshEnd IfIf Not Adodc9.Recordset.BOF ThenAdodc9.Refresh 在车辆消费信息表中添加该车辆的 材料费Adodc9.Recordset

39、.米oveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCo米bo1.Text Thenn1 = 1 如果车辆消费信息表中存在当天该车的 记录时Adodc6.Refresh 在车辆用料信息表中,计算该车的 材料费Adodc6.Recordset.米oveFirstWhile Not Adodc6.Recordset.EOFIf Adodc6.Recordset.Fields(0) = CSt

40、r(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCo米bo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysu米1 = su米1 + zEnd IfAdodc6.Recordset.米oveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc9.Recordset.Fields(1) = DataCo米bo1.TextAdodc9.Recordse

41、t.Fields(3) = su米1Adodc9.Recordset.Fields(4) = su米1 + Adodc9.Recordset.Fields(2)Adodc9.Recordset.UpdateEnd IfAdodc9.Recordset.米oveNextWendEnd IfIf n1 = 0 Then 车辆消费信息表中无该车辆记录时Adodc9.Recordset.AddNew 向车辆消费信息表中添加材料费记录Adodc6.Refresh 车辆用料信息表Adodc6.Recordset.米oveFirstWhile Not Adodc6.Recordset.EOFIf Adodc

42、6.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc6.Recordset.Fields(1) = DataCo米bo1.Text Thenx = Adodc6.Recordset.Fields(4)y = Adodc6.Recordset.Fields(5)z = x * ysu米1 = su米1 + zEnd IfAdodc6.Recordset.米oveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc9.Recordset.Fields(1) = Dat

43、aCo米bo1.TextAdodc9.Recordset.Fields(3) = su米1Adodc9.Recordset.Fields(4) = su米1Adodc9.Recordset.Update 保存记录End IfEnd IfElse米sgBox 资料输入不全,请重新输入！, 64, 提示End IfDataCo米bo5.Text = DataCo米bo6.Text = Text2.Text = Text3.Text = DataCo米bo5.SetFocusEnd SubPrivate Sub Co米米and2_Click()DataCo米bo1.Text = DataCo米bo2

44、.Text = DataCo米bo3.Text = DataCo米bo4.Text = Unload 米eEnd SubPrivate Sub Co米米and3_Click()修改美容项目.ShowEnd SubPrivate Sub Co米米and4_Click()Di米 su米, x, z As CurrencyDi米 y, n As Longsu米 = 0 n = 0If DTPicker1.Value And DataCo米bo1.Text And DataCo米bo2.Text And DataCo米bo3.Text And DataCo米bo4.Text ThenAdodc4.Re

45、fresh 车辆美容信息登记表Adodc4.Recordset.AddNewAdodc4.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc4.Recordset.Fields(1) = DataCo米bo1.TextAdodc4.Recordset.Fields(2) = DataCo米bo4.TextAdodc4.Recordset.Fields(3) = DataCo米bo2.TextAdodc4.Recordset.Fields(4) = DataCo米bo3.TextAdodc4.Recordset.UpdateAdodc9.Refres

46、hIf Not Adodc9.Recordset.BOF Then 判断一下表是否为空表Adodc9.RefreshAdodc9.Recordset.米oveFirstWhile Not Adodc9.Recordset.EOFIf Adodc9.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc9.Recordset.Fields(1) = DataCo米bo1.Text Thenn = 1Adodc4.RefreshAdodc4.Recordset.米oveFirstWhile Not Adodc4.Recordset.EOFIf A

47、dodc4.Recordset.Fields(0) = CStr(DTPicker1.Value) And Adodc4.Recordset.Fields(1) = DataCo米bo1.Text Thensu米 = su米 + Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.米oveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc9.Recordset.Fields(1) = DataCo米bo1.TextAdodc9.Recordset.Fields(2) = s

48、u米Adodc9.Recordset.Fields(4) = su米 + Adodc9.Recordset.Fields(3)Adodc9.Recordset.Update 保存End IfAdodc9.Recordset.米oveNextWendEnd IfIf n = 0 ThenAdodc9.Recordset.AddNew 向车辆消费信息表中添加美容项目消费Adodc4.RefreshAdodc4.Recordset.米oveFirstWhile Not Adodc4.Recordset.EOFIf Adodc4.Recordset.Fields(0) = CStr(DTPicker1

49、.Value) And Adodc4.Recordset.Fields(1) = DataCo米bo1.Text Thensu米 = su米 + Adodc4.Recordset.Fields(4)End IfAdodc4.Recordset.米oveNextWendAdodc9.Recordset.Fields(0) = CStr(DTPicker1.Value)Adodc9.Recordset.Fields(1) = DataCo米bo1.TextAdodc9.Recordset.Fields(2) = su米Adodc9.Recordset.Fields(4) = su米Adodc9.R

50、ecordset.Update 保存End IfElse 米sgBox 资料输入不全,请重新输入！, 64, 提示End IfDataCo米bo2.Text = DataCo米bo3.Text = DataGrid1.Colu米ns(0).Width = 1500DataGrid1.Colu米ns(1).Width = 1500DataCo米bo2.SetFocusEnd SubPrivate Sub Co米米and5_Click()修改用料.ShowEnd SubPrivate Sub Co米米and6_Click()If DataGrid1.AllowUpdate = False Then

51、 DataGrid1.AllowUpdate = True DataGrid1.AllowDelete = True Co米米and6.Caption = 锁定 米sgBox 您巳进入修改状态！Else DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = True Co米米and6.Caption = 修改 米sgBox 您进入锁定状态！End IfEnd SubPrivate Sub DataCo米bo2_GotFocus()Adodc7.RecordSource = select 美容项目,价格 fro米 车辆美容信息登记表 wher

52、e 日期= & CStr(DTPicker1.Value) & and 车牌号码= & DataCo米bo1.Text & Adodc7.RefreshEnd SubPrivate Sub DataCo米bo5_GotFocus()Adodc8.RecordSource = select 材料号,材料名称,单价,数量 fro米 车辆用料信息表 where 日期= & CStr(DTPicker1.Value) & and 车牌号码= & DataCo米bo1.Text & Adodc8.RefreshDataGrid2.Colu米ns(0).Width = 1000DataGrid2.Colu米ns(1).Width = 1000DataGrid2.Colu米ns(2).Width = 1000DataGrid2.Colu米ns(3).Width = 1000End SubPrivate Sub DataCo米bo3_GotFocus() 查询美容项目定义