Thực hành lập trình CSDL với VB.net - 24

Hình 96 Cửa sổ Format Editor Chọn tab Date chọn Customize xuất hiện cửa sổ 1


Hình 96. Cửa sổ Format Editor


Chọn tab Date / chọn Customize, xuất hiện cửa sổ Customize Style


Hình 97 Cửa sổ Custom Style Và chọn kiểu hiển thị mong muốn rồi nhấn nút OK 2


Hình 97. Cửa sổ Custom Style

Và chọn kiểu hiển thị mong muốn rồi nhấn nút OK.

Có thể bạn quan tâm!

Xem toàn bộ 318 trang tài liệu này.

Chú ý: Để xem thử báo cáo vừa tạo, nhấn chuột vào nút Main Report Preview để xem

Chỉnh sửa lại Report nếu cần. Kết thúc việc thiết kế báo cáo phải lưu lại kết

quả.

3. Kết quả thiết kế:


Hình 98 Kết quả thiết kế giấy mời khách hàng hoàn chỉnh 4 Kết quả thực 3


Hình 98. Kết quả thiết kế giấy mời khách hàng hoàn chỉnh

4. Kết quả thực thi



Hình 99. Kết quả thực thi in giấy mời khách hàng

b) Thiết kế form điều khiển việc in giấy mời khách hàng theo mẫu


Hình 100 Form điều khiển việc in giấy mời khách hàng 1 Phân tích yêu cầu 4


Hình 100. Form điều khiển việc in giấy mời khách hàng

1. Phân tích yêu cầu.

Theo mẫu trên thì phải có một form chứa:

- Các đối tượng có nội dung “IN GIẤY MỜI KHÁCH HÀNG”, “In theo”, Mã khách hàng” là các Label.

- Các đối tượng “Tất cả khách hàng”, “Từng khách hàng” là các Radio Button

- Ô nhập mã khách hàng là một Textbox

- Các nút “Xem trước”, “In ấn”, “Kết thúc” là các Button

2. Hướng dẫn thao tác

Để thiết kế form theo mẫu trên cần tiến hành các thao tác sau: Trên thanh menu, chọn Project/Add New Item.

Xuất hiện cửa sổ Add New Item. Chọn loại Windows Form, sau đó nhập tên frmInGiayMoiKhachHang vào ô Name rồi nhấn nút Add.

- Kéo điều khiển Label từ cửa sổ Toolbox vào form vào vị trí theo yêu cầu. Nháy phải chuột vào đối tượng Label rồi chọn Properties để thiết lập các thuộc tính cho đối tượng Label như sau:

+ Text: THÔNG TIN KHÁCH HÀNG

+ Font name: Microsoft Sans Serif

+ Font size: 18

+ Font bold: True

+ Các giá trị khác để mặc định

+ Trên menu chọn Format/Center in form/Horizontally để căn giữa.

- Kéo điều khiển Label từ cửa sổ Toolbox vào form vào vị trí theo yêu cầu. Nháy phải chuột vào đối tượng Label rồi chọn Properties để thiết lập các thuộc tính cho đối tượng Label như sau:

+ Font name: Microsoft Sans Serif

+ Font size: 9

+ Text: In theo

Thực hiện thao tác tương tự để tạo đối tượng có nội dung “Mã khách hàng”

- Kéo điều khiển Textbox từ cửa sổ Toolbox vào form vào vị trí theo yêu cầu. Nháy phải chuột vào đối tượng Textbox rồi chọn Properties để thiết lập các thuộc tính cho đối tượng Textbox như sau:

+ Font name: Microsoft Sans Serif.

+ Font size: 9.

+ Enable: False.

- Kéo điều khiển Radio Button từ cửa sổ Toolbox vào form vào vị trí theo yêu cầu. Nháy phải chuột vào đối tượng Radio Button rồi chọn Properties để thiết lập các thuộc tính cho đối tượng Radio Button như sau:

+ Name: RadioButtonTatCaKH.

+ Font name: Microsoft Sans Serif.

+ Font size: 9.

+ Text: Tất cả khách hàng.

+ Checked: True.

- Kéo điều khiển Radio Button từ cửa sổ Toolbox vào form vào vị trí theo yêu cầu. Nháy phải chuột vào đối tượng Radio Button rồi chọn Properties để thiết lập các thuộc tính cho đối tượng Radio Button như sau:

+ Name: RadioButtonTungKH.

+ Font name: Microsoft Sans Serif.

+ Font size: 9.

+ Text: Từng khách hàng.

+ Checked: True.

- Kéo điều khiển Button từ cửa sổ Toolbox vào form vào vị trí theo yêu cầu. Nháy phải chuột vào đối tượng Button rồi chọn Properties để thiết lập các thuộc tính cho đối tượng Button như sau:

+ Name: ButtonXemTruoc.

+ Font name: Microsoft Sans Serif.

+ Font size: 9.

+ Text: Xem trước.

- Kéo điều khiển Button từ cửa sổ Toolbox vào form vào vị trí theo yêu cầu. Nháy phải chuột vào đối tượng Button rồi chọn Properties để thiết lập các thuộc tính cho đối tượng Button như sau:

+ Name: ButtonInAn.

+ Font name: Microsoft Sans Serif.

+ Font size: 9.

+ Text: In ấn.

- Kéo điều khiển Button từ cửa sổ Toolbox vào form vào vị trí theo yêu cầu. Nháy phải chuột vào đối tượng Button rồi chọn Properties để thiết lập các thuộc tính cho đối tượng Button như sau:

+ Name: ButtonKetThuc.

+ Font name: Microsoft Sans Serif.

+ Font size: 9.

+ Text: Kết thúc.

Viết mã lệnh cho các điều khiển như sau:


Lưu ý: Để thao tác với Crystal Report người lập trình phải đưa vào các thư viện bằng đoạn mã sau:

Imports CrystalDecisions.CrystalReports.Engine


Mã lệnh khi click vào điều khiển RadioButtonTatCaKH


Private Sub RadioButtonTatCaKH_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonTatCaKH.CheckedChanged

'Bật tắt ô nhập mã khách hàng

TextBoxMaKH.Enabled = Not RadioButtonTatCaKH.Checked End Sub


Mã lệnh khi click vào điều khiển RadioButtonTatCaKH


Private Sub RadioButtonTungKH_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonTungKH.CheckedChanged

'Bật tắt ô nhập mã khách hàng

TextBoxMaKH.Enabled = RadioButtonTungKH.Checked End Sub


Mã lệnh để hiển thị họ tên khách hàng khi nhập giá trị mã khách hàng vào textbox mã khách hàng

Private Sub TextBoxMaKH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxMaKH.TextChanged

'Khai báo đối tượng và biến cần sử dụng

Dim sqlTimKiem As String

'Thiết lập câu lệnh tìm kiếm theo mã khác hàng sqlTimKiem = "SELECT * FROM tblKhachHang WHERE

[MaKH]=" & TextBoxMaKH.Text

Using cn As New SqlConnection("Data Source=PHANDUCTHIEN;Initial Catalog=QLYBH;User ID=sa;Password=admin123@")

Using cmd As New SqlCommand(sqlTimKiem, cn) cmd.CommandType = CommandType.Text cn.Open()

Dim ds As New DataSet()

Dim da As New SqlDataAdapter(cmd) da.Fill(ds)

'Nếu tồn tại mã khách hàng

If ds.Tables(0).Rows.Count > 0 Then TextBoxTenKH.Text =

ds.Tables(0).Rows(0).Item("HoTen").ToString()

Else

'Thông báo

MessageBox.Show("Mã khách hàng không đúng", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)

TextBoxMaKH.Focus()

End If cn.Close()

End Using End Using

End Sub


Mã lệnh khi click vào nút “Kết thúc”


Private Sub ButtonKetThuc_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles ButtonKetThuc.Click 'Đóng form

Me.Close() End Sub


Mã lệnh khi click vào nút “Xem trước”


Private Sub ButtonXemTruoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonXemTruoc.Click

'Khai báo một form kiểu frmXemTruocGiayMoiKhachHang Dim frm As New frmXemTruocGiayMoiKhachHang

'Hiển thị form frmXemTruocGiayMoiKhachHang ở trên cùng các cửa sổ khác

frm.ShowDialog() End Sub


Mã lệnh khi click vào nút “In ấn”


Private Sub ButtonInAn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonInAn.Click

If RadioButtonTatCaKH.Checked Then 'Chuyển trạng thái con trỏ Me.Cursor = Cursors.WaitCursor 'Tạm khóa nút In ấn ButtonInAn.Enabled = False

'In tất cả các khách hàng

'Khai báo một đối tượng Crystal Report Dim myReport As New ReportDocument() 'Tải báo cáo từ đường dẫn chỉ định

myReport.Load(Application.StartupPath.ToString() & "GiayMoiKhachHang.rpt")

.....

⇦ Trang trước - Trang tiếp theo ⇨

Ngày đăng: 16/07/2022