BÀI TẬP THỰC HÀNH SỐ Bài Cơ sở Quản lý lương cán bộ

BÀI TẬP THỰC HÀNH SỐ Bài Cơ sở Quản lý lương cán Chương Làm việc với bảng Tạo CSDL bảng DMPHONG, DMCHUCVU, HSCANBO - Trong bảng HSCANBO: vùng Phong lấy liệu từ Maphong bảng DMPHONG Vùng Chucvu lấy liệu từ Macv bảng DMCHUCVU - Thiết lập thuộc tính cấn thiết theo yêu cầu sau: - MaCB chuỗi gồm 10 số có dạng 00-00-0000: ký tự đầu năm vào biên chế, hai ký tự sau số năm công tác lý tự cuối số thứ tự - Ngày sinh có dạng dd/mm/yyyy, có điều kiện tuổi khơng q 60 tuổi - Địa lấy liệu từ danh sách gồm: Quy Nhơn, Tuy Phước, An Nhơn, Tây sơn, Phù Cát, Phù Mỹ - Điện thoại chuổi số có dạng 9999-9999999 - Giới tính kiểu Yes/No liệu nam/nữ - Bậc lương số nguyên dương =50 50 giảm 5% Tạo Form nhập liệu cho bảng HOADON, CHITIETHD Yêu cầu: - Khoá vùng TÊNKHÁCH, ĐỊA CHỈ, ĐIỆN THOẠI - Khố vùng TÊN SẢN PHẨM, ĐƠN VỊ TÍNH, ĐƠN GIÁ, THÀNH TIỀN - Hãy thêm liệu cho hoá đơn BÀI TẬP THỰC HÀNH SỐ (Chương 4: Report) Tạo danh sách cán gồm cột STT, HỌ TÊN, GIỚI TÍNH, NGÀY SINH, TÊN PHỊNG, TÊN CHỨC VỤ, HSL, LƯƠNG, Cuối Report đếm số lượng cán bộ, tính tổng lương; Tạo danh sách cán in theo năm sinh Tạo danh sách cán in theo phòng 4 Đưa danh sách mặt hàng theo mẫu sau: In bảng tổng hợp hoá đơn theo ngày In hoá đơn bán hàng, hoá đơn in trang giấy BÀI TẬP THỰC HÀNH SỐ (Chương 5: Macro) Tạo form in danh sách cans theo phòng mẫu sau: Yêu cầu: Trên Form bỏ nút điều khiển nhập, bỏ Line bỏ trỏ mẫu tin, bỏ cuộn Tạo Form in danh sách cán theo giới tính Các đối tượng nhập giới tính Textbox, Combo, Option Group, Check box Tạo form in danh sách cán theo phòng giới tính Tạo Form lựa chọn kiểu in danh sách cán Tạo form in danh sách cán theo phịng có lựa chon kiểu in Tạo form lọc liệu theo giới tính mẫu sau: Tạo Form tìm kiếm sau: Tạo form in danh sách mặt hàng theo hoá đơn hoặn tháng bán sau: Tạo Form in danh sách bán hàng theo ngày, tháng, năm Có thể thay đổi nhập tháng, quý đối tượng Spinner 10 Tạo Form tìm kiếm theo tên khách hàng, điện thoại Nút “In hoá đơn” dùng để in hoá đơn bán hàng khách có tên textbox có số điện thoại Textbox BÀI TẬP THỰC HÀNH SỐ (Chương 6: Modules) Tạo Modules có tên CTCON chứa hàm sau: Hàm TACHTEN dùng để tách tên từ chuỗi họ tên Function tachten(hoten As String) As String Dim vitri As Integer vitri = If InStr(1, Trim(hoten), " ") = Then tachten = hoten Exit Function End If While InStr(vitri + 1, Trim(hoten), " ") > vitri = InStr(vitri + 1, Trim(hoten), " ") Wend tachten = Mid(hoten, vitri + 1) End Function Mở cửa sổ Immediate thử gọi hàm ?TACHTEN(“Nguyễn Thị Thanh Xuân”), … thử tên khác Tương tự tạo hàm TACHHO dùng để tách họ đệm từ chuỗi họ tên ?TACHHO(“Nguyễn Thị Thanh Xuân”) -> “Nguyễn Thị Thanh” Viết hàm mã hoá Tiếng Việt bảng mã UNICODE để xếp theo quy cách Tiếng Việt Public Function MAHOAUNICODE (chuoi1 As String) As String Dim chuoix, chuoiy As String Dim dodaichuoi, vitri As Byte chuoix = "a ;à ;ả ;Ã ;á ;ạ ;ă ;ằ ;ẳ ;ẵ ;ắ ;ặ ;â ;ầ ;È ;É ;Ê ;Ë ;e ;Ì ;Ỵ ;Ï ;Ð ;Đ ;ê ;ề ;ể ;ễ ;ế ;ệ ;i ;ì ;ỉ ;ĩ ;í ;ị ;o ;ò ;ỏ ;õ ;ó ;ọ ;ồ ;ổ ;ỗ ;ố ;ộ ;ờ ;ở ;ỡ ;ớ ;ợ ;u ;ù ;đ ;ị ;ó ;ơ ;õ ;ư ;÷ ;ø ;ù ;y ;ỳ ;ỷ ;ỹ ;ý ;ỵ ;d ;đ " chuoiy="aa;ab;ac;ad;ae;af;ag;ah;ai;aj;ak;al;am;an;ao;ap;ea;eb;ec;ed;ee;ef;eg;eh;ei;ej;e k;el;ia;ib;ic;id;ie;if;oa;ob;oc;od;oe;of;og;oh;oi;oj;ok;ol;om;on;oo;op;ua;ub;uc;ud;ue;uf ;ug;uh;ui;uj;uk;ya;yb;yc;yd;ye;yf;da;db" mahoaTCVN3 = Space(0) dodaichuoi = Len(chuoi1) vitri = While vitri Then baso = baso + " moát" Else If dv = And chuc >= Then baso = baso + " laêm" Else If dv >= Then baso = baso + chuso(dv) + Space(1) End If End If End If End Function Tạo TIEMCHU dùng để đọc số tiền không 12 số ( 9999999999999 Then tienchu = " soá lớn" Else If sotien < Then tienchu = " không đọc số âm" Else tienchu = "" End If End If End If chuoitien = Right(Space(11) + str(sotien), 12) For i = To nhom = Mid(chuoitien, i * - 2, 3) If nhom Space(3) And nhom "000" Then tienchu = tienchu + baso(nhom) + donvi(i) + Space(1) Else If i = Then tienchu = tienchu + " đồng" End If End If Next End Function Tạo phiếu lương tháng 12 cho cán mẫu sau: Cuối phiếu lương đọc thực lĩnh thành chữ tương ứng Tạo Report DANH SÁCH CÁN BỘ đựoc xếp thep tên, họ, ngày sinh HD: Report lấy liệu nguồn từ query xếp câu Tạo Report in theo phòng gồm cột STT, Mã CB, Họ, Tên, chức vụ, ngày sinh, lương, BHYT, BHXH, Thực lĩnh Sắp xếp theo thứ tự ưu tiên tên, họ, ngày sinh Cuối nhóm tính tổng thực lĩnh đọc tổng thực lĩnh thành chữ, ký tên đóng dấu Trong BHYT=0.01*lương BHXH =0.05*lương Thực lĩnh = lương - BHYT - BHXH (=0.94 *lương) Chú ý: Sử dụng hàm TACHHO, TACHTEN dùng để tách họ đệm tên khỏi chuỗi họ tên ( cột họ tên0 TACHHO(“Nguyễn Thị Lan Anh” ) -> “Nguyễn Thị Lan” BÀI TẬP THỰC HÀNH SỐ (Chương 7: Lập trình với CSDL) Tạo Form nhập liệu cho bảng HSCANBO; nút lệnh tạo MACRO có u cầu sau: - Nút “Xố” có thơng báo “Bạn có muốn xố khơng?” - Nút “Thốt” có thơng báo “Bạn có muốn khơng?” Tương tự thay đổi nút lệnh Wizard sử dụng Macro cho Form nhập khác Tạo Form nhập liệu cho bảng HSCANBO; nút lênh viết lệnh Docmd với yêu cầu sau: - Nút “Trước” có thơng báo “hết liệu” trỏ mẫu tin - Nút “Sau” có thông báo lỗi “Hết liệu” kho trỏ or mẫu tin cuối - Nút “Lưu” có thơng báo “Trùng mã” nhập trùng liệu vùng khoá (mã cán bộ) không nhập liệu vùng liên kết (phịng, chức vụ) - Nút “Xố” có thơng báo lỗi “Bạn co muốn xố khơng?” - Trên Form có nút “Tính HSL, lương” dùng để điền liệu cho cột HSL, lương bảng cho mẫu tin hành Nút lệnh Trước Đoạn lệnh On Error GoTo Err_truoc_Click DoCmd.GoToRecord , , acPrevious Exit_truoc_Click: Exit Sub Err_truoc_Click: MsgBox "Het du lieu", vbInformation, "thong bao" Đầu Resume Exit_truoc _Click On Error GoTo Err_sau_Click DoCmd.GoToRecord , , acNext Exit_sau_Click: Exit Sub Err_sau_Click: MsgBox "Het du lieu", vbInformation, "thong bao" Resume Exit_truoc _Click DoCmd.GoToRecord , , acFirst Cuối DoCmd.GoToRecord , , acLast Lưu On Error GoTo Err_luu_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.RunCommand (acCmdSaveRecord) Exit_luu_Click: Exit Sub Err_luu_Click: MsgBox "Trung ma", vbInformation, "thong bao" Resume Exit_luu_Click If MsgBox("ban co muon xoa khong", vbYesNo, "thong bao") = vbYes Then DoCmd.RunCommand (acCmdDeleteRecord) End If DoCmd.RunSQL "update hscanbo set hsl=2.34+([bacluong]-1)*0.33, luong=[hsl]*540000 where macb=[forms]![nhaphscanbo]![macb]" (không ghi xuống hàng) Sau Xố Tính hsl, luong Tạo form in danh sách hồ sơ cán tổng hợp sau: Viết lênh cho nút “Thực in” tt = IIf(chonin = 1, "indscanbo", IIf(chonin = 2, "dsnamsinh", "dsphong")) Select Case chon Thêm điều kiên in tt = IIf(chonin = 1, "indscanbo", IIf(chonin = 2, "dsnamsinh", "dsphong")) Select Case chon Case DoCmd.OpenReport [tt], acNomal Case DoCmd.OpenReport [tt], acPreview Case DoCmd.OutputTo acReport, [tt] End Select Case DoCmd.OpenReport [tt], acNomal, ,"phong=[forms]![in_chonds]! [ph]" Case DoCmd.OpenReport [tt], acPreview, ,"phong=[forms]! [in_chonds]![ph]" Case DoCmd.OutputTo acReport, [tt] End Select Tạo Form in danh sách cán theo phịng giới tính Viết lệnh cho nút “thực in” dk = IIf(chonin = 1, "phong=[forms]![in_dk]! [combo0]", "gioitinh=[forms]! [in_dk]![check1]") Select Case chon Case DoCmd.OpenReport "dscanbo", acNomal, , [dk] Case DoCmd.OpenReport "dscanbo", acPreview, , [dk] Case DoCmd.OutputTo acReport, "dscanbo", , , Yes PHẦN THỰC HÀNH THÊM Sử dụng kỹ thuật Sub-Main Form để tạo cac form tổng hợp liệu Sau chọn tên phòng ban, bảng lương cán phịng hiển thị lên sub-form Nhấn nút In bảng lương, bảng lương riêng phịng ban in report Hướng dẫn: Viết lệnh Textbox tên phòng: =cbophongban.Column(1) Tạo form đếm số nam nữ theo phòng chọn từ Combo Thiết kế form tổng hợp thông tin bán hàng sau: Sau nhập xong giá trị từ ngày đến ngày, thông tin chi tiết mặt hàng bán phạm vi ngày tổng hợp theo giao diện Tạo form theo dõi thơng tin hố đơn bán hàng khách hàng đó: Sau chọn tên khách, thơng tin hố đơn mua hàng hiển thị Tạo form theo dõi thơng tin hố đơn bán hàng khách hàng đó: Sau chọn tên khách, thơng tin hoá đơn mua hàng hiển thị Quản lý bán hàng thiết kế Form có tên DanhsachHDtheoKH dang chính/phụ để xem thơng tin hóa đơn khách hàng theo mẫu: Yều cầu: - Khi chọn mã khách hàng ComboBox tên khách hàng - Hiện danh sách hóa đơn khách hàng (Query Total) - Tính tổng số hóa đơn tổng thành tiền theo khách hàng - Khi chọn nút IN CHI TIẾT HÓA ĐƠN mở report sau: Gợi ý: - Tạo query phân nhóm theo MaHD MaKH, tính tổng thành tiền - Tạo Form lấy liệu nguồn từ Query trên, tạo Text5 tính số HĐ, Text6 tổng tiền HĐ - Tạo Form mẹ: Tạo textbox tên KH: CboKH.Column(1) Tạo Textbox số HĐ: Formcon.Form!text5, Formcon.Form!text6 - Tạo Report Wizard phân nhóm theo vùng TênKH MaHĐ Tạo menu “Quản lý lương” sau: CẬP NHẬT BÁO CÁO IN ẤN DM PHÒNG TRUY VẤN IN THEO PHÒNG DM CHỨC VỤ TÌM KIẾM IN THEO GIỚI TÍNH HỒ SƠ CÁN BỘ THOÁT IN LỰA CHON KIỂU IN - Gắn menu lên Form chính, Form tự động chạy khởi động chương trình, Form chế độ Max Tương tự tạo menu “Quản lý bán hàng”