tailieunhanh - Bài giảng Lập trình trực quan - Bài 6: Tính toán thống kê
Mục đích của Bài giảng Lập trình trực quan - Bài 6: Tính toán thống kê là giúp người dùng khi muốn thống kê trên RecordSet : Tổng, Max, Min,.; Thống kê trên một số bản ghi thoả mãn điều kiện. Tài liệu này giúp ích cho quá trình học tập và giảng dạy, mời tham khảo. | Bài 6: Tính Toán Thống Kê 1, Mục đích : - Dùng khi muốn thống kê trên RecordSet : Tổng, Max, Min - Thống kê trên một số bản ghi thoả mãn điều kiện 2, Duyệt RecordSet : - Hành động Clone của RecordSet : tạo một RecordSet tạm dựa trên RS cần tính toán để duyệt mẩu tin. Do đó, sẽ không ảnh hưởng đến mẩu tin hiện hành và tình trạng dữ liệu trong RS chính. Tính Toán Thống Kê 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 = 1 to .RecordCount .AbsolutePosition = i Next Tính Toán Thống Kê Ví dụ : hàm RSUM để tính tổng Function RSum(rst As , field As String, dk As String) Dim tong, rs as tong = 0 Set rs = = dk Do While Not tong = tong + rs(field).Value Loop Rsum = tong End Function Tính Toán Thống Kê 3, Tập hợp Fields và đối tượng Field của RecordSet : Count : cho biết số field của RecordSet Item : chỉ đến một field trong tập hợp Append : cho phép thêm một field vào tập hợp Fields Delete : Xoá bỏ một field khỏi tập hợp Fields Ví dụ : tạo một RS gồm 3 trường Dim Rs as Set rs = New "ma",adChar,5,adFldUpdatable "hoten",adChar,30,adFldUpdatable "phai",adBoolean,,adFldUpdatable Toàn Vẹn Dữ Liệu 1, Mô tả các ràng buộc toàn vẹn thường gặp : - ràng buộc khoá chính : không thể có hai mã giống nhau - ràng buộc khoá ngoại : nhân viên không thể thuộc về một phòng ban chưa có trong danh mục phòng ban. - ràng buộc logic phức tạp : khi thực hiện cập nhật trên nhiều bảng dữ liệu. 2, Ví dụ cách xử lý các ràng buộc đơn giản : VD1 : xử lý ràng buộc khoá chính khi trùng mã If DCOUNT(select * from NhanVien Where manv=’” & rstNV(“manv”).Value &”’”) > 0 Then MsgBox “Mã này đã tồn tại trong CSDL” . . . End If Toàn Vẹn Dữ Liệu 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 &”’”)= 0 then MsgBox “Phòng này chưa có trong CSDL” . . . End If VD3 : Xử lý ràng buộc miền giá trị : Kiểm tra nhập ngày đã đúng chưa If IsDate(rstNV(“ngaysinh”).Value))= False then MsgBox “Ngày sinh không hợp lệ” . . . End If Toàn Vẹn Dữ Liệu VD4 : Xử lý ràng buộc liên thuộc tính + Nhân viên nhận vào phải trên 18 tuổi If (Year(Date()) - Year(rstNV(“Ngaysinh”).Value) ) ‘’ “,” where " & dk, dk), cnn DCount = rs(0).Value End Function Private Sub cmdKiemTra_Click() If DCount(“MaSV”,”SinhVien”) = 0 Then MsgBox (“Chưa có sinh viên nào”) End If End Sub
đang nạp các trang xem trước
