沈陽理工大學課程設計實踐論文沈陽理工大學課程設計實踐論文#前言作業背景本文根據《數據庫應用與開發》課程要求而做。課程作業要求如下：用數據庫管理系統開發工具(VisualFoxPro)開發一個實用的小型管理信息系統。根據課程設計時間選擇適當規模大小的設計題目，按照系統開發的流程及方法，踏實地開展課程設計活動。課程設計活動中，撰寫相關技術文檔。最后提交詳細的課程設計報告。開發出可上機運行的管理信息系統，通過上機檢查。選題說明要在有限的兩周時間設計出一個小型的超市零售管理系統，考慮到我們知識面和視野以及信息系統的價值性，我決定設計一個日常生活中比較常見的超市零售管理系統。這個系統能夠對大學生成績進行查詢和管理，比較貼近我們大學生的實際，具有較強的可行性、實踐性和價值性。基本思路設計該系統時，采用自底向上的設計方法。首先設計數據結構，然后設計表單、菜單、報表，最后設計主程序。作業目標要實現對超市商品信息和銷售價格的管理，應該有庫存管理和價格查詢功能。要退出系統，需要有退出功能。如果想打印價格表，應該提供打印功能。所以超市使用本系統，可以迅速提升超市的管理水平，降低經營成本，提高效益，增強超市擴張力，提供有效的技術保障。工作業績主要收獲通過這學期對數據庫這門課的學習，我對數據庫有了基本的了解。學會了怎樣制作表單，菜單等內容，這對以后的學習工作有了很重大的幫助。我通過這兩周的課程設計：課程設計的選題，構思，討論，分配任務，設計程序等工作，其中遇到了很多的困難，但是沒有放棄，解決問題，排除困難，這才一步步完成每個任務，還使我掌握了使用各種關系數據庫為后臺數據庫設計一個信息管理系統。總之，這次課程設計受益匪淺，不僅鍛煉了我做事堅持不懈的心態，也慢慢地培養了我不懂就查書的好習慣，我的自學能力也有了一定的提高，我更明白了搞計算機程序設計，要學到真正的技術完全要靠自己，在課堂上只能學到最基本的東西，但這最基本的東西也一定要學好。自我評定□優□良□中□及格□不及格2系統總體設計系統結構圖開發該系統前，先要有一個清晰的系統總體功能圖。在超市零售管理系統中，由項目管理器統一管理系統中的表單、數據表、程序、報表以及主菜單。系統的整體結構是先運行主程序。表單和報表中的數據來自數據表中的數據。該系統應包括如下幾個功能模塊，功能模塊結構如下圖所示(1)輸入單據：出庫、入庫、產成品清單(2)查詢：出庫查詢、入庫查詢、產成品查詢(3)銷售：銷售費用、銷售退款、進/退貨(4)打印報表：入庫報表、出庫報表。數據庫總體設計進行數據庫總體設計首先要進行需求分析，由需求確定系統所需要的數據表，然后確定表所需的字段，最后確定各個表之間的關聯。需求分析超市銷售管理系統主要包括商品入庫出庫情況登記、商品信息及價格查詢和銷售業績匯總等功能。每個功能都要通過表單和報表來操作數據表中的數據，每個數據表存儲了本系統所需要的數據信息。所以在進行數據庫設計之前，要分析出系統所需要的數據表。所需的數據表分析超市零售管理系統的情況，首先需要了解商品的基本信息，即需要基本狀況表。用戶需要查詢商品的生產廠商和價格等信息，所以需要的數據表有商品入庫表、商品廠商信息表和銷售表等。所需的數據表結構表1：入庫單字段名數據類型長度（字節）備注入庫編號文本20主鍵商品型號文本20計量單位文本8單價貨幣16數量數字16金額貨幣16生產廠商文本50外鍵出廠日期日期16倉管員文本20外鍵表2：廠商信息表字段名數據類型長度（字節）備注廠商編號文本20主鍵廠商名稱文本50廠商地址文本50聯系電話數字20法人地表文本20表3：銷售單字段名數據類型長度（字節）備注單據編號文本20主鍵商品型號文本20計量單位文本8單價貨幣16數量數字16金額貨幣16生產廠商文本50外鍵銷售日期日期16營業員文本20外鍵表4：進貨單字段名數據類型長度（字節）備注單據編號文本20主鍵廠商編號文本20外鍵進貨廠商文本50商品型號文本20計量單位文本8單價貨幣16數量數字16金額貨幣16進貨日期日期16采購員文本20外鍵備注備注20建立項目項目管理器是visualfoxpro提供的強大的管理工具，它負責管理和組織本系統所需要的數據庫、菜單、報表、表單、程序以及一些其他的文件，它是系統中文件、數據、文檔和對象的集合。項目管理器共有6個選項卡，分別是【全部】選項卡、【數據】選項卡、【文檔】選項卡、【類】選項卡、【代碼】選項卡和【其他】選項卡。每個選項卡按一定的順序和邏輯關系管理著項目中的文件。項目文件以擴展名.pjx和.pjt進行保存。通過項目管理器，用戶可以快速、方便地存取存放在項目文件中的任何對象。建立項目管理器的步驟如下所示。（1）啟動visualfoxpro，進入程序主界面。單擊菜單欄的【文件】【新建】命令，在彈出的【新建】對話框中選擇【項目】單選按鈕，如圖。(2)單擊【新建文件】按鈕。在彈出的【創建】對話框中設置一個文件名，文件名設為大學生成績查詢系統，單擊【保存】按鈕后即可彈出【項目管理器】對話框，這個新項目就在項目管理器中建立起來了，如圖。??|±先祠比空英代.耳糜??|±先祠比空英代.耳糜EE胴B8s-44S:代到I其他3建立數據庫和數據庫表建立數據庫首先創建數據庫，在項目管理器中創建數據庫，保存數據庫名為【銷售管理.dbc】。建立數據表我們要在數據庫中建立表。在數據庫設計器中建立商品入庫出庫輸入表、商品信息表、商品價格表為了保持表中數據的一致性，需要在各數據表之間建立參照完整性。當插入、刪除或者修改表中記錄時，就會參照引用相關聯的另外一個表中的數據。關系數據庫管理系統一個重要的功能就是參照完整性。必須先建立表之間的關系的，才能使用參照完整性。4表單的設計登錄表單設計登錄表單提供銷售者登錄接口。銷售者只有輸入了正確的用戶編號和密碼，才能登錄進入系統。該表單使用基本情況表，其界面如圖所示。商品入庫出庫輸入表單設計商品入庫表單設計1、表單（輸入入庫單據）實現功能：可通過這個表單將商品的相關信息輸入，例如編號、單價、數量等，起到一個存儲信息的作用，方便以后查詢、總結等工作需要。實現過程：實現過程：①單擊“文件”下拉菜單，再點擊“新建”，選擇“表單”，再單擊“新建文件”后開始表單輸入入庫單據的設計。設計界面如下：②入入庫單據的設計的基本結構如圖4.3：“輸入”按鈕代碼e=ntom(val(alltrim(thisform.text5.value)))f=alltrim(thisform.Text6.value)g=alltrim(thisform.text7.value)h=val(alltrim(thisform.text8.value))i=ctod(alltrim(thisform.Text9.value))ifempty(a).or.empty(b).or.empty(c).or.empty(d).or.empty(e).or.empty(f).or.empty(g).or.empty(h).or.empty(i)messagebox("請輸入完整信息")returnendifinsertinto表\入庫單；(入庫編號，商品型號,計量單位,單價,金額,生產廠商,倉管員，數量，出廠日期)value(a,b,c,d,e,f,g,h,i)z=0scanfor商品庫存表.商品型號二bz=1endscanuseifz=1update商品庫存表set數量=數量+hwhere商品型號二b山05528060*（"輸入入庫單據成功！"，64,"系統提示"）returnelseinsertint0表\商品庫存表;（商品型號,數量）value（b,h）insertint0表\商品資料單;（商品型號）value（b）messagebox（"你所輸入的是新商品，請輸入商品名稱"）usedoform表單\輸入新商品名returnendif“取消”按鈕代碼T4.2.2商品出庫輸入表單設計實現功能：可通過這個表單將出庫的商品相關信息輸入，例如編號、單價、數量等，起到一個存儲信息的作用，方便以后查詢，總結等工作需要。實現過程：①單擊“文件”下拉菜單，再點擊“新建”，選擇“表單”，再單擊“新建文件”后開始表單輸入入庫單據的設計。設計界面如下：圖4.4“輸入”按鈕代碼a=alltrim(thisform.text1.value)b=alltrim(thisform.Text2.value)c=alltrim(thisform.text3.value)d=ntom(val(alltrim(thisform.Text4.value)))e=ntom(val(alltrim(thisform.text5.value)))f=alltrim(thisform.Text6.value)g=alltrim(thisform.text7.value)h=val(alltrim(thisform.text8.value))i=ctod(alltrim(thisform.Text9.value))ifempty(a).or.empty(b).or.empty(c).or.empty(d).or.empty(e).or.empty(f).or.empty(g).or.empty(h).or.empty(i)messagebox("請輸入完整信息")returnendifz=0x=0use表'商品庫存表scanfor商品庫存表.商品型號二bz=1x二數量-hendscanifz=0messagebox（"庫存不足，無法出庫！”）elseifx<0messagebox（"庫存不足，無法出庫!"）elseupdate表、商品庫存表set數量=數量-hwhere商品型號二binsertinto出庫單;（出庫編號，商品型號，計量單位，單價，金額，生產廠商，倉管員，數量，出庫日期）value（a，b，c，d，e，f，g，h，i）messagebox（輸入出庫單據成功！"，64,"系統提示"）endifendif取消按鈕代碼4.3商品價格查詢表單設計查詢表單設計1、項目詳細設計查詢模塊：出庫查詢、入庫查詢、庫存查詢、商品資料查詢例：入庫查詢表單2、界面操作說明：按鈕控制策略：組合框內有9個選項，編輯框為空，查詢按鈕及取消按鈕一直為亮。查詢處理過程：此查詢為模糊查詢，按下組合框內的選項，在編輯框內輸入內容，點擊查詢，屏幕上將顯示一系列與輸入內容相關的記錄。取消后將返回原界面。注意：出廠時間的輸入需要符合格式才能正確查詢，否則將出現運行錯誤的提醒。3、項目具體實現例：入庫查詢表單本表單用于查詢入庫商品情況。在組合框中選擇要查詢的條件，如入庫編號、商品型號等，在文本框中輸入信息，按查詢按鈕，即可顯示出相關信息。如若輸入信息有誤則會有信息“數據庫中不存在您所要查詢的記錄”提示。而按取消鍵則返回到主菜單。在表單上設計如下事件過程：1、新建表單forml,并將其caption屬性值設為“入庫查詢”，width屬性值設置為290，height屬性值設置為175,AutoCenter屬性值設置為.t.，并將其保存為“”。2、向表單添加一個grid控件，并將其width屬性值設置為290，height屬性值設置為100。3、在grid控件的下方添加一個組合框控件Combo1和一個文本框控件，并將組合框控件的RowSourceType屬性值設置為“8-結構”，RowSource屬性值設置為“入庫單”。4、在文本框的右側再添加兩個命令按鈕command1和command2，并將commandl和command2的caption屬性值分別設置為“查找”和“取消”。5、對表單上各控件的位置進行適當的調整，調整后的表單設計器如圖重點：(1)“查找”按鈕(command1)的click事件如下 ：ifempty(thisform.Text1.value)=.f.gotopb=alltrim(thisform.Text1.value)localcasintegerif2="入庫編號"Select*from入庫單where入庫編號likeb+"%"intocursorbasselebasc=reccount()ifc<1 (圖①“查詢”按鈕(command2)的click事件如下：usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendififa="商品型號"Select*from入庫單where商品型號likeb+"%"intocursorbasselebasc=reccount()ifc<1usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendififa="計量單位"Select*from入庫單where計量單位likeb+"%"intocursorbasselebasc=reccount()ifc<1usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendififa="生產廠商"Select*from入庫單where生產廠商likeb+"%"intocursorbasselebasc=reccount()ifc<1usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendififa="倉管員"Select*from入庫單where倉管員likeb+"%"intocursorbasselebasc=reccount()ifc<1usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendififa="單價"b=ntom(val(alltrim(thisform.text1.value)))Select*from入庫單where單價=bintocursorbasselebasc=reccount()ifc<1usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendififa="金額"b=ntom(val(alltrim(thisform.text1.value)))Select*from入庫單where金額=bintocursorbasselebasc=reccount()ifc<1usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendififa="數量"b=val(alltrim(thisform.text1.value))Select*from入庫單where數量=bintocursorbasselebasc=reccount()ifc<1usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendififa="出廠日期”b=ctod(alltrim(thisform.text1.value))Select*from入庫單where出廠日期=bintocursorbasselebasc=reccount()ifc<1usemessagebox("數據庫中不存在您所要查詢的記錄”,16,"系統提示")mand2.click()returnendifendif.width=588.height=200.left=10.recordsource="bas".deletemark=.f..visible=.t..readonly=.t..ColumnCount=9.Column1.Header1.Caption="入庫編號".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="商品型號".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="計量單位".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="單價".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="數量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="金額".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生產廠商".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="出廠日期”.Column9.Header1.BackColor=RGB(255,255,190).Column9.Header1.Caption="倉管員".Column1.width=80.Column2.width=80.Column3.width=80.Column4.width=80.Column5.width=80.Column6.width=80.Column7.width=80.Column8.width=80.Column9.width=80endwiththisform.grd入庫單.Setall("DynamicBackColor","RGB(224,225,255)","Column")

elsemessagebox（"請輸入要查找的內容！”,16,"系統提示"）thisform.Text1.value=""endif①取消"按鈕（command2）的click事件如下:下圖為查詢模塊其余的出庫查詢、庫存查詢和商品資料查詢的界面設計，其制作過程與入庫查詢相似。;…上出焉著■冽i;i;Tj ;…上出焉著■冽i;i;Tj |T?x?l4信息修改表單1、項目詳細設計修改模塊：出庫修改、入庫修改、商品資料修改例：入庫修改:第課:檀片方式：調輸K■要查栽的內咎:句到叱弟.位單弁. 融量?…孤岸輸:第課:檀片方式：調輸K■要查栽的內咎:句到叱弟.位單弁. 融量?…孤岸輸易”;H.滴品型精一由日目Sr：…卷新|…FY2、界面操作說明：按鈕控制策略：查找方式組合框共有9個選項，查找內容為空，查找、修改、取消按鈕一直為亮。修改處理過程：需要修改時，在組合框中選擇要查找的條件，在文本框中輸入相應信息（輸入信息要正確，否則系統會出現錯誤提示），按按鈕查找，即下面的文本框中會出現所要查找的記錄的詳細信息（其中入庫編號是固定的）。對相應信息進行修改后，按按鈕修改，即可保存修改好的信息。3、項目具體實現例：入庫修改本表單用于對入庫商品的相關信息進行修改。在組合框中選擇要查找的條件，在文本框中輸入相應信息（輸入信息要正確，否則系統會出現錯誤提示）按按鈕查找，即下面的文本框中會出現所要查找的記錄的詳細信息（其中入庫編號是固定的）。對相應信息進行修改后，按按鈕修改，即可保存修改好的信息。按取消按鈕則返回主菜單。本表單使用的數據環境為入庫單和廠商信息表。在表單上設計如下事件過程：1、新建表單forml,并將其caption屬性設置為“入庫修改”，width屬性值設為290,height屬性值設為226,AutoCenter屬性值設為.t.,并將其保存為“”。2、向表單添加一個grid控件，將其readonly屬性設置為.t.,其RecordSourceType值采用默認的“1-別名”，在表單設計器中將其寬和高粗略調小一些即可，具體屬性值我們將在表單的init事件代碼中對其進行設置。3、在grid控件下方添加兩個Label控件，使其排成一行，并將其caption屬性依次設為“請選擇查找方式”和“請輸入要查找的內容”。4、在label控件下方添加一個組合框控件Combo1及一個文本框控件Text1,文本框控件的屬性值采用默認即可，組合框控件Combo1的RowSourceType屬性值設置為“1-值”，RowSource屬性值設置為“入庫編號、商品型號、計量單位、單價、數量、金額、生產廠商、生產日期和倉管員”，這樣在運行時我們可以在該組合框中選擇要查詢的字段。5、在表單上添加3個命令按鈕command1command2和command3，將其caption屬性依次設為“查找”、“修改”和“取消“。6、在命令按鈕下方添加9個label控件，將這9個label控件排成兩行，并將其caption屬性依次設置為“入庫編號”、“商品型號”和“計量單位”等等。7、在這兩行label控件下方添加9個文本框控件，屬性值采用默認，并把這9個文本框排成兩行。8、調整表單上各個控件的位置，調整后的表單設計器如圖重點：①“查找”按鈕(command1)的click事件如下:ifempty(thisform.Text1.value)=.f.gotopb=alltrim(thisform.Text1.value)c=.f.if@="入庫編號"locatefor入庫編號二bifeof()messagebox("數據庫中不存在您所要查詢的記錄"，16,"系統提示")gotopreturnelse(圖)c=.t.endifendififa="商品型號"locatefor商品型號二bifeof()messagebox("數據庫中不存在您所要查詢的記錄"，16，"系統提示")gotopreturnelsec=.t.endifendififa="計量單位"locatefor計量單位二bifeof()messagebox("數據庫中不存在您所要查詢的記錄"，16，"系統提示")gotopreturnelsec=.t.endifendififa="單價"b=ntom(val(alltrim(thisform.text1.value)))locatefor單價二bifeof()messagebox('數據庫中不存在您所要查詢的記錄"，16,"系統提示")gotopreturnelsec=.t.endifendififa="數量"b=val(alltrim(thisform.text1.value))locatefor數量八ifeof()messagebox("數據庫中不存在您所要查詢的記錄"，16,"系統提示")gotopreturnelsec=.t.endifendififa="金額"b=ntom(val(alltrim(thisform.text1.value)))locatefor金額八ifeof()messagebox("數據庫中不存在您所要查詢的記錄"，16,"系統提示")gotopreturnelsec=.t.endifendififa="生產廠商”locatefor生產廠商二bifeof()messagebox("數據庫中不存在您所要查詢的記錄"，16,"系統提示")gotopreturnelsec=.t.endifendififa="出廠日期"b=ctod(val(alltrim(thisform.text1.value)))locatefor出廠日期八ifeof()messagebox("數據庫中不存在您所要查詢的記錄"，16,"系統提示")gotopreturnelsec=.t.endifendififa="倉管員"locatefor倉管員二bifeof()messagebox("數據庫中不存在您所要查詢的記錄"，16,"系統提示")gotopreturnelsec=.t.endifendififcthisform.Text1.enabled=.f.gorecno()thisform.Text2.visible=.t.thisform.Text2.enabled=.f.thisform.Text3.visible=.t.thisform.Text4.visible=.t.thisform.Text5.visible=.t.thisform.Text6.visible=.t.thisform.Text7.visible=.t.thisform.Text8.visible=.t.thisform.Text9.visible=.t.thisform.Text10.visible=.t.thisform.Label3.visible=.t.thisform.label4.visible=.t.thisform.Label5.visible=.t.thisform.Label6.visible=.t.thisform.Label7.visible=.t.thisform.Label8.visible=.t.thisform.Label9.visible=.t.thisform.Label10.visible=.t.thisform.Label11.visible=.t.this.enabled=.mand2.enabled=.t.endifelsemessagebox（"請輸入要查找的內容！"，16,"系統提示"）thisform.Text1.value=""endif②“修改”按鈕的click的事件如下：thisform.text3.readonly=.f.thisform.text4.readonly=.f.thisform.text5.readonly=.f.thisform.text6.readonly=.f.thisform.text7.readonly=.f.thisform.text8.readonly=.f.

thisform.text9.readonly=.f.thisform.textIO.readonly=.f.③“取消”按鈕的click的事件如下:其制作過下圖為修改模塊的其余的出庫修改和商品資料修改的界面設計，程與入庫修改的制作過程相似。其制作過r■口rm口4.4銷售表單設計.1銷售價格信息表單設計表銷售單字段名數據類型長度（字節）備注單據編號文本20主鍵商品型號文本20計量單位文本8單價貨幣16數量數字16金額貨幣16

生產廠商文本50外鍵銷售日期日期16營業員文本20外鍵表退貨單字段名數據類型長度（字節）備注單據編號文本20主鍵商品型號文本20計量單位文本8單價貨幣8數量數字16金額貨幣16退貨日期日期16.2表單銷售匯總表設計實現功能:商品正常銷售管理。銷售情況的明細記錄、各地收銀員收銀記錄以及交結帳情況等，實現對數據庫添加銷售記錄。實現過程：單擊“文件”下拉菜單，再點擊“新建”，選擇“表單”，再單擊“新建文件”后開始表單輸入入庫單據的設計。設計界面如下：表單銷售情況記錄表的設計的基本結構如圖:數據環境（如圖）“輸入”按鈕代碼：對象：command1過程：clicka=alltrim(thisform.text1.value)b=alltrim(thisform.Text2.value)c=alltrim(thisform.text3.value)d=ntom(val(alltrim(thisform.Text4.value)))e=ntom(val(alltrim(thisform.text5.value)))f=alltrim(thisform.Text6.value)g=alltrim(thisform.text7.value)h=val(alltrim(thisform.text8.value))i=ctod(alltrim(thisform.Text9.value))ifempty(a).or.empty(b).or.empty(c).or.empty(d).or.empty(e).or.empty⑴.or.empty(g).or.em