Đơn hàng gia công tại công ty XYZ

™ Chương trình kết nối Cơ sở liệu Access Để kết nối với hệ quản trị sở liệu đối tượng ADO phải dùng chuỗi chuổi kết nối ( SQLConn ) thơng qua trình điều khiển Provider: SQLConn = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source= Persist Security Info=False " Đối tượng Connection: Dùng để kết nối hệ quản trị sở liệu, thực thi câc lệnh SQL(insert, update, delete) thơng qua phương thức Execute Có thể tạo đối tượng connection thông qua nhiều cách: Dim Conn as new ADODB.Connection Thực thi câu lệnh SQL .Execute Ví dụ: Với câu lện SQL: Str = " insert into GIAONHAN values('" & Trim(cboSoPhieu) & "','" & Trim(cboSoDDH) & "','" & Trim(txtNgay) & "')" Conn.Execute Str Đối tượng Recordset : Dùng để thực thi lấy mẫu tin từ sở liệu thông qua câu lệnh SQL Select Có thể tạo đối tượng Recordset cách: Dim Rst as new ADODB Recordset Câu lệnh SQL: strSQL = " select TenkhachHang From KhachHang " Thực thi câu lệnh SQL LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com .open , ví dụ: Rst.Open strSQL ,Conn I MÔ TẢ CÁC PHIẾU: Phiếu nhập nguyên liệu: Nguyên liệu Khách Hàng cung cấp sau Công ty khách hàng thoả thuận việc gia công sản phẩm mà khách hàng yêu cầu Số HĐ : Khách Hàng : Địa Chỉ : Điện Thoại : Ngày Nhập : Nguyên liệu Số lượng ĐVT ĐVT Số lượng Số lượng Đơn giá Đơn đặt hàng: Số ĐĐH : Khách Hàng : Địa Chỉ : Điện Thoại : Ngày kí kết : Hạn giao : Sản phẩm Đơn giá Phiếu giao nhận: Số Phiếu : Số ĐĐH : Khách Hàng : Địa Chỉ : Điện Thoại : Ngày Giao : Sản phẩm LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Phiếu tốn: Số TT : Ngày TT : Khách Hàng : Địa Chỉ : Điện Thoại : Tiền TT : Tồn nguyên liệu: Ngày tồn : Khách Hàng : Địa Chỉ : Điện Thoại : Nguyên liệu Công nợ: Ngày CN Khách Hàng Địa Chỉ Điện Thoại Tiền CN Số lượng tồn ĐVT : : : : : Thống kê doanh số theo Sản phẩm ĐĐH: Tháng…….năm 2004 Sản phẩm Số lượng Doanh số (tiền thu) II PHÂN TÍCH: PHÂN TÍCH THÀNH PHẦN DỮ LIỆU CỦA ỨNG DỤNG: Sơ đồ quan niệm liệu: LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Hình 1: Sơ đồ Quan niệm liệu ứng dụng ĐƠN HÀNG GIA CÔNG Mô tả liệu: a) Các loại thực thể: KhachHang DonDatHang ChiTietDonDatHang SanPham DinhMucSanXuat CongNo GiaoNhan ChiTietGiaoNhan NguyenLieu ThanhToan Ton NhapXuatNguyenLieu ChiTietNguyenLieu Khách hàng Đơn đặt hàng Chi tiết đơn đặt hàng Sản phẩm Định mức sản xuất Công nợ Giao nhận Chi tiết giao nhận Nguyên liệu Thanh tốn Tồn Nhập xuất nguyên liệu Chi tiết nguyên liệu LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com b) Mô tả loại thực thể: b1) Thực thể Khách hàng: Thuộc tính MaKhachHang TenKhachHang DiaChi DienThoai Diễn giải Mã khách hàng Tên khách hàng Địa Điện thoại Kiểu Text Text Text Text Ràng buộc Khố Kiểu Text Text Date String Ràng buộc Khố Khố ngoại Kiểu Text Text Number Number Date() Ràng buộc Khố Khố ngoại Kiểu Text Text Number Number Ràng buộc Khố Kiểu Text Text Number Ràng buộc Khố ngoại Khố ngoại b2) Thực thể đơn đặt hàng: Thuộc tính SoDonDatHang MaKhachHang NgayKiKet DienThoai Diễn giải Số đơn đặt hàng Mã khách hàng Ngày kí kết Điện thoại b3) Thực thể Chi tiết đơn đặt hàng: Thuộc tính SoDonDatHang SanPham SoLuongDatHang DonGia HanGia Diễn giải Số đơn đặt hàng Sản phẩm SL đặt hàng Đơn giá Hạn giao b4) Thực thể Sản phẩm: Thuộc tính SanPham TenSanPham DonViTinh DonGia Diễn giải Sản phẩm Tên sản phẩm Đơn vị tính Đơn giá b5) Thực thể Định mức sản xuất: Thuộc tính NguyenLieu SanPham SoLuongSanXuat Diễn giải Nguyên liệu Sản phẩm Số lượng sản xuất b6) Thực thể công nợ: LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Thuộc tính NgayCongNo MaKhachHang TienCongNo Diễn giải Ngày công nợ Mã khách hàng Tiền công nợ Kiểu Date() Text Number Ràng buộc Khố Khố ngoại Kiểu Text Text Number Ràng buộc Khố Khố ngoại Kiểu Text Text Number Number Ràng buộc Khố ngoại Khố ngoại Kiểu Text Text Number Ràng buộc Khố Diễn giải Số tốn Ngày tốn Mã khách Hàng Tiền tốn Kiểu Text Date() Text Number Ràng buộc Khố Khố ngoại Diễn giải Mã khách hàng Nguyên liệu Số lượng tồn Ngày tồn Kiểu Text Text Number Date() Ràng buộc Khố ngoại Khố ngoại b7) Thực thể Giao Nhận: Thuộc tính SoPhieu SoDonDatHang NgayGiao Diễn giải Số phiếụ Số đơn đặt hàng Ngày giao b8) Thực thể Chi tiết giao nhận: Thuộc tính SoPhieu SanPham SoLuong DonGia Diễn giải Số phiếu Sản phẩm Số lượng Đơn giá b9) Thực thể Nguyên Liệu: Thuộc tính NguyenLieu Ten NguyenLieu DonViTinh Diễn giải Nguyên liệu Tên nguyên liệu Đơn vị tính b10) Thực thể Thanh Tốn: Thuộc tính SoThanhToan NgayThanhToan MaKhachHang TienThanhToan b11) Tthực thể Tồn: Thuộc tính MaKhachHang NguyenLieu SoLuongTon NgayTon b12) Thực thể Nhập xuất nguyên liệu: LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Thuộc tính SoHoaDonNhap MaKhachHang NgayNhap Diễn giải Số hố đơn nhập Mã khách hàng Ngày nhập Kiểu Text Text Date() Ràng buộc Khố Khố ngoại Kiểu Text Text Date() Ràng buộc Khố ngoại Khố ngoại b13) Thực thể Chi tiết nguyên liệu: Thuộc tính SoHoaDonNhap NguyenLieu SoLuong Diễn giải Số hố đơn nhập Nguyên liệu Số lượng c) Ràng buộc tồn vẹn: ™ KHỐ CHÍNH: R1-01: id(CongNo) = sttCNO R1-02: id(KhachHang) = MaKhachHang R1-03: id(DonDatHang) = SoDDH R1-04: id(ChiTietDonDathang) = sttDDH R1-05: id(SanPham) = SanPham R1-06: id(DinhMucSanXuat) = sttSX R1-07: id(GiaoNhan) = SoPhieu R1-08: id(ChiTietGiaoNhan) = sttGiaoNhan R1-09: id(ThanhToan) = SoTT R1-10: id(Ton) = sttTon R1-11: id(NhapXuatNguyenLieu) = SoHDN R1-12: id(ChiTietNguyenLieu) = sttHDN R1-13: id(NguyenLieu) = NguyenLieu ™ RÀNG BUỘC MIỀN GÁI TRỊ: R2-01: (CTDDH.SoDDH>0) and (CTDDH.SLDH>0) and (CTDDH.DG>0) R2-02: (SP.DVT> ) and (SP.DG > 0) R2-03: (DMSX.SLSX > 0) R2-04: (GN.NgGiao < DDH.NgKK) R2-05: (CTNL.SL > 0) R2-06: (NL.DVT > 0) R2-07: (TT.TienTT > 0) ™ RÀNG BUỘC GIỮA CÁC THUỘC TÍNH TRONG THỰC THỂ: R3-0: CNOCK = CNODK + TIENNO TIENTHU R3-0: SLTonCK = SLTonDK + NHAP XUAT R3-0: Tiền đặt hàng = CTDDH.SLDH * CTDDH.DG R3-0: Tiền giao nhận = CTGN.SL * CTGN.DG R3-0: Số tiền nợ đầu kì ( CNODK ) tháng phải số tiền nợ cuối kì ( CNOCK ) tháng trước R3-0: Số lượng tồn đầu kì ( SLTonDK ) tah1ng phải số lựơng tồn cuối kì ( SLTonCK ) tháng trước LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com PHÂN TÍCH THÀNH PHẦN XỬ LÝ CỦA ỨNG DỤNG: XL1: Cập nhật Nguyên liệu XL2: Cập nhật phiếu Nhập nguyên liệu XL3: Cập nhật đơn đặt hàng XL4: Cập nhật Phiếu giao nhận XL5: Cập nhật Phiếu tốn XL6: Tính Cơng nợ Khách hàng XL7: Tính Tồn Ngun liệu MÔ TẢ CÁC XỬ LÝ: _ Tên xử lý : XL1: Chức : cập nhật nguyên liệu Input : MaNL, NL Output : NL Qui tắc : NL n thêm,sữa xố vào NL _Tên xử lý Chức Input Output Qui tắc : XL2: : Cập nhật phiếu nhập nguyên liệu : SoHDN h, NL n, NXNL, CTNL, NL, KH : NXNL : Số lượng nhập tháng t NL n tổng số lượng CTNL tháng t có liên quan đến NL n _Tên xử lý Chức Input Output Qui tắc : XL3: : Cập nhật Đơn đặt hàng : SDDH, MSP, DDH, CTDDH, KH, SP : DDH : Số lượng Sản phẩm Khách hàng đặt tháng t tổng số sản phẩm CTDDH tháng t có liên quan đến sản phẩm _Tên xử lý Chức Input Output Qui tắc : XL4: : Cập nhật phiếu Giao nhận : SoP p, SoDDH h, GN, CTGN, DDH, CTDDH : GN : Số lượng giao nhận sản phẩm tháng t tổng số lượng giao nhận CTGN tháng t liên quan đến Sản phẩm _Tên xử lý Chức Input Output Qui tắc : XL5 : Cập nhật phiếu tốn : SoTT, MKH, TTOAN, KH : TTOAN : Số tiền tốn tháng t tổng tiền tốn TTOAN tháng t có liên quan đến KH k _Tên xử lý Chức Input : XL6: : Tính nợ Khách hàng : NgCN, MKH, CNO LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Output : CNO Qui tắc : NOCK = NODK + SONO - _Tên xử lý : XL7 : Chức : Tính tồn Nguyên liệu : Input : NgTON, LN, TON Output : TON Qui tắc : TONCK = TONDK + NHAP - THANHTOAN XUAT III THIẾT KẾ DỮ LIỆU : Sơ đồ Logic liệu: Hình 2: Sơ đồ Logic liệu ứng dụng ĐƠN HÀNG GIA CÔNG Từ điển liệu: MaKhachHang TenKhachHang Mã khách hàng Ten khách hàng LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com DiaChi DienThoai SoDonDatHang NgayKiKet SanPham TenSanPham DonViTinh DonGia SoPhieu NgayGiao NgayCongNo TienCongNo NguyenLieu TenNguyenLieu SoThanhToan NgayThanhToan TienThanhToan SoHoaDonNhap NgayNhap SoLuongDatHang DonGia HanGiao SoLuong SoLuongSanXuat SoLuongTon NgayTon Địa Điện thoại Số đơn đặt hàng Ngày kí kết Sản phẩm Tên sản phẩm Đơn vị tính Đơn giá Số phiếu Ngày giao Ngày công nợ Tiền công nợ Nguyên liệu Tên Nguyên liệu Số tốn Ngày tốn Tiền tốn Số hố đơn nhập Ngày nhập Số lượng đặt hàng Đơn giá Hạn giao Số lượng Số lượng sản xuất Số lượng tồn Ngày tồn Mô tả bảng: 3.1) Khách hàng Thuộc tính: Thuộc tính MaKhachHang TenKhachHang DiaChi DienThoai Kiểu Text Text Text Text Khóa Chính Chỉ mục: Chỉ mục KHACHHANG_PK Thuộc tính MakhachHang Thứ tự ASC 3.2) Cơng nợ: LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Set SSOkh.DataSource = Rst : Khi nhấn nút textbox combobox nhận focus để nhập thông tin khách hàng : Lưu liệu xuống Cơ sở liệu Source code : Private Sub cmdLuu_Click() Dim Str As String Dim Str1 As String If Trim(cboKH.Text) = "" Or Trim(txtTKH.Text) = "" Then MsgBox " Nhap MaKH va TenKH truoc luu ", vbOKOnly + vbExclamation, "WARNING" Exit Sub End If Str = "Insert Into KHACHHANG values('" & Trim(cboKH) & "','" & Trim(txtTKH) & "','" & Trim(txtDC) & "','" & Trim(txtDT) & "' ) " Conn.Execute Str Str1 = "update KHACHHANG set maKhachhang='" & Trim(cboKH) & "', TenKhachHang='" & Trim(txtTKH) & "', DiaChi='" & Trim(txtDC) & "', DienThoai='" & Trim(txtDT) & "' WHERE MaKhachHang='" & Trim(cboKH) & "' " Conn.Execute Str1 SSOkh.Update MsgBox "Da luu Khach Hang '" & Trim(cboKH) & "'' vao CSDL", vbOKOnly + vbExclamation, "WARNING" CmdLuu.Enabled = False cmdmoi.Enabled = True End Sub : Thốt hình Khách hàng Màn hình Nguyên Liệu : LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Hình 8: Màn hình tra cứu, nhập nguyên liệu Source code lấy liệu lên lưới: Dim strSQL As String Dim Cnn As New ADODB.Connection strSQL = "select * FROM NguyenLieu" Set Rst = New ADODB.Recordset Rst.CursorLocation = adUseClient Cnn.Open SQLConn Rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic SSONL.Columns(0).DataField = "NGUYENLIEU" SSONL.Columns(1).DataField = "tennguyenlieu" SSONL.Columns(2).DataField = "donvitinh" Set SSONL.DataSource = Nothing Set SSONL.DataSource = Rst : Khi nhấn nút textbox nhận focus nhập thông tin nguyên liệu : Lưu liệu xuống Cơ sở liệu : Thốt hình Nguyên liệu Màn hình Sản phẩm : LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Hình 9: Màn hình tra cứu, nhập sản phẩm Source code lấy liệu lên lưới: Dim strSQL As String Dim Cnn As New ADODB.Connection strSQL = "select * FROM sanpham" Set Rst = New ADODB.Recordset Rst.CursorLocation = adUseClient 'Conn.Open SQLConn Cnn.Open SQLConn Rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic SSOSP.Columns(0).DataField = "sanpham" SSOSP.Columns(1).DataField = "tensanpham" SSOSP.Columns(2).DataField = "donvitinh" SSOSP.Columns(3).DataField = "dongia" Set SSOSP.DataSource = Nothing Set SSOSP.DataSource = Rst : Khi nhấn nút textbox nhận focus nhập thông tin sản phẩm : Lưu liệu xuống Cơ sở liệu Source code Lưu: LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Private Sub cmdLuu_Click() Dim Str As String Dim Str1 As String If Trim(txtSP) = "" Or Trim(txtTSP) = "" Then MsgBox "Phai nhap MaSP & TenSP truoc luu ", vbOKOnly + vbExclamation, "WARNING" Exit Sub End If Str = "insert into SANPHAM values('" & Trim(txtSP) & "','" & Trim(txtTSP) & "','" & Trim(txtDVT) & "','" & Trim(txtDG) & "')" Conn.Execute Str Str1 = "update SANPHAM Set sanpham='" & Trim(txtSP) & "',tensanpham='" & Trim(txtTSP) & "',donvitinh='" & Trim(txtDVT) & "',dongia='" & Trim(txtDG) & "' " Conn.Execute Str1 SSOSP.Update MsgBox "Da Luu San Pham '" & Trim(txtSP) & "'' Vao CSDL", vbOKOnly + vbExclamation, "WARNING" CmdLuu.Enabled = False End Sub : Thốt hình sản phẩm Màn hình Định mức sản xuất : Source code lấy liệu lên lưới: Dim strSQL As String Dim Cnn As New ADODB.Connection strSQL = "select * from DinhMucSanXuat" Set Rst = New ADODB.Recordset LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Rst.CursorLocation = adUseClient Cnn.Open SQLConn Rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic SSODMSX.Columns(0).DataField = "nguyenLieu" SSODMSX.Columns(1).DataField = "sanpham" SSODMSX.Columns(2).DataField = "soluongsanxuat" Set SSODMSX.DataSource = Nothing Set SSODMSX.DataSource = Rst : Khi nhấn nút textbox nhận focus nhập thơng tin : Lưu liệu xuống Cơ sở liệu : Thốt hình định mức sản xuất Tính tốn: Menu Công nợ: Báo cáo công nợ Menu Tồn : Báo cáo tồn nguyên liệu Menu Thanh Tốn: Hiển thị tiền tốn khách hàng với công ty Màn hình cơng nợ: LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com : Khi nhấn nút textbox nhận focus nhập thông tin phiếu Công nợ : Lưu liệu xuống Cơ sở liệu : Thốt hình Tồn Ngun Liệu Code xử lý tính cơng nợ: Q1: SELECT max(ngaycongNo) AS NgDK FROM CongNo; Q2: SELECT MaKhachHang,TienCongNo As DAU, As SONO , As TTOAN from Q1, CongNo Where NgayCongNo = NgDK UNION Select MaKhachHang, as DAU, Sum(SoLuongDathang * donGia) As SONO, As TTOAN from Q1,ChiTietDondatHang where NgayKiKet = NgDK and NgayKiKet < DateAdd("m",1,NgDK) UNION Select maKhachHang, As DAU,0 As SONO, Sum(ChiTietGiaoNhan.soluong * ChiTietGiaoNhan.dongia) As TTOAN from Q1, ChiTietGiaoNhan where NgayThanhToan = NgDK and NgayThanhToan < DateAdd("m",1,NgDK) group by MaKhachHang; Q3: Insert Into CongNo(NgayCongNo,MaKhachHangTiencongNo) Select DateAdd("m",1,ngDK), MaKhachHang,Sum(Dau) + Sum(soNo) – Sum(TToan) from Q1, Q2 Group By DateAdd(‘m’,1,ngDK), MaKhachHang Having Sum(Dau) + Sum(soNo) – Sum(TToan) 0; Q4: Delete * from CongNo where NgayCongNo In(Select max(NgayCongNo) from CongNo) and NgayCongNo Not in (Select min(NgayCongNo) from CongNo); Màn hình Tồn Nguyên Liệu: LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com : Khi nhấn nút textbox nhận focus nhập thơng tin sản phẩm : Lưu liệu xuống Cơ sở liệu : Thốt hình Tồn Nguyên Liệu Code xử lý tính tồn: Q1 SELECT max(ngayton) AS NgDK FR1OM Ton; Q2 SELECT MaKhachHang,NguyenLieu,Soluongton as Dau,0 as Nhap,0 as Xuat from Q1,Ton where ngayTon=NgDK union select NguyenLieu,SoLuongTon, as Dau,Sum(SoHoaDonNhapXuat) as Nhap,0 as xuat from Q1,NhapXuatNguyenLieu inner join ChitietNguyenLieu on NhapXuatNguyenLieu.SohoaDonNhap=ChitietNguyenLieu.SohoaDonNhap where NgayNhap = NgDK and NgayNhap