VB+ACCESS超市管理系统源代码论文

系统代码清单Dim stremployee As StringDim rs_employee As New ADODB.RecordsetPrivate Sub Form_Activate()stremployee = select * from employee rs_employee.Open stremployee, cnn, adOpenStatic, adLockOptimisticDim i As IntegerFor i = 0 To rs_employee.RecordCount - 1Combo1.AddItem (rs_employee.Fields(员工姓名)rs_employee.MoveNextNextrs_employee.CloseEnd SubPrivate Sub Form_Load()cnn.Provider = microsoft.jet.oledb.4.0cnn.ConnectionString = App.Path & sellsystem.mdbcnn.OpenEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Label3_Click()If Combo1.Text = ThenMsgBox 请输入用户名！, vbOKOnly + vbInformation, 注意Combo1.SetFocusExit SubElseIf Text1.Text = ThenMsgBox 请输入密码！, vbOKOnly + vbInformation, 注意Text1.SetFocusExit SubEnd Ifstremployee = select * from employee where 员工姓名= & Combo1.Text & and 员工密码= & Text1.Text & rs_employee.Open stremployee, cnn, adOpenStatic, adLockOptimisticIf rs_employee.EOF = True ThenMsgBox 用户名或密码错误，请从新输入！, vbOKOnly + vbInformation, 注意Combo1.SetFocusrs_employee.CloseExit SubElsestrs = rs_employee.Fields(员工编号)rs_employee.CloseEnd IfIf Combo1.Text = administrator Thenfrminitial.ShowElsefrmMain.ShowfrmMain.mnBuyAll.Enabled = FalsefrmMain.mnSellAll.Enabled = FalsefrmMain.mnTable.Enabled = FalseEnd IfUnload MeEnd SubPrivate Sub Label4_Click()Unload Mecnn.CloseEnd SubPrivate Sub Picture2_Click()End SubDim rs_sell As New ADODB.RecordsetDim rs_goods As New ADODB.RecordsetDim rs_buy As New ADODB.RecordsetDim rs_retreat As New ADODB.RecordsetDim rs_manufacturer As New ADODB.RecordsetDim rs_employee As New ADODB.RecordsetDim rs_fctotal As New ADODB.RecordsetDim rs_total As New ADODB.RecordsetDim strsell As StringDim strgoods As StringDim strbuy As StringDim strretreat As StringDim strmanufacturer As StringDim stremployee As StringDim strfctotal As StringDim strtotal As StringDim inty As IntegerDim intm As IntegerDim intd As IntegerPrivate Sub Form_Load()inty = Year(Date)intm = Month(Date)intd = Day(Date)Flash1.Movie = App.Path & 99.swfEnd SubPrivate Sub Form_Resize()Flash1.Width = Me.WidthFlash1.Height = Me.HeightEnd SubPrivate Sub mnabout_Click()frmAbout.ShowEnd SubPrivate Sub mnBuy_Click()frmAddgoods.ShowEnd SubPrivate Sub mnBuyMonth_Click()frmBuyall.Text2.Enabled = FalsefrmBuyall.SSTab1.Tab = 1frmBuyall.SSTab1.TabEnabled(0) = FalsefrmBuyall.SSTab1.TabEnabled(1) = TruefrmBuyall.SSTab1.TabEnabled(2) = FalsefrmBuyall.SSTab1.TabEnabled(3) = FalsefrmBuyall.Showstrbuy = select * from buy where 进货年= & inty & and 进货月= & intm & rs_buy.Open strbuy, cnn, adOpenKeyset, adLockPessimisticfrmBuyall.Adodc2.RecordSource = strbuyfrmBuyall.Adodc2.RefreshfrmBuyall.DataGrid2.ReBindIf rs_buy.EOF = True ThenfrmBuyall.Adodc6.RecordSource = strbuyfrmBuyall.Adodc6.RefreshfrmBuyall.DataGrid6.ReBindMsgBox 您本月没有进货记录！, vbOKOnly + vbInformation, 注意frmBuyall.Command9.Enabled = FalsefrmBuyall.Command10.Enabled = FalsefrmBuyall.Command11.Enabled = FalsefrmBuyall.Command12.Enabled = FalsefrmBuyall.Command13.Enabled = FalsefrmBuyall.Command14.Enabled = FalsefrmBuyall.Command15.Enabled = FalsefrmBuyall.Command16.Enabled = Falsers_buy.CloseExit SubEnd Ifrs_buy.Closestrfctotal = select 生产厂商,sum(总金额) as 各厂商进货总金额 from buy where 进货年= &inty & and 进货月= & intm & group by 生产厂商rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimisticfrmBuyall.Adodc6.RecordSource = strfctotalfrmBuyall.Adodc6.RefreshfrmBuyall.DataGrid6.ReBindrs_fctotal.Closestrtotal = select sum(总金额) as 进货总金额 from buy where 进货年= & inty & and 进货月= & intm & rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimisticfrmBuyall.Text2.Text = rs_total.Fields(进货总金额)rs_total.CloseEnd SubPrivate Sub mnBuyQuarterly_Click()frmBuyall.Text3.Enabled = FalsefrmBuyall.SSTab1.Tab = 2frmBuyall.SSTab1.TabEnabled(0) = FalsefrmBuyall.SSTab1.TabEnabled(1) = FalsefrmBuyall.SSTab1.TabEnabled(2) = TruefrmBuyall.SSTab1.TabEnabled(3) = FalsefrmBuyall.ShowSelect Case intmCase Is 10intm = 12End Selectstrbuy = select * from buy where 进货年= & inty & and 进货月 between & (intm - 2) & and & intm & rs_buy.Open strbuy, cnn, adOpenKeyset, adLockPessimisticfrmBuyall.Adodc2.RecordSource = strbuyfrmBuyall.Adodc2.RefreshfrmBuyall.DataGrid2.ReBindIf rs_buy.EOF = True ThenfrmBuyall.Adodc6.RecordSource = strbuyfrmBuyall.Adodc6.RefreshfrmBuyall.DataGrid6.ReBindMsgBox 您本季度没有进货记录！, vbOKOnly + vbInformation, 注意frmBuyall.Command17.Enabled = FalsefrmBuyall.Command18.Enabled = FalsefrmBuyall.Command19.Enabled = FalsefrmBuyall.Command20.Enabled = FalsefrmBuyall.Command21.Enabled = FalsefrmBuyall.Command22.Enabled = FalsefrmBuyall.Command23.Enabled = FalsefrmBuyall.Command24.Enabled = Falsers_buy.CloseExit SubEnd Ifrs_buy.Closestrfctotal = select 生产厂商,sum(总金额) as 各厂商进货总金额 from buy where 进货年= &inty & and 进货月 between & (intm - 2) & and & intm & group by 生产厂商rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimisticfrmBuyall.Adodc6.RecordSource = strfctotalfrmBuyall.Adodc6.RefreshfrmBuyall.DataGrid6.ReBindrs_fctotal.Closestrtotal = select sum(总金额) as 进货总金额 from buy where 进货年= & inty & and 进货月 between & (intm - 2) & and & intm & rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimisticfrmBuyall.Text3.Text = rs_total.Fields(进货总金额)rs_total.Closeintm = Month(Date)End SubPrivate Sub mnBuyTable_Click()frmBuyTable.ShowEnd SubPrivate Sub mnBuyToday_Click()frmBuyall.Text1.Enabled = FalsefrmBuyall.SSTab1.Tab = 0frmBuyall.SSTab1.TabEnabled(0) = TruefrmBuyall.SSTab1.TabEnabled(1) = FalsefrmBuyall.SSTab1.TabEnabled(2) = FalsefrmBuyall.SSTab1.TabEnabled(3) = FalsefrmBuyall.Showstrbuy = select * from buy where 进货年= & inty & and 进货月= & intm & and 进货日= & intd & rs_buy.Open strbuy, cnn, adOpenKeyset, adLockPessimisticfrmBuyall.Adodc1.RecordSource = strbuyfrmBuyall.Adodc1.RefreshfrmBuyall.DataGrid1.ReBindIf rs_buy.EOF = True ThenfrmBuyall.Adodc5.RecordSource = strbuyfrmBuyall.Adodc5.RefreshfrmBuyall.DataGrid5.ReBindMsgBox 您今日没有进货记录！, vbOKOnly + vbInformation, 注意frmBuyall.Command1.Enabled = FalsefrmBuyall.Command2.Enabled = FalsefrmBuyall.Command3.Enabled = FalsefrmBuyall.Command4.Enabled = FalsefrmBuyall.Command5.Enabled = FalsefrmBuyall.Command6.Enabled = FalsefrmBuyall.Command7.Enabled = FalsefrmBuyall.Command8.Enabled = Falsers_buy.CloseExit SubEnd Ifrs_buy.Closestrfctotal = select 生产厂商,sum(总金额) as 各厂商进货总金额 from buy where 进货年= &inty & and 进货月= & intm & and 进货日= & intd & group by 生产厂商rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimisticfrmBuyall.Adodc5.RecordSource = strfctotalfrmBuyall.Adodc5.RefreshfrmBuyall.DataGrid5.ReBindrs_fctotal.Closestrtotal = select sum(总金额) as 进货总金额 from buy where 进货年= & inty & and 进货月= & intm & and 进货日= & intd & rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimisticfrmBuyall.Text1.Text = rs_total.Fields(进货总金额)rs_total.CloseEnd SubPrivate Sub mnBuyYear_Click()frmBuyall.Text4.Enabled = FalsefrmBuyall.SSTab1.Tab = 3frmBuyall.SSTab1.TabEnabled(0) = FalsefrmBuyall.SSTab1.TabEnabled(1) = FalsefrmBuyall.SSTab1.TabEnabled(2) = FalsefrmBuyall.SSTab1.TabEnabled(3) = TruefrmBuyall.Showstrbuy = select * from buy where 进货年= & inty & rs_buy.Open strbuy, cnn, adOpenKeyset, adLockPessimisticfrmBuyall.Adodc4.RecordSource = strbuyfrmBuyall.Adodc4.RefreshfrmBuyall.DataGrid4.ReBindIf rs_buy.EOF = True ThenfrmBuyall.Adodc8.RecordSource = strbuyfrmBuyall.Adodc8.RefreshfrmBuyall.DataGrid8.ReBindMsgBox 您今年没有进货记录！, vbOKOnly + vbInformation, 注意frmBuyall.Command25.Enabled = FalsefrmBuyall.Command26.Enabled = FalsefrmBuyall.Command27.Enabled = FalsefrmBuyall.Command28.Enabled = FalsefrmBuyall.Command29.Enabled = FalsefrmBuyall.Command30.Enabled = FalsefrmBuyall.Command31.Enabled = FalsefrmBuyall.Command32.Enabled = Falsers_buy.CloseExit SubEnd Ifrs_buy.Closestrfctotal = select 生产厂商,sum(总金额) as 各厂商进货总金额 from buy where 进货年= &inty & group by 生产厂商rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimisticfrmBuyall.Adodc8.RecordSource = strfctotalfrmBuyall.Adodc8.RefreshfrmBuyall.DataGrid8.ReBindrs_fctotal.Closestrtotal = select sum(总金额) as 进货总金额 from buy where 进货年= & inty & rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimisticfrmBuyall.Text4.Text = rs_total.Fields(进货总金额)rs_total.CloseEnd SubPrivate Sub mnChangeEmployee_Click()cnn.ClosefrmLogin.ShowUnload MeEnd SubPrivate Sub mnChangePwd_Click()frmChangePwd.ShowEnd SubPrivate Sub mnEmployeeTable_Click()frmEmployeeTable.ShowEnd SubPrivate Sub mnExit_Click()cnn.CloseUnload MeEnd SubPrivate Sub mnGoodsTable_Click()frmShowGoodstable.ShowEnd SubPrivate Sub mnlogin_Click()frmLogin.ShowEnd SubPrivate Sub mnManufacturerTable_Click()frmManufacturerTable.ShowEnd SubPrivate Sub mnRetreat_Click()frmRetreatgoods.ShowEnd SubPrivate Sub mnRetreatTable_Click()frmRetreatTable.ShowEnd SubPrivate Sub mnSell_Click()frmSellgoods.ShowEnd SubPrivate Sub mnSellMonth_Click()frmSellall.SSTab1.Tab = 1frmSellall.Text2.Enabled = FalsefrmSellall.SSTab1.TabEnabled(0) = FalsefrmSellall.SSTab1.TabEnabled(1) = TruefrmSellall.SSTab1.TabEnabled(2) = FalsefrmSellall.SSTab1.TabEnabled(3) = FalsefrmSellall.Showstrsell = select * from sell where 销售年= & inty & and 销售月= & intm & rs_sell.Open strsell, cnn, adOpenKeyset, adLockPessimisticfrmSellall.Adodc2.RecordSource = strsellfrmSellall.Adodc2.RefreshfrmSellall.DataGrid2.ReBindIf rs_sell.EOF = True ThenfrmSellall.Adodc6.RecordSource = strsellfrmSellall.Adodc6.RefreshfrmSellall.DataGrid6.ReBindMsgBox 您本月没有销售记录！, vbOKOnly + vbInformation, 注意frmSellall.Command9.Enabled = FalsefrmSellall.Command10.Enabled = FalsefrmSellall.Command11.Enabled = FalsefrmSellall.Command12.Enabled = FalsefrmSellall.Command13.Enabled = FalsefrmSellall.Command14.Enabled = FalsefrmSellall.Command15.Enabled = FalsefrmSellall.Command16.Enabled = Falsers_sell.CloseExit SubEnd Ifrs_sell.Closestrfctotal = select 生产厂商,sum(总金额) as 各厂商销售总金额 from sell where 销售年= &inty & and 销售月= & intm & group by 生产厂商rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimisticfrmSellall.Adodc6.RecordSource = strfctotalfrmSellall.Adodc6.RefreshfrmSellall.DataGrid6.ReBindrs_fctotal.Closestrtotal = select sum(总金额) as 销售总金额 from sell where 销售年= & inty & and 销售月= & intm & rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimisticfrmSellall.Text2.Text = rs_total.Fields(销售总金额)rs_total.CloseEnd SubPrivate Sub mnSellQuarterly_Click()frmSellall.SSTab1.Tab = 2frmSellall.Text3.Enabled = FalsefrmSellall.SSTab1.TabEnabled(0) = FalsefrmSellall.SSTab1.TabEnabled(1) = FalsefrmSellall.SSTab1.TabEnabled(2) = TruefrmSellall.SSTab1.TabEnabled(3) = FalsefrmSellall.ShowSelect Case intmCase Is 10intm = 12End Selectstrsell = select * from sell where 销售年= & inty & and 销售月 between & (intm - 2) & and & intm & rs_sell.Open strsell, cnn, adOpenKeyset, adLockPessimisticfrmSellall.Adodc2.RecordSource = strsellfrmSellall.Adodc2.RefreshfrmSellall.DataGrid2.ReBindIf rs_sell.EOF = True ThenfrmSellall.Adodc6.RecordSource = strsellfrmSellall.Adodc6.RefreshfrmSellall.DataGrid6.ReBindMsgBox 您本季度没有销售记录！, vbOKOnly + vbInformation, 注意frmSellall.Command17.Enabled = FalsefrmSellall.Command18.Enabled = FalsefrmSellall.Command19.Enabled = FalsefrmSellall.Command20.Enabled = FalsefrmSellall.Command21.Enabled = FalsefrmSellall.Command22.Enabled = FalsefrmSellall.Command23.Enabled = FalsefrmSellall.Command24.Enabled = Falsers_sell.CloseExit SubEnd Ifrs_sell.Closestrfctotal = select 生产厂商,sum(总金额) as 各厂商销售总金额 from sell where 销售年= &inty & and 销售月 between & (intm - 2) & and & intm & group by 生产厂商rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimisticfrmSellall.Adodc6.RecordSource = strfctotalfrmSellall.Adodc6.RefreshfrmSellall.DataGrid6.ReBindrs_fctotal.Closestrtotal = select sum(总金额) as 销售总金额 from sell where 销售年= & inty & and 销售月 between & (intm - 2) & and & intm & rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimisticfrmSellall.Text3.Text = rs_total.Fields(销售总金额)rs_total.Closeintm = Month(Date)End SubPrivate Sub mnSellTable_Click()frmSellTable.ShowEnd SubPrivate Sub mnSellToday_Click()frmSellall.SSTab1.Tab = 0frmSellall.Text1.Enabled = FalsefrmSellall.SSTab1.TabEnabled(0) = TruefrmSellall.SSTab1.TabEnabled(1) = FalsefrmSellall.SSTab1.TabEnabled(2) = FalsefrmSellall.SSTab1.TabEnabled(3) = FalsefrmSellall.Showstrsell = select * from sell where 销售年= & inty & and 销售月= & intm & and 销售日=& intd & rs_sell.Open strsell, cnn, adOpenKeyset, adLockPessimisticfrmSellall.Adodc1.RecordSource = strsellfrmSellall.Adodc1.RefreshfrmSellall.DataGrid1.ReBindIf rs_sell.EOF = True ThenfrmSellall.Adodc5.RecordSource = strsellfrmSellall.Adodc5.RefreshfrmSellall.DataGrid5.ReBindMsgBox 您今日没有销售记录！, vbOKOnly + vbInformation, 注意frmSellall.Command1.Enabled = FalsefrmSellall.Command2.Enabled = FalsefrmSellall.Command3.Enabled = FalsefrmSellall.Command4.Enabled = FalsefrmSellall.Command5.Enabled = FalsefrmSellall.Command6.Enabled = FalsefrmSellall.Command7.Enabled = FalsefrmSellall.Command8.Enabled = Falsers_sell.CloseExit SubEnd Ifrs_sell.Closestrfctotal = select 生产厂商,sum(总金额) as 各厂商销售总金额 from sell where 销售年= &inty & and 销售月= & intm & and 销售日= & intd & group by 生产厂商rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimisticfrmSellall.Adodc5.RecordSource = strfctotalfrmSellall.Adodc5.RefreshfrmSellall.DataGrid5.ReBindrs_fctotal.Closestrtotal = select sum(总金额) as 销售总金额 from sell where 销售年= & inty & and 销售月= & intm & and 销售日= & intd & rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimisticfrmSellall.Text1.Text = rs_total.Fields(销售总金额)rs_total.CloseEnd SubPrivate Sub mnSellYear_Click()frmSellall.Text4.Enabled = FalsefrmSellall.SSTab1.Tab = 3frmSellall.SSTab1.TabEnabled(0) = FalsefrmSellall.SSTab1.TabEnabled(1) = FalsefrmSellall.SSTab1.TabEnabled(2) = FalsefrmSellall.SSTab1.TabEnabled(3) = TruefrmSellall.Showstrsell = select * from sell where 销售年= & inty & rs_sell.Open strsell, cnn, adOpenKeyset, adLockPessimisticfrmSellall.Adodc4.RecordSource = strsellfrmSellall.Adodc4.RefreshfrmSellall.DataGrid4.ReBindIf rs_sell.EOF = True ThenfrmSellall.Adodc8.RecordSource = strsellfrmSellall.Adodc8.RefreshfrmSellall.DataGrid8.ReBindMsgBox 您今年没有销售记录！, vbOKOnly + vbInformation, 注意frmSellall.Command25.Enabled = FalsefrmSellall.Command26.Enabled = FalsefrmSellall.Command27.Enabled = FalsefrmSellall.Command28.Enabled = FalsefrmSellall.Command29.Enabled = FalsefrmSellall.Command30.Enabled = FalsefrmSellall.Command31.Enabled = FalsefrmSellall.Command32.Enabled = Falsers_sell.CloseExit SubEnd Ifrs_sell.Closestrfctotal = select 生产厂商,sum(总金额) as 各厂商销售总金额 from sell where 销售年= &inty & group by 生产厂商rs_fctotal.Open strfctotal, cnn, adOpenKeyset, adLockPessimisticfrmSellall.Adodc8.RecordSource = strfctotalfrmSellall.Adodc8.RefreshfrmSellall.DataGrid8.ReBindrs_fctotal.Closestrtotal = select sum(总金额) as 销售总金额 from sell where 销售年= & inty & rs_total.Open strtotal, cnn, adOpenKeysetm, adLockPessimisticfrmSellall.Text4.Text = rs_total.Fields(销售总金额)rs_total.CloseEnd Sub 在通用中定义的有关连接数据表的记录集Dim rs_goods As New ADODB.RecordsetDim rs_buy As New ADODB.RecordsetDim rs_manufacturer As New ADODB.RecordsetDim str_goods As StringDim str_buy As StringDim str_manufacturer As StringDim Numgooods As IntegerPrivate Sub Command1_Click()对入库时做的一些屏蔽操作！If Text1.Text = ThenMsgBox 请填写进货编号！, vbOKOnly + vbInformation, 注意Text1.SetFocusExit SubElseIf Text2.Text = ThenMsgBox 请填写商品编号！, vbOKOnly + vbInformation, 注意Text2.SetFocusExit SubElseIf Text3.Text = ThenMsgBox 请填写商品名称！, vbOKOnly + vbInformation, 注意Text3.SetFocusExit SubElseIf Text4.Text = ThenMsgBox 请填写生产厂商！, vbOKOnly + vbInformation, 注意Text4.SetFocusExit SubElseIf Text5.Text = ThenMsgBox 请填写商品型号！, vbOKOnly + vbInformation, 注意Text5.SetFocusExit SubElseIf Text6.Text = ThenMsgBox 请填写商品数量！, vbOKOnly + vbInformation, 注意Text6.SetFocusExit SubElseIf Text7.Text = ThenMsgBox 请填写商品进货价格！, vbOKOnly + vbInformation, 注意Text7.SetFocusExit SubElseIf Text8.Text = ThenMsgBox 请填写商品销货价格！, vbOKOnly + vbInformation, 注意Text8.SetFocusExit SubElseIf Text13.Text = ThenMsgBox 请填写进货总金额！, vbOKOnly + vbInformation, 注意Text13.SetFocusExit SubEnd If下面是对进货表进行添加记录操作！str_buy = select * from buy where 进货编号= & Text1.Text & rs_buy.Open str_buy, cnn, adOpenStatic, adLockOptimistic 打开进货表If rs_buy.EOF = True Thenrs_buy.AddNewrs_buy.Fields(进货编号) = Text1.Textrs_buy.Fields(商品名称) = Text3.Textrs_buy.Fields(生产厂商) = Text4.Textrs_buy.Fields(型号) = Text5.Textrs_buy.Fields(数量) = Val(Text6.Text)rs_buy.Fields(进货价) = Val(Text7.Text)rs_buy.Fields(进货年) = Text9.Textrs_buy.Fields(进货月) = Text10.Textrs_buy.Fields(进货日) = Text11.Textrs_buy.Fields(业务员编号) = Text12.Textrs_buy.Fields(总金额) = Val(Text13.Text)rs_buy.Updaters_buy.Close 关闭进货表ElseMsgBox 此进货编号已存在，请重添！, vbOKOnly + vbInformation, 注意Text1.Text = Text1.SetFocusrs_buy.CloseExit Sub 关闭进货表End If下面是对商品库存表进行入库操作！Dim sql As Stringsql = select * from goods where 商品编号 = & Text2.Text & rs_goods.Open sql, cnn, adOpenStatic, adLockOptimisticIf rs_goods.EOF = True Thenrs_goods.Closestr_goods = select * from goodsrs_goods.Open str_goods, cnn, adOpenStatic, adLockOptimistic 打开库存表rs_goods.AddNewrs_goods.Fields(商品编号) = Text2.Textrs_goods.Fields(商品名称) = Text3.Textrs_goods.Fields(生产厂商) = Text4.Textrs_goods.Fields(型号) = Text5.Textrs_goods.Fields(数量) = Val(Text6.Text)rs_goods.Fields(进货价) = Val(Text7.Text)rs_goods.Fields(销货价) = Val(Text8.Text)rs_goods.UpdateMsgBox 商品入库成功, vbOKOnly + vbExclamation, rs_goods.Close 关闭库存表Elsenumgoods = rs_goods.Fields(数量)rs_goods.Fields(数量) = Val(Text6.Text) + numgoodsrs_goods.UpdateMsgBox 商品入库成功, vbOKOnly + vbExclamation, rs_goods.Close 关闭库存表End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text13.Text = End SubPrivate Sub Command3_Click()对入库时做的一些屏蔽操作！If T