《數據庫管理軟件的開發(fā)》教學課件.ppt

《《數據庫管理軟件的開發(fā)》教學課件.ppt》由會員分享，可在線閱讀，更多相關《《數據庫管理軟件的開發(fā)》教學課件.ppt（25頁珍藏版）》請在裝配圖網上搜索。

數據庫軟件管理的開發(fā),數據庫 服務器,應用 界面,,VB應用程序,SQL Server,數據庫訪問接口 VB數據庫訪問控件,數據庫應用系統(tǒng)結構,案例—教務管理系統(tǒng)的開發(fā),實例目標 首先創(chuàng)建一個名為“教務”的數據庫，然后使用Vb程序瀏覽和訪問數據庫。 技術要點 靜態(tài)查詢和SQL語言的使用； 使用ToolBar和ImageList控件制作工具欄。,實現步驟,創(chuàng)建數據庫 創(chuàng)建主窗體 添加工具欄按鈕控件：ToolBar和ImageList控件 添加數據庫連接控件 添加數據顯示控件 編寫代碼,建立教務數據庫,創(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(“沒有該用戶，重新輸入嗎？“, vbYesNo, “錯誤！“) 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(“密碼錯誤，重新輸入嗎？“, vbYesNo, “錯誤！“) If x = vbYes Then Exit Sub Else End End Sub,創(chuàng)建主窗體,首先添加ToolBar和ImageList控件到工具箱； 步驟： 1.工程/部件?選“Microsoft Windows Common Control 6.0” 2. ToolBar控件包含用來創(chuàng)建工具欄的按鈕對象集合； ToolBar可以擁有文本和相關聯的ImageList提供的圖像；,創(chuàng)建工具欄,3.ImageList控件的屬性創(chuàng)中選擇圖像標簽； 4.設置按鈕屬性：索引(1)，標題(第一個)，關鍵字(First)，樣式(0-tbrDefault)，工具提示文本(單擊此按鈕查看第一個記錄)，圖像(1)。 5.根據題意添加8個按鈕,創(chuàng)建工具欄,在ImageList控件中添加圖象 ImageList控件不單獨使用，專門為其它控件提供圖像庫。,索引（Index）、 關鍵字（Key） 在ToolBar中引用 圖象文件的擴展名為： .ico、.bmp、.gif、.jpg等,在ToolBar控件中添加按鈕 1.為工具欄連接圖象,,ToolBar與 ImageList的連接,,工具欄樣式,2.為工具欄增加按鈕,,,索引（Index）、關鍵字（Key）每個按鈕的編號、標識,ButtonClick事件中引用；,,圖象(Image) ImageList對象中的圖象值可以是Key或Index,,樣式(Style)，共6種,除菜單按鈕(5)外的5種樣式,三、 響應ToolBar控件事件 ToolBar控件常用的事件有兩個：ButtonClick和ButtonMenuClick。前者對按鈕樣式為0-2，后者對樣式為5的菜單按鈕。 （1）用索引Index確定按鈕 (2)用關鍵字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個按鈕的Index值為1。用Index還是用Key比較，Key 可讀性好，可維護性好。,Select Case Button.Key Case “TNew“ FileNewProc Case “TOpen“ FileOpenProc .,加入數據連接控件,1、數據連接控件（ADODC） ADODC控件（可以連接所有數據庫） 設置參數：Connection—選擇數據庫驅動程序和數據庫名 RecordSource—連接的數據源類型,加入數據顯示控件,1、添加標簽控件Label，說明顯示內容； 2、添加文本控件Text,先是數據庫中的內容； 3、根據數據庫中表的屬性內容，分別添加10個Label和9個Text。其中性別使用Checkbox控件。 4、分別設置Text的Datasource(數據源屬性)為Data或ADODC，DataField（數據域）為相應的表屬性名。 5、數據表格顯示控件DataGrid,DataGrid控件的屬性,DataSource（數據源）屬性 此控件不能直接存取數據庫中的數據，因此需將此屬性設置成某一個ADODC控件，才能夠具備存取數據庫的能力。 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“ 設置一個錯誤陷阱 On Error Resume Next news = MsgBox(“一定要刪除該記錄嗎？“, 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數據庫應用程序，感謝各位用戶的支持和厚愛！“ old = MsgBox(“要退出該用于程序嗎？“, vbYesNo) If old = vbYes Then End End If End Select End Sub,進一步完善系統(tǒng)主界面,建立菜單的步驟: 建立窗體,添加控件; 啟動菜單編輯器(“工具”/“菜單編輯器”); 設置各菜單項; 為相應的菜單項添加編寫事件過程.,菜單顯示區(qū),簡單的編輯按鈕,屬性設置,,,,菜單上的說明文字,控件名稱,,,Caption,將子菜單向上或下移一級,,,菜單編輯器,菜單列表框,啟動菜單編輯器： 1、工具／菜單編輯器(CTRL+E) 2、窗體上快顯菜單／菜單編輯器,菜單項屬性,,,常用屬性： 1. 標題(Caption) 熱鍵：前面加& 2. 名稱(Name)文本框 分隔符也應有名稱。 3. 快捷鍵(Shortcut) 菜單名沒有快捷鍵 4. 復選(Checked)檢查框 TRUE 有? 5. 有效(Enabled)檢查框 6. 可見(Visible)檢查框,操作按鈕,,彈出菜單(快捷菜單) 顯示在窗體的浮動菜單，操作時使用右鍵，菜單與鼠標位置有關。,PopupMenu方法建立彈出菜單。 形式： [對象.]PopupMenu 菜單名, 標志, x, y 位 置 性 能 0：X 位置確定彈出菜單的左邊界 0：只能用鼠標左鍵觸發(fā)彈出菜單； 4：彈出菜單以X為中心 2：能用鼠標左、右鍵鍵觸發(fā)彈出菜單； 8：X 位置確定彈出菜單的右邊界 位置與性能是加的關系。,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ā)的鍵,,進一步完善登陸窗口,Private Sub cmdOK_Click() 測試密碼是否正確 If txtPassword.Text = ““ Then OK = True Me.Hide Else MsgBox “密碼錯誤，再試一次！“, , “登錄“ txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) End If End Sub,