Khoa Công nghệ Thông tin
Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 321
Private Sub DuyetXoaFileDequi()
Dim Name As String, Path As String, strFilePath As String, intAttr As Integer
Path = strDirQueue(iHead)
Name = Dir(Path, vbDirectory) ' lấy1 phầntửthỏa mãn pattern
Do While Name <> "" ' Lặpxửlý phầntử, nếu còn.
If Name <> "." And Name <> ".." Then ' bỏthưmụchiện hành và cha củanó
strFilePath = Path & Name
intAttr = GetAttr(strFilePath)
If (intAttr And vbDirectory) = vbDirectory Then ' nếulàthưmụcthìlưugiữvào hàng
strDirQueue(iTail) = strFilePath & "\"
iTail = iTail + 1
If (iTail > QMAX) Then iTail = 0
Else ' nếu là file kiểm tra xem thỏa pattern không
If LCase(Name) Like txtPattern.Text Then
intAttr = intAttr And Not vbReadOnly
SetAttr strFilePath, intAttr
Kill strFilePath
FileList.AddItem strFilePath
End If
End If
End If
Name = Dir ' lấyphầntửkếthỏa mãn pattern.
Loop
End Sub
Code củaứng dụng xóa file đệ qui (tt)
Chương 11 : Quảnlýhệthống file
Khoa Công nghệ Thông tin
Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 322
MÔN TIN HỌC
Chương 12
LINH KIỆN PHẦN MỀM
& TRUY XUẤT DATABASE
Chương 12 : Linh kiệnphầnmềm & truy xuất database
12.1 Tổng quát vềlinh kiện phần mềm
12.2 Cách tạo và dùng linh kiện phần mềm
12.3 Tổng quát vềtruy xuất database
12.4 Tổng quát vềdebug mã nguồn VB
Khoa Công nghệ Thông tin
Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 323
Mụctiêucủa qui trình phát triểnphầnmềmhướng đốitượng là tạora
ứng dụng có cấutrúcthuầnnhất: tậpcácđốitượng sống và tương tác
lẫn nhau.
Mỗiđốitượng củaứng dụng có thể đượctạoranhờ1 trong các cách
sau :
chọn menu Project.Add Class Module để tạo ra 1 class module mớimiêu
tảcấutrúcchi tiếtcủađốitượng cầntạora: cácthuộc tính dữliệuvàcác
method củađốitượng.
chọn menu Project.Add File rồi khai báo đường dẫncủa file *.bas chứa1
class module của1 ứng dụng có sẵnđể copy class module này vào
Project ứng dụng hiệntại(đây là 1 phương pháp để thừakếthành quả).
sửdụng các điềukhiểnsẵncócủa VB để xây dựng form giao diện.
'add' module *.ocx chứa 1 hay nhiều ActiveX Control đang được Windows
quản lý vào Project ứng dụng hiệntạiđể dùng chúng y nhưcác điềukhiển
sẵncócủaVB.
12.1 Tổng quát vềlinh kiệnphầnmềm
Chương 12 : Linh kiệnphầnmề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 324
VB cho phép tạo linh kiệnphầnmềm ActiveX Control nhờ1 trong 3 loại
Project ActiveX EXE, ActiveX DLL và ActiveX Control. Tuy nhiên qui
trình chi tiếtđể tạo ActiveX Control vượt quá khuôn khổnội dung của
môn họcnày.
Việc dùng ActiveX Control cũng giống nhưdùng control định sẵncủa
VB, ta đặt chúng 1 cách trực quan vào các form giao diệnvớikíchthước
và vịtrí phù hợpvớinhucầu. Khi viết code, ta có thểtruy xuấtcác
thuộc tính dữliệu và các method của ActiveX Control y nhưtruy xuất
các thành phần trong control định sẵn.
12.2 Cách tạo và dùng linh kiệnphầnmềm
Chương 12 : Linh kiệnphầnmề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 325
Để dùng1 linhkiệnphầnmềm ActiveX Control trong 1 form củaProject ứng dụng,
trướchếttaphải thêm nó vào cửasổToolbox của Project theo qui trình điểnhình
sau đây :
Qui trình 'add' 1 ActiveX Control vào Project
1. ấnphảichuộtvàovịtrí
trống của Toolbox, chọn
mục Components
2. chọn tab Controls, duyệtvàchọnmụctương ứng, chọnOK.
3. Cửa
sổ
Toolbox
sẽchứa
các icon
miêu tả
các Act.
Control
trong
module
vừa
chọn.
Chương 12 : Linh kiệnphầnmề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 326
Để thấyviệc dùng ActiveX Control hầuxâydựng phầnmềmdễdàng
nhưthếnào, chúng ta hãy thửviết 1 trình duyệt Web vớichứcnăng
tượng tựnhưIE của Microsoft, ta tạmgọiứng dụng sắpviết này là
MyIE.
Việcviếtphầnmềmduyệt Web từđầurấtkhókhănvìbạncầnphải
trang bịnhiềukiếnthứcnhư: kỹthuậthiểnthịvănbảnvàđồ họa, kỹ
thuậttương tác vớingười dùng thông qua bàn phím và chuột, kỹthuật
và qui trình viết1 chương trình dịch, lậptrìnhmạng dùng socket, giao
thứctruyxuất tài nguyên Web HTTP (Hypertext Transfer Protocol),
ngôn ngữDHTML,...
Nhưng toàn bộcác công việc mà 1 trình duyệt Web cầnlàmđãđược
Microsoft đóng gói trong 1 linh kiệnphầnmềm tên là WebBrowser.
Thí dụvềcách dùng ActiveX Control
Chương 12 : Linh kiệnphầnmề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 327
ActiveX Control "WebBrowser" là 1 đốitượng giao diệnchỉchứa1 vùnghiểnthị
nội dung hình chữnhậtvớivịtrívàkíchthước do ngườilập trình qui định.
Interface củanóbaogồm3 loại: cácthuộc tính interface (khoảng 27), các
method (khoảng 12) và các sựkiện(khoảng 16) mà người dùng có thểlậptrình
thủtụcđáp ứng cho chúng. Ởđây chúng ta sẽgiớithiệu1 sốmethod mà ta
dùng trong việcviếtứng dụng MyIE :
Navigate2 (URL,...) cho phép download trang Web hay file *.doc, *.xls,
*.ppt,... đượcxácđịnh bởi URL, hiểnthịnội dung của nó lên vùng hiểnthị
rồichờvà xửlý sựtương tác củangười dùng (ấn vào vùng liên kết,...).
GoBack cho phép quay vềtrang Web vừatruyxuất (ngay trước trang hiện
hành).
GoForward chophéptiếntới trang Web (ngay sau trang hiện hành).
GoHome cho phép hiểnthịtrang chủ.
Refresh cho phép download và hiểnthịlại trang hiện hành.
Stop cho phép dừng ngay việc download và hiểnthịtrang Web hiện hành.
ExecWB cho phép thực thi 1 sốhành vi trên trang web nhưthay đổico chữ,
in trang Web ra máy in,...
Thí dụvềcách dùng ActiveX Control (tt)
Chương 12 : Linh kiệnphầnmề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 328
Giao diệnđề nghịcủatrìnhMyIE
Chương 12 : Linh kiệnphầnmề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 329
Chi tiết các option trong menu và toolbar (tt)
Chương 12 : Linh kiệnphầnmề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 330
Trình MyIE có giao diệnSDI gồm 1 menu bar, 1 toolbar, 1 ComboBox liệtkê
các URL vừatruyxuất, 1 ActiveX Control "WebBrowser" xửlý việctruyxuất,
hiểnthịcác trang Web và chờphụcvụcác tương tác củangười dùng. Qui trình
chi tiếtxâydựng ứng dụng MyIE sẽđược trình bày trong bài thực hành số4, ở
đây chỉtóm tắtcácbước chính :
Tạo project loại "VB Application Wizard" và trảlờicácbước Wizard để tạo
Project.
Chọn Tools.Menu Editor để tạo menu bar theo đặctảcủa slide trước. Qui
trình dùng Menu Editor đượcgiớithiệutrongchương 4.
Cũng đọclạichương 4 để biết qui trình tạo/hiệuchỉnh Toolbar.
tạo(vẽ) ComboBox nhập URL mới và liệt kê các URL đã truy xuất.
tạo(vẽ) control "WebBrowser". Không cầnvẽComboBox và WebBrowser
chính xác vì code sẽxác định động mỗi lần cửa sổ chương trình thay đổi.
tạothủtụcxửlý sựkiện cho các menu option và toolbar button rồiviết code
cho chúng. Code củacácthủtụcnàychủyếu làm "cò" và gọi các method
tương ứng trong đốitượng WebBrowser thựcthi.
Phân tích & thiếtkếgiao diện
Chương 12 : Linh kiệnphầnmềm & truy xuất database