第11章VB/SQLServer開發(fā)與編程11.1數(shù)據(jù)庫管理器11.1數(shù)據(jù)庫管理器1.創(chuàng)建ODBC數(shù)據(jù)源方法如下：第1步在“控制面板”的“管理工具”中選擇“ODBC數(shù)據(jù)源”圖標(biāo)雙擊，出現(xiàn)如圖11.1所示的界面，在圖11.1的界面中選擇“添加”按鈕，進(jìn)入如圖11.2所示的界面；11.1數(shù)據(jù)庫管理器第2步在圖11.2的界面中，選擇安裝的驅(qū)動(dòng)程序?yàn)椤癝QLServer”，單擊“完成”按鈕，出現(xiàn)如圖11.3所示的界面；11.1數(shù)據(jù)庫管理器第3步在圖11.3中，選擇“下一步”，出現(xiàn)如圖11.4所示的界面；11.1數(shù)據(jù)庫管理器第4步在圖11.4所示的界面中，選擇SQLServer服務(wù)器登錄認(rèn)證方式，在此選擇為SQLServer認(rèn)證方式，并輸入用戶登錄賬號(hào)和密碼，本例中以系統(tǒng)管理員身份sa登錄；執(zhí)行“下一步”，出現(xiàn)如圖11.5所示的界面；11.1數(shù)據(jù)庫管理器2.連接SQLServer數(shù)據(jù)庫創(chuàng)建ODBC數(shù)據(jù)源后，即可通過VB6.0提供的數(shù)據(jù)庫管理器，連接SQLServer數(shù)據(jù)庫，使用步驟如下：第1步在VB界面中，執(zhí)行“外接程序”菜單中的“可視化數(shù)據(jù)管理器”命令；第2步在“文件”菜單中執(zhí)行“新建”可新建數(shù)據(jù)庫，執(zhí)行“打開”可打開指定的數(shù)據(jù)庫，在此，執(zhí)行以“ODBC”方式打開XSCJ數(shù)據(jù)庫，執(zhí)行結(jié)果如圖11.6所示。11.2數(shù)據(jù)環(huán)境設(shè)計(jì)器1．給工程添加數(shù)據(jù)環(huán)境設(shè)計(jì)器在VB界面的工程菜單中選擇“添加DataEnvironment”菜單項(xiàng)，出現(xiàn)如圖11.7所示的界面，在屬性窗口可修改缺省的數(shù)據(jù)環(huán)境對(duì)象名；11.2數(shù)據(jù)環(huán)境設(shè)計(jì)器2．通過OLE建立與數(shù)據(jù)庫的連接在圖11.7的Connection對(duì)象圖標(biāo)上右擊，出現(xiàn)一快捷菜單，選擇“屬性”菜單項(xiàng)，出現(xiàn)如圖11.8所示的界面。11.2數(shù)據(jù)環(huán)境設(shè)計(jì)器在圖11.8中，對(duì)于“提供者”選項(xiàng)卡，選擇“MicrosoftOLEDBProviderforSQLServer”；對(duì)于“連接”選項(xiàng)卡，設(shè)置各項(xiàng)連接屬性，如圖11.9所示。11.2數(shù)據(jù)環(huán)境設(shè)計(jì)器3．定義命令對(duì)象定義方法如下：（1）在數(shù)據(jù)庫環(huán)境設(shè)計(jì)器界面中單擊“Command”圖標(biāo)，如圖11.10所示，在屬性窗口可更改默認(rèn)的Command對(duì)象名，在此對(duì)象名為Command1；11.2數(shù)據(jù)環(huán)境設(shè)計(jì)器（2）右擊創(chuàng)建的Command對(duì)象，出現(xiàn)一快捷菜單，單擊菜單項(xiàng)“屬性”，進(jìn)入如圖11.11所示的屬性設(shè)置界面。11.2數(shù)據(jù)環(huán)境設(shè)計(jì)器4．創(chuàng)建用戶界面使用數(shù)據(jù)環(huán)境的Command對(duì)象創(chuàng)建一用戶界面非常簡單，如下例子用于說明這一應(yīng)用過程。11.2數(shù)據(jù)環(huán)境設(shè)計(jì)器【例11.1】設(shè)計(jì)一界面用于對(duì)XSCJ數(shù)據(jù)庫中XS表的數(shù)據(jù)進(jìn)行查詢。為了創(chuàng)建Command1對(duì)象的用戶界面，將Command1對(duì)象中的各字段拖放到窗體Form1中，并添加兩個(gè)按鈕，如圖11.13所示；11.2數(shù)據(jù)環(huán)境設(shè)計(jì)器為了實(shí)現(xiàn)對(duì)表XS的查詢，對(duì)按鈕“command1”的Click事件添加如下代碼：PrivateSubCommand1_Click()WithDataEnvironment1.rsCommand1.MoveNext //訪問下一記錄If.EOFThen.MoveFirst //訪問第一條記錄EndIfEndWithEndSub對(duì)按鈕“command2”的Click事件添加如下代碼：PrivateSubCommand2_Click()WithDataEnvironment1.rsCommand1.MovePrevious //訪問上一記錄If.B