Tham khảo tài liệu 'ví dụ và bài tập visual part 5', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chuyên để 23 Khám phá Crystal Report 191 1 Khai báo và khởi tạo đối tượng Connectioninfo Dim myCon As New Connectioninfo Khai báo uà khởi tạo đối tượng TableLogOnlnfo Dim mylnfo As New TableLogOnlnfo Khai báo lại thông tin đăng nhập With myCon ServerName gsServer DatabaseName gsDatabase .UserID - gsUser -Password gsPwd End wi th Gán đối tượng Connectioninfo vào thuộc tính Connectioninfo của đôi tượng TableLogOnlnfo my myCon Định nghĩa tên bảng dữ liệu hay View Dim myTable As string _ Product Sales for 1997 Áp dụng đối tượng TableLogOnlnfo cho bảng dữ liệu thứ 0 trong Report _ 0 ApplyLogOnlnfo mylnfo Gán đổi tượng ReportDocument vào thuộc tính ReportSoưrce RV- Reportsource - objRep ob j End Sub Lưu ý Nếu tên bảng hay View trong cơ sở dữ liệu tồn tại khoảng trắng bạn có thể sử dụng số thứ tự để chỉ định đối tượng Table hay View bên trong Report. obj 0 _ mylnfo Hoặc obj myTable .ApplyLogOnlnfo mylnfo ST 192 Phần I Lý thuyết tóm tắt ví dụ chuyên đề Khi thực thi chương trình nếu người sử dụng nhấn nút Preview lập tức Report trình bày như hình 23-16 với thông tin định nghĩa hiện hành. Hình 23-16 Đăng nhập cơ sở dữ liệu . Lọc dữ liệu từ điều khiển Crystal Report Viewer Mặc dù Report đang nắm giữ một tập dữ liệu bạn cũng có thể lọc dữ liệu để trình bày theo một tiêu chí nào đó. Chẳng hạn bạn thêm mới Form và đặt tên frmFilter. Sau đó khai báo chuỗi lọc cho thuộc tính SelectionFormula của điều khiển Crystal Report Viewer như ví dụ 23-5. ỊVí dụ 23-5 Lọc dữ liệu Private Sub Buttonl_Click ByVai sender As ByVai e As Handles Buttonl. Click Khai báo và khởi tạo đối tượng ReportDocument Chuyên đề 23 Khám phá Crystal Report 193 a Dim objRep As Report Document objRep - New Filter Khai báo và khởi tạo đối tượng Connectioninfo Dim myCon As New Connectioninfo Khai báo và khởi tạo đổi tượng TableLogOnlnfo Dimmylnfo As New .
