VB汽车美容管理系统源代码论文.docVIP

材料入库模块源代码如下： 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 Then Adodc1.Refresh Adodc2.RecordSource = select * from 库存材料清单 where 材料号= Text1.Text Adodc2.Refresh If Adodc2.Recordset.BOF Then msg$ = 确定要添加该记录吗？ ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, 添加记录) If ans = vbOK Then Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = CStr(DTPicker1.Value) Adodc1.Recordset.Fields(3) = Text4.Text Adodc1.Recordset.Fields(4) = Text5.Text Adodc1.Recordset.Fields(5) = DataCombo1.Text Adodc1.Recordset.Fields(6) = Text7.Text Adodc1.Recordset.Fields(7) = Text8.Text Adodc1.Recordset.Update MsgBox (保存成功！！*_*) End If Else MsgBox 材料号不能重复，该材料号已存在！！, 48, 警告 End If Else MsgBox 资料输入不全，请重新输入！！, 64, 提示 End If Text1.SetFocus Text1.Text = Text2.Text = Text4.Text = Text5.Text = DataCombo1.Text = Text7.Text = Text8.Text = End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text4.Text = Text5.Text = DataCombo1.Text = Text7.Text = Text8.Text = End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Dim ado As String, mpath As String mpath = App.path If Right(mpath, 1) \ Then mpath = mpath + \ ado = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; ado = ado + Data Source= + mpath + database.mdb Adodc1.ConnectionString = ado Adodc1.RecordSource = 库存材料清单 Adodc1.Refresh Adodc2.ConnectionString = ado Adodc3.ConnectionString = ado Adodc3.RecordSource = gysxx Adodc3.Refresh End Sub Private Sub Text2_GotFocus() If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst While Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields(0) = Text1.Text Then MsgBox 该材料号已经存在，请重新输入！！, 48, 提示 Text1.Text = End If Adodc1.Recordset.MoveNext Wend End If End Sub Private Sub Text7_GotFocus() If Not Adodc3.Recordset.BOF Then Adodc3.Recordset.MoveFirst While Not Adodc