ĐẠI HỌC QUỐC GIA THÀNH PHỐ HỒ CHÍ MINH ĐẠI HỌC BÁCH KHOA KHOA CƠ KHÍ BỘ MÔN KỸ THUẬT HỆ THỐNG CÔNG NGHIỆP o0o LUẬN VĂN TỐT NGHIỆP THIẾT KẾ CẢI TIẾN QUÁ TRÌNH CHO CÔNG TY CỔ PHẦN BAO BÌ ĐẠI LỤC GVHD: ThS NGUYỄN TRÍ DŨNG SVTH : TRẦN HỒNG BÍCH MSSV : 20300182 TP.HCM, Tháng 01/2008 i BỘ GIÁO DỤC VÀ ĐÀO TẠO CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM ĐẠI HỌC QUỐC GIA TP.HCM ĐỘC LẬP – TỰ DO – HẠNH PHÚC TRƯỜNG ĐẠI HỌC BÁCH KHOA -KHOA : CƠ KHÍ BỘ MÔN: KỸ THUẬT HỆ THỐNG CÔNG NGHIỆP NHIỆM VỤ LUẬN VĂN TỐT NGHIỆP HỌ VÀ TÊN : TRẦN HỒNG BÍCH NGÀNH : KỸ THUẬT HỆ THỐNG CÔNG NGHIỆP MSSV : 20300182 LỚP : CK03LHT01 Đầu đề luận văn THIẾT KẾ CẢI TIẾN QUÁ TRÌNH CHO CÔNG TY CỔ PHẦN BAO BÌ ĐẠI LỤC Nhiệm vụ • Tìm hiểu lý thuyết cải tiến trình • Mô tả hệ thống sản xuất công ty cổ phần bai bì Đại Lục • • • • Thiết lập biểu đồ kiểm soát đặc tính chất lượng sợi Đánh giá lực trình đặc tính kỹ thuật sợi Xây dựng phương án cải tiến phát triển phần mềm Kết luận Ngày giao nhiệm vụ luận án : 12/10/2007 Ngày hoàn thành nhiệm vụ : 25/12/2007 Họ tên người hướng dẫn : dẫn: Th.S NGUYỄN TRÍ DŨNG Phần hướng 100% Nội dung yêu cầu LVTN thông qua Bộ môn Ngày ………… Tháng ………… Năm ………… CHỦ NHIỆM BỘ MÔN NGƯỜI HƯỚNG DẪN CHÍNH (Ký ghi rõ họ tên) (Ký ghi rõ họ tên) Th.S NGUYỄN NHƯ PHONG Th.S NGUYỄN TRÍ DŨNG PHẦN DÀNH CHO KHOA, BỘ MÔN: Người duyệt (chấm sơ bộ): Đơn vị: Ngày bảo vệ: Điểm tổng kết: Nơi lưu trữ luận văn: .…… ii LỜI CẢM ƠN Khoảng thời gian để nghiên cứu đề tài nhiều đề tài hoàn chỉnh Để hoàn thành luận văn tốt nghiệp này, điều em xin bày tỏ lòng biết ơn sâu sắc đến với gia đình tạo điều kiện thuận lợi cho em suốt trình học tập Và khoảng thời gian tiến hành thực đề tài luận văn tốt nghiệp này, em xin chân thành cảm ơn đến : Quý thầy cô tận tình giảng dạy tháng qua, đặc biệt thầy Nguyễn Trí Dũng – người tận tình hướng dẫn, góp ý, động viên em suốt trình thực đề tài Với phương pháp làm việc kinh nghiệm, thực tiễn thầy cho em lời khuyên quý báu để luận văn tốt nghiệp hoàn thành kịp tiến độ BGĐ, tập thể nhân viên, công nhân công ty cổ phần bao bì Đại Luc tạo điều kiện cho em tiếp xúc thực tế cung cấp thông tin, tài liệu hữa ích góp phần cho luận văn hoàn chỉnh Em chân thành cảm ơn bạn, sinh viên ngành Kỹ thuật Hệ thống Công nghiệp, người sát cánh em trình làm luận văn Các bạn em vượt qua khó khăn, chia sẻ vui buồn đời sinh viên Tham vọng thực đề tài nhiều thời gian tài liệu nghiên cứu có hạn nên không tránh khỏi thiếu sót định, em mong quí thầy cô góp ý để hoàn thành luận văn tốt nghiệp tốt Những kinh nghiệm tích lũy quý báu hành trang giúp em phát huy sáng tạo đường nghiệp tương lai TPHCM, Ngày 10 tháng năm 2008 Sinh viên thực Trần Hồng Bích iii TÓM TẮT LUẬN VĂN TỐT NGHIỆP Đại Lục công ty cổ phần chuyên sản xuất sản phẩm bao bì với nguyên liệu hạt nhựa Hiện công ty, lượng phế phẩm sợi chiếm tỷ lệ cao làm tốn nhiều chi phí sản xuất Vì vậy, việc thiết kế cải tiến trình nhằm giảm chi phí đảm bảo chất lượng sản phẩm việc cấp bách Sáu Sigma hệ phương pháp cải tiến trình dựa thống kê nhằm giảm thiểu tỷ lệ sai sót hay khuyết tật quy trình sản xuất Hệ phương pháp sáu Sigma dựa tiến trình mang tên DMAIC: define (xác định), measure (đo lường), analyze (phân tích), improve (cải tiến), control (kiểm soát) Do đó, luận văn này, em vận dụng bước tiến trình để thiết kế cải tiến quy trình công cụ chủ yếu em sử dụng phân tích biểu đồ kiểm soát Trong trình phân tích liệu, em sử dụng phần mềm thống kê Minitab nhằm hỗ trợ cho việc kiểm định tính ổn định lực trình đặc tính chất lượng Ngoài ra, em vận dụng MS Excel hỗ trợ trình phân tích vẽ biểu đồ kiểm soát Sau phát mẫu nằm giới hạn em tiến hành thu thập lại liệu dùng biểu đồ nhân xác định nguyên nhân gây nên trình kiểm soát Bên cạnh đó, tìm hiểu nguyên nhân gây nhiều phế phẩm, em thấy nguyên nhân chủ yếu lượng nguyên vật liệu đầu vào không kiểm tra trình canh chỉnh máy chủ yếu theo kinh nghiệm làm đặc tính chất lượng sản phẩm không đạt tạo nên nhiều phế phẩm Vì thế, việc xây dựng phương án lấy mẫu kiểm định thích hợp cho nguyên vật liệu đầu vào cần thiết Bằng phương pháp thống kê quan sát liệu thực tế máy kéo chỉ, em thiết lập canh chỉnh máy tối ưu giúp tiết kiệm thời gian chỉnh máy sản phẩm đạt yêu cầu chất lượng Nhằm hỗ trợ cho trình tính toán nhanh chóng kiểm nghiệm lại kết vừa phân tích em tiến hành thiết kế phần mềm chất lượng dựa ngôn ngữ lập trình Visual Basic Ở phần cuối, em tổng kết công việc, đưa kết luận, kiến nghị, đánh giá ưu nhược điểm hệ thống tiến hành mở rộng đề tài sau iv MỤC LỤC LUẬN VĂN TỐT NGHIỆP i NHIỆM VỤ LUẬN VĂN TỐT NGHIỆP ii LỜI CẢM ƠN .iii MỤC LỤC v DANH SÁCH HÌNH VẼ .vii DANH SÁCH BẢNG BIỂU ix DANH SÁCH CÁC TỪ VIẾT TẮT .x CHƯƠNG MỞ ÐẦU 1.1 Ðặt vấn đề 1.2 Mục tiêu luận văn 1.3 Nội dung nghiên cứu .2 1.4 Phạm vi giới hạn .2 1.4.1 Phạm vi 1.4.2 Giới hạn 1.5 Cấu trúc luận văn CHƯƠNG CƠ SỞ LÝ THUYẾT .4 2.1 Giới thiệu cải tiến trình .4 2.2 Giới thiệu Sigma [4] .7 2.3 Những công cụ cho cải tiến trình 11 2.4 Một số lý thuyết hỗ trợ khác 17 2.5 Đánh giá lực trình [1][3] 18 2.6 Biểu đồ kiểm soát (Control Chart) [1][3] 20 2.7 Giới thiệu phần mềm Minitab 22 2.8 Phương pháp nghiên cứu .23 2.9 Các báo liên quan 25 CHƯƠNG GIỚI THIỆU VỀ CÔNG TY CỔ PHẦN 28 BAO BÌ ĐẠI LỤC 28 3.1 Giới thiệu công ty cổ phần nhựa 04 .28 3.2 Cơ cấu tổ chức công ty cổ phần Bao bì Đại Lục 28 3.2.1 Tình hình tổ chức quản lý .28 3.2.2 Thời gian làm việc thời gian nghỉ ngơi nhà máy .30 3.3 Sản phẩm công ty cổ phần Đại Lục – nhà máy Hố Nai 31 3.3.1 Sản phẩm 31 3.3.2 Đặc điểm sản phẩm bao PP 31 3.4 Quy trình sản phẩm 32 3.4.1 Quy trình sản xuất bao bì tồng quát .32 3.4.2 Quy trình công nghệ kéo sợi 32 3.4.3 Quy trình công nghệ dệt .33 3.4.4 Qui trình công nghệ cắt manh may 34 3.5 Dòng lưu chuyển thông tin nhà máy 35 3.6 Hệ thống quản lý chất lượng 36 3.6.1 Chính sách chất lượng 36 3.6.2 Sơ đồ quản lý chất lượng 38 3.6.3 Quy trình kiểm tra chất lượng .39 CHƯƠNG PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG .44 4.1 Trình tự phân tích 44 4.2 Yêu cầu vận hành 44 v 4.3 Xác định kích thước mẫu .44 4.4 Kiềm định tính chuẩn mẫu 45 4.4.1 Trọng lượng sợi 46 4.4.2 Bản 49 4.4.3 Lực kéo đứt sợi .51 4.4.4 Độ giãn dài sợi 53 4.5 Biểu đồ biến số 57 4.5.1 Trọng lượng sợi 57 4.5.2 Bản 61 4.5.3 Lực kéo đứt sợi .64 4.5.4 Độ giãn dài sợi 67 4.6 Phân tích nguyên nhân gây lực trình .70 CHƯƠNG THIẾT KẾ CHI TIẾT 76 VÀ PHÁT TRIỂN PHẦN MỀM HỖ TRỢ .76 5.1 Phân tích thống kê trình canh chỉnh máy 76 5.2 Kiểm soát nguyên liệu đầu vào .77 5.2.1 Phương án lấy mẫu đơn [15] 78 5.2.2 Phương án lấy mẫu kép [15]: .78 5.2.3 Phương án lấy nhiều mẫu [15]: 79 5.3 Phát triển phần mềm hỗ trợ hướng dẫn sử dụng .82 5.3.1 Module Kế hoạch lấy mẫu 82 5.3.2 Module Công cụ kiểm soát 86 CHƯƠNG KẾT LUẬN VÀ KIẾN NGHỊ 109 6.1 Kết 109 6.2 Kiến nghị 109 6.3.1 Ưu điểm .110 6.3.2 Nhược điểm 110 6.4 Mở rộng 110 TÀI LIỆU THAM KHẢO Phụ lục A: Bảng số liệu canh chỉnh máy Phụ lục B: Bảng thu thập số liệu cho kiểm đồ Phụ lục C: Bảng thu thập số liệu cho kiểm định tính chuẩn liệu Phụ lục D: Bảng phiếu kiểm tra Phụ lục E: Bảng code chương trình vi DANH SÁCH HÌNH VẼ Hình 2.1: Quá trình sản xuất Hình 2.2: Mô hình cải tiến trình .5 Hình 2.3: Biểu đồ xương cá 14 Hình 2.4: Biểu đồ phân tán 14 Hình 2.6: Mối tương quan phân bố yêu cầu kỹ thuật giới hạn 19 Hình 2.7: Phương pháp nghiên cứu 23 Hình 3.1: Công ty cổ phần nhựa 04 28 Hình 3.2 : Sơ đồ tổ chức công ty Bao bì Đại Lục .29 Hình 3.4 : Cuộn PP 31 Hình 3.5 : Quy trình sản xuất bao bì tồng quát 32 Hình 3.6 : Quy trình công nghệ kéo sợi .33 Hình 3.7: Khu dệt 33 Hình 3.9 : Sơ đồ dòng lưu chuyển thông tin nhà máy 35 Hình 3.10: Sơ đồ quản lý chất lượng 38 Hình 3.11 : Qui trình kiểm tra chất lượng 40 Hình 4.2: Kiềm định tính chuẩn mẫu 45 Hình 4.3:Biểu đồ phân bố trọng lượng sợi 47 Hình 4.4:Biểu đồ phân bố .50 Hình 4.5:Biểu đồ phân bố lực kéo đứt sợi 52 Hình 4.6:Biểu đồ phân bố độ giãn dài sợi 54 Hình 4.7:Biểu đồ phân bố độ giãn dài sợi lấy lại mẫu 56 Hình 4.8: Biểu đồ kiểm soát RCC trọng lượng sợi .58 Hình 4.9: Biểu đồ kiểm soát XCC trọng lượng sợi .58 Hình 4.10: Năng lực trình trọng lượng 61 Hình 4.11: Biểu đồ kiểm soát RCC .61 Hình 4.12: Biểu đồ kiểm soát XCC cho 62 Hình 4.13: Năng lực trình .64 Hình 4.14: Biểu đồ kiểm soát RCC lực kéo đứt sợi 65 Hình 4.15: Biểu đồ kiểm soát XCC lực kéo đứt sợi 65 Hình 4.16: Biểu đồ kiểm soát XCC lưc kéo đứt sợi 66 Hình 4.17: Năng lực trình lực kéo đứt sợi 67 Hình 4.18: Kiểm đồ RCC độ giãn dài sợi 67 Hình 4.19: Biểu đồ kiểm soát XCC độ giãn dài sợi 68 Hình 4.20: Biểu đồ kiểm soát XCC độ giãn dài sợi chỉnh sửa 69 Hình 4.21: Năng lực trình lực kéo đứt sợi 70 Hình 4.22: Biểu đồ nhân cho khâu kéo 70 Hình 5.1: Màn hình Module .82 Hình 5.2: Giao diện Module Kế hoạch lấy mẫu 83 Hình 5.3: Giao diện Lấy mẫu theo xác suất 84 Hình 5.4: Kỹ thuật lấy mẫu (Template) 85 Hình 5.5: From Lấy mẫu theo AQL 86 Hình 5.6: Giao diện menu liệu với đặc tính chất lượng trọng lượng 87 Hình 5.7: Giao diện kiểm đồ RCC cho trọng lượng 88 Hình 5.8: Giao diện kiểm đồ XCC cho trọng lượng 89 Hình 5.10: Giao diện lực trình trọng lượng 90 Hình 5.11: Giao diện menu liệu với đặc tính chất lượng 91 Hình 5.12: Giao diện kiểm đồ RCC cho .92 vii Hình 5.13: Giao diện kiểm đồ XCC cho .93 Hình 5.14: Giao diện lực trình 94 Hình 5.14: Giao diện menu liệu với đặc tính chất lượng lực kéo đứt sợi 95 Hình 5.15: Giao diện kiểm đồ RCC cho lực kéo đứt sợi 96 Hình 5.16: Giao diện kiểm đồ XCC cho lực kéo đứt sợi 97 Hình 5.17: Giao diện menu liệu với đặc tính chất lượng lực kéo đứt 98 Hình 5.18: Giao diện kiểm đồ XCC cho lực kéo đứt sợi chỉnh sửa 99 Hình 5.19: Giao diện lực trình lực kéo đứt sợi 101 Hình 5.20: Giao diện menu liệu với đặc tính chất lượng độ giãn dài sợi chỉ102 Hình 5.21: Giao diện kiểm đồ RCC cho độ giãn dài sợi 103 Hình 5.22: Giao diện kiểm đồ XCC cho độ giãn dài sợi 104 Hình 5.23: Giao diện menu liệu với đặc tính chất lượng độ giãn dài sợi chỉ105 Hình 5.24: Giao diện kiểm đồ XCC cho độ giãn dài sợi chỉnh sửa 106 Hình 5.26: Giao diện lực trình độ giãn dài sợi 108 viii DANH SÁCH BẢNG BIỂU Bảng 1.1: Thống kê lượng phế phẩm khâu Bảng 1.2: Thống kê tỷ lệ phế phẩm hàng tháng khâu kéo Bảng 2.1: Bảng kiểm tra 15 Bảng 2.2: Tóm tắt QC 15 Bảng 2.3: Bảng tra giá trị Z biết độ ý nghĩa .18 Bảng 2.4: Bảng số lực cực tiểu kiến nghị (Recommended Minimum .19 PCR_RMR) 19 Bảng 3.1 : Chú thích dòng lưu chuyển thông tin nhà máy 35 Bảng 4.1: Bảng hướng dẫn thu thập số liệu đặc tính chất lượng .46 Bảng 4.2: Số liệu đo lường trọng lượng .46 Bảng 4.3: Số liệu trọng lượng lớp 48 Bảng 4.4: Số liệu đo lường .49 Bảng 4.5: Số liệu lớp 50 Bảng 4.6: Số liệu đo lường lực kéo đứt sợi 51 Bảng 4.7: Số liệu lực kéo đứt sợi lớp 53 Bảng 4.8: Số liệu đo lường độ giãn dài sợi 53 Bảng 4.9: Số liệu độ giãn dài sợi lớp .55 Bảng 4.10: Số liệu đo lường độ giãn dài sợi sau tiến hành lấy lại mẫu 55 Bảng 4.11: Số liệu độ giãn dài sợi lớp .57 Bảng 4.12: Bảng nguyên nhân biện pháp khắc phục 71 Bảng 5.1: Số liệu thông số máy .76 Bảng 5.2: Kết tính toán thông số đặc tính chất lượng 76 Bảng 5.3: Số liệu yêu cầu kỹ thuật đặc tính chất lượng 77 Bảng 5.4 : Lấy mẫu kiểm tra theo mức chất lượng chấp nhận quy định: 81 ix DANH SÁCH CÁC TỪ VIẾT TẮT NLQT: Năng lực trình DMAIC: Define - Measure - Analyze - Improve and Control KSCL: Kiểm Soát Chất Lượng CL: Center Line LCL: Lower Control Limit UCL: Upper Control Limit µ : Mean σ : Standard deviation LSL: Lower Specification Limit USL: Lower Specification Limit PCR: Process Capability Ratios PCRU: Upper Specification Only PCRL: Low Specification Only P: Precent of the Spectification PCRk: Process Capability Ratios (Off –Center Process) MIL STD: Military Standard QC: Quality Control SQC: Statistical Quality Control Ac: Acceptance number Re: Rejection number x txtChapnhan.Text = frmConstant.shNI.Cells(i, 4).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 5).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 6).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 7).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 8).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 9).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 10).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 11).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 12).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 13).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 14).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 15).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 16).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 17).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 18).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 19).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 20).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 21).value E11 If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shNI.Cells(i, 22).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 23).value If txtLoaibo.Text "" Then Exit For End If Case 10 txtChapnhan.Text = frmConstant.shNI.Cells(i, 24).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 25).value If txtLoaibo.Text "" Then Exit For End If Case 11 txtChapnhan.Text = frmConstant.shNI.Cells(i, 26).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 27).value If txtLoaibo.Text "" Then Exit For End If Case 12 txtChapnhan.Text = frmConstant.shNI.Cells(i, 28).value txtLoaibo.Text = frmConstant.shNI.Cells(i, 29).value If txtLoaibo.Text "" Then Exit For End If End Select ' -KT chat -Case Select Case AQL.SelectedIndex Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 4).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 5).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 6).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 7).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 8).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 9).value If txtLoaibo.Text "" Then Exit For End If E12 Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 10).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 11).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 12).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 13).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 14).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 15).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 16).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 17).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 18).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 19).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 20).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 21).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shTI.Cells(i, 22).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 23).value If txtLoaibo.Text "" Then Exit For End If Case 10 txtChapnhan.Text = frmConstant.shTI.Cells(i, 24).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 25).value If txtLoaibo.Text "" Then Exit For End If Case 11 txtChapnhan.Text = frmConstant.shTI.Cells(i, 26).value E13 txtLoaibo.Text = frmConstant.shTI.Cells(i, 27).value If txtLoaibo.Text "" Then Exit For End If Case 12 txtChapnhan.Text = frmConstant.shTI.Cells(i, 28).value txtLoaibo.Text = frmConstant.shTI.Cells(i, 29).value If txtLoaibo.Text "" Then Exit For End If End Select ' KT suy giam -Case Select Case AQL.SelectedIndex Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 4).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 5).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 6).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 7).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 8).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 9).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 10).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 11).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 12).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 13).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 14).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 15).value If txtLoaibo.Text "" Then Exit For End If E14 Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 16).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 17).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 18).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 19).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 20).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 21).value If txtLoaibo.Text "" Then Exit For End If Case txtChapnhan.Text = frmConstant.shRI.Cells(i, 22).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 23).value If txtLoaibo.Text "" Then Exit For End If Case 10 txtChapnhan.Text = frmConstant.shRI.Cells(i, 24).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 25).value If txtLoaibo.Text "" Then Exit For End If Case 11 txtChapnhan.Text = frmConstant.shRI.Cells(i, 26).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 27).value If txtLoaibo.Text "" Then Exit For End If Case 12 txtChapnhan.Text = frmConstant.shRI.Cells(i, 28).value txtLoaibo.Text = frmConstant.shRI.Cells(i, 29).value If txtLoaibo.Text "" Then Exit For End If End Select End Select End If Next End Sub End Class E15 ‘\\\\\\\\\\\\\\\\\\\\\\////////////////////’ Imports System.Math Public Class frmXCC_RCC Public max_m As Integer = 500 Public max_n As Integer = 100 Public m, n As Integer Public Filename As String Public chkexcel As Boolean Public oexcel As Excel.Application Public obook As Excel.Workbook Public osheet As Excel.Worksheet Public tTonghop_tam As New DataTable Private Sub tbnNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbnNhap.Click 'frmXCC_RCC.cmdNhap.Enabled = False 'frmXCC_RCC.Spreadsheet1.Visible = True 'frmXCC_RCC.cmdTinh.Visible = True 'row index m = Val(Trim(txtSomau.Text)) n = Val(Trim(txtSoquansat.Text)) For i As Integer = To m + AxSpreadsheet1.Cells(i, 1) = i - Next 'column index For j As Integer = To n AxSpreadsheet1.Cells(1, j + 1) = "X" & j Next End Sub Private Sub btnTinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTinh.Click If txtUSL.Text = "" And txtLSL.Text = "" Then MsgBox(" Chưa có đầy đủ liệu ", MsgBoxStyle.Information, "Thông báo!") txtUSL.Focus() Exit Sub End If AxSpreadsheet1.Cells(1, n + 2) = "Trung bình" AxSpreadsheet1.Cells(1, n + 3) = "R" AxSpreadsheet1.Cells(1, n + 4) = "LCL" AxSpreadsheet1.Cells(1, n + 5) = "CL" AxSpreadsheet1.Cells(1, n + 6) = "UCL" AxSpreadsheet1.Cells(1, n + 7) = "LCLR" AxSpreadsheet1.Cells(1, n + 8) = "CLR" AxSpreadsheet1.Cells(1, n + 9) = "UCLR" AxSpreadsheet1.Cells(1, n + 10) = "Ngoài kiểm soát X" AxSpreadsheet1.Cells(1, n + 11) = "Ngoài kiểm soát R" 'AxSpreadsheet1.ActiveSheet.Columns.Width(7) E16 'tinh Dim X, R, XTB, RTB, CL, UCL, LCL, tong, max_in_row, min_in_row As Double Dim A2, D4, D3, d2, RUCL, RCL, RLCL, sigma As Double X=0 R=0 For i As Integer = To m + tong = max_in_row = AxSpreadsheet1.Cells(i, 2).value min_in_row = AxSpreadsheet1.Cells(i, 2).value For j As Integer = To n + If max_in_row < AxSpreadsheet1.Cells(i, j).value Then max_in_row = AxSpreadsheet1.Cells(i, j).value End If If min_in_row > AxSpreadsheet1.Cells(i, j).value Then min_in_row = AxSpreadsheet1.Cells(i, j).value End If tong = tong + AxSpreadsheet1.Cells(i, j).value Next 'cot Trung binh X AxSpreadsheet1.Cells(i, n + 2) = Round(tong / n, 3) ' cot R AxSpreadsheet1.Cells(i, n + 3) = max_in_row - min_in_row X = X + CDbl(AxSpreadsheet1.Cells(i, n + 2).value) R = R + CDbl(AxSpreadsheet1.Cells(i, n + 3).value) Next 'MsgBox(X & "va " & R) XTB = Round(X / m, 3) RTB = Round(R / m, 3) XTB = Round(X / m, 3) RTB = Round(R / m, 3) 'X value A2 = frmConstant.AxSpreadsheet1.Cells(n, 2).value UCL = XTB + Round(A2 * RTB, 3) CL = XTB LCL = XTB - Round(A2 * RTB, 3) txtUCL.Text = UCL txtCL.Text = CL txtLCL.Text = LCL For i As Integer = To m + AxSpreadsheet1.Cells(i, n + 4) = LCL AxSpreadsheet1.Cells(i, n + 5) = CL AxSpreadsheet1.Cells(i, n + 6) = UCL Next 'R value D4 = frmConstant.AxSpreadsheet1.Cells(n, 4).value D3 = frmConstant.AxSpreadsheet1.Cells(n, 3).value d2 = frmConstant.AxSpreadsheet1.Cells(n, 5).value E17 RUCL = Round(D4 * RTB, 3) RCL = RTB RLCL = Round(D3 * RTB, 3) sigma = Round(RTB / d2, 3) 'tinh PCR,PCRu,PCRl,k Dim PCR, PCRu, PCRl, k As Double PCR = PCRu = PCRl = If (sigma 0) Then PCR = Round((Val(txtUSL.Text) - Val(txtLSL.Text)) / / sigma, 3) PCRu = Round((Val(txtUSL.Text) - XTB) / / sigma, 3) PCRl = Round((XTB - Val(txtLSL.Text)) / / sigma, 3) k = Abs(Round((((Val(txtUSL.Text) + Val(txtLSL.Text)) / 2) - XTB) / ((Val(txtUSL.Text) - Val(txtLSL.Text)) / 2), 3)) txtPCR.Text = PCR txtPCRu.Text = PCRu txtPCRl.Text = PCRl txtk.Text = k End If ' cot RUCL,RLCL,RCL txtUCLR.Text = RUCL txtCLR.Text = RCL txtLCLR.Text = RLCL For i As Integer = To m + AxSpreadsheet1.Cells(i, n + 7) = RLCL AxSpreadsheet1.Cells(i, n + 8) = RCL AxSpreadsheet1.Cells(i, n + 9) = RUCL Next '' -out of R -txtNgoaikiemsoatR.Text = " " 'Dim mau_list(m) As Integer Dim mau As Integer = For i As Integer = To m + If (AxSpreadsheet1.Cells(i, n + 3).value < RLCL) Or (AxSpreadsheet1.Cells(i, n + 3).value > RUCL) Then mau = i - AxSpreadsheet1.Cells(i, n + 11) = mau 'mau_list(i) = mau txtNgoaikiemsoatR.Text = txtNgoaikiemsoatR.Text & CStr((AxSpreadsheet1.Cells(i, n + 11)).value) & " , " End If Next i If mau >= And mau [...]... tranh trong lnh vc kinh doanh quc t éú l c s cho em quyt nh chn ti lun vn tt nghip THIT K CI TIN QU TRèNH CHO CễNG TY BAO Bè I LC 1.2 Mc tiờu lun vn T tỡnh hỡnh sn xut v qun lý cht lng hin ti ca cụng ty, thit lp quy trỡnh ỏnh giỏ nng lc quỏ trỡnh theo yờu cu cho trc v thit lp cỏc biu kim soỏt cht lng sn phm Thụng qua ú a ra nhng phng ỏn ci tin giỳp cụng ty cú nhng bin phỏp gim t l ph phm, nõng cao... kinh doanh v cỏc vn cụng ty ang quan tõm Tỡm hiu cỏc nghiờn cu cú liờn quan Tin hnh thu thp s liu, phõn tớch v thit k h thng Thit k chi tit v phỏt trin phn mm h tr a ra kt lun v kin ngh 1.4 Phm vi v gii hn 1.4.1 Phm vi Nguyờn liu l ht nha cng nh mỏy múc c gi s l y Bi vỡ Cụng ty C phn Bao Bỡ éi Lc l cụng ty trc thuc cụng ty C Phn Nha 04 nờn nguyờn liu c hoch nh t cụng ty m S liu c s dng trong lun... cụng ty phi sn sng ch ng, i phú vi s cnh tranh gay gt t cỏc cụng ty nc ngoi Vỡ th s nhy bộn v linh hot l chỡa khúa quyt nh cho mi s thnh cụng Ngnh nha nc ta cng gp nhiu khú khn do cha ch ng trong ngun nguyờn vt liu u vo l ht nha Ht nha phi nhp khu t cỏc nc khỏc, hn na giỏ ht nha nhng nm gn õy cú nhiu bin ng mnh, lm cho sn phm u ra luụn luụn cú giỏ thnh cao hn so vi cỏc doanh nghip nha nc ngoi Cụng ty. .. ng vo rt nhiu quỏ trỡnh Cỏc cụng ty truyn thng thng t 3 hoc 4 Sigma l mc Sigma chun cho cụng ty, mc dự mc ú, xỏc sut li cú th xy ra l t 6200 ti 67000 trờn mt triu c hi Nu t ti mc 6 Sigma, con s ny ch cũn l 3,4 li trờn mt triu c hi éiu ny cho phộp ỏp ng c s mong i ngy cng tng ca khỏch hng cng nh s phc tp ca cỏc sn phm v quy trỡnh cụng ngh mi ngy nay Nhng nhn thc sai lm cho rng ni dung v mc ớch ca 6-Sigma... cao cho n dch v v cỏc hot ng ti chớnh Tuy cha c ph bin rng Vit Nam nhng mt vi cụng ty cú vn u t nc ngoi nh American Standard, Ford, LG v Samsung ó a chng trỡnh Six Sigma vo trin khai ỏp dng Bi bỏo 4: Tờn bi bỏo: What is the CMMI - Capability Maturity Modelđ Integration? Ngy hon thnh: 30-07-2003 Tỏc gi: Franỗis Dion, ụng l chuyờn gia trin khai phn mm v ci tin quỏ trỡnh Túm tt bi bỏo: CMMI l mụ hỡnh cho. .. chun duy trỡ kt qu v khc phc cỏc vn khi cn, bao gm c cỏc vn ca h thng o lng Cỏc cụng c cú thớch hp nht trong bc ny bao gm: o K hoch kim soỏt (Control plans): õy l mt hoc tp hp cỏc ti liu ghi rừ cỏc hnh ng, bao gm c lch thc hin v trỏch nhim cn thit kim soỏt cỏc tỏc nhõn bin thiờn u vo chớnh yu vi cỏc ch hot ng ti u o Lu qui trỡnh vi cỏc mc kim soỏt: bao gm mt s n l, hoc tp hp cỏc s biu th trc... Quỏ trỡnh (process): to ra sn phm hoc dch v cú hoc kộm cht lng Nng lc quỏ trỡnh (process capability): tớnh bin thiờn u ra ca quy trỡnh liờn quan vi tớnh bin thiờn xỏc nh trc éc tớnh quỏ trỡnh o n nh (stability): to ra sn phm cú cht lng thun nht o Bin thiờn (variability): sn phm t mt quỏ trỡnh khụng bao gi thc s ging Mu (sampling): s n v sn phm chn ngu nhiờn t lụ hay lot sn phm 2.3.2 Phng phỏp thu... lý thuyt nng lc quỏ trỡnh, kim soỏt cht lng ng thi nghiờn cu cỏc bi bỏo, ti cú liờn quan s c ng dng vo trong vic thc hin mc tiờu lun vn Chng 3: Gii thiu v cụng ty c phn Bao Bỡ i Lc nh mỏy H Nai Gii thiu tng quan n chi tit v cụng ty c phn Bao Bỡ i Lc nh mỏy H Nai ng thi ghi nhn h thng qun lý sn xut hin ti núi chung v vn v cht lng núi riờng + Chng 4: Phõn tớch v thit k h thng Kim nh tớnh chun ca... phn bỏn hng t ra l gia tng li nhun cho cụng ty nờn nh qun lý cp cao quyt nh mua phn mm CRM Nhng IT ngh nờn xem xột quy trỡnh trc, nhn din vn v ci tin trong vũng sỏu thỏng trc khi mua phn mm h tr Nhúm thc hin d ỏn ny bao gm hai nh qun lý b phn bỏn hng, giỏm c ti chớnh, nh qun lý v ti chớnh, b phn qung cỏo, lut s, qun lý t chc, k thut viờn IT v nh t vn Thc hin d ỏn ny bao gm 5 bc: o Nhn din quy trỡnh... nờn c thu thp v t chc sao cho vic phõn tớch tip theo sau c n gin Trc nht, ghi chộp cỏc s liu mt cỏch rừ rang, khong thi gian gia thu thp v phõn tớch d liu Hn na, bng d liu cú th cú ớch cho lỳc khỏc trong vic s dng, nờn cn phi ghi chộp khụng nhng v mc ớch o lng v cỏc c tớnh ca nú, m cũn ghi chộp c cỏc d liu v hng dn s dng, ngi thc hin, phng phỏp K n, ghi chộp d liu lm sao cho d dng s dng Nhn xột: Quỏ ... thnh nhim v : 25/12/2007 H tờn ngi hng dn : dn: Th.S NGUYN TR DNG Phn hng 100% Ni dung v yờu cu LVTN ó c thụng qua B mụn Ngy Thỏng Nm CH NHIM B MễN NGI HNG DN CHNH (Ký v ghi rừ h tờn) (Ký v