【正文】 * pQuery2= new TADOQuery(NULL)。 //Table1Edit()。 String price = pQueryFieldByName(Cost)AsString。 pQuery3Open()。 pQuery4ExecSQL()。 pQuery5Last()。 cash = pQuery5FieldByName(cash)AsFloat cash。 String f = FloatToStr(fee)。 } // void __fastcall TFormApply::FormClose(TObject *Sender, TCloseAction amp。最后實現(xiàn)的界面只有幾個主要的部門功能，由于本次實習(xí)的時間有限，所以還有很多問題 沒有解決，希望在今后的學(xué)習(xí)中找到答案。 //窗口關(guān)閉時釋放內(nèi)存 } // void __fastcall TFormApply::Button1Click(TObject *Sender) { Table1Append()。 //pQuery4Open()。 pQuery7Connection=DataModule1ADOConnection1。 pQuery6Connection=DataModule1ADOConnection1。 //更新 可用現(xiàn)金 TADOQuery * pQuery5= new TADOQuery(NULL)。 String quantity = FloatToStr(q1 + q2)。 delete pQuery。 Abort()。 pQuery2SQLClear()。 pQuery3Close()。 } } if (Table1State==dsEdit||Table1State==dsInsert) //更新剩余可用現(xiàn)金量 Table1Post()。 Label4Caption = cash。 } } // void __fastcall TFormApply::FormCreate(TObject *Sender) { TQuery* pQuery3 = new TQuery(NULL)。 系統(tǒng)管理員： 登陸成功不進行其他操作時，只運行登陸和物資信息維護模塊； 登陸成功，并選擇了除物資信息維護模塊外的其他操作，如選擇人員信息維護模塊， 則運行了登陸模塊，物資信息維護模塊，人員信息維護模塊； 系統(tǒng)管理員服務(wù)界面 默認界面： 4 5 3 登陸模塊 倉庫信息維護界面 人員信息維護界面 進出記錄維護界面 合法用戶 2 個人密碼修改界面 倉庫管理員界面 默認界面： 2 3 物資出庫界面 個人密碼修改界面 倉庫管理員界面 默認界面： 2 個人密碼修改界面 登陸成功不進行其他操作時，只運行登陸和物資入庫模塊； 登陸成功，選擇了除物資出庫模塊，則運行了登陸和物資入庫模塊，物資出庫模塊； 登陸成功后，選擇了除物資出庫模塊和個人密碼修改，則運行了登陸和物資入庫模 塊，物資出庫模塊，個人密碼修改模塊。 （三）、 處理流程 總體流程圖如下： 開 始登 陸判 斷 用 戶 級 別系 統(tǒng) 管 理 員 界面?zhèn)} 庫 管 理 員界 面 倉 庫 采 購 員界 面 選 擇 功 能倉 庫 信 息 維護物 資 余 額 查詢物 資 進 出 記錄 維 護個 人 密 碼 修改物 資 信 息 維護物 資 進 庫 物 資 出 庫選 擇 功 能 個 人 密 碼 修改個 人 密 碼 修改選 擇 功 能 查 看 采 購 清 單 （四）、總體結(jié)構(gòu)和模塊外部設(shè)計 為了實現(xiàn)安全管理，針對不同的權(quán)限的管理員有不同的視圖，實現(xiàn)不同的功能。 （二）、需求概述 主要實現(xiàn)的基本功能如下： 1. 訂單信息的輸入 2. 財務(wù)信息的輸入 3. 有關(guān)物資基本信息的輸入。采購人員根據(jù)訂單到供應(yīng)商采購物資，在收到供應(yīng)商的發(fā)貨訂單之后，將物資驗收入庫，更新原料庫存量，并將驗收單發(fā)到財務(wù)部，財務(wù)部根據(jù)單據(jù)付款給供應(yīng)商。 除此之外， 要查詢一個數(shù)據(jù)，特別是收集某一匯總或加總數(shù)據(jù)時速度很慢 。 一切信息都記錄在會計憑證、帳簿、報表等媒介上 ， 數(shù)據(jù)的保存 缺乏 安全 性 。依據(jù)運營部門下達的生產(chǎn)計劃編制物料采購計劃及庫存報表，然后根據(jù)采購計劃下采購訂單，同時將訂單轉(zhuǎn)發(fā)到財務(wù)部。實現(xiàn)快捷，方便，安全的管理倉庫，并節(jié)省大量的枯燥反復(fù)的人工記錄和統(tǒng)計數(shù)據(jù)的工作。 10. 物資余額信息的瀏覽。 登陸信息錯誤時，只運行了登陸模塊。 if(button==IDOK) Table1Delete()。 pQuery3Close()。 delete pQuery。 cash = StrToInt(pQuery3FieldByName(cash)AsString)。 pQuery2Connection=DataModule1ADOConnection1。 //Table1FieldByName(ProductID)AsString=。 Table1FieldByName(PerCost)AsString = price。 float q2 = pQuery3FieldByName(Quantity)AsFloat。 delete pQuery4。 TADOQuery * pQuery6= new TADOQuery(NULL)。 TADOQuery* pQuery7 = new TADOQuery(NULL)。 pQuery8SQLAdd(update Assets set fee = + f)。Action) { Action = caFree。 【參考文獻】： [1] 管理信息系統(tǒng)（第二版） 作者：張月玲，范麗亞；出版社：清華大學(xué)出版社；出版時間： 202151 [2] 系統(tǒng)分析與設(shè)計 (第 3 版 ) 作者：（美）丹尼斯，（美）威克瑟姆，（美）羅思 著；出版社：人民郵電出版社；出版時間： 202111 [3] UML面向?qū)ο蠼Ｅc設(shè)計（第 2版） 作者：（美）巴拉赫，（美）蘭寶 著，車皓陽；出版社：人民郵電出版社；出版時間： 202111 [4] 面向?qū)ο蠓治雠c設(shè)計 作者：（美）布奇 等著 ；出版社：人民郵電出版社；出版時間： 202181