【導(dǎo)讀】等；2、用高級(jí)語(yǔ)言結(jié)合ACCESS數(shù)據(jù)庫(kù)進(jìn)行開(kāi)發(fā)；系統(tǒng)設(shè)置、系統(tǒng)幫助等各項(xiàng)設(shè)計(jì)與操作。本題中待開(kāi)發(fā)的軟件，實(shí)現(xiàn)類似MIS系統(tǒng)的功能。與實(shí)際的MIS系統(tǒng)不同，本軟件。不強(qiáng)調(diào)實(shí)用功能，只需要能夠體現(xiàn)SQLServer存儲(chǔ)過(guò)程、查詢、游標(biāo)及觸發(fā)器技術(shù)即可。重點(diǎn)在于數(shù)據(jù)庫(kù)及表的創(chuàng)建，ODBC的配置，數(shù)據(jù)庫(kù)應(yīng)用組件（DataModule,DataSource,

　　

【正文】 。 (39。select * from Production_category_information 39。 )。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select * from Production_category_information where Prod_cate_id_10 like 39。39。%39。++39。%39。39。39。 )。 :=39。39。 。 end 。 if 39。39。 then begin 。 。 (39。select * from Production_category_information where Prod_cate_name_10 like 39。39。%39。++39。%39。39。39。 )。 :=39。39。 。 end 。 end。 procedure (Sender: TObject)。 begin // if (= 39。39。 )and (=39。39。)and(= 39。39。) and (= 39。39。)and ( = 39。39。) 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫(kù)課程設(shè)計(jì) 22 then begin 。 。 (39。select * from Product_Information 39。 )。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select * from Product_information where Product_id like 39。39。%39。++39。%39。39。39。 )。 :=39。39。 。 end 。 if 39。39。 then begin 。 。 (39。select * from Product_Information where Product_name like 39。39。%39。++39。%39。39。39。 )。 :=39。39。 。 end 。 if 39。39。 then begin 。 。 (39。select * from Product_Information where Product_type like 39。39。%39。++39。%39。39。39。 )。 :=39。39。 。 end 。 if 39。39。 then begin 。 。 (39。select * from Product_Information where 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫(kù)課程設(shè)計(jì) 23 Product_category like 39。39。%39。++39。%39。39。39。 )。 :=39。39。 。 end 。 if 39。39。 then begin 。 。 (39。select * from Product_Information where Product_price like 39。39。%39。++39。%39。39。39。 )。 :=39。39。 。 end 。 end。 本程序段可以實(shí)現(xiàn)模糊查詢或詳細(xì)查詢，如下圖示： 在客戶名稱中輸入無(wú)錫，可以查詢到所有關(guān)于無(wú)錫的信息。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫(kù)課程設(shè)計(jì) 24 在此企業(yè)物資銷售系統(tǒng)中的系統(tǒng)模塊就是管理員設(shè)置模塊，它可以對(duì)管理員的密碼進(jìn)行修改，也可以進(jìn)行新用戶的注冊(cè)。 新建密碼維護(hù)作為管理員設(shè)置的窗體其界面如圖。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫(kù)課程設(shè)計(jì) 25 （ 1)完畢后，單擊“確定”按鈕可對(duì)管理員的密碼進(jìn)行修改，在更新數(shù)據(jù)庫(kù)前確認(rèn)兩次輸入的密碼一致，單擊響應(yīng)事件 OnClick 中的代碼如下； procedure (Sender: TObject)。 begin if trim()trim() then begin showmessage(39。密碼的不相同，請(qǐng)重新輸入！ 39。)。 。 end else begin with ADOQuery1 do begin 。 。 (39。select*from User_password where User_name= 39。39。39。++39。39。39。39。+39。 and User_password=39。+)。 。 if eof then showmessage(39。該用戶不存在！ 39。) else begin edit。 fieldbyname(39。User_password39。).AsString:=。 post。 showmessage(39。修改成功！ 39。) end。 end。 end。 end。 (2)如果單擊“創(chuàng)建新用戶”系統(tǒng)在確認(rèn)沒(méi)有重復(fù)用戶名的情況下，將新用戶添加到數(shù)據(jù)表中，具體代碼如下： procedure (Sender: TObject)。 begin with adoquery1 do begin 。 。 (39。select * from User_password where User_name=39。39。39。++39。39。39。 and User_password=39。+)。 。 if not eof then ShowMessage(39。該用戶已經(jīng)存在 !39。) else 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫(kù)課程設(shè)計(jì) 26 begin edit。 (39。User_name39。).AsString:=。 (39。User_password39。).AsString:=。 post。 ShowMessage(39。添加用戶成功 !39。)。 end。 end。 end。 總結(jié) 通過(guò)這次數(shù)據(jù)庫(kù)的課程設(shè)計(jì) ,真正達(dá)到了學(xué)與用的結(jié)合 ,增強(qiáng)了對(duì)數(shù)據(jù)庫(kù)應(yīng)用方面的理解 ,為自己以后參與開(kāi)發(fā)數(shù)據(jù)庫(kù)系統(tǒng)積累了不少的經(jīng)驗(yàn) .因?yàn)樾〗M分工的不同 ,大家在各司其職的同時(shí)又互相的配合互相幫助和完善 ,從建立數(shù)據(jù)開(kāi)始 ,對(duì)數(shù)據(jù)庫(kù)設(shè)計(jì)理念及思想上有了更高的認(rèn)識(shí) ,從需求分析 ,到概念設(shè)計(jì)和邏輯設(shè)計(jì) ,ER 圖的表示，數(shù)據(jù)字典的創(chuàng)建，懂得了不少有關(guān)數(shù)據(jù)開(kāi)發(fā)過(guò)程中的知 識(shí)，在實(shí)驗(yàn)中見(jiàn)表，及其相關(guān)模式，關(guān)系代數(shù)的建立及理解，增強(qiáng)了大家學(xué)習(xí)新知識(shí)的動(dòng)力和大家團(tuán)結(jié)互助的精神，我們不僅通過(guò)自學(xué)學(xué)習(xí)了 Delphi 語(yǔ)言增強(qiáng)了自學(xué)能力和對(duì)語(yǔ)言的興趣，而且學(xué)會(huì)了使用 Visio 畫圖工具。在整個(gè)設(shè)計(jì)過(guò)程中，大家不僅以其討論一起提出方案而且還查閱了大量書本上的知識(shí)和網(wǎng)頁(yè)中的資料，學(xué)以致用，自我創(chuàng)新，從學(xué)到用從用又到學(xué)，不斷地修改，同時(shí)加強(qiáng)了自我理論知識(shí)的學(xué)習(xí)與理解，又對(duì)完善系統(tǒng)設(shè)計(jì)會(huì)有很多大的幫助?？傊谠O(shè)計(jì)的過(guò)程中受益匪淺，為以后的工作打下了厚實(shí)的基礎(chǔ)。 參考文獻(xiàn) 69668690 17:39:12 [1] 孫福兆 雷志軍 汪梅婷 余健． Delphi 課程設(shè)計(jì)案例精編 ．北京：清華大學(xué)出版社，2021： 82105,109161． [2] 何定華 易海勝 .Delphi 程序設(shè)計(jì)基礎(chǔ)教程 .北京：清華大學(xué)出版社， 2021； 4572， 253267. [3] 錢雪忠 羅海馳 陳國(guó)俊 . 數(shù)據(jù)庫(kù)原理及技術(shù)課程設(shè)計(jì) .北京：清華大學(xué)出版社， 2021；161164， 247266.