【正文】 列，掌握現(xiàn)代科學(xué)技術(shù)知識，調(diào)整自己的知識結(jié)構(gòu)和能力結(jié)構(gòu)，以適應(yīng)社會發(fā)展的要求。參考文獻[1] 學(xué)習(xí)縱橫談[J].廈門科技，2005，06：4247[2] 數(shù)據(jù)庫完整性設(shè)計技術(shù)探討[J].農(nóng)業(yè)網(wǎng)絡(luò)信息，2005，12：7374[3] basic [J].電子工業(yè)出版社, 2002，12：6568[4] Jeffrey ,Lonnie , Analysis and Design Methods (Fifth Edition) [M].北京：電子工業(yè)出版社，.[5] 史濟明, Basic 及其應(yīng)用系統(tǒng)開發(fā)[M].清華大學(xué)出版社，.[6] 薩師煊，[M]. 高等教育出版社，.[7] Raghu Ramakrishnan，Johannes Gehrke. Database Management Systems[M].北京：清華大學(xué)出版社，致 謝這段時間畢業(yè)設(shè)計過程,讓我了解了VB制作系統(tǒng)的基本流程, 將理論與實踐相結(jié)合，讓我充分利用了現(xiàn)有的知識和工具，學(xué)會獨立思考，提高了我的動手能力,同時也讓我了解到了自己的不足,我會繼續(xù)努力,完善自我,為社會主義現(xiàn)代化建設(shè)做貢獻！在本次畢業(yè)設(shè)計中，我得到了指導(dǎo)老師的大力支持，并且跟同學(xué)進行協(xié)作溝通，及時給老師上報自己的進度及自己遇到的情況。在這里再一次衷心的感謝指導(dǎo)老師對我的幫助。H8000000Camp。所有者中心 Begin Picture1 Align = 3 39。False Width = 15 End Begin mnuSys Caption = 系統(tǒng)設(shè)定 Begin mnuSysLoad Caption = 重新登錄 End Begin mnuSysSetUser Caption = 授權(quán)用戶 End Begin mnuSysDelUser Caption = 刪除用戶 End Begin mnuSysPassword Caption = 修改個人信息 End Begin mnuSysExit Caption = 退出 End End Begin mnuCheck Caption = 商品盤點 Begin mnuCheckOther Caption = 商品字典 End Begin mnuCheckInput Caption = 商品入庫 End Begin mnuCheckModify Caption = 庫存修改 End Begin mnuCheckFind Caption = 庫存管理 End Begin 商品瀏覽 Caption = 商品瀏覽 End End Begin mnuSell Caption = 銷售信息 Begin mnuSellOpen Caption = 銷售 End Begin mnuSellDay Caption = 按日和月盤點 End Begin mnuSellCheck Caption = 總銷售盤點 End End Begin kehu Caption = 客戶管理 Begin 添加客戶信息 Caption = 添加客戶信息 End Begin 客戶信息瀏覽 Caption = 客戶信息瀏覽 End End Begin mnuOther Caption = 其他設(shè)置 Begin mnuOtherFactory Caption = 供應(yīng)商設(shè)置 End Begin mnuOtherProvince Caption = 省份設(shè)置 End Begin mnuOtherType Caption = 商品種類設(shè)置 End End Begin mnuReport Caption = 報表 Begin mnuReportFactory Caption = 供應(yīng)商報表 End Begin mnuSellReport Caption = 銷售報表 End Begin mnuReportCheck Caption = 入庫盤點報表 End Begin mnuReportType Caption = 種類報表 End Begin mnuReportUser Caption = 用戶報表 Visible = 0 39。庫存查詢 , MeEnd SubPrivate Sub mnuCheckInput_Click()39。庫存修改 , MeEnd SubPrivate Sub mnuCheckOther_Click()39。入庫查詢 , MeEnd SubPrivate Sub mnuHelpAbout_Click()39。幫助SendKeys {F1}End SubPrivate Sub mnuOtherFactory_Click()39。供應(yīng)商省份設(shè)置 , MeEnd SubPrivate Sub mnuOtherType_Click()39。入庫報表 vbModal, MeEnd SubPrivate Sub mnuReportFactory_Click()39。種類報表 vbModal, MeEnd SubPrivate Sub mnuReportUser_Click()39。銷售盤點 vbModal, MeEnd SubPrivate Sub mnuSellDay_Click()39。銷售窗體 , MeEnd SubPrivate Sub mnuSellReport_Click()39。True Caption = 生產(chǎn)省份 Height = 180 Left = 120 TabIndex = 20 Top = 2160 Width = 720 End Begin Label13 AutoSize = 1 39。True Caption = 庫存量 Height = 180 Left = 120 TabIndex = 18 Top = 960 Width = 540 End Begin Label5 AutoSize = 1 39。True Caption = 單位 Height = 180 Left = 3000 TabIndex = 16 Top = 960 Width = 360 End Begin Label3 AutoSize = 1 39。True Caption = 商品名稱 Height = 180 Left = 120 TabIndex = 14 Top = 600 Width = 720 End Begin Label1 AutoSize = 1 39。查找If Trim() Then Sql = select * from 商品表 where 商品編號= amp。 39。 Trim() Set RS = dbSelect(Sql) On Error Resume Next If Not Then = (商品編號) = (種類) = (商品名稱) = (單價) = (庫存量) = (單位) = (生產(chǎn)時間) = (生產(chǎn)省份) = (生產(chǎn)廠家) = (商品名稱) Else MsgBox 沒有商品編號為 amp。 的商品庫存信息！ End IfEnd IfEnd SubPrivate Sub txtData_Change()End SubPrivate Sub Command1_Click()If Trim() Then Sql = select * from 商品表 where 商品名稱=39。 Trim() amp。 Set RS = dbSelect(Sql) If Not Then = (商品編號) = (種類) = (商品名稱) = (單價) = (庫存量) = (單位) = (生產(chǎn)時間) = (生產(chǎn)省份) = (生產(chǎn)廠家) = (商品編號)Else MsgBox 沒有商品名稱為 amp。 的商品庫存信息！ End IfEnd IfEnd SubPrivate Sub Command2_Click() = True = True = True = True = True = True = True = True = True = True = FalseEnd SubPrivate Sub Command3_Click()Dim i As IntegerIf Trim() And Trim() Then i = MsgBox(確信刪除?若要繼續(xù)請按確定，商品信息將被刪除！, vbYesNo, 提示) If i = vbYes Then Sql = delete * from 商品表 where 商品編號= amp。 Trim() Set RS = dbSelect(Sql) If Not Then Sql = update 商品表 set 商品編號= Sql = Sql amp。 ,商品名稱=39。 Trim() Sql = Sql amp。,種類=39。 Trim() Sql = Sql amp。,單價= amp