Bài giảng lập trình trực quan bài 6 tính toán thống kê

1, Mục đích : - Dùng muốn thống kê RecordSet : Tổng, Max, Min… - Thống kê số ghi thoả mãn điều kiện 2, Duyệt RecordSet : - Hành động Clone RecordSet : tạo RecordSet tạm dựa RS cần tính toán để duyệt mẩu tin Do đó, không ảnh hưởng đến mẩu tin hành tình trạng liệu RS 2, Duyệt RecordSet : - Cấu trúc vòng lặp duyệt RecordSet : + Sử dụng vòng lặp Do While … Loop If .RecordCount >0 then .MoveFirst Do While Not .EOF .MoveNext Loop + Sử dụng vòng lặp For … Next For i = to .RecordCount .AbsolutePosition = i Next Ví dụ : hàm RSUM để tính tổng Function RSum(rst As ADODB.RecordSet, field As String, dk As String) Dim tong, rs as ADODB.RecordSet tong = Set rs = rst.Clone rs.Filter = dk Do While Not rs.EOF tong = tong + rs(field).Value rs.MoveNext Loop Rsum = tong End Function 3, Tập hợp Fields đối tượng Field RecordSet : - Count : cho biết số field RecordSet - Item : đến field tập hợp - Append : cho phép thêm field vào tập hợp Fields - Delete : Xoá bỏ field khỏi tập hợp Fields Ví dụ : tạo RS gồm trường Dim Rs as ADODB.RecordSet Set rs = New ADODB.RecordSet Rs.Fields.Append "ma",adChar,5,adFldUpdatable Rs.Fields.Append "hoten",adChar,30,adFldUpdatable Rs.Fields.Append "phai",adBoolean,,adFldUpdatable Rs.Open 1, Mô tả ràng buộc toàn vẹn thường gặp : - ràng buộc khoá : có hai mã giống - ràng buộc khoá ngoại : nhân viên thuộc phòng ban chưa có danh mục phòng ban - ràng buộc logic phức tạp : thực cập nhật nhiều bảng liệu 2, Ví dụ cách xử lý ràng buộc đơn giản : VD1 : xử lý ràng buộc khoá trùng mã If DCOUNT(select * from NhanVien Where manv=’” & rstNV(“manv”).Value &”’”) > Then MsgBox “Mã tồn CSDL” End If VD2 : Xử lý ràng buộc khoá ngoại kiểm tra xem phòng nhập có chưa If DCOUNT(Select * From PHONG WHERE maph =’” & rstNV(“maph”).Value &”’”)= then MsgBox “Phòng chưa có CSDL” End If VD3 : Xử lý ràng buộc miền giá trị : Kiểm tra nhập ngày chưa If IsDate(rstNV(“ngaysinh”).Value))= False then MsgBox “Ngày sinh không hợp lệ” End If VD4 : Xử lý ràng buộc liên thuộc tính + Nhân viên nhận vào phải 18 tuổi If (Year(Date()) - Year(rstNV(“Ngaysinh”).Value) ) < 18 Then MsgBox “Nhân không đủ tuổi làm việc” End If + Ngày chuyển công tác lớn ngày nhận công tác 3, Xử lý ràng buộc phức tạp : 3.1, Các Field cần ý CSDL : + Các Field mang ý nghĩa : số lượng, thời điểm … + Các Field tính toán : số lượng, thành tiền,… 3.2, Xây dựng hàm kiểm tra cho ràng buộc phức tạp : + ưu điểm : độc lập, sử dụng cho nhiều nơi khác + cách xây dựng : hàm kiểm tra ràng buộc 3.3, Các hàm nên xây dựng : RSum(rst As RecordSet, field As String, dk As String) RMin(rst As RecordSet, field As String, dk As String) RMax(rst As RecordSet, field As String, dk As String) RAvg(rst As RecordSet, field As String, dk As String) RCount(rst As RecordSet, field As String, dk As String) VD : xây dựng hàm tính tổng Function DCount(field As String, table As String, Optional dk As String) Dim rs As New ADODB.Recordset rs.Open "select count(" & field & ") from " & table & _ IIf(dk ‘’ “,” where " & dk, dk), cnn DCount = rs(0).Value End Function Private Sub cmdKiemTra_Click() If DCount(“MaSV”,”SinhVien”) = Then MsgBox (“Chưa có sinh viên nào”) End If End Sub ... .EOF .MoveNext Loop + Sử dụng vòng lặp For … Next For i = to .RecordCount .AbsolutePosition = i Next Ví dụ : hàm RSUM để tính tổng Function... ý nghĩa : số lượng, thời điểm … + Các Field tính toán : số lượng, thành tiền,… 3.2, Xây dựng hàm kiểm tra cho ràng buộc phức tạp : + ưu điểm : độc lập, sử dụng cho nhiều nơi khác + cách xây dựng... IsDate(rstNV(“ngaysinh”).Value))= False then MsgBox “Ngày sinh không hợp lệ” End If VD4 : Xử lý ràng buộc liên thuộc tính + Nhân viên nhận vào phải 18 tuổi If (Year(Date()) - Year(rstNV(“Ngaysinh”).Value) ) < 18 Then