實例一: 系統(tǒng)登錄對話框
設計分析:數(shù)據(jù)庫管理系統(tǒng)登錄對話框兩種基本方法:數(shù)據(jù)庫中建立數(shù)據(jù)表用于保存系統(tǒng)用戶登錄信息;支持安全驗證的數(shù)據(jù)庫管理系統(tǒng),可將系統(tǒng)用戶定義為數(shù)據(jù)庫用戶。
技術要領:1、Enter 、Cancel
2、ADO Connection對象
3、ADO RecordSet對象(相關屬性:Active connection、Eof、Field;方法:open;Fields集合)
4、自定義函數(shù)過程
操作過程:1、可視化數(shù)據(jù)管理器創(chuàng)建數(shù)據(jù)庫;
2、設計窗體;
3、建立ADO對象引用,訪問數(shù)據(jù)庫 ;
4、編寫功能代碼:取消登錄功能;
5、編寫用戶名、口令驗證過程;
6、確定按鈕單擊事件過程;
7、保存共程,測試運行。
實例二:ADO訪問數(shù)據(jù)源
設計分析:1、使用ADO更新數(shù)據(jù)源有兩種方法。Recordset對象中Updata、Updatabatch方法。獨占方式,以及其他用戶同時訪問數(shù)據(jù)方式;Command對象執(zhí)行SQL數(shù)據(jù)更新命令。
2、技術要領:RecordSet的記錄鎖類型、CursorLocation、瀏覽RecordSet中的記錄、ODBC數(shù)據(jù)源類型
操作工程:1、創(chuàng)建ODBC數(shù)據(jù)源
2、設計記錄瀏覽窗體
3、建立ADO引用
4、編寫功能代碼:聲明部分、Load部分(連接數(shù)據(jù)庫、檢索數(shù)據(jù)、顯示記錄AbsolutePosition RecordCount)、執(zhí)行數(shù)據(jù)更新過程、“前一記錄”“后一記錄”按鈕、Unload事件
連接——檢索——操作
實例三:使用數(shù)據(jù)綁定訪問數(shù)據(jù)
概念:數(shù)據(jù)綁定
設計分析: 訪問數(shù)據(jù)庫方式:1、使用ADO對象2、使用ADO DATA控件3、數(shù)據(jù)環(huán)境設計器
技術要領:ADOData控件基本結構、ADOData控件屬性設置(通用、身份驗證、記錄源、顏色、字體)
數(shù)據(jù)綁定控件 內(nèi)部控件(Image、ComboBox、CheckBox、ListBox、Textbox、PictureBoxLabel)
ActiveX控件(RichTextBox、Microsoft Chart、DataTimePicker、ImageCombo、Monthview、 DataList、DtaCombo、Datagrid、MicrosoftHerarchical FlexGrid)
相關屬性 Datasource、DataMember(數(shù)據(jù)集)、DataField、DataFormat
Data Environment Designer 可添加多個不同的數(shù)據(jù)庫連接
操作過程:設計應用程序窗體、編寫功能代碼、保存工程
實例四:分頁顯示記錄
特點:用記錄集的分頁特性進行記錄分頁
使用DataGrid控件的數(shù)據(jù)綁定功能顯示分頁后的數(shù)據(jù)記錄
設計分析:使用記錄集的PageSize屬性用于設置或返回一個記錄也中可包含的記錄條數(shù)。
兩種方法顯示記錄頁數(shù)據(jù):使用DataGrid控件,不能直接將分頁的記錄集綁定到DataGrid控件上,可將當前記錄頁的數(shù)據(jù)復制到一個新的記錄集中,然后再將其綁定到DataGrid控件上;使用MSFlexGrid控件,運行時通過TextMatrix屬性來顯示數(shù)據(jù)。
實例五:數(shù)據(jù)查詢
特點:使用ADO Command對象創(chuàng)建參數(shù)查詢以查詢數(shù)據(jù)庫。
使用MSFlexGrid控件顯示查詢結果
設計分析:實現(xiàn)數(shù)據(jù)庫查詢有以下幾種方法:1.使用查詢參數(shù)構造SQL Select語句,然后使用ADO Command或ResordSet對象執(zhí)行。2.使用ADO Command對象創(chuàng)建參數(shù)查詢。3.先執(zhí)行Select語句獲取數(shù)據(jù)庫數(shù)據(jù),將其存放到RecordSet對象中,然后在執(zhí)行RecordSet對象的Find方法查找符合條件的記錄,或者設置RecordSet對象的Filter屬性篩選符合條件的記錄。
技術要領:MSFlexGrid控件中數(shù)據(jù)的添加和清除(AddItem、RemoveItem、Clear);
使用Command對象創(chuàng)建參數(shù)查詢,分為以下幾步:
1.創(chuàng)建Command對象 objCommandText="SELECT * From 系統(tǒng)用戶 Where 用戶名 Like ?"
2.使用Command對象的CreatParameter方法創(chuàng)建參數(shù)對象,然后將其添加到Command對象的Parameters集合中,
Dim parm as parameter
Set parm=objcmd.CreatParameter("用戶名",advarchar,adparaminput,10)
objcmd.parameters.append parm
3.設置參數(shù)的值,objCmd("用戶名")="admin"
4.執(zhí)行Command的Execute方法完成查詢