I E= T*R
Giao diện đề nghị của ứng dụng truy xuất database
Chương 12 : Linh kiện phần mềm & truy xuất database
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 336 Ta có thểtạo project dạng "Standard EXE", đểdùng cácđiều khiển trong Form
ta cần 'add' các ActiveX Control sau vào Project :
Microosft Data Control 6.0 để quản lý 1 RecordSet chứa tập các record trong 1 table.
Microsoft DataGrid Control 6.0 đểhiển thịcác record của 1 Data Control và cho phép user thêm/bớt/hiệu chỉnh các record.
Microsoft Common Dialog Control 6.0 đểhiển thị cửa sổ duyệt file và chọn file cần truy xuất.
Để dùng được đối tượng ADODB trong Project, ta chọn menu Project.Referencesđểchọn thưviện sau :
Microsoft ActiveX Data Objects 2.x Library, với x =1 | 2 | 3 | 4 | 5 ...
Thiết kế trực quan form theo slide trước, tạo các thủ tục xử lý sự kiện cho button Browse và sựkiện Click cho ComboBox.
Qui trình xây dựng ứng dụng của slide trước
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 337
' Thủtục xửlý click button Browse Private Sub cmdBrowse_Click()
' hiển thịdialog box duyệt và chọn file CommonDialog1.ShowOpen
' hiển thịfile được chọn vào textbox
txtFileName.Text = CommonDialog1.FileName
' duyệt các table và hiển thịtên của chúng vào ComboBox ListAccessTables (txtFileName.Text)
End Sub
' Thủtục xửlý khi user chọn Table trong danh sách Private Sub cbTable_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;_ Data Source=" & txtFileName.Text
Adodc1.RecordSource = cbTable.Text Adodc1.Refresh
End Sub
' Thủtục phục vụsựkiện form bịthayđổi kích thước. Private Sub Form_Resize()
' vẽlại DataGridđểphù hợp với kích thước mới của form ScaleMode = vbPixels
RsList.Move 5, 60, Me.ScaleWidth - 10, Me.ScaleHeight - 65 End Sub