【正文】 , , adOpenKeyset, adLockOptimistic = username=39。 Jarel ACCESS 2020 疑難解析 .北京： 機(jī)械工業(yè)出版社 ， 2020 14 石連栓，張濤，李立宗 .Visual Basic 程序設(shè)計(jì)教程 .清華大學(xué)出版社 ， 2020 15 黃明 ， 梁旭 .Vi sual Basic 信息系統(tǒng)設(shè)計(jì)與開發(fā)實(shí)例 .機(jī)械工業(yè)出版社 ， 2020 16 陳海濤 .Visual Basic 程序設(shè)計(jì)參考手冊(cè) .人民郵電出版社 ， 2020 17 劉萌 .Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .人民郵電出版社 ， 2020 原創(chuàng)庫存管理系統(tǒng) 摘 要 本系統(tǒng)是根據(jù)企業(yè)的特點(diǎn)，集進(jìn)、銷、存、分析于一體，為企業(yè)量身定做的庫存管理軟件。 Then introduced such contents as systematic analysis, systematic development and specification, etc. in detail。 第二章 系統(tǒng)的分析 系統(tǒng)的初步調(diào)查 庫存管理是管理或控制公司資源，如在制品、原材料、組件和成品的系統(tǒng)方法和工具。 (5)展示功能。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。 2． 9 系統(tǒng)的可行性分析 系統(tǒng)定義明確以后 ,應(yīng)該對(duì)系統(tǒng)可行性進(jìn)行研究 .可行性研究包括技術(shù)可行性 ,經(jīng)濟(jì)可行性以及社會(huì)可行性等方面 . 技術(shù)可行性研究是根據(jù)現(xiàn)有的和準(zhǔn)備充實(shí)的設(shè)備條件與技術(shù)力量來分析系統(tǒng)在技術(shù)上實(shí)現(xiàn)的可能性 ,弄清楚現(xiàn)有的技術(shù)條件能否保證順利完成開發(fā)工作 . 庫存管理系統(tǒng)在技術(shù)可行性上完全可以勝任 ,由于本庫存管理系統(tǒng) ,采用單機(jī)版 ,對(duì)網(wǎng)絡(luò)的研究不高 ,采用 micorsof access 數(shù)據(jù)庫 ,以及visual basic 結(jié)合 操作系統(tǒng) . 在設(shè)備條件上 ,主要考慮計(jì)算機(jī)的內(nèi)存容量 ,外存容量 ,運(yùn)算速度 ,數(shù)據(jù)精度 ,漢字功能 ,多媒體功能 ,可靠性以及對(duì)數(shù)據(jù)傳送與通信 ,網(wǎng)絡(luò) ,數(shù)據(jù)庫的需求以及實(shí)現(xiàn)的可能性 . 庫存管理系統(tǒng)在如下平臺(tái)中經(jīng)過測(cè)試可以正常運(yùn)行 : 硬件平臺(tái) CPU Intel P4 主板 Intel 850芯片組的 GA8TXC 內(nèi)存 1 256的三星 Rambus內(nèi)存 硬盤 Seagate Barracuda 80G 顯卡 Unika 小妖 G9800 顯示器 美格 770PF， 17寸純平顯示器 軟件 環(huán)境 操作系統(tǒng) Microsoft WindowsXP簡(jiǎn)體中文專業(yè)版＋ SP2 辦公軟件 Microsoft Office 2020 顯卡驅(qū)動(dòng) nVIDIA ForceWare驅(qū)動(dòng) For Win2020/XP 經(jīng)濟(jì)可行性 研究的目的 ,是希望以最小的開發(fā)成本取得具有最佳經(jīng)濟(jì)效益的軟件產(chǎn)品 ,它除了研究開發(fā)與維護(hù)新系統(tǒng)所需要的費(fèi)用是否能夠可靠地提供外 ,主要研究新系統(tǒng)將來帶來地經(jīng)濟(jì)效益是否超過其開發(fā)與維護(hù)所需要大的費(fèi)用 ,論證搞這樣的一個(gè)項(xiàng)目是否合算 . 庫存管理系統(tǒng)是方便企業(yè)管理者倉(cāng)庫管理員完成日 常工作的得力助手 ,由于輔助了計(jì)算機(jī)高科技技術(shù) ,大大的提高了員工 ,管理者的工作效率 .而且軟件產(chǎn)品的無損耗性 ,決定了此系統(tǒng)的低投入 ,高回報(bào)的特性 ,所以在經(jīng)濟(jì)上具有可行性 . 社會(huì)可行性是指所開發(fā)的軟件項(xiàng)目是否涉及到知識(shí)產(chǎn)權(quán)的糾紛等法律問題 ,這樣的軟件產(chǎn)品投入運(yùn)行后 ,對(duì)生產(chǎn) ,管理或經(jīng)營(yíng)體制帶來變革的社會(huì)影響以及社會(huì)承認(rèn)能力 . 2． 10 系統(tǒng)的組織結(jié)構(gòu)分析 本系統(tǒng)由以下幾個(gè)主要部分構(gòu)成 : 2． 11 業(yè)務(wù)流程分析 程序登陸 系統(tǒng)設(shè)置 采購(gòu)信息 庫 存 入庫信息 出 庫 信 息 數(shù) 據(jù) 維 護(hù) 模 擬 配 貨 工 具 管 理 退 出 第五章 系統(tǒng)的設(shè)計(jì) 3． 5 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 本系統(tǒng)主要功能模塊由 : :鎖定系統(tǒng) ,操作員入口 ,登陸設(shè)置 . :采購(gòu)單 ,采購(gòu)查詢 ,采購(gòu)統(tǒng)計(jì) . :元件登記 ,產(chǎn)品登記 ,庫存查詢 . :入庫單 ,入庫查詢 ,入庫統(tǒng)計(jì) :出庫單 ,出庫查詢 ,出庫統(tǒng)計(jì) 采購(gòu)信息獲得 庫存信息查詢 出庫信息建立 模擬配貨 :供應(yīng)商信息 ,數(shù)據(jù)維護(hù) :公司材料模擬組成 ,公司材料模擬配套 :工具庫存 ,入庫管理 .出庫管理 ,入庫管理 3． 6 界面 設(shè)計(jì) 與代碼設(shè)計(jì) 創(chuàng)建 新用戶界面 創(chuàng)建新用戶源代碼 : Private Sub CmdOk_Click() On Error GoTo gl If Txt(1).Enabled = False Then If Then End If = select * from usertable where username= 39。 And etype = 39。 End If = SQL If Not ( Or ) Then Set = RsE Else MsgBox 沒有找到記錄 !, , ginfo = End If Else If Trim(txtname) Then SQL = Pname=39。 相對(duì)于輸入方式來說 ,輸出方式的設(shè)計(jì)要簡(jiǎn)單得多。一般來說對(duì) 于基層或具體事物的管理者 ,應(yīng)用報(bào)表方式給出詳細(xì)的記錄數(shù)據(jù)為宜 ,而對(duì)于高層領(lǐng)導(dǎo)或宏觀、綜合管理部門 ,則應(yīng)該使用圖形方式給出比例或綜合發(fā)展趨勢(shì)的信息。 2)產(chǎn)品登記 :對(duì)庫存的產(chǎn)品進(jìn)行登記維護(hù)。 3)統(tǒng)計(jì)：通過對(duì)時(shí)間設(shè)置，對(duì)入庫元件的數(shù)量和總金額進(jìn)行統(tǒng)計(jì)。 2）產(chǎn)品模擬配貨：選擇模擬配貨的產(chǎn)品，在模擬量中添入模擬量的數(shù)值，然后選擇模擬配按鈕 ,便自動(dòng)和庫存做比較，顯示出庫存需求的數(shù)據(jù)。 39。s house, and mentioned with r aptures some plans of the latter with regard to new furniture. Elizabeth, to whom Jane very soon municated the chief of all this, heard it in silent indignation. Her heart was divided between concern for her sister, and resentment against all the others. To Caroline39。 whether he had been aware of Jane39。 Elizabeth looked at her sister with incredulous solicitude, but said nothing. ``Y。 whichever were the case, though her opinion of him must be materially affected by the difference, her sister39。s being partial to Miss Darcy she paid no credit. That he was really fond of Jane, she doubted no more than she had e ver done。 Jarel ACCESS 2020 疑難解析 .北京： 機(jī)械工業(yè)出版社 ， 2020 31 石連栓，張濤，李立宗 .Visual Basic 程序設(shè)計(jì)教程 .清華大學(xué)出版社 ， 2020 32 黃明 ， 梁旭 .Vi sual Basic 信息系統(tǒng)設(shè)計(jì)與開發(fā)實(shí)例 .機(jī)械工業(yè)出版社 ， 2020 33 陳海濤 .Visual Basic 程序設(shè)計(jì)參考手冊(cè) .人民郵電出版社 ， 2020 34 劉萌 .Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .人民郵電出版社 ， 2020 Chapter I of Volume II MISS Bingley39。 由于庫存管理涉及到一個(gè)企業(yè)的商業(yè)秘密信息 ,不宜公開 ,否則會(huì)給企業(yè)帶來不可估量的損失 .所有我們有必要對(duì)本系統(tǒng)的安全與保護(hù)措施進(jìn)行加強(qiáng) . 常用的做法有數(shù)據(jù)庫備份 .合理設(shè)置管理權(quán)限等 . 輸入用戶名與密碼驗(yàn)證 . Private Sub CmdOk_Click() On Error GoTo l Dim rs As Recordset Set rs = New = select * from usertable , , adOpenKeyset, adLockOptimistic = username=39。 2)出庫查詢：同入庫類似。 三 .入庫信息 2) 入庫單 : 生成入庫信息。這就要求 管理員對(duì)庫存管理系統(tǒng) 進(jìn)行長(zhǎng)期的不間斷的維護(hù)。從 這個(gè)意義上來說 ,前面所介紹的幾種數(shù)據(jù)傳輸方式 ,如網(wǎng)絡(luò)傳遞、軟磁盤傳遞、通過電話線傳遞等 ,對(duì)于數(shù)據(jù)傳出方來說也就是輸出方式設(shè)計(jì)的內(nèi)容。 Trim(txtname) amp。 Trim((1).Text) amp。 (, 0) amp。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。在價(jià)格下降時(shí)大量?jī)?chǔ) 存，減少損失，以應(yīng)災(zāi)害等不時(shí)之需。 2． 7 系統(tǒng)開發(fā)的目標(biāo)和思想 (1)防止斷檔。為了幫助企業(yè)建立良好的管理秩序，在信息化時(shí)代充分利用計(jì)算機(jī)作為管理手段提高管理水平和業(yè)務(wù)處理，我們?cè)O(shè)計(jì)了此管理信息系統(tǒng)，希望能為企業(yè)發(fā)揮一點(diǎn)作用。本 系統(tǒng)界面友好，操作簡(jiǎn)單，可維護(hù)性強(qiáng)，功能完備。 UserNameCmb amp。 五 .數(shù)據(jù)維護(hù) 1）數(shù)據(jù)備份：對(duì)數(shù)據(jù)庫進(jìn)行定期備份，防止數(shù)據(jù)的丟失。 首先單擊新增按鈕，激活導(dǎo)入數(shù)據(jù)和導(dǎo)入歷史數(shù)據(jù) 兩個(gè)按鈕，導(dǎo)入數(shù)據(jù)按鈕是對(duì)一次的入庫單進(jìn)行的導(dǎo) 入 而導(dǎo)入歷史數(shù)據(jù)是對(duì)多個(gè)入庫單進(jìn)行導(dǎo) 入。 2） 登陸設(shè)置 :對(duì)操作員進(jìn)行管理維護(hù) 和 修改密碼（對(duì)登陸本系統(tǒng)的操作員密碼進(jìn)行修改） ,本 系統(tǒng)中第 一個(gè)登陸的用戶為最高權(quán)限用戶，具有刪除操作權(quán)限 , 其它用戶沒有此 權(quán)限，刪 除功能不可用。中間輸出是指子系統(tǒng)對(duì)主系統(tǒng)或另一個(gè)子系統(tǒng)之間的數(shù)據(jù)傳送 ,而最終輸出則是指通過終端設(shè)備 (如顯示器屏幕、打印機(jī)等 )向管理者輸出的一類信息。 End If = SQL If Not ( Or ) Then Set = RsP Else MsgBox 沒有找到記錄！ , , ginfo = End If End If Exit Sub gl: MsgBox End Sub Private Sub Form_Load() = 0 = 0 select * FROM prostock, , adOpenKeyset, adLockBatchOptimistic select * from EleStock, , adOpenKeyset, adLockBatchOptimistic End Sub Private Sub Form_Unload(Cancel As Integer) End Sub 3． 3 輸入輸出設(shè)計(jì) 輸入設(shè)計(jì)包括輸入方式設(shè)計(jì)、用戶界面設(shè)計(jì)。 (6).Enabled = False If 1 Then Re = MsgBox(您確定要?jiǎng)h除表格中的記錄嗎 ?, vbYesNo + vbQuestion + vbDefaultButton2, ginfo) If Re = 6 Then adAffectCur