【正文】 if (select ProNow from ProLine where ID=id)=procycle begin update Product set Quantity=Quantity+1 where ProductID= (select ProductID from ProLine where ID=id) update ProLine set IsUsed=0 where ID=id update ProLine set ProNow=0 where ID=id end end end else begin if dtype=1 and (select [Value] from ProLine where ID=id)=5 update ProLine set Owned=1,[Value]=10000+[Value] where ID=id else if dtype=2 and (select [Value] from ProLine where ID=id)=8 update ProLine set Owned=1,[Value]=10000+[Value] where ID=id else if dtype=3 and (select [Value] from ProLine where ID=id)=16 update ProLine set Owned=1,[Value]=10000+[Value] where ID=id else if dtype=4 and (select [Value] from ProLine where ID=id)=24 update ProLine set Owned=1,[Value]=10000+[Value] where ID=id end fetch next from cur into id,dtype,isused,procycle,owned end close cur deallocate cur end go （二）、窗體實現(xiàn) 采用 C++Builder 實現(xiàn)主要功能，界面結(jié)構(gòu)如下圖： 采購管理界面的主要功能實現(xiàn)代碼： void __fastcall TFormApply::Button2Click(TObject *Sender) { Table1Edit()。 其中倉庫信息維護的用例要實現(xiàn)的功能也包括此種信息的添加，刪除，修改。 6. 入庫物資信息的查詢與修改。 制定采購訂單，并登記訂單上的原料種類和數(shù)量。 通過本次實習(xí)，復(fù)習(xí)、領(lǐng)會、鞏固 和應(yīng)用課堂上所學(xué)到的軟件開發(fā)方法和知識，初步掌握系統(tǒng)分析 、系統(tǒng)設(shè)計、系統(tǒng)實現(xiàn)的方法，特別是結(jié)構(gòu)化分析、結(jié)構(gòu)化設(shè)計、面向?qū)ο蠓治龊兔嫦驅(qū)ο笤O(shè)計。 昆明理工大學(xué) 實習(xí) 報告 系統(tǒng)分析與設(shè)計實習(xí) 一、 前言 系統(tǒng)分析與設(shè)計實習(xí)，旨在綜合應(yīng)用已學(xué)專業(yè)知識和技能，解決與本專業(yè)相關(guān)的典型問題，學(xué)習(xí)和掌握一種面向?qū)ο蟮?CASE 工具，并應(yīng)用于本實習(xí)的分析設(shè)計之中。通過參與小組團隊的開發(fā)實踐，為畢業(yè)后適應(yīng)團隊合作開發(fā)模式打下基礎(chǔ)，了解項目管理、團隊合作、文檔編寫、口頭與書面表達能力，創(chuàng)造能力和與其他組員交往與協(xié)作開發(fā)軟件的能力，提高今后開發(fā)稍大規(guī)模實際軟件項目和探索未知領(lǐng)域的能力和信心。 在收到供應(yīng)商的發(fā)貨清單之后，將采購清單與發(fā)貨清單進行核對，如果無誤，則更新庫存量，然后將應(yīng)付賬款數(shù)額發(fā)給財務(wù)部。 7. 出庫物資信息的輸入 。和人員信息維護相似，則不再畫這幾個用例的子用例圖了。 //按鈕修改實現(xiàn)編輯狀態(tài) } // void __fastcall TFormApply::Button3Click(TObject *Sender) { if(Table1FieldByName(Finished)AsInteger==1) //如果未完成采購，不能刪除 { ShowMessage(已到貨，不能刪除 )。 pQuery3Last()。 pQueryConnection=DataModule1ADOConnection1。 pQuery3Open()。 } if(Table1FieldByName(RawID)IsNull) { ShowMessage(原料 ID 不能為空 )。 if(pQuery2IsEmpty())//如果該原料 ID 不存在，則提示 { ShowMessage(沒有這種原料 )。 pQuerySQLAdd(select Cost from Raw where RawID =+data2)。 float q1 = Table1FieldByName(Quantity)AsFloat。 pQuery4SQLClear()。 pQuery5SQLAdd(select cash from Assets)。 pQuery6Last()。 //更新費用 TADOQuery* pQuery8 = new TADOQuery(NULL)。 delete pQuery7。 除此之外， 可以設(shè)定查詢的條件，很快地查到所需要的數(shù)據(jù)；另外，在查閱時，還可以歸類，打印查詢結(jié)果。 除原始憑證，其他所有信息都能存放在計算機的磁性介質(zhì) (硬盤、軟盤 )中，同時，隨時可以根據(jù)需要，將 信息打印到紙介質(zhì)上。 delete pQuery5。 pQuery7SQLAdd(update Assets set cash = + c)。 pQuery6SQLAdd(select fee from Assets)。 pQuery5SQLClear()。 TADOQuery * pQuery4= new TADOQuery(NULL)。 pQuery3Connection=DataModule1ADOConnection1。 pQueryConnection=DataModule1ADOConnection1。 pQuery2SQLAdd(select RawID from Raw where RawID=+data2)。 } //