數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告--固定資產(chǎn)管理系統(tǒng)(參考版)
2024-12-19 16:00本頁(yè)面
【正文】 老師每次的授課和 建議都給了我很多的啟發(fā)，讓我的報(bào)告更加完美，所以，我很感謝 老師 對(duì)我的大力 支持；另 外，我要感謝我的同學(xué)，是他們?cè)谖依щy的時(shí)候給我大力的支持，不斷幫助 我解決問(wèn)題，讓我學(xué)到很多書本上學(xué)不到的東西，感謝他們。 長(zhǎng)達(dá)兩個(gè)多月的 課程 設(shè)計(jì)終于要結(jié)束了，這也意味著我們這學(xué)期將要結(jié)束。 通過(guò)本次課程設(shè)計(jì)，我不僅學(xué)到了許多書本上沒(méi)有的知識(shí)，還真正把書本的知識(shí)運(yùn)用到具體的實(shí)踐中，讓我明白了很多的道理，知識(shí)是很重要，不斷學(xué)習(xí)更加重要，只有不斷的學(xué)習(xí)，才能不斷的進(jìn)步，我想這些將會(huì)對(duì)我以后的工作生活學(xué)習(xí)有 很大的幫助。 （ 5）在書本上學(xué)到的東西要靈活運(yùn)用，只有這樣才能讓他們?yōu)樽约核?，產(chǎn)生自己想要的結(jié)果。 （ 3）數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)盡量考慮全面，一次弄好，不然在以后的設(shè)計(jì)中隨便改動(dòng)數(shù)數(shù)據(jù)庫(kù)將會(huì)對(duì)整個(gè)系統(tǒng)造成很大的影響。 這兩個(gè)多月以來(lái)的設(shè)計(jì)時(shí)間中，學(xué)到很多東西，總結(jié)如下： （ 1）第一次做這么全面的工作，更加深刻的理解了軟件工程的概念。尤其中小企業(yè)，因?yàn)橘Y金規(guī)模，不會(huì)投入大量資金購(gòu)買高價(jià)軟件。 由于本軟件數(shù)據(jù)處理的能力制約，因此，本系統(tǒng)適用于大部分中小型的企業(yè)。 . 系統(tǒng)運(yùn)行 運(yùn)行系統(tǒng)，打開(kāi)主界面及各種操作界面如下：20 圖 41 固定資產(chǎn)管理系統(tǒng)主界面 圖 42 固定資產(chǎn)明細(xì)表查詢界面 21 圖 43 計(jì)提折舊查詢界面 22 圖 44 固定資產(chǎn)盤點(diǎn)查詢 圖 45 刪除記錄界面 23 圖 46 明細(xì)信息報(bào)表界面 圖 47 固定資產(chǎn)廢了報(bào)表界面 24 圖 48 計(jì)提折舊報(bào)表界面 圖 49 添加記錄界面 25 圖 410 查詢界面 26 總結(jié) 隨著對(duì)系統(tǒng)測(cè)試的完成，標(biāo)識(shí)著自己一完成這學(xué)期的任務(wù)。 strsql, , adOpenKeyset, adLockOptimistic With rs If Not .EOF Then .Delete MsgBox 刪除成功！ Else MsgBox 沒(méi)找到該記錄 End If End With Set rs = Nothing Exit Sub handleerror: MsgBox End Sub Option Compare Database Private Sub Command29_Click() 18 On Error GoTo Err_cmdadd_click Dim rs As New Dim sql As String sql = Select*Form 固定資產(chǎn)明細(xì) sql, , adOpenKeyset, adLockOptimistic If IsNull(Trim( )) Then MsgBox (請(qǐng)輸入資產(chǎn)編號(hào)！ ) .SetFocus ElseIf IsNull( ) Then MsgBox (請(qǐng)輸入資產(chǎn)名稱！ ) ElseIf IsNull( ) Then MsgBox (請(qǐng)輸入分類編號(hào)！ ) ElseIf IsNull( ) Then MsgBox (請(qǐng)輸入規(guī)格型號(hào)！ ) ElseIf IsNull( ) Then MsgBox (請(qǐng)輸入原值！ ) ElseIf IsNull( ) Then MsgBox (請(qǐng)輸入數(shù)量！ ) ElseIf IsNull( ) Then MsgBox (請(qǐng)輸入開(kāi)始使用時(shí)間！ ) ElseIf IsNull( ) Then MsgBox (請(qǐng)輸入預(yù)計(jì)使用年限！ ) Else With rs .AddNew !資產(chǎn)編號(hào) = Trim( ) !資產(chǎn)名稱 = Trim( ) !分類編號(hào) = Trim( ) !規(guī)格型號(hào) = Trim( ) !原值 = Trim( ) 19 !數(shù)量 = Trim( ) !開(kāi)始使用時(shí)間 = Trim( ) !預(yù)計(jì)使用年限 = Trim( ) .Update End With MsgBox (已完成添加記錄！ ) With Me .資產(chǎn)編號(hào) = .資產(chǎn)名稱 = .分類編號(hào) = .規(guī)格型號(hào) = .原值 = .數(shù)量 = .開(kāi)始使用時(shí)間 = .預(yù)計(jì)使用年限 = End With End If Exit Sub Err_cmdadd_click: MsgBox End Sub 其中涉及到查詢數(shù)據(jù)庫(kù)、添加信息兩個(gè)數(shù)據(jù)存儲(chǔ)過(guò)程，數(shù)據(jù)查詢過(guò)程是用來(lái)驗(yàn)證在添加數(shù)據(jù)的時(shí)候數(shù)據(jù)庫(kù)中是否存在要添加的信息，如果沒(méi)有則執(zhí)行添加的存儲(chǔ)過(guò)程把信息加入數(shù)據(jù)庫(kù)中。下面是對(duì)資產(chǎn)基本信息添加的代碼： Option Compare Database Private Sub Command10_Click() On Error GoTo Err_mand10_Click 刪除記錄 Exit Sub Err_mand10_Click: MsgBox End Sub Option Compare Database Sub Form_Current() Dim ParentDocName As String On Error Resume Next ParentDocName = If Err 0 Then GoTo Form_Current_Exit Else On Er
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1