【正文】
這使得我對以后的工作充滿了信息。在論文寫作期間,我還要特別感謝各位同學(xué)給予了我無私的幫助,正是在他們的鼓勵和幫助之下,我得以順利完成論文。指導(dǎo)老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。參考文獻(xiàn)[1]邵洋 谷宇 [2]劉韜 Basic ,2003[3]王慧芳 ,2010[4]李大友主編.《Visual Basic 程序設(shè)計》.清華大學(xué)出版社, 2004[5]林永 張樂強(qiáng)等編著.《Visual 》.人民郵電出版社,1999[6]袁可 楊毅主編.《Visual Basic 程序設(shè)計》.中國農(nóng)業(yè)出版, 2008[7]徐安東 李飛 ,2008[8]陳明 主編.《Visual Basic 程序設(shè)計》.中央電大出版, 2003 [9]徐孝凱編著.《數(shù)據(jù)庫技術(shù)基礎(chǔ)教程》.清華大學(xué)出版社經(jīng)過這幾個月的畢業(yè)設(shè)計實(shí)習(xí),確實(shí)學(xué)到了不少的東西,同時也深感自己知識的欠缺。從開始熟悉這些知識到對整體設(shè)計有了解,再從概要設(shè)計、詳細(xì)設(shè)計到開始編碼,以及最后的測試,整個過程感覺很充實(shí),雖然遇到了不少困難,但當(dāng)我通過自己查資料、或是向指導(dǎo)老師請教以及向同學(xué)請教,而設(shè)計出解決方案并成功實(shí)現(xiàn)時,那種成就感和滿足感足以鼓勵自己的辛苦。在開發(fā)過程還認(rèn)真學(xué)習(xí)了與系統(tǒng)相關(guān)的知識,極大地拓寬了我的知識面,我感到收獲不小??傊撓到y(tǒng)可以方便地查詢、閱讀、修改、交流和重復(fù)使用,提高會員制商場管理效率。盡量合理的控制物流,尤其是商品庫存的控制, 本系統(tǒng)在設(shè)計上力求體現(xiàn)實(shí)用,在界面設(shè)計上力求友好,操作簡便。系統(tǒng)設(shè)計基本的目標(biāo)是全面自動化管理,可隨時掌握會員信息,商品的庫存、銷售等情況,能夠快速、準(zhǔn)確地處理商品進(jìn)、存、銷、盤點(diǎn)等多種業(yè)務(wù)模式。設(shè)計本系統(tǒng)正是為了適應(yīng)這種形勢?,F(xiàn)今的企業(yè)并不只是人力資源、資金和產(chǎn)品的組合,它還應(yīng)該包括供應(yīng)、銷售、市場營銷、客戶服務(wù)、需求預(yù)測,以及其他更多的東西。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個用戶,請重新輸入用戶名!, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確,請重新輸入!, vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then End If Exit SubEnd Sub系統(tǒng)主體界面,如圖42所示:圖42 系統(tǒng)主體界面圖 總結(jié)隨著經(jīng)濟(jì)的全球化以及中國經(jīng)濟(jì)改革的逐漸深化,會員制商場面臨著越來越激烈的競爭,改善企業(yè)內(nèi)部以及整個供應(yīng)鏈各個環(huán)節(jié)的管理、調(diào)度及資源配置,迅速適應(yīng)客戶的新需求和市場新機(jī)遇的能力,是會員制商場贏得競爭勝利的決定性因素,而快速有效地實(shí)施企業(yè)資源計劃(ERP)系統(tǒng)是被實(shí)踐證明了的提高企業(yè)競爭力的最有效的方法之一。 amp。check for correct password UserName = If Trim( = ) Then MsgBox 沒有這個用戶,請重新輸入用戶名!, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user_Info where user_ID = 39。check for correct password Dim txtSQL As String Dim mrc As Dim MsgText As String 39。圖39 系統(tǒng)功能模塊圖系統(tǒng)登陸界面,如圖41所示:圖41 系統(tǒng)登陸界面登陸界面窗口部分代碼如下:Private Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize 0 Then = Left$(sBuffer, lSize) Else = vbNullString End IfEnd SubPrivate Sub cmdCancel_Click() OK = False End SubPrivate Sub cmdOK_Click() 39。其中系統(tǒng)設(shè)置主要完成修改密碼、添加用戶和退出系統(tǒng)的功能;基本信息設(shè)置主要完成商品、供應(yīng)商、業(yè)務(wù)員和倉庫的各類信息設(shè)置;會員管理主要完成會員信