Thiết lập báo cáo và Xuất thông tin

Thiết kế với DataReport

Mỗi lần tạo ra thiết kế DataReport, ta phải ràng buộc nó với một cơ sở dữ liệu để hiển thị dữ liệu. ta thực hiện điều này thông qua một bộ gồm các điều khiển ràng buộc chỉ hoạt động trong ngữ cảnh thiết kế DataReport.

Các điều khiển trực quan của thiết kế DataReport bao gồm:

• Điều khiển nhãn
• Điều khiển hộp văn bản
• Điều khiển ảnh
• Điều khiển đoạn thẳng và điều khiển hình dạng
• Điều khiển hàm cho phép chèn các tính toán tóm tắt và báo cáo

Bởi vì các điều khiển của datareport được thiết kế đặc biệt để hoạt động trong ngữ cảnhcủa thiết kế datareport, chúng có những tên gọi khác nhau. Ví dụ tên lớp chính thức của điều khiển hộp văn bản là Rpttextbox; tên lớp điều khiển ảnh là rptimage

Sẽ đơn giản hơn nhiều nếu ta dùng kỹ thuật kéo thả để tạo báo cáo

1. Từ menu Project, chọn Add DataReport
2. Tạo thiết kế Data Enviroiment
3. Trong thiết kế Data Enviroiment, tạo một câu lệnh truy vấn dựa trên bảng tblCcustomer
4. Thiết kế Data Enviroiment hiển thị danh sách các trường dữ liệu trong bảng tblCustomer. Chọn và kéo rê trường Customer_ID từ thiết kế Data Enviroiment vào phân đoạn Detail của thiết kế DataReport
5. Một điều khiển nhãn và một hộp văn bản ràng buộc với trường dữ liệu Customer_ID xuất hiện trên thiết kế DataReport

Nếu kéo điều khiển phân đoạn Page Header, nó sẽ được hiển thị một lần trên mỗi trang. Nếu thực hiện việc này với nhiều trường, ta sẽ có báo cáo tương tự như sau:

Khi có nhiều điều khiển được chọn, điều chỉnh kích cỡ một điều khiển sẽ làm kích cỡ các điều khiển khác bị diều chỉnh theo

Kéo và thả trường dữ liệu từ thiết kế Data Enviroiment vào báo cáo, ta phải thêm một số bước để chỉ ra nguồn dữ liệu cho ràng buộc

Bước 1: Chọn thiết kế DataReport bằng cách chọn vào nó trong danh sách drop- down của cửa sổ Properties

Bước 2: Trong cửa sổ Properties, quy định thuộc tính datasource của datareport là tên của trình thiết kế Data Enviroiment

Bước 3: Nếu đang sử dụng trình thiết kế Data Enviroiment, quy định thuộc tính Data member của DataReport là lệnh dữ liệu mà ta muốn

Xem và xuất DataReport

Ta có thể xem báo cáo trong chế độ Print Preview bằng cách thi hành phương thức Show.Ví dụ nếu DataReport được gọi là drCustomer thì ta có thể chạy nó bằng dòng lệnh:

drCustomer.Show

Báo cáo được hiển thị nhe hình dưới đây:

Thi hành báo cáo của Access từ Visual Basic

Có hai kỹ thuật thực hiện điều này:

• Sử dụng Automation để phóng một instance của Microsoft Access, thi hành báo cáo trực tiếp từ trong ứng dụng. Automation là một kỹ thuật cho phép giao tiếp giữa các ứng dụng trong Windows. Ở đây Access sẽ làm Automation server
• Dùng sản phẩm VSREPORT của Videosoft cho phép người sử dụng thi hành báo cáo của Microsoft Access bất kể họ có cài đặt Access hay không. Đây là điều khiển ActiveX chuyển đổi báo cáo từ tập tin MDB tành một định dạng mà ta có thể cung cấp với các ứng dụng

Sử dụng AUTOMATION để thi hành báo cáo Access

Ta có thể phóng một instance của Microsoft Access từ ứng dụng viết bằng Visual Basic. Với kỹ thuật này, ta có thể lập trình Microsoft Access tương tự như với đối tượng khác ngay trong Visual Basic

Bất lợi của kỹ thuật này là buộc người sử dụng phải chạy ột instance của Microsoft Access mỗi khi họ muốn xem hoặc in ấn báo cáo. Dĩ nhiên nó cũng đòi hỏi phải có Microsoft Access nạp sãn trên máy. Nếu bạn muốn khắc phục trở ngại này nhưng vẫn dùng báo cáo Access trong ứng dụng, bạn có thể xem xét giải pháp thiết lập báo cáo của Video soft VSREPORT

Để lập trình Access thông qua Automation, ta làm một tham chiếu đến Access bằng cách từ menu Project chọn References chọn hộp dánh dấu “Microsoft Access 8.0 Object Library”

Tránh dùng dàng buộc trễ với Automation

Nếu bạn dùng qua Automation qua OLE Automation, bạn sẽ thấy điểm khác biệt quan trọng giữa kỹ thuật Automation trong phần này và OLE Automation. Trong Visual Basic ta cần tránh định nghĩa đối tượng Automation theo kiểu Object tổng quát. Ví dụ trong Visual Basic 3.0 ta có thể viết chương trình như sau:

Dim appAcces as Object

Set appAcces =CreateObject(“Access.Application”)

Đoạn chương trình trên hoạt động tốt với Visual Basic 3.0 nhưng có cách khác tốt hơn. Thay vì dùng kiểu Object ta dùng kiểu dữ liệu đối tượng Automation Server cung cấp. Bởi vì khi đó Visual Basic không cần thi hành câu lệnh truy vấn trên Automation Server mỗi khi ta truy nhập nó để xác định kiểu đối tượng cần tạo. kỹ thuật này gọi là ràng buộc trế, giờ đây chỉ phù hợp với hai tình huống:

• Ta không biết trước kiểu đối tượng Automation Server khi cần tạo đối tượng
• Ta đang sử dụng một môi trường phát triển ứng dụng không hỗ trợ ràng buộc sớm sẽ cải tiến đáng kể tốc đọ chương trình, nhất là những lệnh cần nhiều sử lý để gọi đến Microsoft Office Automation Server

Thi hành Automation để điều khiển Microsoft Access

Sau khi thiết lập tham chiếu đến Microsoft Access từ trong ứng dụng, ta viêt chương trình để tạo instance cho đối tượng. khi đó có một đối tượng tham chiếu đến server, Visual Basic tích hợp mô hình đối tượng của server vào tính năng liệt kê thành phần tự động

Ngoài ra ta có thể xem toàn bộ thuộc tính, phương thức và sự kiện của đối tượng Access trong cửa sổ Object Browser

Đoan chương trình sau tạo một instance của Microsoft Access trong Visual Basic. Nó sử dụng Automation để thi hành phương thức Docmd của Access

Option Explicit
    Dim MSAccess As Access.Application
    Private Sub Command1_Click()
    Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase ("D:TungPTTemp
eins.mdb ") MSAccess.DoCmd.OpenReport "rptEmployee", acViewNormal MSAccess.CloseCurrentDatabase
    Set MSAccess = Nothing
    End Sub
    

Option Explicit
    ' Requires Jet 3.5 version of VSREPORTS (vsrep351.ocx) Private Sub Form_Load()
    vsReport1.ReportFileName=App.Path& "
ptCustomer.vsr"
    vsReport1.DatabaseName = "....DB
ovelty.mdb" End Sub
    Private Sub cmdPreview_Click() vsReport1.PrintDevice = vsrPrintDeviceScreen vsReport1.Zoom = 50' Percent vsReport1.PrintReport
    End Sub
    Private Sub cmdPrint_Click()
    vsReport1.PrintDevice = vsrPrintDevicePrinter vsReport1.PrintReport
    End Sub
    Private Sub vsReport1_LoadingDoc(ByVal Page As Integer, ByVal Of As Integer, Cancel As Boolean)
    Debug.Print "Loading: " & Page & " of " & Of
    End Sub
    

Cài đặt Crystal Reports

Khác với phiên bản cũ của Visual Basic, Crystal Reports không được cài đặt tự động khi ta cài Visual Basic

Để cài đặ Crystal Reports phóng trình cài đặt Crystl32.exe chứa trong thư mục COMMONTOOL VBCRYSREPT trên đĩa VB6. các tệp tin tương ứng sẽ được copy vào hệ thống và đăng ký. sau đó ta mới có thể sử dụng Crystal Reports trong ứng dụng

Dùng Crystal Reports tạo báo cáo

Ta không thể tạo báo cáo băng chương trình, mà thay vào đó ta dùng Crystal Reports đe tạo báo cáo. Sau khi tạo báo cáo ta lưu nó và phân phát cùng với ứng dụng cho người sử dụng.

Để phóng trình thiết kế Crystal Reports ta theo các bước sau:

1. Phóng trình thiết kế Crystal Reports
2. Trình thiết kế hoạt động
3. Từ menu file chọn New. hộp thoại tạo báo cáo mới xuất hiện;

Với hộp thoại này, Visual Basic cung cấp một số khiuôn mẫu báo cáo để ta chọn dùng xuất dữ liệu ta có thể dùng báo cáo do mình thiết kế làm khuôn mẫu cũng như tạo các báo cáo hiệu chỉnh không có trong khuôn mẫu có sẵn các kiểu báo cáo có sẵn trong Crystal Reports

Ví dụ mẫu – dùng Crystal Reports để tạo báo cáo

1. Khởi động Crystal Reports và tạo một báo cáo mới. Chọn kiểu Standar
2. Ở bước một của Standar, nhấn nút Data file.
3. Trong hộp thoại tập tin chọn cơ sở dữ liệu muốn báo cáo. Nhấn Add. danh sách các bảng được chỉ ra. Nó chuyển sang bước hai, hiển thị các quan hệ giữa các bảng trong cơ sở dữ liệu

Bởi vì các mối quan hệ được định nghĩa sẵn cho cơ sở dữ liệu đã được xác định ở mức bộ máy cơ sở dữ liệu, ta không cần định nghĩa lại. Nhưng nếu cần thiết phải thiết lập hoặc xoá một quan hệ ở mức báo cáo thay vì ở mức bộ máy cơ sở dữ liệu ta theo các bước sau:

1. Nhấn chuột vào đoạn thẳng thể hiện quan hệ giữa các bảng
2. Nhấn Delete quan hệ bị xoá bỏ
3. Nhấn và rê một trường nào đó từ một bảng và thả ở bảng khác quan hệ giữa hai bảng lại được thiết lập
4. Nhấn Next. chuyển sang bước 3. Đến đây ta xác lập trường nào sẽ hiển thị trong báo cáo.
5. Nhấn vào Tab Sort. Bước này cho phép xác định cách sắp xếp dữ liệu
6. Chọn vào Tab Total. Cho phép tóm lược dữ liệu trong báo cáo
7. nhấn vào Tab Style. Cho phép xác định cáh thức thể hiện báo cáo
8. Nhấn Preview Report

Thi hành báo cáo trong ứng dụng với điều khiển ActiveX của Crystal Reports

Việc cho phép người sử dụng ứng dụng thi hành Crystal Reports là hoàn toàn đơn giản; nó liên quan đến việc điều khiển ActiveX của Crystal Reports vào đề án và viết đoạn chương trình xử lý. Để làm được điều này, ta làm như sau:

1. Tạo một ứng dụng Visual Basic mới với một nút lệnh duy nhất

2. Thêm điều khiển Crystal vào ứng dụng thông quan menu Project Components

3. Tạo một instance của một điều khiển Crystal Reports trên biểu mẫu bằng cách nhấn đúp lên thanh công cụ. điều khiển kết quả được gọi là Crystal Reports 1

4. trong sự kiện click của nút lệnh dưa vào đoạn chương trình sau

Private Sub cmdReport_Click() CrystalReport1.ReportFileName=App.Path&
    "product.rpt" CrystalReport1.PrintReport
    End Sub
    

5. Thi hành nút lệnh và ấn nút Run. báo cáo thi hành hiển thị cho người sử dụng trong cửa sổ preview. Đến đây người sử dụng có thể xuất báo cáo ra máy in bằng cách nhấn nút Print. dùng thuộc tính Distination của điều khiển Crystal Reports, ta có thể gửi dữ liệu trực tiếp đến máy in bỏ qua cửa sổ Preview.

Sử dụng bản mới hơn của Crystal Reports

Phiên bản Crystal Reports mới đưa ra một số tính năng mới

- Báo cáo con

- Tuỳ chọn định dạng mới

- Báo cáo có điều kiện

- Trình điều khiển cơ sở dữ liệu trực tiếp

- Xuất ra Word và Excel

- Hỗ trợ Web

- Hỗ trợ những nguồn dữ liệu không phải là quan hệ