【正文】 參考文獻(xiàn) 69668690 17:39:12 [1] 孫福兆 雷志軍 汪梅婷 余健． Delphi 課程設(shè)計案例精編 ．北京：清華大學(xué)出版社，2021： 82105,109161． [2] 何定華 易海勝 .Delphi 程序設(shè)計基礎(chǔ)教程 .北京：清華大學(xué)出版社， 2021； 4572， 253267. [3] 錢雪忠 羅海馳 陳國俊 . 數(shù)據(jù)庫原理及技術(shù)課程設(shè)計 .北京：清華大學(xué)出版社， 2021；161164， 247266. 。在整個設(shè)計過程中，大家不僅以其討論一起提出方案而且還查閱了大量書本上的知識和網(wǎng)頁中的資料，學(xué)以致用，自我創(chuàng)新，從學(xué)到用從用又到學(xué)，不斷地修改，同時加強(qiáng)了自我理論知識的學(xué)習(xí)與理解，又對完善系統(tǒng)設(shè)計會有很多大的幫助。 end。 end。添加用戶成功 !39。 post。User_password39。).AsString:=。 (39。該用戶已經(jīng)存在 !39。 。 and User_password=39。39。39。select * from User_password where User_name=39。 。 (2)如果單擊“創(chuàng)建新用戶”系統(tǒng)在確認(rèn)沒有重復(fù)用戶名的情況下，將新用戶添加到數(shù)據(jù)表中，具體代碼如下： procedure (Sender: TObject)。 end。) end。 showmessage(39。).AsString:=。 fieldbyname(39。該用戶不存在！ 39。 。 and User_password=39。39。39。39。select*from User_password where User_name= 39。 。 。密碼的不相同，請重新輸入！ 39。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 25 （ 1)完畢后，單擊“確定”按鈕可對管理員的密碼進(jìn)行修改，在更新數(shù)據(jù)庫前確認(rèn)兩次輸入的密碼一致，單擊響應(yīng)事件 OnClick 中的代碼如下； procedure (Sender: TObject)。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 24 在此企業(yè)物資銷售系統(tǒng)中的系統(tǒng)模塊就是管理員設(shè)置模塊，它可以對管理員的密碼進(jìn)行修改，也可以進(jìn)行新用戶的注冊。 end。 。 :=39。39。%39。%39。select * from Product_Information where Product_price like 39。 。39。 end 。39。 )。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。39。%39。%39。select * from Product_Information where Product_type like 39。 。39。 end 。39。 )。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。39。%39。%39。select * from Product_information where Product_id like 39。 。39。 end。39。 )。 (39。) 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 22 then begin 。)and ( = 39。) and (= 39。)and(= 39。 )and (=39。 begin // if (= 39。 end。 。 :=39。39。%39。%39。select * from Production_category_information where Prod_cate_name_10 like 39。 。39。 end 。39。 )。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。select * from Production_category_information 39。 。39。39。 procedure (Sender: TObject)。 end。39。) 。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。39。%39。%39。select * from Zone_information where Zone_name like 39。 。39。 end。39。) 。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。39。%39。%39。select * from Zone_information where Zone_id like 39。 。39。 end。39。) 。 (39。)then begin 。)and(=39。) and (=39。)and(=39。 begin 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 20 // if (=39。 end。 。 :=39。39。%39。%39。select * from Company_personnel_information where Person_section like 39。 。39。 end。39。) 。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。39。%39。%39。select * from Company_personnel_information where Person_name like 39。 。39。 end。39。) 。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。39。%39。%39。select * from Company_personnel_information where Person_id like 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 19 39。 。39。 end。39。) 。 (39。)then begin 。)and(ext=39。)and(=39。) and (=39。)and(=39。 begin // if (=39。 end。 。 :=39。39。%39。%39。select * from Gathering_plan where Excute_state like 39。 。39。 end。39。)。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。39。%39。%39。select * from Gathering_plan where Plan_date like 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 18 39。 。39。 end。39。)。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。39。%39。%39。select * from Gathering_plan where Custom_name like 39。 。39。 end。39。)。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。select * from Gathering_plan39。 。39。39。39。39。39。39。 procedure (Sender: TObject)。 end。39。)。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。and = 39。%39。%39。select * from Sale_Invoice,Custom_Inf where like 39。 。39。 end。39。)。39。++39。39。 (39。 then begin 。 if 39。 。 :=39。and =39。%39。%39。select * from Sale_Invoice,Custom_Inf where like 39。 。39。