《《應(yīng)用系統(tǒng)開(kāi)發(fā)》PPT課件》由會(huì)員分享，可在線閱讀，更多相關(guān)《《應(yīng)用系統(tǒng)開(kāi)發(fā)》PPT課件（15頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
1、第13講 應(yīng)用系統(tǒng)開(kāi)發(fā),,問(wèn)題,問(wèn)題 如何開(kāi)發(fā)一個(gè)MIS系統(tǒng)？,系統(tǒng)目標(biāo),在Delphi中使用SQL Server 數(shù)據(jù)庫(kù)表,（1）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【New】【Application】建立一個(gè)新的工程。 （2）在【ADO】組件頁(yè)上選擇【ADOConnection】控件ADOConnection1放在表單上。 （3）設(shè)置ADOConnection1的“ConnectionString”屬性。如圖16-1-1所示，在屬性窗口中單擊ConnectionString旁的“”按鈕。 （4）選中“Use Connection String”，單擊“Build”按鈕。出現(xiàn)
2、圖16-1-2所示對(duì)話框。 （5）選中“Microsoft OLE DB Provider for SQL Server”，單擊“下一步”，出現(xiàn)圖16-1-3所示對(duì)話框。,在Delphi中使用SQL Server 數(shù)據(jù)庫(kù)表,（6）我們這里使用的是本地?cái)?shù)據(jù)庫(kù)。在“選擇或輸入服務(wù)器名稱”中輸入“(local)”。 （7）選中“使用指定的用戶名稱和密碼”。 （8）在用戶名稱中輸入“sa”，密碼中輸入相應(yīng)的密碼。 （9）選中“允許保存密碼”。 （10）在“在服務(wù)器上選擇數(shù)據(jù)庫(kù)”下拉列表中選擇數(shù)據(jù)庫(kù)“Xk”。,在Delphi中使用SQL Server 數(shù)據(jù)庫(kù)表,,（11）單擊“測(cè)試連接”，測(cè)試成功后單擊
3、“確定”。 （12）單擊“確定”按鈕，再單擊“OK”按鈕完成數(shù)據(jù)庫(kù)連接的設(shè)置。 （13）設(shè)置ADOConnection1的LoginPrompt”屬性為“False”。 （14）在【ADO】組件頁(yè)上選擇【ADOTable】控件ADOTable1放在表單上。設(shè)置ADOTable1 的“Connection”屬性為“AdoConnection1”，“TableName”屬性為“Student”，“Active”屬性為“True”。 （15）在【Data Access】組件頁(yè)上選擇【DataSource】控件DataSource1放在表單上。設(shè)置DataSource1的DataSet屬性為ADOTa
4、ble1。,在Delphi中使用SQL Server數(shù)據(jù)庫(kù)表,,（16）在【Data Controls】組件頁(yè)上選擇【DBGrid】控件DBGrid1放在表單上。設(shè)置DBGrid1的DataSource屬性為DatsSource1。 （17）在【Stand】組件頁(yè)上選擇【Button】控件Button1放在表單上。設(shè)置Button1的Caption屬性為“使用表”。 （18）雙擊Button1按鈕，在OnClick事件中添加如下代碼。 AdoTable1.Active:=True; （19）在工具欄上單擊“”按鈕存盤。 （20）在工具欄上單擊“”運(yùn)行按鈕，運(yùn)行后單擊“使用表”按鈕，可以看到S
5、tudent表的相關(guān)數(shù)據(jù)。,基于SQL Server的動(dòng)態(tài)WEB開(kāi)發(fā)實(shí)例,,（1）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【Close All】關(guān)閉所有文件。 （2）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【New】【Other】，選擇ActiveX頁(yè)，選中ActiveX Library，如圖16-2-1所示，單擊【OK】建立一個(gè)ActiveX DLL。 （3）單擊“”（Save All），工程名為“PXk”。 （4）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【New】【Other】，選擇ActiveX頁(yè)，選中Active Server Object，如圖16
6、-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對(duì)話框，設(shè)置如下屬性： CoClass Name：ASPObjectXk Threading Model:Netural Instancing:Multiple Instance Active Server Type:Object Context,基于SQL Server的動(dòng)態(tài)WEB開(kāi)發(fā)實(shí)例,,（6）單擊“OK”按鈕 （7）單擊“”（Save All），單元名為“Uxk.pas”，對(duì)象名為“ASPObjectXk”。 （8）通過(guò)菜單命令【View】【Type Library】，出現(xiàn)如圖16-2-4所示對(duì)話框，右擊“IASP
7、ObjectXk”，在彈出菜單中選擇“New”下的“Method”。 （9）設(shè)置Method的名稱，在如圖16-2-5所示對(duì)話框中輸入“ShowCourse”。 (10）單擊“”按鈕。,安裝COM+對(duì)象,,（1）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【Run】【Install Com+ Objects】，出現(xiàn)如圖16-2-6所示對(duì)話框。 （2）選中“AspObjectXk”，選擇Install into new Application選項(xiàng)卡，在Application Name編輯框中輸入“Xk”，如圖16-2-7所示，單擊“OK”按鈕。 （3）單擊“OK”按鈕，出現(xiàn)如圖16-2-8所示對(duì)話框
8、，表示COM+安裝成功。,配置組件提高性能,,（1）在Windows 2000中單擊【開(kāi)始】【程序】【管理工具】【組件服務(wù)】。 （2）在組件服務(wù)對(duì)話框中依次展開(kāi)“組件服務(wù)”、“計(jì)算機(jī)”、“我得電腦”、“COM+ 應(yīng)用程序”、“Xk”、“組件”。 （3）如圖16-2-29所示，單擊“組件”，在詳細(xì)窗格中右擊PXk.AspObjectXk”，在彈出菜單中單擊“屬性”命令。 （4）如圖16-2-10所示，選擇“激活”屬性頁(yè)，選中“啟用對(duì)象共用”，單擊“確定”。,基于SQL Server的動(dòng)態(tài)WEB開(kāi)發(fā)實(shí)例,,（1）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【Close All】關(guān)閉所有文件
9、。 （2）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【New】【Other】，選擇ActiveX頁(yè)，選中ActiveX Library，如圖16-2-1所示，單擊【OK】建立一個(gè)ActiveX DLL。 （3）單擊“”（Save All），工程名為“PXk”。 （4）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【New】【Other】，選擇ActiveX頁(yè)，選中Active Server Object，如圖16-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對(duì)話框，設(shè)置如下屬性： CoClass Name：ASPObjectXk Threading Mod
10、el:Netural Instancing:Multiple Instance Active Server Type:Object Context,基于SQL Server的動(dòng)態(tài)WEB開(kāi)發(fā)實(shí)例,,（1）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【Close All】關(guān)閉所有文件。 （2）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【New】【Other】，選擇ActiveX頁(yè)，選中ActiveX Library，如圖16-2-1所示，單擊【OK】建立一個(gè)ActiveX DLL。 （3）單擊“”（Save All），工程名為“PXk”。 （4）在Delphi集成開(kāi)發(fā)環(huán)境中通
11、過(guò)菜單命令【File】【New】【Other】，選擇ActiveX頁(yè)，選中Active Server Object，如圖16-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對(duì)話框，設(shè)置如下屬性： CoClass Name：ASPObjectXk Threading Model:Netural Instancing:Multiple Instance Active Server Type:Object Context,基于SQL Server的動(dòng)態(tài)WEB開(kāi)發(fā)實(shí)例,,（1）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【Close All】關(guān)閉所有文件。 （2）在De
12、lphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【New】【Other】，選擇ActiveX頁(yè)，選中ActiveX Library，如圖16-2-1所示，單擊【OK】建立一個(gè)ActiveX DLL。 （3）單擊“”（Save All），工程名為“PXk”。 （4）在Delphi集成開(kāi)發(fā)環(huán)境中通過(guò)菜單命令【File】【New】【Other】，選擇ActiveX頁(yè)，選中Active Server Object，如圖16-2-2所示。 （5）單擊“OK”按鈕，出現(xiàn)如圖16-2-3所示對(duì)話框，設(shè)置如下屬性： CoClass Name：ASPObjectXk Threading Model:Netural Instancing:Multiple Instance Active Server Type:Object Context,總結(jié),本章講述了如何在Delphi中使用表、視圖、存儲(chǔ)過(guò)程，以及如何創(chuàng)建ASP對(duì)象，然后在ASP腳本中調(diào)用ASP對(duì)象的方法創(chuàng)建動(dòng)態(tài)網(wǎng)頁(yè)。應(yīng)在理解示例的基礎(chǔ)上在實(shí)際中靈活運(yùn)用。,
《應(yīng)用系統(tǒng)開(kāi)發(fā)》PPT課件
