【正文】
Or vbQuestion) = vbNo Then Exit Sub = select * from 入庫單 where 編號= + Str(code) SaveInit ResumeInit Exit Sub End I = select 庫存數(shù)量 from 庫存狀況 where 貨物編號= + Str(code1) + and 倉庫編號= + Str(code2) 39。當(dāng)前庫存數(shù)量num2 num2 = (庫存數(shù)量).Value 39。庫存不足 If num2 num1 Then If MsgBox(庫存不足,庫存量為 + Str(num2) + ,需求量為 + Str(num1) + , + 要忽略它并強(qiáng)制刪除嗎?, vbQuestion Or vbYesNo) = vbNo Then Exit Sub End If 39。更新庫存狀況 If num2 num1 0 Then (庫存數(shù)量).Value = num2 num1 Else 39。如果庫存為零清空 End If 39。更新入庫單 = select * from 入庫單 where 編號= + Str(code) SaveInit ResumeInit MsgBox 入庫單刪除成功! 39。寫入系統(tǒng)日志 (刪除入庫單“)quit:End Sub小結(jié)經(jīng)過幾個星期的努力終于把倉庫管理系統(tǒng)做完了,通過做這次課程設(shè)計,我對數(shù)據(jù)庫系統(tǒng)及sql語句和c語言有了更深的認(rèn)識和理解,把理論知識和實踐結(jié)合起來,使理論知識得到了運(yùn)用,同時自己也掌握了知識。因為是兩個人共同設(shè)計,所以還學(xué)會了溝通及團(tuán)隊合作,通過自己親手設(shè)計,印象深刻,真正理解所學(xué)知識。經(jīng)過自己親手實踐后,就會真正明白實踐是檢驗真理的唯一標(biāo)準(zhǔn)。在設(shè)計的過程中,的資料,掌握了很多課堂上沒有的知識,提高了自己的能力,了解了軟件開發(fā)的過程,受益匪淺。同時也發(fā)現(xiàn)了自己的不足之處并且改正,為以后的工作和學(xué)習(xí)打下了良好的基礎(chǔ)參考文獻(xiàn)1]鄭阿奇,劉啟芬, Server . 2009[2] 王珊,. 高等教育出版社. 2008[3]《SQL Server數(shù)據(jù)庫開發(fā)經(jīng)典案例解析 》,清華大學(xué)出版社,2006年[4]《SQL SERVER 2000開發(fā)與應(yīng)用》,機(jī)械工業(yè)出版社,2003年7月 黃石理工學(xué)院實踐教學(xué)環(huán)節(jié)實施計劃書院(系):計算機(jī)學(xué)院 班級:08應(yīng)用技術(shù)實踐教學(xué)環(huán)節(jié)名稱數(shù)據(jù)庫技術(shù)課程設(shè)計實踐教學(xué)環(huán)節(jié)類型課程設(shè)計 √ 實訓(xùn)□指導(dǎo)教師姓 名孫勝職 稱講師是否指導(dǎo)過是 教研室審查意見教研室主任簽字: 年 月 日院(系)審定意見院(系)領(lǐng)導(dǎo)簽字: 年 月 日 指導(dǎo)教師簽字: 年 月 日18