組件對象開發Web應用的實例分析

2019-11-18 22:44:03

字體：大中小

來源：轉載

供稿：網友

（轉載計算機世界）
夏長虹童亮陳文博
一．應用實例的分析與開發

---- 我們以學籍管理系統為背景，基于Windows DNA的思想，開發了一套應用系統。在該系統中，有關教務學籍的事務邏輯都是由定制COM組件來處理的，動態Web頁面通過asp腳本調用這些組件。系統在開發速度和軟件質量等方面都優于不用COM組件而僅用ASP腳本的方案。為說明問題，我們通過一個定制組件和ASP腳本的主要代碼簡單介紹局部功能的實現過程。

---- 在displayscore.asp頁面中接受、辨別用戶的查詢請求，做出不同的查詢處理。當客戶的身份為教師或教務時，可以查詢所有學生的成績；當客戶的身份為學生時，只能查詢該生本人的成績。

---- 定制COM組件Score.dll進行查詢處理。首先設計該組件的接口，為組件設置四個屬性： Subj（課程）、Term（課程所屬學期）、Class（查詢的班級）和Stu_No（查詢學生的學號）；定義兩個方法：RequeryScores和RequeryAllScores，分別對教師、教務部門和學生的請求做出相應的處理，并將查詢結果集返回給用戶。

---- 以下是實現該組件Score.dll的部分關鍵代碼。從中我們可以看到組件的接口是如何實現的：

Option Explicit
PRivate m_StuNo As Variant
Private m_Subj As String
Private m_Term As String
Private m_Class As String
  ' 設置屬性為可寫入的
Public Property Let StuNo(ByVal vNewValue As Variant)
m_StuNo = vNewValue
End Property
Public Property Let Subj(ByVal vNewValue As Variant)
m_Subj = vNewValue
End Property
......
' 學生查詢成績請求處理
Public Function RequeryScores() As Object
Dim objContext As MTxAS.ObjectContext
Set objContext = GetObjectContext()
             ' 建立事務性組件
Dim ObjConn As ADODB.Connection
            ' 利用ADO訪問數據庫
Dim ObjRecordset As ADODB.Recordset
Set ObjConn = New ADODB.Connection
ObjConn.Open "xia", "sa", ""
Set ObjRecordset = New ADODB.Recordset
Dim query As String
' 根據查詢要求（查詢所有課程、查詢特定學期的所有課程、
  查詢指定課程、查詢特定學期的某一課程）進行不同的查詢操作
If (m_Subj = "all" And m_Term <> "all") Then
  query="select   Client_Name,Client.Client_No,Courses.subject,
         stu_score.score,stu_score.term,sub_type"
  query = query & " from client,stu_score,courses"
  query=query&"where client.client_no=stu_score.client_no
  and stu_score.subject=courses.subject
  and courses.term=stu_score.term
  and courses.term='" & m_Term & "'
  and Client.Client_no='" & m_StuNo & "'"
End If
......
ObjRecordset.Open query, ObjConn
         ' 進行數據庫查詢
ObjContext.SetComplte
             ' 若事務成功完成，則提交該事務
RequeryScoresExit:
Set RequeryScores = ObjRecordset
          ' 返回查詢結果集
Exit Function
RequeryScoresErr:
Set RequeryScores=Nothing
           ' 事務失敗處理
End Function
' 教師、教務查詢成績請求處理
Public Function RequeryAllScores() As Object
......
End Function
---- 在ASP頁面displayscore.asp中引用組件，ASP代碼如下（其中加粗的部分便是對該組件的調用）：
< %@ LANGUAGE="VBSCRipT" % >
< HTML >
< HEAD >
< META NAME="GENERATOR" Content="Microsoft
Visual InterDev 1.0" >
< META HTTP-EQUIV="Content-Type"
content="text/html; charset=gb_2312-80" >
< TITLE >Show To Teacher< /TITLE >
< /HEAD >
< BODY background="images/bk.GIF" >
< %
  dim objResult
  set objResult=Server.CreateObject("Display.Score")
  dim Term,Subject
  Term=Cstr(Request.Form("Term"))
  Subject=Cstr(Request.Form("Subject"))
  objResult.term=Request.Form("term")
  objResult.Subj=RequestForm("Subject")
  objresult.class=Request.Form("Class")
  dim Scores
  set Scores=objResult.RequeryAllScores
  % >
' 以下代碼為顯示處理的結果
< div align="center" >< center >
......
< table border="0" cellpadding="0"
cellspacing="1" width="100" >< tr >
< %For I = 0 To Scores.Fields.Count - 1% >
< td bgcolor="#004080" >
< strong >< font color="#FFFFFF" > < small >  
< %=scores(I).Name% >< /font > < /strong > < /td >
< %NEXT
  Do While (Not Scores.EOF)% >
   < /tr >< tr >
     < % For I = 0 To Scores.Fields.Count - 1% >
        < td bgcolor="#ACE8F9" >< p align="center" >
          < %= Scores(I).Value% >< /td >
        < %Next
        Scores.MoveNext% >< /tr >
  < %Loop% >
< %Scores.close
       ' 關閉數據庫連接
set Scores=Nothing
set objResult=Nothing % >
      ' 釋放對象
< /table >< /center >< /div >
< /BODY >
< /HTML >
---- 可以想象，如果僅使用ASP腳本進行業務處理就會使ASP頁面中代碼十分臃腫、晦澀。而使用組件的方案也較單純的ASP腳本執行速度速度快。并且可以將整個查詢處理作為一個事務，保證數據庫信息的安全、完整。將該組件在MTS中注冊，又可避免多用戶訪問該主頁時可能造成的網絡擁塞。實際應用中，學生和教師的使用權限是不同的。在學生查詢成績的頁面中，可重用該組件，只是調用其不同的接口而已。僅使用ASP腳本進行業務處理，則需重新編寫與displayscore.asp類似的、同樣煩瑣的代碼。在開發過程中，不同的開發人員可各盡所能，同時進行組件和ASP頁面的設計，縮短了軟件開發周期。
---- 以下兩圖顯示的是教師（教務）查詢成績和顯示查詢結果的頁面：

二．開發過程中輔助工具的使用

---- 傳統的軟件工程進行的需求分析、數據庫設計等都是人們“純手工”完成的，缺乏嚴謹性和規范性。而在以組件為中心的系統分析和軟件開發過程中，應力爭使用有效的計算機輔助工具，以適應快速建模和組件方法新形勢的需要，提高分析的質量及精度。

---- 有很多輔助工具可以利用。由于以組件為中心的系統分析過程仍保留著傳統軟件工程方法的脈絡痕跡，北大青鳥的CASE工具對傳統的軟件工程方法比較有效，我們采用了這一工具。在數據庫建模方面，我們選用了SYBASE 公司的S-Designer，可將數據庫概念模型自動轉化為物理模型。

---- 1．利用青鳥CASE工具編寫需求分析文檔

---- 長久以來，人們已習慣于“純手工”地進行需求分析。開發人員對現有系統和用戶要求進行調查后，需要設計系統的數據流圖（DFD圖），編寫小說明，設計系統的結構圖（SC圖）。但這種分析方法是不嚴謹的，由于種種原因，可能會發生加工、數據流、文件的語法定義錯誤；數據流圖上下各層不一致；數據流圖分解后的數據不平衡，或文件等重名及文檔不完備等各種問題，影響了我們對用戶需求的分析和理解，防礙了今后的工作。尤其是對組件的分析失當，后果不堪設想。

---- 青鳥CASE工具提供的即是一套支持軟件工程中采用傳統的結構化方法進行需求分析、軟件設計的工具。由工具生成的每個文件即一個項目，每個項目均包括數據流圖和模塊結構圖兩部分：

數據流圖部分輔助系統分析員完成對軟件系統的需求分析、建立目標系統的需求模型、生成一份正確、完整的關于目標系統的說明文檔；同時，提供對需求文檔的查詢、列表、分片、影響范圍等分析功能，輔助軟件設計人員對需求分析的結果文檔進行深入、細致的分析和理解，以利于軟件設計工作。

模塊結構圖部分輔助程序設計人員在需求分析階段完成后對軟件系統進行設計，支持模塊的逐層細化，建立系統的軟件體系結構，最后得到一份正確、完整的軟件設計文檔。同時，提供對設計文檔進行查詢、列表、分片、影響范圍等分析功能，完成對設計的結果文檔進行深入、細致的分析理解，以利于軟件開發及維護工作。在SC圖中組件的規劃方案已見端倪，繼續細化將得出每個組件的概要設計方案。
---- 在教務系統的實例中，利用青鳥CASE工具生成的DFD圖和SC圖如下圖所示：
---- 系統1層DFD圖系統0層SC圖

---- 2．利用S-Designer進行數據庫設計

---- 當完成系統的詳細設計后，接下來便是數據庫設計。數據庫設計在整個軟件工程中占有舉足輕重的地位。數據庫設計不合理，數據得不到合理、有效的存儲，數據存在潛在的不一致性、不完整性或有大量冗余，都會降低系統性能，甚至使系統崩潰。

---- 手工的數據庫設計完全依賴于設計者的設計水平。設計者首先必須根據實際需要建立若干個邏輯上存在的數據庫表，并使其滿足第三范式；而后根據它們之間的聯系建立特定數據庫表將其聯系起來。這是一件相當煩瑣的事。數據庫設計者既要進行數據庫的邏輯設計，又要將邏輯模型轉成物理模型，而且設計出的數據庫不一定能滿足第三范式。合理的庫表結構決定了訪庫組件接口的設計質量，所以原先數據庫設計方式不適用于以組件對象為中心的軟工設計。

---- 在教務系統的實例中，S-Designer使數據庫設計變得輕松、簡單起來。設計者只須根據現實需要，設計出數據庫的E-R圖，S-Designer會將邏輯模型轉化為物理模型，為數據庫表間的聯系建立新表，指明表的主碼、外碼，并自動對數據庫表進行一致性、冗余性、完整性檢查，使數據庫表滿足第三范式。

---- 例：可首先設計出數據庫表課程（Courses）和學生（Client）的邏輯模型：

---- 接下來，為表Courses和Client間建立聯系。由S-Designer自動生成的物理模型，如下圖所示，它們為訪庫組件的接口設計提供了準確的依據。

---- 可以相信，隨著軟件工程學的進一步成熟，將出現更多的計算機輔助工具，幫助軟件開發人員構建出更完善的應用系統。許多輔助軟件工具可以完成相似的工作，到底選用何種輔助工具取決于這些工具的性能以及使用者的習慣。

---- 以組件對象為中心的動態Web方法和DNA思想并不高深莫測，開發技術也愈加規范化。應當說，這套方法更適合客觀信息結構的現實，也更接近于人們的思維方式，其技術有如行云流水般自然，很適合在中小型企業環境中推廣和普及。

上一篇：如何實現動態添加Html文檔中Form項

下一篇：優化MICROSOFT ACCESS提高速度