《應用系統(tǒng)開發(fā)》PPT課件

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

1、第13講 應用系統(tǒng)開發(fā),,問題,問題 如何開發(fā)一個MIS系統(tǒng)？,系統(tǒng)目標,在Delphi中使用SQL Server 數(shù)據(jù)庫表,（1）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【New】【Application】建立一個新的工程。 （2）在【ADO】組件頁上選擇【ADOConnection】控件ADOConnection1放在表單上。 （3）設置ADOConnection1的“ConnectionString”屬性。如圖16-1-1所示，在屬性窗口中單擊ConnectionString旁的“”按鈕。 （4）選中“Use Connection String”，單擊“Build”按鈕。出現(xiàn)

2、圖16-1-2所示對話框。 （5）選中“Microsoft OLE DB Provider for SQL Server”，單擊“下一步”，出現(xiàn)圖16-1-3所示對話框。,在Delphi中使用SQL Server 數(shù)據(jù)庫表,（6）我們這里使用的是本地數(shù)據(jù)庫。在“選擇或輸入服務器名稱”中輸入“(local)”。 （7）選中“使用指定的用戶名稱和密碼”。 （8）在用戶名稱中輸入“sa”，密碼中輸入相應的密碼。 （9）選中“允許保存密碼”。 （10）在“在服務器上選擇數(shù)據(jù)庫”下拉列表中選擇數(shù)據(jù)庫“Xk”。,在Delphi中使用SQL Server 數(shù)據(jù)庫表,,（11）單擊“測試連接”，測試成功后單擊

3、“確定”。 （12）單擊“確定”按鈕，再單擊“OK”按鈕完成數(shù)據(jù)庫連接的設置。 （13）設置ADOConnection1的LoginPrompt”屬性為“False”。 （14）在【ADO】組件頁上選擇【ADOTable】控件ADOTable1放在表單上。設置ADOTable1 的“Connection”屬性為“AdoConnection1”，“TableName”屬性為“Student”，“Active”屬性為“True”。 （15）在【Data Access】組件頁上選擇【DataSource】控件DataSource1放在表單上。設置DataSource1的DataSet屬性為ADOTa

4、ble1。,在Delphi中使用SQL Server數(shù)據(jù)庫表,,（16）在【Data Controls】組件頁上選擇【DBGrid】控件DBGrid1放在表單上。設置DBGrid1的DataSource屬性為DatsSource1。 （17）在【Stand】組件頁上選擇【Button】控件Button1放在表單上。設置Button1的Caption屬性為“使用表”。 （18）雙擊Button1按鈕，在OnClick事件中添加如下代碼。 AdoTable1.Active:=True; （19）在工具欄上單擊“”按鈕存盤。 （20）在工具欄上單擊“”運行按鈕，運行后單擊“使用表”按鈕，可以看到S

5、tudent表的相關(guān)數(shù)據(jù)。,基于SQL Server的動態(tài)WEB開發(fā)實例,,（1）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【Close All】關(guān)閉所有文件。 （2）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【New】【Other】，選擇ActiveX頁，選中ActiveX Library，如圖16-2-1所示，單擊【OK】建立一個ActiveX DLL。 （3）單擊“”（Save All），工程名為“PXk”。 （4）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【New】【Other】，選擇ActiveX頁，選中Active Server Object，如圖16

6、-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對話框，設置如下屬性： CoClass Name：ASPObjectXk Threading Model:Netural Instancing:Multiple Instance Active Server Type:Object Context,基于SQL Server的動態(tài)WEB開發(fā)實例,,（6）單擊“OK”按鈕 （7）單擊“”（Save All），單元名為“Uxk.pas”，對象名為“ASPObjectXk”。 （8）通過菜單命令【View】【Type Library】，出現(xiàn)如圖16-2-4所示對話框，右擊“IASP

7、ObjectXk”，在彈出菜單中選擇“New”下的“Method”。 （9）設置Method的名稱，在如圖16-2-5所示對話框中輸入“ShowCourse”。 (10）單擊“”按鈕。,安裝COM+對象,,（1）在Delphi集成開發(fā)環(huán)境中通過菜單命令【Run】【Install Com+ Objects】，出現(xiàn)如圖16-2-6所示對話框。 （2）選中“AspObjectXk”，選擇Install into new Application選項卡，在Application Name編輯框中輸入“Xk”，如圖16-2-7所示，單擊“OK”按鈕。 （3）單擊“OK”按鈕，出現(xiàn)如圖16-2-8所示對話框

8、，表示COM+安裝成功。,配置組件提高性能,,（1）在Windows 2000中單擊【開始】【程序】【管理工具】【組件服務】。 （2）在組件服務對話框中依次展開“組件服務”、“計算機”、“我得電腦”、“COM+ 應用程序”、“Xk”、“組件”。 （3）如圖16-2-29所示，單擊“組件”，在詳細窗格中右擊PXk.AspObjectXk”，在彈出菜單中單擊“屬性”命令。 （4）如圖16-2-10所示，選擇“激活”屬性頁，選中“啟用對象共用”，單擊“確定”。,基于SQL Server的動態(tài)WEB開發(fā)實例,,（1）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【Close All】關(guān)閉所有文件

9、。 （2）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【New】【Other】，選擇ActiveX頁，選中ActiveX Library，如圖16-2-1所示，單擊【OK】建立一個ActiveX DLL。 （3）單擊“”（Save All），工程名為“PXk”。 （4）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【New】【Other】，選擇ActiveX頁，選中Active Server Object，如圖16-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對話框，設置如下屬性： CoClass Name：ASPObjectXk Threading Mod

10、el:Netural Instancing:Multiple Instance Active Server Type:Object Context,基于SQL Server的動態(tài)WEB開發(fā)實例,,（1）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【Close All】關(guān)閉所有文件。 （2）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【New】【Other】，選擇ActiveX頁，選中ActiveX Library，如圖16-2-1所示，單擊【OK】建立一個ActiveX DLL。 （3）單擊“”（Save All），工程名為“PXk”。 （4）在Delphi集成開發(fā)環(huán)境中通

11、過菜單命令【File】【New】【Other】，選擇ActiveX頁，選中Active Server Object，如圖16-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對話框，設置如下屬性： CoClass Name：ASPObjectXk Threading Model:Netural Instancing:Multiple Instance Active Server Type:Object Context,基于SQL Server的動態(tài)WEB開發(fā)實例,,（1）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【Close All】關(guān)閉所有文件。 （2）在De

12、lphi集成開發(fā)環(huán)境中通過菜單命令【File】【New】【Other】，選擇ActiveX頁，選中ActiveX Library，如圖16-2-1所示，單擊【OK】建立一個ActiveX DLL。 （3）單擊“”（Save All），工程名為“PXk”。 （4）在Delphi集成開發(fā)環(huán)境中通過菜單命令【File】【New】【Other】，選擇ActiveX頁，選中Active Server Object，如圖16-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對話框，設置如下屬性： CoClass Name：ASPObjectXk Threading Model:Netural Instancing:Multiple Instance Active Server Type:Object Context,總結(jié),本章講述了如何在Delphi中使用表、視圖、存儲過程，以及如何創(chuàng)建ASP對象，然后在ASP腳本中調(diào)用ASP對象的方法創(chuàng)建動態(tài)網(wǎng)頁。應在理解示例的基礎上在實際中靈活運用。,