PAGEPAGE14主考教師：主考教師：《信息系統開發》實驗報告成績：報考專業：計算機信息管理（獨立本科段）準考證號：************考生姓名：******考核地點：河北省************

河北省自考“計算機信息管理（獨立本科段）”專業實驗報告市考核單位（蓋章）成績指導教師姓名：******準考證號：************實驗地點：**********實驗課程：信息系統開發實驗名稱：信息系統的開發（設備管理系統）實驗目的：通過實際建立一個完整的信息系統來加深對信息系統開發理論知識的理解與認識，掌握和解決信息系統規劃、分析、設計、實施、運行與測試等實際問題的能力。實驗設備：軟件環境：中文WindowsXP，PowerBuilder9.0，SQLAnywhere硬件環境：586以上的PC系列機，內存512M，硬盤空閑空間大于1G實驗內容、步驟、圖形與結論（答題不要超過裝訂線，可另附白紙書寫）：實驗內容——為某企業設計一個設備管理系統問題描述：請為某企業設計一個設備管理系統。手式管理用的記錄表有：設備信息表，內容包括：設備編號、設備名稱、設備類型、規格型號、數量、總價值、產地。設備類型表，內容包括：設備類型編號、設備類型。功能需求：①設備信息的瀏覽、添加、刪除、保存操作。②設備類型的瀏覽、添加、刪除、保存操作。③按設備編號進行查詢。④按設備類型進行設備數量統計。⑤對于各種數據進行升序和降序的排序操作。⑥折舊率計算。上機考試要求：1．根據問題描述，設計出設備信息表SBXX和設備類型表SBLX的表結構，并定義它們的主鍵和外鍵。解： 根據設備管理系統問題分析描述，并結合系統所要滿足的功能需求，借助E-R圖等工具設計出設備管理系統的數據庫表結構。 <1>根據設備信息表所給出的信息，設計出設備信息表SBXX，表結構如下所示：表1設備信息表SBXX列標題列名數據類型寬度小數位數是否空值缺省值主/外鍵設備編輯SbbhChar4NoP設備名稱SbmcChar20No類型編號LxbhChar4NoF規格型號GgxhChar20Yes數量SlIntegerYes總價值ZjzNumber102Yes產地CdChar10Yes <2>根據設備類型表所給出的信息，設計出設備類型表SBLX，表結構如下所示：表2設備類型表SBLX列標題列名數據類型寬度小數位數是否空缺省值主/外鍵類型編號LxbhChar4NoP類型名稱LxmcChar20No2．在D盤的考核目錄下創建名為Sbgl的數據庫。在庫中創建設備信息表sbxx和設備類型sblx，并設置其主鍵和外鍵。解：創建名為Sbgl的數據庫：開始程序SybasePowerBuilder9.0PowerBuilder9.0打開主窗口。單擊工具欄的Database按鈕（打開數據庫畫板）打開ODBODBC再打開Utilities雙擊CreateASADatabase，在打開的對話框中的“DatabaseName”編輯框中輸入數據庫名，并通過“…”按鈕輸入數據的全路徑（D:\考核\Sbgl.db），其他可保持默認；最后，單擊“OK”按鈕，系統將成功創建數據庫Sbgl。運行結果如下圖（1）所示：圖（1）在庫中創建設備信息表sbxx和設備類型sblx，并設置其主鍵和外鍵在Sbgl數據庫中建立設備信息表Sbxx：右擊數據庫畫板的table文件夾NewTable出現創建表結構的界面根據表1添加并定義字段Exit(Savechangeto?)是(Y)輸入表名SbxxOK。用同樣的方法，在Sbgl數據庫中建立設備類型表Sblx為數據表指定主鍵：<1>在表Sbxx中設置主鍵Sbbh：選中數據表Sbxx，右擊鼠標并在彈出的快捷菜單中左擊Addtolayout；在打開的畫板中，右擊表結構Sbxx的標題欄并在彈出的快捷菜單中左擊NewPrimaryKey，在彈出的列表框中選擇字段Sbbh作為主鍵。<2>用同樣的方法，為表Sblx指定主鍵lxbh為數據表Sbxx指定外鍵：在表Sbxx的結構中，右擊標題欄并在彈出的快捷菜單中左擊NewForeignKey，在彈出的對話框的General選項卡中，在ForeignKey右側輸入外鍵名Lxbh，并在下方的列表框中選擇字段Lxbh作為外鍵字段。在PrimaryKey選項卡中，在Table右側指定參照的表名為Sblx，保存所做設置。得到的表結構如圖（2）所示：圖（2）3．創建一個名為exam的應用程序對象，其應用程序文件名為exam.pbl。解：(1)先建一個工作空間Sbgl.pbw：在工具欄中單擊New按鈕Workspace選項卡WorkspaceOK選擇路徑D:/考核，并在“文件名”右側輸入文件名Sbgl，然后保存。(2)再建應用程序對象exam.pbl：在工具欄中單擊New按鈕Target選項卡Application圖標OK在“ApplicationName”中輸入“exam”；在“Library:”中選擇路徑為：D:/考核，得到圖（3）的形式，再單擊Finish按鈕。圖（3）4．在該應用中創建一個菜單m_main，其結構如下：升序降序升序降序設備管理系統系統編輯操作系統編輯操作設備管理設備瀏覽設備類型退出添加設備管理設備瀏覽設備類型退出添加刪除保存設備編輯查詢設備類型統計排序折舊計算并為“添加”、“刪除”、“保存”、“設備編號查詢”、“設備類型統計”、“退出”分配圖標，形成如下所示的工具欄。解：在工具欄中單擊New按鈕PBObject選項卡Menu圖標OK在彈出的菜單設計區域設置菜單項：設置主菜單項“系統”“編輯”“操作”：<1>在左窗格中右擊“Untitled0”在彈出的快捷菜單中選擇“InsertSubmenuItem”在編輯框中輸入一級菜單項“系統<2>用同樣的方法，設置其他主菜單項“編輯”、“操作”。設置下拉菜單：設置主菜單項“系統”下的下拉菜單：<1>右擊菜單項“系統”在彈出的快捷菜單中選擇“InsertSubmenuItem”在編輯框中輸入“設備管理”<2>用同樣的方法，設置其他子菜單項“設備瀏覽”、“設備類型”、“-”“退出”。[“-”為分隔線的設置方法] B．用同樣的方法，設置主菜單項“編輯”、“操作”下的下拉菜單。（3）設置主菜單“操作”的下拉菜單中的菜單項“排序”的子菜單： <1>右擊“排序”在彈出的快捷菜單中選擇“InsertSubmenuItem”在編輯框中輸入子菜單項“升序” <2>用同樣的方法，設置子菜單項“降序”。為“添加”、“刪除”、“保存”、“設備編號查詢”、“設備類型統計”、“退出”分配圖標，形成相應的工具欄。<1>單擊選中“添加”在右側的菜單描繪器中選擇TooBar選項卡設置ToolbaritemName屬性的屬性值，在右側的下拉列表框中找到相應的圖標，即可生成工具欄中一個圖標。<2>用同樣的方法分別設置工具欄的其他項。在右側的菜單描繪器中選擇TooBar選項卡設置其ToolBarItemSpace和ToolBarItemOrder項來分組，并確定在工具欄中的先后順序。單擊菜單File選擇“Save”在彈出的對話框中為所建菜單取名為“m_main”OK。生成的菜單結構如圖（4）所示：圖（4）5．在該應用中創建一個MDI主窗口w_main，標題為“設備管理系統”。解：（1）在工具欄中單擊New按鈕PBObject選項卡Window圖標OK在彈出的窗口設計區域右側的屬性欄中設置以下幾項屬性（在General選項卡中）：Title：設備管理系統Windowtype：mdi!單擊File菜單Save在彈出的對話框中為所建MDI主窗口取名為“w_main”OK。6．建立MDI主窗口w_main與菜單m_main的關聯。解：在窗口設計區域右側的屬性欄中，在General選項卡中，設置Menuname屬性單擊右側的“…”按鈕在彈出的對話框中選擇上題中所建菜單“m_main”。7．請創建一個新窗體w_sb，設置窗口標題為“設備信息”。解：在工具欄中單擊New按鈕PBObject選項卡Window圖標OK在彈出的窗口設計區域右側的屬性欄中設置新窗體的Title屬性（在General選項卡中）為：設備信息。單擊File菜單Save在彈出的對話框中為所建MDI主窗口取名為“w_sb”OK。8．向窗口w_sb內添加一個數據窗口控件dw_1。解： 單擊工具欄中的StaticText圖標右側向下的黑色三角按鈕在彈出的面板中選擇“CreateDataWindowControl”在窗體中單擊，可看到添加數據窗口控件成功，并且默認名字為dw_1拖動鼠標，將數據窗口控件調整為合適大小，保存并退出。9．創建一個數據窗口對象d_sbxx，其顯示風格是Grid，數據源選取數據表sbxx的全部列。解：在工具欄中單擊New按鈕DataWindow選項卡Grid圖標OK在選擇數據源對話框中選擇QuickSelect類型的數據源，再按Next按鈕，選擇表sbxx中的所有字段，按AddAllOKNextFinish。即可看到數據窗口的模樣。退出時，為數據窗口對象命名為d_sbxx。10．將窗口w_sb的數據窗口控件dw_1與數據窗口對象d_sbxx相關聯。解： 打開窗口w_sb單擊選中窗口中的數據窗口控件dw_1在右側的屬性欄中選擇General選項卡設置其DataObject屬性：單擊右側的“…”按鈕在彈出的對話框中選擇數據窗口對象d_sbxxOK。至此，已將窗口w_sb的數據窗口控件dw_1與數據窗口對象d_sbxx相關聯。11．編寫代碼，使得單擊菜單“設備管理”時，以工作表方式（MDI子窗口）打開w_sb。解：(1)打開應用程序對象exam.pbl，在應用程序對象exam.pbl的Open事件中加入如下代碼： SQLCA.DBMS="ODBC"http://設置事務對象SQLCA屬性 SQLCA.AutoCommit=False//定義程序是手工提交事務 SQLCA.DBParm="Connectstring='DSN=sbgl'"http://DBMS所需的額外信息 CONNECTUSINGSQLCA; //連接數據庫 IfSQLCA.SQLCode<0Then //判斷是否連接成功 MessageBox("數據庫連接失?。?,SQLCA.SQLErrText,StopSign!,OK!) ELSE OPEN(w_main) ENDIF所加代碼窗口如圖（5）所示：圖（5）(2)在應用程序對象exam.pbl的Close事件中加入如下代碼： DISCONNECTUSINGSQLCA; //斷開與數據庫的連接 IFSQLCA.SQLCode<0Then //判斷斷開是否成功 MessageBox("數據庫斷開失?。?,SQLCA.SQLErrText,StopSign!,OK!) EndIf所加代碼窗口如圖（6）所示：圖（6）(3)打開菜單對象m_main，在“設備管理”菜單項上單擊畫板工具欄上的Script圖標，打開代碼編輯器，為其Clicked事件加入如下代碼：OpenSheet(w_sb,w_main,2,cascaded!)//以工作表的方式打開窗口w_sb所加代碼如圖（7）所示：圖（7）打開窗口w_sb，在窗口w_sb的Open事件中寫腳本：dw_1.settransobject(sqlca)//給數據窗口控件DW_1設置通訊區域sqlcadw_1.retrieve()//從數據庫的SBXX表中檢索全部數據單擊工具欄上的Run圖標運行程序在彈出的“設備管理系統”窗口中單擊“系統”菜單單擊菜單項“設備管理”，則以工作表方式打開窗口w_sb。運行情況如下圖（8）所示：圖（8）12．編寫代碼，使得在打開“設備管理”窗口后，單擊菜單項“添加”、“刪除”和“保存”，在當前活動窗體（w_sb）內的數據窗口dw_1實現數據的“添加”、“刪除”和“保存”功能。解：(1)打開菜單對象m_main，在“編輯”主菜單下單擊選中“添加”菜單項，單擊畫板工具欄上的Script圖標，打開代碼編輯器，為其Clicked事件加入如下代碼：windowactsheetactsheet=w_main.GetActiveSheet()//取得當前活動窗口ifisvalid(actsheet)then actsheet.triggerevent("ue_add")//存在活動窗口時,觸發活動窗口的ue_add事件else//不存在活動窗口時 messagebox("警告","請先打開一個管理窗口!")endif所加代碼窗口如圖（9）所示：圖（9）（2）打開菜單對象m_main，在“編輯”主菜單下單擊選中“刪除”菜單項，單擊畫板工具欄上的Script圖標，打開代碼編輯器，為其Clicked事件加入如下代碼：windowactsheetactsheet=w_main.getactivesheet()//取得當前活動窗口ifisvalid(actsheet)then actsheet.triggerevent("ue_del")//存在活動窗口時,觸發活動窗口的ue_del事件else//不存在活動窗口時 messagebox("警告","請先打開一個活動窗口!")endif所加代碼窗口如圖（10）所示：圖（10）（3）打開菜單對象m_main，在“編輯”主菜單下單擊選中“保存”菜單項，單擊畫板工具欄上的Script圖標，打開代碼編輯器，為其Clicked事件加入如下代碼：windowactsheetactsheet=w_main.Getactivesheet()//取得當前活動窗口ifisvalid(actsheet)then actsheet.triggerevent("ue_save")//觸發活動窗口的ue_save事件else//不存在活動窗口時 messagebox("警告","請先打開一個管理窗口!")endif所加代碼窗口如圖（11）所示：圖（11） (4)打開設備信息窗口w_sb，自定義一個用戶事件ue_add，設置EventName為“ue_add”，設置EventID為空。打開設備信息窗口w_sb的代碼編輯器，選擇用戶事件ue_add，加入如下代碼：dw_1.retrieve()//從數據庫的SBXX表中檢索全部數據longtherowtherow=dw_1.insertrow(0)//在SBXX表的尾部插入一行dw_1.scrolltorow(dw_1.rowcount())//在指定行設置為當前行dw_1.setfocus()//將焦點設置到控件DW_1所加代碼窗口如圖（12）所示：圖（12） (5)打開設備信息窗口w_sb，自定義一個用戶事件ue_del，設置EventName為“ue_del”，設置EventID為空。打開設備信息窗口w_sb的代碼編輯器，選擇用戶事件ue_del，加入如下代碼：integerii=messagebox("提示信息","確認要刪除行?",ex