格子控制项MSFlexGrid.PPT

資料庫理論與實務 以VB6建立資料庫 以VB6建立資料表 輸入資料記錄 簡易資料庫程式設計 資料(Data)元件 資料控制項的常用屬性 Name：資料控制項的名稱 Caption：資料控制項內的標題 BatabaseName：設定連結的資料庫名稱 RecordSource：設定連結的資料表名稱 ReadOnly：設定是否允許修改 Connect：設定資料庫的檔案格式，內定為 　　　　　　Access Exclusive：封閉，設定是否可與妻他程式共用 　　　　　此資料庫 資料感知物件(Data Aware) 具有資料連結功能的控制項統稱為Data Aware 文字方塊(TextBox) 標籤(Label) 核取方塊(CheckBox) 圖片方塊(PictureBox) 影像(Image) 清單方塊(ListBox) 下拉式清單方塊(ComboBox) 格子(MSFlexGrid) … 牛刀小試(1) 牛刀小試(1)---續 重要屬性設定 Data DatabaseName C:\VB6投影片\第九章範例\牛刀小試(1)\db-test.mdb RecordSource student 牛刀小試(1)---續 重要屬性設定(續) Text1(0)~Text1(5) DataSource Data1 Text1(0)~Text1(5) DataField Text1(0) ? stu_no Text1(1) ? name Text1(2) ? blood Text1(3) ? sex Text1(4) ? tel Text1(5) ? address 以程式控制移動資料 移到第一筆記錄 Data1.Recordset.MoveFirst 移到最後一筆記錄 Data1.Recordset.MoveLast 移到上一筆記錄 Data1.Recordset.MovePrevious 移到下一筆記錄 Data1.Recordset.MoveNext 牛刀小試(2) 同牛刀小試(1)僅新增四個CommandButton 牛刀小試(2)---續 新增、刪除、修改資料記錄 新增資料記錄 Data1.Recordset.AddNew 刪除資料記錄 Data1.Recordset.Delete 修改資料記錄(需配合AddNew或Edit) Data1.Recordset.Update 編輯資料記錄 Data1.Recordset.Edit 牛刀小試(3) 同牛刀小試(2)再新增三個CommandButton 牛刀小試(3)---續 查詢資料記錄 找出符合資料的第一筆記錄 Data1.Recordset.FindFirst “blood=‘B’” 找出符合條件的前一筆記錄 Data1.Recordset.FindPrevious “blood=‘B’” 找出符合條件的下一筆記錄 Data1.Recordset.FindNext “blood=‘B’” 找出符合條件的最後一筆記錄 Data1.Recordset.FindLast “blood=‘B’” 是否找到符合的記錄？ Data1.Recordset.NoMatch True：找到符合記錄 False：未找到符合記錄 其他 查詢資料總筆數 Data1.Recordset.RecordCount 查詢資料總欄位數 Data1.Recordset.Fields.Count 關閉資料表 Data1.Recordset.Close 牛刀小試(4) 同牛刀小試(3)再新增三個CommandButton 牛刀小試(4)---續 DAO(Data Access Object) 資料存取物件 VB6中的一種資料存取方法，也是一種物件結構（階層物件集合）的方式 最大的階層為DBEngine (Microsoft Jet Database Engine) 有了DBEngine後VB就會自動配置一塊記憶體空間即Workspace(0)工作空間給使用者 然後使用OpenDatabase開啟資料庫 待資料庫開啟後接著以OpenRecordset開啟資料表 使用DAO必須先完成下列二項宣告 資料庫(Database) 資料表(Recordset) DAO(續) DAO設計的第一步?引用DAO物件庫 DAO(續) DAO設計的第二步?宣告資料庫及資料表 DAO設計的第三步?開啟資料庫及資料表 DAO(續) 開啟資料表的型式 牛刀小試(5) 以DAO方式改寫牛刀小試(4) 格子控制項(MSFlexGrid) 也許你也發現到了，之前的範例都是在文字盒中顯示資料，假如碰到了同名同姓的狀況，該如何顯示資料？ 用Print敘述來顯示？也許是個好方法，不過似乎太落伍了！ 用MSFlexGrid來顯示？ 格子控制項(續) 格子在哪裡