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

第13講 應(yīng)用系統(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）設(shè)置ADOConnection1的“ConnectionString”屬性。如圖16-1-1所示，在屬性窗口中單擊ConnectionString旁的“”按鈕。 （4）選中“Use Connection String”，單擊“Build”按鈕。出現(xiàn)圖16-1-2所示對話框。 （5）選中“Microsoft OLE DB Provider for SQL Server”，單擊“下一步”，出現(xiàn)圖16-1-3所示對話框。,在Delphi中使用SQL Server 數(shù)據(jù)庫表,（6）我們這里使用的是本地數(shù)據(jù)庫。在“選擇或輸入服務(wù)器名稱”中輸入“(local)”。 （7）選中“使用指定的用戶名稱和密碼”。 （8）在用戶名稱中輸入“sa”，密碼中輸入相應(yīng)的密碼。 （9）選中“允許保存密碼”。 （10）在“在服務(wù)器上選擇數(shù)據(jù)庫”下拉列表中選擇數(shù)據(jù)庫“Xk”。,在Delphi中使用SQL Server 數(shù)據(jù)庫表,（11）單擊“測試連接”，測試成功后單擊“確定”。 （12）單擊“確定”按鈕，再單擊“OK”按鈕完成數(shù)據(jù)庫連接的設(shè)置。 （13）設(shè)置ADOConnection1的LoginPrompt”屬性為“False”。 （14）在【ADO】組件頁上選擇【ADOTable】控件ADOTable1放在表單上。設(shè)置ADOTable1 的“Connection”屬性為“AdoConnection1”，“TableName”屬性為“Student”，“Active”屬性為“True”。 （15）在【Data Access】組件頁上選擇【DataSource】控件DataSource1放在表單上。設(shè)置DataSource1的DataSet屬性為ADOTable1。,在Delphi中使用SQL Server數(shù)據(jù)庫表,（16）在【Data Controls】組件頁上選擇【DBGrid】控件DBGrid1放在表單上。設(shè)置DBGrid1的DataSource屬性為DatsSource1。 （17）在【Stand】組件頁上選擇【Button】控件Button1放在表單上。設(shè)置Button1的Caption屬性為“使用表”。 （18）雙擊Button1按鈕，在OnClick事件中添加如下代碼。 AdoTable1.Active:=True; （19）在工具欄上單擊“”按鈕存盤。 （20）在工具欄上單擊“”運行按鈕，運行后單擊“使用表”按鈕，可以看到Student表的相關(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-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對話框，設(shè)置如下屬性： 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所示對話框，右擊“IASPObjectXk”，在彈出菜單中選擇“New”下的“Method”。 （9）設(shè)置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所示對話框，表示COM+安裝成功。,配置組件提高性能,（1）在Windows 2000中單擊【開始】【程序】【管理工具】【組件服務(wù)】。 （2）在組件服務(wù)對話框中依次展開“組件服務(wù)”、“計算機”、“我得電腦”、“COM+ 應(yīng)用程序”、“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)閉所有文件。 （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所示對話框，設(shè)置如下屬性： 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）在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所示對話框，設(shè)置如下屬性： 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）在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所示對話框，設(shè)置如下屬性： CoClass Name：A