【正文】 分布的能力、完備的安全性管理、大容量的數(shù)據(jù)庫(kù)存取等，微軟公司推出的SQL Server系列網(wǎng)絡(luò)數(shù)據(jù)庫(kù)已經(jīng)廣泛應(yīng)用于各行各業(yè)，其中的SQL Server 2000作為微軟公司的“.NET”戰(zhàn)略中為企業(yè)開(kāi)發(fā)的數(shù)據(jù)庫(kù)產(chǎn)品，主要用于構(gòu)建電子商務(wù)和數(shù)據(jù)倉(cāng)庫(kù)的數(shù)據(jù)庫(kù)服務(wù)器。因?yàn)槠鋵?duì)硬件要求比較高，所以不是很常見(jiàn)，不是很實(shí)用。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 課題的軟件選用 前臺(tái)開(kāi)發(fā)工具的選用Visual Basic 屬于第四代編程語(yǔ)言，是發(fā)展最快、學(xué)習(xí)最容易、功能最強(qiáng)大的語(yǔ)言之一，以其開(kāi)發(fā)速度快、使用簡(jiǎn)單而被廣泛使用。 易學(xué)易懂的集成開(kāi)發(fā)環(huán)境216。 應(yīng)用程序向?qū)?16。216。 靈活的和可擴(kuò)展的數(shù)據(jù)轉(zhuǎn)換216。 支持XML（擴(kuò)展標(biāo)記語(yǔ)言）、支持用戶自定義函數(shù)、支持OLE DB、分布式的分區(qū)視圖等特性由于SQL Server 2000具有上述特點(diǎn)，因此在做本系統(tǒng)應(yīng)用時(shí)可以選擇其作為后臺(tái)的數(shù)據(jù)庫(kù)。l 乘務(wù)員檔案 錄入：用于添加、修改、刪除乘務(wù)員檔案信息。其中：l 車(chē)輛臨修 添加：用于添加、修改、刪除車(chē)輛臨修信息。駕駛員管理中包括違章、事故和乘務(wù)員獎(jiǎng)懲的信息。乘務(wù)員事故和乘務(wù)員獎(jiǎng)懲的內(nèi)容均與乘務(wù)員違章內(nèi)容相符。l 數(shù)據(jù)恢復(fù)和數(shù)據(jù)備份：是怕數(shù)據(jù)感染病毒或是誤操作而造成數(shù)據(jù)丟失，而做 的一個(gè)系統(tǒng)不可缺少的一部分。最常用的表示概念的數(shù)學(xué)模型的方法是實(shí)體——聯(lián)系方法（Entity Relationship Approach）。其轉(zhuǎn)換規(guī)則為：首先每個(gè)實(shí)體應(yīng)轉(zhuǎn)化為一個(gè)關(guān)系，有屬性的聯(lián)系也應(yīng)轉(zhuǎn)化為一個(gè)關(guān)系，然后需要給出每個(gè)關(guān)系的關(guān)鍵字。掉線（車(chē)號(hào)、車(chē)次、表號(hào)、廠修時(shí)間、架修時(shí)間、月修時(shí)間、掉線司機(jī)、掉線車(chē)長(zhǎng)、事件車(chē)站、事件時(shí)間、事件過(guò)程、備注）關(guān)鍵字為車(chē)號(hào)。獎(jiǎng)勵(lì)（乘務(wù)員姓名、駕駛證編號(hào)、所屬輪乘組、獎(jiǎng)勵(lì)級(jí)別、獎(jiǎng)勵(lì)原因、獎(jiǎng)勵(lì)金額、備注）關(guān)鍵字為駕駛證編號(hào)。Data Source= car。3. 乘務(wù)員檔案管理模塊 該模塊是提供全部人事檔案的界面。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 設(shè)計(jì)中遇到的問(wèn)題及解決 Server 2000數(shù)據(jù)庫(kù)連接庫(kù)連接：在“Adodc屬性”對(duì)話框中單擊[生成]按鈕，彈出“數(shù)據(jù)鏈接屬性”窗體，在提供程序中選擇“Microsoft OLE DB Provider for ODBC Drivers”提供者，然后單擊[下一步]按鈕；在“連接”選項(xiàng)卡中指定數(shù)據(jù)源（本系統(tǒng)中的數(shù)據(jù)源為“car” ），設(shè)置完成后單擊[測(cè)試連接]按鈕，提示成功后單擊[確定]按鈕。 下面代碼通過(guò)調(diào)用Connection對(duì)象的Execute方法，從SQL Server數(shù)據(jù)庫(kù)“car”的“車(chē)輛檔案表”中檢索車(chē)輛編號(hào)的值并返回一個(gè)記錄集。由于car數(shù)據(jù)源中默認(rèn)數(shù)據(jù)庫(kù)為car，所以也就等于和SQL Server 2000中的car數(shù)據(jù)庫(kù)連接。如圖33 創(chuàng)建數(shù)據(jù)庫(kù)3 所示:圖33 創(chuàng)建數(shù)據(jù)庫(kù)3,更改數(shù)據(jù)庫(kù)日志文件路徑。2) 展開(kāi)要?jiǎng)?chuàng)建表的系統(tǒng)數(shù)據(jù)庫(kù)“car”，單擊“表”選項(xiàng)。6) 在“允許空”選項(xiàng)中，如果設(shè)置不允許為空，那么插入記錄集或修改記錄時(shí)，將不允許空值出現(xiàn)，否則報(bào)錯(cuò)。2）在菜單編輯器窗口中，“標(biāo)題”文本框用于設(shè)置菜單項(xiàng)的標(biāo)題，它對(duì)應(yīng)著菜單的caption屬性。6）在編輯菜單的過(guò)程中，有時(shí)需要移動(dòng)菜單。〔2〕 向ImageList空間中添加圖像l 在窗體上添加一個(gè)ImageList控件。l 為圖片添加關(guān)鍵字和標(biāo)記?！?〕 創(chuàng)建并設(shè)計(jì)工具欄。4) 重復(fù)步驟3)，直到添加完所有的工具按鈕為止，最后單擊[確定]按鈕完成工具欄的設(shè)計(jì)工作。1. 窗體界面設(shè)計(jì)新建一窗體，設(shè)置該窗體的名稱為“frmchelu”，Caption屬性為“車(chē)輛檔案錄入窗體”，BorderStyle屬性為“1Fixed Single”，MDIChild的屬性為“True”。此時(shí)，ADO控件將出現(xiàn)在工具箱中。所以在本系統(tǒng)中添加了DTPicker控件，由于該控件屬于ActiveX控件，在“部件”對(duì)話框中勾選“Microsoft Windows Common Controls2 （SP4）”選項(xiàng)，然后單擊[確定]按鈕。 Dim i As Integer（2）設(shè)計(jì)一個(gè)Lockct1過(guò)程功能為設(shè)置控件不可用。在【添加】按鈕的Click事件下添加代碼如下： Private Sub Command1_Click()Unlockctl Text1 = : Text2 = : Text3 = : Text4 = : = DK16 = 是 = True: = True = False: = False = False: = True i = 1End Sub（6）在【修改】按鈕的Click事件下添加代碼如下：Private Sub Command2_Click() Unlockctl i = 2 = True: = True = False: = False = False: = FalseEnd Sub（7）使用Delete語(yǔ)句刪除車(chē)輛信息。 39。 amp。 Text1 amp。 Combo1 amp。 Text2 amp。 amp。 Text3 amp。 Combo2 amp。 Text4 amp。 Combo1 amp。 Text2 amp。 amp。 Text3 amp。 Combo2 amp。 Text4 amp。 Text1 amp。 If 0 Then On Error Resume Next 39。在窗體上添加1個(gè)ADO控件，默認(rèn)名為“Adodc1”。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。當(dāng)沒(méi)有添加數(shù)據(jù)的時(shí)候 處理異常 Lockctl = False: = False = True: = True = True: = TrueEnd Sub（10）在【查詢】按鈕的Click事件下添加代碼如下：Private Sub Command4_Click()Dim str As String str = InputBox$(輸入你要查詢的駕駛員編號(hào)：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 乘務(wù)員檔案表 where 駕駛員編號(hào)=39。選擇“系統(tǒng)DSN”選項(xiàng)卡，然后單擊“添加”按鈕。若單擊后者，還應(yīng)選取“連接SQL Server以獲得其它配置選項(xiàng)的默認(rèn)設(shè)置”復(fù)選框，并輸入登陸ID和密碼，然后單擊“下一步”按鈕。若要修改該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“配置”按鈕，若要?jiǎng)h除該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“刪除”按鈕。方法是：[文件]菜單中選取[制作 ]，出現(xiàn)[生成工程]對(duì)話框。[確定]，關(guān)閉[工程屬性]對(duì)話框，再在[制作 ]對(duì)話框中選取[確定]，編譯和連接該執(zhí)行文件?！按虬_本”對(duì)話框，從中可以選擇添加、修改打包腳本，單擊“下一步”?！皦嚎s文件選項(xiàng)”對(duì)話框中，選擇創(chuàng)建一個(gè)的大的或多個(gè)壓縮文件的包，單擊“下一步”。“共享文件”窗體中，選擇共享文件后，單擊“下一步”，在彈出的“已完成！”對(duì)話框中，點(diǎn)擊[完成]按鈕。 amp。 amp。 問(wèn)題二當(dāng)點(diǎn)擊查詢窗體時(shí)，體統(tǒng)會(huì)出現(xiàn)“編譯錯(cuò)誤。Data Source= car。超級(jí)管理員39。)作用是：在管理員設(shè)置窗體中用戶類型的選項(xiàng)中除超級(jí)管理員選項(xiàng)不顯示在bo中，其余的用戶類型數(shù)據(jù)都顯示在bo中。 這樣一來(lái)，保證了開(kāi)發(fā)者在用戶表中永遠(yuǎn)有一條記錄，用戶可以通過(guò)這條原始記錄進(jìn)入系統(tǒng)。其功能基本符合用戶需求，能夠完成對(duì)地鐵車(chē)輛管理及人員管理的存儲(chǔ)和查詢，并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)。蘇明老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。 Text1 amp。 If 0 Then On Error Resume Next 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。) MsgBox 記錄已刪除！, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command4_Click()Dim str As String str = InputBox$(輸入你要查詢的駕駛員編號(hào)：, 系統(tǒng)提示) If str = Then Exit Sub = select * from 乘務(wù)員檔案表 where 駕駛員編號(hào)=39。另外，在系統(tǒng)開(kāi)發(fā)過(guò)程中還有各位同學(xué)們同樣給與我不少幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，這里一并表示感謝！參 考 文 獻(xiàn)[1] Basic ，2001年2月出版 [2] ，2004年1月出版 [3] 郭瑞軍、唐邦民、謝晗昕 Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例精粹. ，2005年1月出版 [4] 塞奎春、高春艷、李俊民、 Basic 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選.，2005年7月出版[5] 劉瑞新、張二峰、齊暉、 Basic 管理信息系統(tǒng)開(kāi)發(fā).，2005年3月出版[6] 明日科技、高春艷、李俊民、劉彬彬. Visual Basic ，2006年7月[7] 徐孝凱 . 中央廣播電視大學(xué)出版，2003年7月出版[8] , .Visual Basic 、2000年7月第三次出版[9] (英） Server ,2006.[10] Server 2005. ,2008.[11] Server 2005開(kāi)發(fā)者指南. ,2008.附 錄： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Call mnuchelu_Click Case 2 Call mnuyitian_Click Case 4 Call mnurenlu_Click Case 5 Call mnuweitian_Click Case 11 Call mnuExit_Click End SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ) Select Case Case 1 Call mnuchecha_Click Case 2 Call mnurencha_Click Case 4 Call mnuyicha_Click Case 5 Call mnulincha_Click Case 6 Call mnudiaocha_Click Case 8 Call mnuweicha_Click Case 9 Call mnushicha_Click Case 10 Call mnujiangcha_Click End SelectEnd Sub：Dim i As IntegerPrivate Sub Lockctl() = False: = False: = False = False: = False: = False = False: = False: = False = False: = False: = False = False: = FalseEnd SubPrivate Sub Unlockctl() = True: = True: = True = True: = True: = True = True: = True: = True = True: = True: = True = True: = TrueEnd SubPrivate Sub Form_Load() = 5745: = 9585 = select * from 乘務(wù)員檔案表 If 0 Then = (0) On