《信息系統(tǒng)開發(fā)》實驗報告

《《信息系統(tǒng)開發(fā)》實驗報告》由會員分享，可在線閱讀，更多相關(guān)《《信息系統(tǒng)開發(fā)》實驗報告（15頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、主考教師： 《信息系統(tǒng)開發(fā)》 實驗報告 成績： 報考專業(yè)：計算機(jī)信息管理（獨立本科段） 準(zhǔn)考證號： ************ 考生姓名： ****** 考核地點：河北省************ 河北省自考“計算機(jī)信息管理（獨立本科段）”專業(yè) 實驗報告 市 考核單位（蓋章） 成 績 指導(dǎo)教師 姓名： ****** 準(zhǔn)考證號： *********

2、*** 實驗地點： ********** 實驗課程： 信息系統(tǒng)開發(fā) 實驗名稱： 信息系統(tǒng)的開發(fā)（設(shè)備管理系統(tǒng)） 實驗?zāi)康模和ㄟ^實際建立一個完整的信息系統(tǒng)來加深對信息系統(tǒng)開發(fā)理論知識的理解與認(rèn)識，掌握和解決信息系統(tǒng)規(guī)劃、分析、設(shè)計、實施、運行與測試等實際問題的能力。 實驗設(shè)備： 一、 軟件環(huán)境： 中文Windows XP，PowerBuilder9.0，SQL Anywhere 二、 硬

3、件環(huán)境： 586以上的PC系列機(jī)，內(nèi)存512M，硬盤空閑空間大于1G 實驗內(nèi)容、步驟、圖形與結(jié)論（答題不要超過裝訂線，可另附白紙書寫）： 實驗內(nèi)容 ——為某企業(yè)設(shè)計一個設(shè)備管理系統(tǒng) 問題描述：請為某企業(yè)設(shè)計一個設(shè)備管理系統(tǒng)。手式管理用的記錄表有： ① 設(shè)備信息表，內(nèi)容包括： 設(shè)備編號、設(shè)備名稱、設(shè)備類型、規(guī)格型號、數(shù)量、總價值、產(chǎn)地。 ② 設(shè)備類型表，內(nèi)容包括： 設(shè)備類型編號、設(shè)備類型。 功能需求： ①設(shè)備信息的瀏覽、添加、刪除、保存操作。 ②設(shè)備類型的瀏覽、添加、刪除、保存操作。 ③按設(shè)備編號進(jìn)行查詢。 ④按設(shè)備類型進(jìn)行設(shè)備數(shù)量統(tǒng)計。 ⑤對于各種數(shù)據(jù)進(jìn)行升序和降

4、序的排序操作。 ⑥折舊率計算。 上機(jī)考試要求： 1．根據(jù)問題描述，設(shè)計出設(shè)備信息表SBXX和設(shè)備類型表SBLX的表結(jié)構(gòu)，并定義它們的主鍵和外鍵。 解： 根據(jù)設(shè)備管理系統(tǒng)問題分析描述，并結(jié)合系統(tǒng)所要滿足的功能需求，借助E-R圖等工具設(shè)計出設(shè)備管理系統(tǒng)的數(shù)據(jù)庫表結(jié)構(gòu)。 <1> 根據(jù)設(shè)備信息表所給出的信息，設(shè)計出設(shè)備信息表SBXX，表結(jié)構(gòu)如下所示： 表1 設(shè)備信息表SBXX 列標(biāo)題 列名 數(shù)據(jù)類型 寬度 小數(shù)位數(shù) 是否空值 缺省值 主/外鍵 設(shè)備編輯 Sbbh Char 4 No P 設(shè)備名稱 Sbmc Char 20 No

5、 類型編號 Lxbh Char 4 No F 規(guī)格型號 Ggxh Char 20 Yes 數(shù)量 Sl Integer Yes 總價值 Zjz Number 10 2 Yes 產(chǎn)地 Cd Char 10 Yes <2> 根據(jù)設(shè)備類型表所給出的信息，設(shè)計出設(shè)備類型表SBLX，表結(jié)構(gòu)如下所示： 表2 設(shè)備類型表SBLX 列標(biāo)題 列名 數(shù)據(jù)類型 寬度 小數(shù)位數(shù) 是否空 缺省值 主/外鍵 類型編號 Lxbh Char 4 No P 類型名稱 Lxmc

6、 Char 20 No 2．在D盤的考核目錄下創(chuàng)建名為Sbgl的數(shù)據(jù)庫。在庫中創(chuàng)建設(shè)備信息表sbxx和設(shè)備類型sblx，并設(shè)置其主鍵和外鍵。 解： n 創(chuàng)建名為Sbgl的數(shù)據(jù)庫： （1） 開始à程序àSybaseàPowerBuilder 9.0à PowerBuilder 9.0打開主窗口。 （2） 單擊工具欄的Database按鈕（打開數(shù)據(jù)庫畫板）à打開ODB ODBCà再打開Utilitiesà雙擊Create ASA Database，在打開的對話框中的“Database Name”編輯框中輸入數(shù)據(jù)庫名，并通過“…”按鈕輸入數(shù)據(jù)的全路徑（D:\考核\Sbgl.

7、db），其他可保持默認(rèn)；最后，單擊“OK”按鈕，系統(tǒng)將成功創(chuàng)建數(shù)據(jù)庫Sbgl。 運行結(jié)果如下圖（1）所示： 圖（1） n 在庫中創(chuàng)建設(shè)備信息表sbxx和設(shè)備類型sblx，并設(shè)置其主鍵和外鍵 （1） 在Sbgl數(shù)據(jù)庫中建立設(shè)備信息表Sbxx： 右擊數(shù)據(jù)庫畫板的table文件夾àNew Tableà出現(xiàn)創(chuàng)建表結(jié)構(gòu)的界面à根據(jù)表1添加并定義字段àExità(Save change to?)à是(Y)à輸入表名SbxxàOK。 （2） 用同樣的方法，在Sbgl數(shù)據(jù)庫中建立設(shè)備類型表Sblx （3） 為數(shù)據(jù)表指定主鍵： <1> 在表Sbxx中設(shè)置主鍵Sbbh：選中數(shù)據(jù)表Sbxx，右擊

8、鼠標(biāo)并在彈出的快捷菜單中左擊Add to layout；在打開的畫板中，右擊表結(jié)構(gòu)Sbxx的標(biāo)題欄并在彈出的快捷菜單中左擊NewàPrimary Key，在彈出的列表框中選擇字段Sbbh作為主鍵。 <2> 用同樣的方法，為表Sblx指定主鍵lxbh （4） 為數(shù)據(jù)表Sbxx指定外鍵： 在表Sbxx的結(jié)構(gòu)中，右擊標(biāo)題欄并在彈出的快捷菜單中左擊NewàForeign Key，在彈出的對話框的General選項卡中，在Foreign Key右側(cè)輸入外鍵名Lxbh，并在下方的列表框中選擇字段Lxbh作為外鍵字段。 在Primary Key選項卡中，在Table右側(cè)指定參照的表名為Sblx，保存

9、所做設(shè)置。 得到的表結(jié)構(gòu)如圖（2）所示： 圖（2） 3．創(chuàng)建一個名為exam的應(yīng)用程序?qū)ο?，其?yīng)用程序文件名為exam.pbl。 解： (1) 先建一個工作空間Sbgl.pbw： 在工具欄中單擊New按鈕àWorkspace選項卡àWorkspaceàOKà選擇路徑D:/考核，并在“文件名”右側(cè)輸入文件名Sbgl，然后保存。 (2) 再建應(yīng)用程序?qū)ο骵xam.pbl： 在工具欄中單擊New按鈕àTarget選項卡àApplication圖標(biāo)àOKà在“Application Name”中輸入“exam”；在“Library:”中選擇路徑為：D:/考核，得到圖（3）的形式，再

10、單擊Finish按鈕。 圖（3） 4．在該應(yīng)用中創(chuàng)建一個菜單m_main，其結(jié)構(gòu)如下： 升序 降序 設(shè)備管理系統(tǒng) 系統(tǒng) 編輯 操作 設(shè)備管理 設(shè)備瀏覽 設(shè)備類型 退出 添加 刪除 保存 設(shè)備編輯查詢 設(shè)備類型統(tǒng)計 排序 折舊計算 并為“添加”、“刪除”、“保存”、“設(shè)備編號查詢”、“設(shè)備類型統(tǒng)計”、“退出”分配圖標(biāo)，形成如下所示的工具欄。 解： n 在工具欄中單擊New按鈕àPB Object選項卡à Menu圖標(biāo)àOKà在彈出的菜單設(shè)計區(qū)域設(shè)置菜單項： （1） 設(shè)置主

11、菜單項“系統(tǒng)”“編輯”“操作” ： <1> 在左窗格中右擊“Untitled0”à在彈出的快捷菜單中選擇“Insert Submenu Item”à在編輯框中輸入一級菜單項“系統(tǒng)” <2> 用同樣的方法，設(shè)置其他主菜單項“編輯”、“操作”。 （2） 設(shè)置下拉菜單： A. 設(shè)置主菜單項“系統(tǒng)”下的下拉菜單： <1> 右擊菜單項“系統(tǒng)”à在彈出的快捷菜單中選擇“Insert Submenu Item”à在編輯框中輸入“設(shè)備管理” <2> 用同樣的方法，設(shè)置其他子菜單項“設(shè)備瀏覽”、“設(shè)備類型”、“-”“退出”。[“-”為分隔線的設(shè)置方法] B．用同樣的方法，設(shè)置主菜單項“編輯”、“

12、操作”下的下拉菜單。 （3） 設(shè)置主菜單“操作”的下拉菜單中的菜單項“排序”的子菜單： <1> 右擊“排序”à在彈出的快捷菜單中選擇“Insert Submenu Item” à在編輯框中輸入子菜單項“升序” <2> 用同樣的方法，設(shè)置子菜單項“降序”。 n 為“添加”、“刪除”、“保存”、“設(shè)備編號查詢”、“設(shè)備類型統(tǒng)計”、“退出”分配圖標(biāo)，形成相應(yīng)的工具欄。 <1> 單擊選中“添加”à在右側(cè)的菜單描繪器中選擇TooBar選項卡à設(shè)置ToolbaritemName屬性的屬性值，在右側(cè)的下拉列表框中找到相應(yīng)的圖標(biāo)，即可生成工具欄中一個圖標(biāo)。 <2> 用同樣的方法分別設(shè)置工具欄的

13、其他項。 n 在右側(cè)的菜單描繪器中選擇TooBar選項卡設(shè)置其ToolBarItemSpace和ToolBarItemOrder項來分組，并確定在工具欄中的先后順序。 （3） 單擊菜單File à選擇“Save”à在彈出的對話框中為所建菜單取名為“m_main”àOK。 生成的菜單結(jié)構(gòu)如圖（4）所示： 圖（4） 5．在該應(yīng)用中創(chuàng)建一個MDI主窗口w_main，標(biāo)題為“設(shè)備管理系統(tǒng)”。 解： （1）在工具欄中單擊New按鈕àPB Object選項卡à Window圖標(biāo)àOKà在彈出的窗口設(shè)計區(qū)域右側(cè)的屬性欄中設(shè)置以下幾項屬性（在General選項卡中）： （1） Title：

14、設(shè)備管理系統(tǒng) （2） Window type：mdi! （3） 單擊File菜單àSaveà在彈出的對話框中為所建MDI主窗口取名為“w_main”àOK。 6．建立MDI主窗口w_main與菜單m_main的關(guān)聯(lián)。 解： 在窗口設(shè)計區(qū)域右側(cè)的屬性欄中，在General選項卡中，設(shè)置Menuname屬性à單擊右側(cè)的“…”按鈕à在彈出的對話框中選擇上題中所建菜單“m_main”。 7．請創(chuàng)建一個新窗體w_sb，設(shè)置窗口標(biāo)題為“設(shè)備信息”。 解： 在工具欄中單擊New按鈕àPB Object選項卡à Window圖標(biāo)àOKà在彈出的窗口設(shè)計區(qū)域右側(cè)的屬性欄中設(shè)置新窗體的Title屬

15、性（在General選項卡中）為：設(shè)備信息。 單擊File菜單àSaveà在彈出的對話框中為所建MDI主窗口取名為“w_sb”àOK。 8．向窗口w_sb內(nèi)添加一個數(shù)據(jù)窗口控件dw_1。 解： 單擊工具欄中的StaticText圖標(biāo)右側(cè)向下的黑色三角按鈕à在彈出的面板中選擇“Create DataWindow Control”à在窗體中單擊，可看到添加數(shù)據(jù)窗口控件成功，并且默認(rèn)名字為dw_1à拖動鼠標(biāo)，將數(shù)據(jù)窗口控件調(diào)整為合適大小，保存并退出。 9．創(chuàng)建一個數(shù)據(jù)窗口對象d_sbxx，其顯示風(fēng)格是Grid，數(shù)據(jù)源選取數(shù)據(jù)表sbxx的全部列。 解： (1) 在工具欄中單擊New按鈕

16、àDataWindow選項卡à Grid圖標(biāo)àOK (2) 在選擇數(shù)據(jù)源對話框中選擇Quick Select類型的數(shù)據(jù)源，再按Next按鈕，選擇表sbxx中的所有字段，按Add AllàOKàNextàFinish。即可看到數(shù)據(jù)窗口的模樣。 (3) 退出時，為數(shù)據(jù)窗口對象命名為d_sbxx。 10．將窗口w_sb的數(shù)據(jù)窗口控件dw_1與數(shù)據(jù)窗口對象d_sbxx相關(guān)聯(lián)。 解： 打開窗口w_sbà單擊選中窗口中的數(shù)據(jù)窗口控件dw_1à在右側(cè)的屬性欄中選擇General選項卡à設(shè)置其DataObject屬性：單擊右側(cè)的“…”按鈕à在彈出的對話框中選擇數(shù)據(jù)窗口對象d_sbxxàOK。至此，

17、已將窗口w_sb的數(shù)據(jù)窗口控件dw_1與數(shù)據(jù)窗口對象d_sbxx相關(guān)聯(lián)。 11．編寫代碼，使得單擊菜單“設(shè)備管理”時，以工作表方式（MDI子窗口）打開w_sb。 解： (1) 打開應(yīng)用程序?qū)ο骵xam.pbl，在應(yīng)用程序?qū)ο骵xam.pbl的Open事件中加入如下代碼： SQLCA.DBMS="ODBC" //設(shè)置事務(wù)對象SQLCA屬性 SQLCA.AutoCommit=False //定義程序是手工提交事務(wù) SQLCA.DBParm="Connectstring='DSN=sbgl'" //DBMS所需的

18、額外信息 CONNECT USING SQLCA; //連接數(shù)據(jù)庫 If SQLCA.SQLCode<0 Then //判斷是否連接成功 MessageBox("數(shù)據(jù)庫連接失??！",SQLCA.SQLErrText,StopSign!,OK!) ELSE OPEN(w_main) END IF 所加代碼窗口如圖（5）所示： 圖（5） (2) 在應(yīng)用程序?qū)ο骵xam.pbl的Close事件中加入如下代碼： DISCONNECT USING SQLCA; //斷開與數(shù)據(jù)庫的

19、連接 IF SQLCA.SQLCode<0 Then //判斷斷開是否成功 MessageBox("數(shù)據(jù)庫斷開失?。?,SQLCA.SQLErrText,StopSign!,OK!) End If 所加代碼窗口如圖（6）所示： 圖（6） (3) 打開菜單對象m_main，在“設(shè)備管理”菜單項上單擊畫板工具欄上的Script圖標(biāo)，打開代碼編輯器，為其Clicked事件加入如下代碼： OpenSheet(w_sb,w_main,2,cascaded!) //以工作表的方式打開窗口w_sb 所加代碼如圖（7）所示： 圖（7）

20、 (4) 打開窗口w_sb，在窗口w_sb的Open事件中寫腳本： dw_1.settransobject(sqlca) //給數(shù)據(jù)窗口控件DW_1設(shè)置通訊區(qū)域sqlca dw_1.retrieve() //從數(shù)據(jù)庫的SBXX表中檢索全部數(shù)據(jù) 單擊工具欄上的Run圖標(biāo)運行程序à在彈出的“設(shè)備管理系統(tǒng)”窗口中單擊 “系統(tǒng)”菜單à單擊菜單項“設(shè)備管理”，則以工作表方式打開窗口w_sb。 運行情況如下圖（8）所示： 圖（8） 12．編寫代碼，使得在打開“設(shè)備管理”窗口后，單擊菜單項“添加”、“刪除”和“保存

21、”，在當(dāng)前活動窗體（w_sb）內(nèi)的數(shù)據(jù)窗口dw_1實現(xiàn)數(shù)據(jù)的“添加”、“刪除” 和“保存”功能。 解： (1) 打開菜單對象m_main，在“編輯”主菜單下單擊選中“添加”菜單項，單擊畫板工具欄上的Script圖標(biāo)，打開代碼編輯器，為其Clicked事件加入如下代碼： window actsheet actsheet=w_main.GetActiveSheet() //取得當(dāng)前活動窗口 if isvalid(actsheet) then actsheet.triggerevent("ue_add") //存在活動窗口時,觸發(fā)活動窗口的ue_ad

22、d事件 else //不存在活動窗口時 messagebox("警告","請先打開一個管理窗口!") end if 所加代碼窗口如圖（9）所示： 圖（9） （2）打開菜單對象m_main，在“編輯”主菜單下單擊選中“刪除”菜單項，單擊畫板工具欄上的Script圖標(biāo)，打開代碼編輯器，為其Clicked事件加入如下代碼： window actsheet actsheet=w_main.getactivesheet() //取得當(dāng)前活動窗口 if isvalid(actsheet) then

23、 actsheet.triggerevent("ue_del") //存在活動窗口時,觸發(fā)活動窗口的ue_del事件 else //不存在活動窗口時 messagebox("警告","請先打開一個活動窗口!") end if 所加代碼窗口如圖（10）所示： 圖（10） （3）打開菜單對象m_main，在“編輯”主菜單下單擊選中“保存”菜單項，單擊畫板工具欄上的Script圖標(biāo)，打開代碼編輯器，為其Clicked事件加入如下代碼： window actsheet actsheet=w_mai

24、n.Getactivesheet() //取得當(dāng)前活動窗口 if isvalid(actsheet) then actsheet.triggerevent("ue_save") //觸發(fā)活動窗口的ue_save事件 else //不存在活動窗口時 messagebox("警告","請先打開一個管理窗口!") end if 所加代碼窗口如圖（11）所示： 圖（11） (4) 打開設(shè)備信息窗口w_sb，自定義一個用戶事件ue_add，設(shè)置Event Name為“ue_add”

25、，設(shè)置Event ID為空。打開設(shè)備信息窗口w_sb的代碼編輯器，選擇用戶事件ue_add，加入如下代碼： dw_1.retrieve() //從數(shù)據(jù)庫的SBXX表中檢索全部數(shù)據(jù) long therow therow=dw_1.insertrow(0) //在SBXX表的尾部插入一行 dw_1.scrolltorow(dw_1.rowcount()) //在指定行設(shè)置為當(dāng)前行 dw_1.setfocus()

26、 //將焦點設(shè)置到控件DW_1 所加代碼窗口如圖（12）所示： 圖（12） (5) 打開設(shè)備信息窗口w_sb，自定義一個用戶事件ue_del，設(shè)置Event Name為“ue_del”，設(shè)置Event ID為空。打開設(shè)備信息窗口w_sb的代碼編輯器，選擇用戶事件ue_del，加入如下代碼： integer i i=messagebox("提示信息","確認(rèn)要刪除行?",exclamation!,yesnocancel!) if i=1 then dw_1.deleterow(0)

27、 //刪除當(dāng)前行 end if if dw_1.update()=1 then commit; else rollback; messagebox("錯誤","數(shù)據(jù)庫內(nèi)容刪除失敗") end if dw_1.retrieve() //刷新顯示 所加代碼窗口如圖（13）所示： 圖（13） (6) 打開設(shè)備信息窗口w_sb，自定義一個用戶事件ue_save，設(shè)置Event Name為“ue_save”，設(shè)置Event ID為空。打開設(shè)備信息窗口w_sb的代碼編輯器，

28、選擇用戶事件ue_save，加入如下代碼： if dw_1.update()=1 then //實現(xiàn)保存功能 commit; else rollback; messagebox("錯誤","數(shù)據(jù)庫內(nèi)容更新失敗") end if dw_1.retrieve() //刷新顯示 所加代碼窗口如圖（14）所示： 圖（14） （7）單擊工具欄上的Run圖標(biāo)運行程序à在彈出的“設(shè)備管理系統(tǒng)”窗口中單擊 “系統(tǒng)”菜單à單擊菜單項“設(shè)備管理”à單擊“編輯”菜單中的“添加”à添加一條記錄à單擊“編輯”菜單中的“保存”保存新加記錄。 系統(tǒng)運行情況如下圖（15）所示： 圖（15）添加一條記錄 （8）刪除新加記錄：單擊“編輯”菜單中的“刪除” 系統(tǒng)運行情況如下圖（16）所示： 圖（16） 14