【正文】 ...................................................... 8 .................................................................................................. 9 創(chuàng)建登錄對話框 ................................................................................................. 10 ................................................................................................... 12 ................................................................................................... 24 總結(jié) ......................................................................................................................... 26 參考文獻(xiàn) .................................................................................................................. 26 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 1 概述 根據(jù)下述需求陳述，設(shè)計： 設(shè)計一個“企業(yè)銷售管理系統(tǒng)”的 MIS（即管理信息系統(tǒng)）軟件； 用 ER圖和關(guān)系模型進(jìn)行數(shù)據(jù)庫分析和設(shè)計； 用 Delphi 6 / 7 加 SQL Server 2021 后臺數(shù)據(jù)庫開發(fā)實現(xiàn)。與實際的 MIS系統(tǒng)不同，本軟件不強(qiáng)調(diào)實用功能，只需要能夠體現(xiàn) SQL Server 存儲過程、查詢、游標(biāo)及觸發(fā)器技術(shù)即可。 具體需要實現(xiàn)以下功能： A) 登陸界面設(shè)計，正確輸入用戶名、密 碼能夠進(jìn)入系統(tǒng)； B) 能夠?qū)崿F(xiàn)主窗體、子窗體及菜單設(shè)計； 具體要求： 1．實驗環(huán)境 SQL Server 2021（數(shù)據(jù)庫設(shè)計工具） Microsoft Office Visio（ ER圖等畫圖工具） Delphi6 / 7（面向?qū)ο蟮目梢暬幊坦ぞ撸? Photoshop（圖形制作工具，可選用） 2．實驗內(nèi)容和所需時間 1）利用 SQL Server 2021 的企業(yè)管理器，創(chuàng)建數(shù)據(jù)庫及相關(guān)表。 5）利用 Delphi提供的 ADO組件中的 ADOConnection 建立應(yīng)用程序同 SQL數(shù)據(jù)庫的連接，用其他數(shù)據(jù)庫組件進(jìn)行數(shù)據(jù)表的操作。 數(shù)據(jù)庫 應(yīng)用程序 n 應(yīng)用程序 2 應(yīng)用程序 1 數(shù)據(jù)庫 管理系統(tǒng)D BMS 1． 1 引 言 企業(yè)物資銷售信息系統(tǒng)是一個企業(yè)單位不可缺少的部分 ,它的內(nèi)容對于企業(yè)的決策者和銷江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 2 售者來說都至關(guān)重要 ,所以企業(yè)物資銷售信息系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢 手段。隨著科學(xué)技術(shù)的不斷提高 ,計算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識 ,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。這些優(yōu)點能夠極大地提高企業(yè)物資銷售的效率 ,也是 企業(yè)的科學(xué)化、正規(guī)化銷售 ,與世界接軌的重要條件。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機(jī)之所以如此流行的原因主要有以下幾個方面： 第一 計算機(jī)可以代替人工進(jìn)行許多繁雜的勞動； 第二 計算機(jī)可以節(jié)省許多資源； 第三 計算機(jī)可以大大的提高人們的工作效率； 第四 計算機(jī)可以使敏感文檔更加安全，等等。它是信息開發(fā)系統(tǒng)中的一個重要階段，是建立系統(tǒng)模型的第一步。通過對企業(yè)工作人員的調(diào)查得知，以前的物資銷售辦法，工作繁瑣，工作量大，效率低。各單位的需求雖然不盡相同，但大概可分為以下幾個方面： ● 用戶的信息要求：隨時查詢庫存物資狀 況，進(jìn)行庫存物資匯總，對記錄能隨時刪除、插入及恢復(fù) . ● 用戶的處理要求：能隨時增加、刪除，修改每一個庫存物資記錄，并能打印單據(jù)。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。 ● 客戶基本信息的查詢。 ● 客戶聯(lián)系人信息的輸入。 ●客戶聯(lián)系人信息的查詢。 ●合同信息輸入。 ● 合同信息修改。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 8 系統(tǒng)界面及主要程序 系統(tǒng)登錄成功后進(jìn)入系統(tǒng)的主界面，通過主界面可以切換到各個子模塊進(jìn)行相關(guān)操作， 新建窗體 form2 作為系統(tǒng)主界面的窗體，其界面布局效果圖如下所示。 控件類型 對象 屬性 屬性值 Tbutton Button_add_1 caption 添加 Tbutton Button_select_1 caption 查詢 TpageControl PageControl_Main Items 見表 TpageControl PageControl_SaleMangement Item 客戶信息 Tbutton Button_modify_1 caption 修改 Tlabel Label1 caption 客戶編號 Tedit Edit_Custom_id_1 caption — TADOQuery ADOQuery1 Connection 系統(tǒng)主界面的是設(shè)置整個系統(tǒng)的功能菜單，通過雙擊 PageControl_Main 控件可以進(jìn)行菜單編輯。 選擇菜單中的 ConnectionString ...按鈕！ 出現(xiàn)對話框 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 10 單擊 Build， 選擇好數(shù)據(jù)源后測試，測試成功后便已經(jīng)連接成功！ 創(chuàng)建登錄對話框 在管理系統(tǒng)中，身份驗證是系統(tǒng)進(jìn)入的必要步驟，新建 form1 作為登錄對話框，并設(shè)置標(biāo)題為“用戶登錄”，其界面如圖所示。 begin 。 (39。39。++39。39。)。 :=(39。).AsString。User_password39。 :=false。 showmessage(39。)。39。密碼輸錯 3 次，退出！ 39。 。 end。 系統(tǒng)查詢管理模塊主要用于顧客信息的查詢，添加、修改和刪除，模塊創(chuàng)建時將相關(guān)信息顯示到 DBGrid 中，而除 DBGrid 以外的控件內(nèi)容為空，用戶在這個控件中輸入數(shù)據(jù)，單擊“查詢”按鈕可將輸入添加到數(shù)據(jù)表中并顯示在 DBGrid 中。 procedure (Sender: TObject)。39。39。39。39。39。39。39。39。 。select* from Consign_plan 39。 :=39。 。 if 39。 then begin 。 (39。39。++39。39。)。39。 end。39。 。select* from Consign_plan where Contract_id like 39。%39。%39。39。 :=39。 。 if 39。 then begin 。 (39。39。++39。39。)。39。 end。39。 。select* from Consign_plan where Prod_name like 39。%39。%39。39。 :=39。 。 if 39。 then begin 。 (39。39。++39。39。)。39。 end。39。 。select* from Consign_plan where Consign_data like 39。%39。%39。39。 :=39。 。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 14 if 39。 then begin 。 (39。39。++39。39。)。39。 end。39。 。select* from Consign_plan where Operat_state like 39。%39。%39。39。 :=39。 。 end。 begin // if (=39。 )and (=39。)and(=39。) and (=39。)and (=39。)and (=39。) and (=39。)and (=39。)and (=39。)then begin 。 (39。)。39。 end。39。 。select * from Sale_Invoice,Custom_Inf where like 39。%39。%39。 and 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 15 =39。 :=39。 。 if 39。 then begin 。 (39。39。++39。39。)。39。 end。39。 。select * from Sale_Invoice,Custom_Inf where like 39。%39。%39。 and = 39。 :=39。 。