Phần mềm quản lý thư viện

http://kilobooks.com OBO OK S CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL GIỚI THIỆU: Thực chương trình: Võ Hòa Đoàn Ngày cập nhật sau cùng: Ngày 26 tháng 10 năm 2004 XYZ Công Ty hoạt động theo mô hình phục vụ, mô tả sau: Khách hàng ký đơn đặt hàng để gia công sản phẩm đó.Nguyên liệu khách hàng cung cấp để sản xuất sản xuất xong Công ty giao sản phẩm sản xuất cho khách hàng theo đơn hàng ký Việc tính lượng tồn nguyên liệu tồn lại dựa theo đònh mức sản xuất bao nhiêu, nguyên liệu đơn vò sản phẩm Quản lý việc toán (tiền gia công), công nợ khách hàng vàquản lý tồn nguyên liệu mà công ty giữ khách hàng sau trừ nguyên liệu sản xuất giao sản phẩm Chương trình viết ngôn ngữ Visual Basic, kết nối với Cơ sở liệu Access; với phần mềm Data Widgets để hiển thò liệu lên lưới Crystal Report 8.5 để lập báo cáo Chúng em hướng dẫn tận tình thầy Phạm Ngọc Linh ý kiến đóng góp quý báo bạn Tuy nhiên thới gian kinh nghiệm có hạn nên chương trìng không tránh khỏi thiếu sót, hạn chế Rất mong góp ý quý thầy cô ý kiến bạn Thân Tp HCM ngày 26 tháng 10 năm 2004 Lớp: CV0303S Nhóm HVTH: VÕ HÒA ĐOÀN TRỊNH CÔNG MINH ĐỖ KIẾN HÙNG http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Chương trình kết nối Cơ sở liệu Access KIL OBO OKS CO M Để 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 .open , http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN ví dụ: Rst.Open strSQL ,Conn KIL OBO OKS CO M 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 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 Đơn giá http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Phiếu toá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 : Số lượng tồn ĐVT Nguyên liệu Công nợ: Ngày CN Khách Hàng Đòa Chỉ Điện Thoại Tiền CN : : : : : 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: http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 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 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 toán Tồn http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Nhập xuất nguyên liệu Chi tiết nguyên liệu KIL OBO OKS CO M NhapXuatNguyenLieu ChiTietNguyenLieu 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 Khoá Kiểu Text Text Date String Ràng buộc Khoá Khoá ngoại Kiểu Text Text Number Number Date() Ràng buộc Khoá Khoá ngoại Kiểu Text Text Number Number Ràng buộc Khoá 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: http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Diễn giải Nguyên liệu Sản phẩm Số lượng sản xuất Kiểu Text Text Number Ràng buộc Khoá ngoại Khoá ngoại Kiểu Date() Text Number Ràng buộc Khoá Khoá ngoại Kiểu Text Text Number Ràng buộc Khoá Khoá ngoại Kiểu Text Text Number Number Ràng buộc Khoá ngoại Khoá ngoại Kiểu Text Text Number Ràng buộc Khoá Kiểu Text Date() Ràng buộc Khoá Khoá ngoại KIL OBO OKS CO M Thuộc tính NguyenLieu SanPham SoLuongSanXuat b6) Thực thể công nợ: 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ợ 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 Toán: Thuộc tính SoThanhToan NgayThanhToan Diễn giải Số toán Ngày toán http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN MaKhachHang TienThanhToan Mã khách Hàng Tiền toán Text Number KIL OBO OKS CO M b11) Tthực thể Tồn: Thuộc tính MaKhachHang NguyenLieu SoLuongTon NgayTon 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 Khoá ngoại Khoá ngoại Kiểu Text Text Date() Ràng buộc Khoá Khoá ngoại Kiểu Text Text Date() Ràng buộc Khoá ngoại Khoá ngoại b12) Thực thể Nhập xuất nguyên liệu: Thuộc tính SoHoaDonNhap MaKhachHang NgayNhap Diễn giải Số hoá đơn nhập Mã khách hàng Ngày nhập b13) Thực thể Chi tiết nguyên liệu: Thuộc tính SoHoaDonNhap NguyenLieu SoLuong Diễn giải Số hoá đơn nhập Nguyên liệu Số lượng c) Ràng buộc toàn vẹn: KHOÁ 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M 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 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 toán XL6: Tính Công nợ Khách hàng XL7: Tính Tồn Nguyên 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 xoá 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN : 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 toán : SoTT, MKH, TTOAN, KH : TTOAN : Số tiền toán tháng t tổng tiền toán TTOAN tháng t có liên quan đến KH k _Tên xử lý Chức Input Output Qui tắc : XL6: : Tính nợ Khách hàng : NgCN, MKH, CNO : CNO : NOCK = NODK + SONO - _Tên xử lý Chức Input Output Qui tắc : XL7 : : Tính tồn Nguyên liệu : : NgTON, LN, TON : TON : TONCK = TONDK + NHAP - KIL OBO OKS CO M _Tên xử lý Chức Input Output Qui tắc III THIẾT KẾ DỮ LIỆU : Sơ đồ Logic liệu: THANHTOAN XUAT http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M SSOkh.Columns(1).DataField = "tenkhachhang" SSOkh.Columns(2).DataField = "diachi" SSOkh.Columns(3).DataField = "dienthoai" Set SSOkh.DataSource = Nothing 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 : Thoát hình Khách hàng Màn hình Nguyên Liệu : http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN : Thoát hình Nguyên liệu KIL OBO OKS CO M Màn hình Sản phẩm : 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" http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Set SSOSP.DataSource = Nothing Set SSOSP.DataSource = Rst KIL OBO OKS CO M : 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: 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 : Thoát hình sản phẩm Màn hình Đònh mức sản xuất : http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 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 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 : Thoát hình đònh mức sản xuất Tính toán: Menu Công nợ: Báo cáo công nợ http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Báo cáo tồn nguyên liệu Hiển thò tiền toán khách hàng với công ty KIL OBO OKS CO M Menu Tồn : Menu Thanh Toán: Màn hình công nợ: : 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 : Thoát hình Tồn Nguyên 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) http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M 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: : 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M : Thoá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[...]... KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Hình 2: Sơ đồ Logic dữ liệu của ứng dụng ĐƠN HÀNG GIA CÔNG 2 Từ điển dữ liệu: MaKhachHang TenKhachHang DiaChi DienThoai SoDonDatHang NgayKiKet SanPham TenSanPham DonViTinh DonGia SoPhieu Mã khách hàng Ten khách hàng Đòa chỉ Đ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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC... hình): 1 Màn hình chính: http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN H1ình 3: Màn hình chính của ứng dụng Danh Mục: Menu Đặt hàng Menu Giao nhận Menu Nhập xuất Nguyên liệu 2 Màn hình Đặt hàng: Khách hàng đặt đơn hàng mới Giao hàng cho Khách hàng Nhập nguyên liệu từ khách hàng http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Hình 4: Màn hình Đơn đặt hàng mới Source... Báo cáo công nợ http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Báo cáo tồn nguyên liệu Hiển thò tiền thanh toán của khách hàng với công ty KIL OBO OKS CO M Menu Tồn : Menu Thanh Toán: Màn hình công nợ: : Khi nhấn nút mới thì các textbox nhận focus nhập thông tin phiếu Công nợ mới : Lưu dữ liệu mới xuống Cơ sở dữ liệu : Thoát màn hình Tồn Nguyên Liệu Code xử lý tính công nợ: Q1: SELECT max(ngaycongNo)... Màn hình Tồn Nguyên Liệu: : Khi nhấn nút mới thì các textbox nhận focus nhập thông tin sản phẩm mới : Lưu dữ liệu mới xuống Cơ sở dữ liệu http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M : Thoát màn 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... mức sản xuất : Thuộc tính: Thuộc tính NguyenLieu SanPham SoLuongSanXuat Chỉ mục: Chỉ mục DMSX_PK DMSX _FK ASC Khoá ngoại: Khoá ngoại NguyenLieu SanPham 3.8) Giao Nhận: Thuộc tính: http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Kiểu Text Text Date() Khóa Chính Ngoại Thuộc tính SoPhieu SoDonDatHang SoDonDatHang Thứ tự ASC Bảng tham chiếu DonDatHang Khoá nội SoDonDatHang Kiểu Text Text Number Number Khóa... SoDonDatHang 3.9) Chi tiết Giao Nhận: Thuộc tính: Thuộc tính SoPhieu SanPham SoLuong DonGia Chỉ mục: Chỉ mục CTGN_PK CTGN_FK ASC Khoá ngoại: Khoá ngoại SoPhieu SanPham 3.10) Nguyên liệu: http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Thuộc tính: Kiểu Text Text Number Khóa Chính Thuộc tính NguyenLieu Thứ tự ASC Kiểu Text Date() Text Number Khóa Chính Thuộc tính SoThanhToan MaKhachHang MaKhachHang Thứ tự ASC... THANHTOAN_FK ASC Khoá ngoại: Khoá ngoại MaKhachHang 3.12) Nhập xuất nguyên liệu : Thuộc tính: Thuộc tính SoHoaDonNhap MaKhachHang NgayNhap Kiểu Text Text Number Khóa Chính Ngoại http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Chỉ mục: Thuộc tính SoHoaDonNhap MaKhachHang MaKhachHang Thứ tự ASC Bảng tham chiếu KhachHang Khoá nội MaKhachHang Kiểu Text Text Number Khóa Ngoại Ngoại Thuộc tính SoPhieu SanPham... 4 MÔ TẢ CÁC RÀNG BUỘC TOÀN VẸN : 4.1) KHÓA CHÍNH : R1-01 : id( CONGNO ) = NgayCN R1-02 : id( KHACHANG ) = MKH R1-03 : id( NGUYENLIEU ) = NL R1-04 : id( DONDATHANG ) = SDDH, MAKH http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M R1-05 : id( CHITIETDONDATHANG ) = SDDH, SP R1-06 : id( SANPHAM ) = SANPHAM R1-07 : id( DINHMUCSANXUAT ) = NL, SP R1-08 : id( GIAONHAN ) = SPhieu, SDDH R1-09 :... DienThoai Kiểu Text Text Text Text Khóa Chính Chỉ mục: Chỉ mục KHACHHANG_PK Thuộc tính MakhachHang 3.2) Công nợ: Thuộc tính: Thuộc tính NgayCongNo Kiểu Text Khóa Chính Thứ tự ASC http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN MaKhachHang TienCongNo Text Number Ngoại KIL OBO OKS CO M Chỉ mục: Chỉ mục CONGNO_PK CONGNO_FK Thuộc tính NgayCongNo MaKhachHang MaKhachHang Thứ tự ASC Bảng tham chiếu KhachHang... ChiTietDonDatHang WHERE DonDatHang.SoDonDatHang = ChiTietDonDatHang.SoDonDatHang AND SanPham.SanPham = ChiTietDonDatHang.SanPham" Set Rst = New ADODB.Recordset Rst.CursorLocation = adUseClient http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Cnn.Open SQLConn ' KHÔNG DÙNG BIẾN Conn Rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic SSODatHang.Columns(0).DataField = "sanpham" SSODatHang.Columns(1).DataField ... TTOAN[MaKH] R 3-0 3 : TON[MaKH] R 3-0 4 : DDHANG[MaKH] R 3-0 5 : NXNL[MaKH] R 3-0 6 : GNHAN[SoDDH] R 3-0 7 : CTDDH[SoDDH] R 3-0 8 : CTDDH[MaSP] R 3-0 9 : CTGN[MaSP] R 3-1 0 : DMSX[MaSP] R 3-1 1 : GN[SoPhieu] R 3-1 2 : DMSX[MaNL]... (CTDDH.DG > 0) R 2-0 2 : (SP.DG > 0) R 2-0 3 : (DMSX.SLSX > 0) R 2-0 4 : (CNO.TienCNO > 0) R 2-0 5 : (CTGN.SL > 0) and (CTGN.DG > 0) R 2-0 6 : (TToan.TToan > 0) 4.3) KHÓA NGOẠI: R 3-0 1 : CNO[MaKH] R 3-0 2 : TTOAN[MaKH]... (SP.DG > 0) R 2-0 3: (DMSX.SLSX > 0) R 2-0 4: (GN.NgGiao < DDH.NgKK) R 2-0 5: (CTNL.SL > 0) R 2-0 6: (NL.DVT > 0) R 2-0 7: (TT.TienTT > 0) RÀNG BUỘC GIỮA CÁC THUỘC TÍNH TRONG THỰC THỂ: R 3-0 : CNOCK = CNODK