基于vbaccess的倉(cāng)庫(kù)進(jìn)銷(xiāo)存管理系統(tǒng)畢業(yè)設(shè)計(jì)論文-預(yù)覽頁(yè)
【正文】 程序進(jìn)行修改時(shí)，一定要及時(shí)改變相應(yīng)程序段，以保證系統(tǒng)的正常運(yùn)行。采取保護(hù)措施，可以把原庫(kù)內(nèi)容拷貝到一個(gè)空庫(kù)中，待修改完畢，在拷回原庫(kù)中。一旦其發(fā)生故障，要有專(zhuān)門(mén)人員進(jìn)行修理，保證系統(tǒng)正常運(yùn)行。用書(shū)面格式書(shū)寫(xiě)清楚并組織有關(guān)的學(xué)習(xí)，然后輸入到計(jì)算機(jī)并開(kāi)始實(shí)施新的代碼體系。如果一個(gè)ERP系統(tǒng)真正想要最大限度地提高其生產(chǎn)能力，它必須能夠非常融洽地和其他關(guān)鍵性的商務(wù)領(lǐng)域進(jìn)行交流。因此系統(tǒng)有基本目標(biāo)和長(zhǎng)遠(yuǎn)目標(biāo)。本系統(tǒng)采用Visual Basic為主要開(kāi)發(fā)工具，結(jié)合Access數(shù)據(jù)庫(kù)管理系統(tǒng)與NT操作系統(tǒng)。例如本系統(tǒng)的幫助系統(tǒng)還很欠缺。在系統(tǒng)的開(kāi)發(fā)初期，必須要熟悉企業(yè)的管理流程，初步了解ERP的相關(guān)知識(shí)，這樣才能進(jìn)入到設(shè)計(jì)的過(guò)程中去。還有就是操作界面的方面問(wèn)題，盡管在設(shè)計(jì)的過(guò)程中，我們時(shí)刻考慮到了操作界面的友好性，但實(shí)際情況是遠(yuǎn)遠(yuǎn)不能滿(mǎn)足客戶(hù)的要求，考慮到軟件使用群體將是一群幾乎沒(méi)有任何電腦操作經(jīng)驗(yàn)的人，我們正在考慮設(shè)計(jì)出一種傻瓜式的界面。 [8] [M].人民郵電出版社, 1999年[9] Julia Case [M].常曉波,劉穎等翻譯. 清華大學(xué)出版社 ,2004年[10] Basic 6數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手[M].科學(xué)出版社，[11] Basic [S].人民郵電出版社，1999年9月[12] Basic程序設(shè)計(jì)教程[M].北方交通大學(xué)出版社，2001年9月[13] Basic 6程序設(shè)計(jì)導(dǎo)學(xué)[M].清華大學(xué)出版社，2002年1月[14] Basic程序設(shè)計(jì)教程[M].高等教育出版社，2000年7月[15] Basic數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)案例精選[M].人民郵電出版社, 2006年5月[16] [M].機(jī)械工業(yè)出版社，2006年1月[17] Basic數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè)[M].人民郵電出版社，2006年3月致謝在論文完成之際，我首先要向指導(dǎo)老師許建國(guó)老師表示最真摯的謝意。我還要特別感謝各位同學(xué)給予了我無(wú)私的幫助，正是在他們的鼓勵(lì)和幫助之下，我得以順利完成論文。SELECT , Sum() AS ZSL, Sum() AS ZJE, year([KDRQ]) amp。 1 AS MONFROM SFC_rk AS AGROUP BY , year([KDRQ]) amp。 1。 amp。 amp。SELECT , AS PMPM, AS GGGG, , , , , , , , , , , , FROM SFC_BBB AS A LEFT JOIN J_clcl AS B ON =ORDER BY 。全月一次加權(quán)平均計(jì)算單價(jià)的部分代碼：sql 語(yǔ)句：SELECT , SUM() AS RKSL, SUM() AS RKJEFROM AVER_MTH_RK1 AS AWHERE NOT (ISNULL())GROUP BY [CLBH]。功能函數(shù)Public Sub Do_Aver_DJ()Dim da_Rec As Dim da_SQL As StringSet da_Rec = (select * from AVER_DJ)Do While Not da_SQL = update J_clcl set DJDJ = amp。 (CLBH) amp。 * where =39。 and IN (SELECT DHDH FROM AVER_mth_LL2) (da_SQL)LoopEnd Sub收發(fā)存明細(xì),追蹤某中材料某月的進(jìn)出庫(kù)情況，并顯示出是那一帳單據(jù)進(jìn)行操作，如果是領(lǐng)料則在摘要中寫(xiě)明成本項(xiàng)目。 ] 收發(fā)存明細(xì)A, 1, 1)ElseUnload MeEnd IfEnd SubPrivate Sub DoGroupCube(SlCol As String, JeCol As String)Dim arrSlCol() As StringDim arrJeCol() As StringDim k As IntegerDim total As DoubleCall ON_GetArray(SlCol, arrSlCol)Call ON_GetArray(JeCol, arrJeCol) , , ().SubItems(1) = 總計(jì)For k = 0 To UBound(arrSlCol) total = 0 For J = 1 To total = total + Val((J).SubItems(Val(arrSlCol(k)))) Next ().SubItems(Val(arrSlCol(k))) = total NextFor k = 0 To UBound(arrJeCol) total = 0 For J = 1 To total = total + Val((J).SubItems(Val(arrJeCol(k)))) Next ().SubItems(Val(arrJeCol(k))) = Format(total, )NextEnd SubPrivate Sub Form_Load()Dim fl_Num As SingleDim fl_Cash As Double = LoadResPicture(101, vbResIcon) ( ) / 2, ( ) / 4 = 查看[ amp。 amp。 AND Month(KDRQ)= amp。 MsgBox 無(wú)效的材料編號(hào)！ Exit SubEnd IfI = 1Set itmX = (, , A amp。 (10) = rd_theSL (11) = Format(m_drCash, ,) LoopEnd SubPrivate Sub DoStyle()Dim intWid As IntegerintWid = 1200 , , 序號(hào), 600 , , 日期, 1000, lvwColumnRight , , 憑證編號(hào), intWid, lvwColumnRight , , 摘要, intWid, lvwColumnRight , , 收入數(shù)量, intWid, lvwColumnRight , , 收入單價(jià), intWid, lvwColumnRight , , 收入金額, intWid, lvwColumnRight , , 發(fā)出數(shù)量, intWid, lvwColumnRight , , 發(fā)出單價(jià), intWid, lvwColumnRight , , 發(fā)出金額, intWid, lvwColumnRight , , 結(jié)存數(shù)量, intWid, lvwColumnRight , , 結(jié)存金額, intWid, lvwColumnRightEnd SubPrivate Sub Form_Resize()On Error Resume Next 0, 100 + 500 + 50, , 650End SubPrivate Function GetInitData(m_giNum As Single, m_giCash As Double) As BooleanDim drRec_1 As Dim drRec_2 As Dim drSQL As StringGetInitData = Truem_giNum = m_giCash = drSQL = select * from T_SFC Where BHBH=39。drSQL = drSQL amp。 m_YearSet drRec_1 = (drSQL)If Then drSQL = select * from T_SFC_QC Where BHBH=39。 drSQL = drSQL amp。 m_Year Set drRec_2 = (drSQL) If Then MsgBox 沒(méi)有盤(pán)點(diǎn)，沒(méi)有期初期末數(shù)據(jù)！ GetInitData = False Else m_giNum = (QCSL).Value m_giCash = (QCJE).Value End If : Set drRec_2 = NothingElse m_giNum = (QCSL).Value m_giCash = (QCJE).ValueEnd If: Set drRec_1 = NothingEnd FunctionPrivate Sub Form_Unload(Cancel As Integer)m_CLBH = m_Month = 0m_Year = 0End SubPrivate Sub DoRemain(m_drNum As Single, m_drCash As Double)Dim rd_theSL As SingleDim rd_theJE As DoubleDim rd_RKJE As Double, rd_CKJE As Doublerd_theSL = m_drNumrd_theJE = m_drCashFor I = 1 To rd_theSL = rd_theSL + Val((I).SubItems(4)) Val((I).SubItems(7)) (I).SubItems(10) = rd_theSL If rd_theSL 0 Then rd_CKJE = Val(Format((I).SubItems(9), )) rd_theJE = rd_theJE + rd_RKJE rd_CKJE Else rd_theJE = 0 End If(I).SubItems(11) = Format(rd_theJE, ,)NextEnd Sub
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1