《數(shù)據(jù)庫(kù)管理軟件的開(kāi)發(fā)》教學(xué)課件.ppt

《《數(shù)據(jù)庫(kù)管理軟件的開(kāi)發(fā)》教學(xué)課件.ppt》由會(huì)員分享，可在線閱讀，更多相關(guān)《《數(shù)據(jù)庫(kù)管理軟件的開(kāi)發(fā)》教學(xué)課件.ppt（25頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

數(shù)據(jù)庫(kù)軟件管理的開(kāi)發(fā),數(shù)據(jù)庫(kù) 服務(wù)器,應(yīng)用 界面,,VB應(yīng)用程序,SQL Server,數(shù)據(jù)庫(kù)訪問(wèn)接口 VB數(shù)據(jù)庫(kù)訪問(wèn)控件,數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)結(jié)構(gòu),案例—教務(wù)管理系統(tǒng)的開(kāi)發(fā),實(shí)例目標(biāo) 首先創(chuàng)建一個(gè)名為“教務(wù)”的數(shù)據(jù)庫(kù)，然后使用Vb程序?yàn)g覽和訪問(wèn)數(shù)據(jù)庫(kù)。 技術(shù)要點(diǎn) 靜態(tài)查詢(xún)和SQL語(yǔ)言的使用； 使用ToolBar和ImageList控件制作工具欄。,實(shí)現(xiàn)步驟,創(chuàng)建數(shù)據(jù)庫(kù) 創(chuàng)建主窗體 添加工具欄按鈕控件：ToolBar和ImageList控件 添加數(shù)據(jù)庫(kù)連接控件 添加數(shù)據(jù)顯示控件 編寫(xiě)代碼,建立教務(wù)數(shù)據(jù)庫(kù),創(chuàng)建登陸模塊,Private Sub Command1_Click() Ad1.RecordSource = “team“: Ad1.Refresh Ad1.Recordset.MoveFirst Ad1.Recordset.find “姓名=“ + Text1.Text + ““ If Ad1.Recordset.EOF Then x = MsgBox(“沒(méi)有該用戶(hù)，重新輸入嗎？“, vbYesNo, “錯(cuò)誤！“) If x = vbYes Then Exit Sub Else End End If If Ad1.Recordset.Fields(1) = Text2.Text Then Unload Form1: Form2.Show: Exit Sub x = MsgBox(“密碼錯(cuò)誤，重新輸入嗎？“, vbYesNo, “錯(cuò)誤！“) If x = vbYes Then Exit Sub Else End End Sub,創(chuàng)建主窗體,首先添加ToolBar和ImageList控件到工具箱； 步驟： 1.工程/部件?選“Microsoft Windows Common Control 6.0” 2. ToolBar控件包含用來(lái)創(chuàng)建工具欄的按鈕對(duì)象集合； ToolBar可以擁有文本和相關(guān)聯(lián)的ImageList提供的圖像；,創(chuàng)建工具欄,3.ImageList控件的屬性創(chuàng)中選擇圖像標(biāo)簽； 4.設(shè)置按鈕屬性：索引(1)，標(biāo)題(第一個(gè))，關(guān)鍵字(First)，樣式(0-tbrDefault)，工具提示文本(單擊此按鈕查看第一個(gè)記錄)，圖像(1)。 5.根據(jù)題意添加8個(gè)按鈕,創(chuàng)建工具欄,在ImageList控件中添加圖象 ImageList控件不單獨(dú)使用，專(zhuān)門(mén)為其它控件提供圖像庫(kù)。,索引（Index）、 關(guān)鍵字（Key） 在ToolBar中引用 圖象文件的擴(kuò)展名為： .ico、.bmp、.gif、.jpg等,在ToolBar控件中添加按鈕 1.為工具欄連接圖象,,ToolBar與 ImageList的連接,,工具欄樣式,2.為工具欄增加按鈕,,,索引（Index）、關(guān)鍵字（Key）每個(gè)按鈕的編號(hào)、標(biāo)識(shí),ButtonClick事件中引用；,,圖象(Image) ImageList對(duì)象中的圖象值可以是Key或Index,,樣式(Style)，共6種,除菜單按鈕(5)外的5種樣式,三、 響應(yīng)ToolBar控件事件 ToolBar控件常用的事件有兩個(gè)：ButtonClick和ButtonMenuClick。前者對(duì)按鈕樣式為0-2，后者對(duì)樣式為5的菜單按鈕。 （1）用索引Index確定按鈕 (2)用關(guān)鍵字Key確定按鈕,Private Sub Toolbar1_ButtonClick(Byval Button As ComctlLib.Button) Select Case Button.Index Case 1 FileNewProc Case 2 FileOpenProc …… End Select End Sub 注意：第1個(gè)按鈕的Index值為1。用Index還是用Key比較，Key 可讀性好，可維護(hù)性好。,Select Case Button.Key Case “TNew“ FileNewProc Case “TOpen“ FileOpenProc .,加入數(shù)據(jù)連接控件,1、數(shù)據(jù)連接控件（ADODC） ADODC控件（可以連接所有數(shù)據(jù)庫(kù)） 設(shè)置參數(shù)：Connection—選擇數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序和數(shù)據(jù)庫(kù)名 RecordSource—連接的數(shù)據(jù)源類(lèi)型,加入數(shù)據(jù)顯示控件,1、添加標(biāo)簽控件Label，說(shuō)明顯示內(nèi)容； 2、添加文本控件Text,先是數(shù)據(jù)庫(kù)中的內(nèi)容； 3、根據(jù)數(shù)據(jù)庫(kù)中表的屬性?xún)?nèi)容，分別添加10個(gè)Label和9個(gè)Text。其中性別使用Checkbox控件。 4、分別設(shè)置Text的Datasource(數(shù)據(jù)源屬性)為Data或ADODC，DataField（數(shù)據(jù)域）為相應(yīng)的表屬性名。 5、數(shù)據(jù)表格顯示控件DataGrid,DataGrid控件的屬性,DataSource（數(shù)據(jù)源）屬性 此控件不能直接存取數(shù)據(jù)庫(kù)中的數(shù)據(jù)，因此需將此屬性設(shè)置成某一個(gè)ADODC控件，才能夠具備存取數(shù)據(jù)庫(kù)的能力。 AllowAddNew（允許新增）屬性 AllowDelete（允許刪除）屬性 AllowUpdate（允許更新）屬性,程序代碼,Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Dim news, old Select Case Button.Key Case “First“ Adodc1.Recordset.MoveFirst Case “previous“ Data1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End If Case “next“ Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End If,程序代碼,Case “l(fā)ast“ Adodc1.Recordset.MoveLast Case “add“ Adodc1.Recordset.AddNew Toolbar1.Buttons(“delete“).Enabled = False Text1.SetFocus,程序代碼,Case “delete“ 設(shè)置一個(gè)錯(cuò)誤陷阱 On Error Resume Next news = MsgBox(“一定要?jiǎng)h除該記錄嗎？“, vbYesNo) If news = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If,程序代碼,Case “find“ Unload Me frmex27_frm2.Show Case “exit“ MsgBox “歡迎使用VB數(shù)據(jù)庫(kù)應(yīng)用程序，感謝各位用戶(hù)的支持和厚愛(ài)！“ old = MsgBox(“要退出該用于程序嗎？“, vbYesNo) If old = vbYes Then End End If End Select End Sub,進(jìn)一步完善系統(tǒng)主界面,建立菜單的步驟: 建立窗體,添加控件; 啟動(dòng)菜單編輯器(“工具”/“菜單編輯器”); 設(shè)置各菜單項(xiàng); 為相應(yīng)的菜單項(xiàng)添加編寫(xiě)事件過(guò)程.,菜單顯示區(qū),簡(jiǎn)單的編輯按鈕,屬性設(shè)置,,,,菜單上的說(shuō)明文字,控件名稱(chēng),,,Caption,將子菜單向上或下移一級(jí),,,菜單編輯器,菜單列表框,啟動(dòng)菜單編輯器： 1、工具／菜單編輯器(CTRL+E) 2、窗體上快顯菜單／菜單編輯器,菜單項(xiàng)屬性,,,常用屬性： 1. 標(biāo)題(Caption) 熱鍵：前面加& 2. 名稱(chēng)(Name)文本框 分隔符也應(yīng)有名稱(chēng)。 3. 快捷鍵(Shortcut) 菜單名沒(méi)有快捷鍵 4. 復(fù)選(Checked)檢查框 TRUE 有? 5. 有效(Enabled)檢查框 6. 可見(jiàn)(Visible)檢查框,操作按鈕,,彈出菜單(快捷菜單) 顯示在窗體的浮動(dòng)菜單，操作時(shí)使用右鍵，菜單與鼠標(biāo)位置有關(guān)。,PopupMenu方法建立彈出菜單。 形式： [對(duì)象.]PopupMenu 菜單名, 標(biāo)志, x, y 位 置 性 能 0：X 位置確定彈出菜單的左邊界 0：只能用鼠標(biāo)左鍵觸發(fā)彈出菜單； 4：彈出菜單以X為中心 2：能用鼠標(biāo)左、右鍵鍵觸發(fā)彈出菜單； 8：X 位置確定彈出菜單的右邊界 位置與性能是加的關(guān)系。,Private Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditPop, 8, 200, 200 End If End Sub,,表示彈出的位置和觸發(fā)的鍵,,進(jìn)一步完善登陸窗口,Private Sub cmdOK_Click() 測(cè)試密碼是否正確 If txtPassword.Text = ““ Then OK = True Me.Hide Else MsgBox “密碼錯(cuò)誤，再試一次！“, , “登錄“ txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) End If End Sub,