I E= T*R
Code của ứng dụng xóa file đệ qui (tt)
Chương 11 : Quản lý 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 320
' Thủtục xửlý sựkiện Click button Start Private Sub cmdStart_Click()
Dim bytPredIdx As Byte Dim bytCurIdx As Byte Dim strTmp As String
bytPredIdx = 0 bytCurIdx = 1 iHead = 0 iTail = 1
While iHead < iTail
Call DuyetXoaFileDequi iHead = iHead + 1
If (iHead > QMAX) Then iHead = 0 Wend
End Sub
Code của ứng dụng xóa file đệ qui (tt)
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ấy 1 phần tửthỏa mãn pattern Do While Name <> "" ' Lặp xửlý phần tử, nếu còn.
If Name <> "." And Name <> ".." Then ' bỏthưmục hiện hành và cha của nó strFilePath = Path & Name
intAttr = GetAttr(strFilePath)
If (intAttr And vbDirectory) = vbDirectory Then ' nếu là thưmục thì lưu giữ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ấy phần tửkếthỏa mãn pattern. Loop
End Sub
Code của ứng dụng xóa file đệ qui (tt)
Chương 11 : Quản lý 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ện phần mề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ềm12.3 Tổng quát vềtruy xuất database 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ục tiêu của qui trình phát triển phần mềm hướng đối tượng là tạo ra
ứng dụng có cấu trúc thuần nhất : tập các đối tượng sống và tương tác lẫn nhau.
Mỗi đối tượng của ứng dụng có thể được tạo ra nhờ 1 trong các cách sau :
chọn menu Project.Add Class Module đểtạo ra 1 class module mới miêu tảcấu trúc chi tiết của đối tượng cần tạo ra : các thuộc tính dữliệu và các method củađối tượng.
chọn menu Project.Add File rồi khai báođường dẫn của file *.bas chứa 1 class module của 1 ứng dụng có sẵn để copy class module này vào Project ứng dụng hiện tại (đây là 1 phương phápđểthừa kếthành quả).
sửdụng cácđiều khiển sẵn có 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ện tạiđểdùng chúng y nhưcácđiều khiển sẵn có của VB.
12.1 Tổng quát về linh kiện phần mềm
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 324
VB cho phép tạo linh kiện phần mề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ọc này.
Việc dùng ActiveX Control cũng giống như dùng control định sẵn của VB, tađặt chúng 1 cách trực quan vào các form giao diện với kích thước và vị trí phù hợp với nhu cầu. Khi viết code, ta có thể truy xuất cá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ện phần mềm
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 325
Đểdùng 1 linh kiện phần mềm ActiveX Control trong 1 form của Project ứng dụng, trước hết ta phải thêm nó vào cửa sổToolbox của Project theo qui trìnhđiển hình sauđây :