Luận văn phân tích thiết kế và xây dựng phần mềm quản lý hàng hoá tại công

Luận văn Phân tích thiết kế xây dựng phần mềm Quản lý hàng hố cơng ty Trách nhiệm hữu hạn Thương mại xây dựng Đức Việt LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com LỜI MỞ ĐẦU Ngày hoà nhịp với phát triển chung cơng nghệ thơng tin giới, công nghệ thông tin nước ta năm gần có bước phát triển mạnh mẽ nhiều lĩnh vực Cụ thể lĩnh vực quản lý, lĩnh vực mà máy tính sử dụng nhiều Máy tính điện tử khơng phương tiện quý mà ngày gần gũi với người phương án tối ưu công việc quản lý sử dụng thông tin Trước chuyển dịch kinh tế thị trường, cạnh tranh doanh nghiệp điều tránh được, lợi nhuận mục tiêu hướng tới doanh nghiệp Để đứng vững cạnh tranh khơng ngừng phát triển mở rộng thị trường đòi hỏi doanh nghiệp phải trọng tới tất khâu trình kinh doanh từ bỏ vốn thu vốn về, thu hiệu kinh tế cao bỏ chi phí thấp Đồng thời doanh nghiệp phải thực biện pháp tổ chức quản lý theo quy trình cơng nghệ đại, có quản lý chặt chẽ người Đối với doanh nghiệp kinh doanh mặt hàng thị trường rộng lớn có tính cạnh tranh cao Cơng ty TNHH TM XD Đức Việt việc đáp ứng nhu cầu khách hàng cách xác, nhanh chóng tiện lợi chiếm lịng tin khách hàng từ đem lại hiệu kinh tế cao cho cơng ty Điều địi hỏi cơng ty phải tìm biện pháp để xây dựng hồn thiện hệ thống thơng tin nhằm tin học hố hoạt động tác nghiệp đơn vị việc quản lý kinh doanh công ty Sau thời gian thực tập phận Kế hoạch hàng hố cơng ty em chọn đề tài: ”Phân tích thiết kế xây dựng phần mềm Quản lý hàng hố cơng ty TNHH TM XD Đức Việt ” với ngôn ngữ để xây dựng phần mềm là:”Visual Basic 6.0”, từ sâu tìm hiểu cơng tác quản lý hàng hố doanh nghiệp để tìm nhược điểm, ưu điểm qua đề xuất biện pháp, cách quản lý để cơng tác quản lý hàng hố cơng ty hồn thiện hơn.Em xin giới thiệu cách tổng quát Công ty TNHH TM XD Đức Việt tình hình ứng dụng tin học công ty qua báo cáo LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHƯƠNG I: GIỚI THIỆU CHUNG VỀ CÔNG TY TNHH TM VÀ XD ĐỨC VIỆT I Những thông tin Công ty TNHH TM XD Đức Việt Giới thiệu công ty Công ty TNHH TM XD Đức Việt doanh nghiệp tư nhân thành lập vào hoạt động từ tháng 8/2001 Trong năm qua Công ty cung cấp số mặt hàng vật liệu xây dựng cho cửa hàng, cơng trình khu vực Hà nội số vùng lân cận Với lịng nhiệt tình mong muốn mang đến cho khách hàng hài lòng sản phẩm chất l ượng cao mang tính thẩm mỹ, Cơng ty ln cải tiến tìm giải pháp để giải vướng mắc hoạt động quản lý hoạt động kinh doanh khách hàng Đức Việt tin tiêu chí để tạo tin tưởng nơi khách hàng là: phục vụ nhiệt tình đội ngũ nhân viên giàu kinh nghiệm; áp dụng quy trình kiểm tra chất lượng cách nghiêm ngặt; sách khơng ngừng cải tiến hoàn thiện m ẫu mã sản phẩm Quan trọng cả, Đức Việt xây dựng đội ngũ chuyên nghiệp, chuyên sâu để nắm vững nghiệp vụ giải pháp mẫu mã ,chất lượng giá cho loại cơng trình, từ thấu hiểu công việc mong muốn khách hàng, khách hàng chia sẻ kinh nghiệm để tới thành công Với mục tiêu trở thành nhà cung cấp ch ính cho hệ thống cửa hàng vật liệu xây dựng khu vực, Đức Việt cam kết trì mối quan hệ h ợp tác lâu dài với khách hàng Trên nguyên tắc “cùng tới thành công”, thành cơng khách hàng động lực để Đức Việt phát triển hướng tới Công ty chuyên cung cấp loại sản phẩm gạch ốp lát, loại thiết bị sứ vệ sinh sản phẩm sen vòi cho cửa hàng khu vực Hà nội số vùng lân cận Tên công ty Tên tiếng Việt : Công ty TNHH TM XD Đức Việt Tên tiếng Anh : Duc Viet trading and production Co.,LTD Địa liên hệ: LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com - Trụ sở chính: Kho 47 Cát Linh , Đống Đa ,Hà Nội Điện thoại: 844 3736 5236 Fax : Email : ducviet120 @yah oo.com - Chi nhánh : Số 120 Hồng Quốc Việt , Ba Đình , Hà Nội Điện thoại: 844 38232403 Giấy phép thành lập công ty : Số đăng ký 5234/GF Sở Kế hoạch đầu tư Hà Nội cấp ngày 18 tháng 12 năm 2002 Vốn điều lệ : 1.500.000.000 ( Một tỷ năm trăm triệu đồng ) Quá trình hình thành phát triển Khi thành lập trụ sở Cơng ty đặt kho 47 Cát Linh, Đống Đa, Hà Nội.L úc n ày công ty cung cấp mặt hàng chủ yếu cho thị trường khu vực Cát Linh, sau năm hoạt động công ty mở rộng thị trường vùng lân cận mở thêm chi nhánh số 120 đường Hồng Quốc Việt, Ba Đình, Hà Nội Trong kinh doanh, công ty trọng việc mở rộng thị trường đáp ứng nhu cầu khách hàng Do hàng hố cơng ty đa dạng chủng loại, đảm bảo chất lượng với mức giá hợp lý.Khi thành lập công ty kinh doanh thị trường nhỏ, sau thời gian tiến hành khảo sát, ban lãnh đạo công ty nhận thấy Hà Nội thị trường tiềm ngành xây dựng định nâng cấp mở rộng sở hạ tầng, trang thiết bị, bồi dưỡng chuyên môn cho đội ngũ công nhân viên, bứơc tiếp cận khu vực thị trường lân cận Năm 2007 công ty đạt mức doanh thu xấp xỉ 52 tỷ đồng, đến năm 2008 tình hình biến động chung kinh tế giới ảnh hưởng đến kinh tế Việt Nam, doanh thu công ty giảm xuống mức 44 tỷ Đầu năm 2009,ban lãnh đạo công ty họp đưa số định giá chủng loại sản phẩm hàng hoá, chương trình khuyến mại nhằm chiếm lĩnh thị trường vật liệu xây dựng LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Hoạt động công ty - Cung cấp mặt hàng sản xuất nước nhập :  Gạch men, granit ốp lát cao cấp : mặt hàng cơng ty, sản phẩm hãng : Long H ầu, Viglacera, Prime, Mikado, sản phẩm nhập Venus, Shinchen  Thiết bị sứ vệ sinh : American Standard, Viglacera  Các sản phẩm sen vòi: American Standard, Viglacera, Selta - Các dịch vụ :  Vận tải hàng hoá  Lắp đặt, sửa chữa thiết bị sứ vệ sinh sản phẩm sen vịi,bình nóng lạnh Hệ thống chức công ty Cơ cấu tổ chức công ty gồm có: Giám đốc , phó Giám đốc phận thể : Giám đốc Phó Giám đốc Trụ sở Bộ phận Bán hàng Bộ phận Kế toán Chi nhánh Bộ phận Kinh doanh Bộ phận Kỹ thuật Bộ phận Kế hoạch hàng hoá Bộ phận Bán hàng Bộ phận Kế toán LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com -Giám đốc: + Là người đứng đầu cơng ty ,có trách nhiệm quản lý mặt hoạt động tổ chức, kinh doanh, kỹ thuật + Điều hành chịu trách nhiệm hoạt động công ty trước pháp luật + Tuyển dụng , cho việc, khen thưởng, kỷ luật nhân viên theo quy chế đề + Ký báo cáo, văn bản, chứng từ, hợp đồng phận cơng ty trình nên cần xét duyệt -Phó giám đốc: + Là người đứng sau trợ giúp cho giám đốc, có nhiệm vụ huy, điều hành cụ thể lĩnh vực nắm giữ +Thay mặt giám đốc điều hành công ty giám đốc vắng trực tiếp ban thị từ giám đốc tới phận, giao nhiệm vụ cho phận chịu trách nhiệm phận quản lý - Bộ phận Bán hàng: Chủ yếu bán hàng qua điện thoại +Tiếp nhận u cầu thơng tin hàng hố từ khách hàng, kiểm tra thơng báo số lượng cịn tồn, quy cách mặt hàng mà khách hàng yêu cầu +Tổng hợp số liệu hoá đơn bán hàng để cuối kỳ lập báo cáo đối chiếu sổ sách chứng từ với phận kho kế toán - Bộ phận Kế toán: +Mọi số liệu chứng từ liên quan đến tài cơng ty phận quản lý xác nhận, giám sát kiểm tra trình duyệt theo vụ việc, theo yêu cầu đột xuất Hàng năm thực toán theo định kỳ công ty + Xây dựng kế hoạch tài để giúp ban lãnh đạo chủ động cân đối việc đầu tư phát triển kinh doanh + Cùng với phận phối hợp để tổ chức toán, nghiệm thu hợp đồng kinh tế, lên báo cáo theo yêu cầu ban giám đốc + Bộ phận quản lý tài theo pháp lệnh nhà nước nói chung cơng ty nói riêng LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com - Bộ phận Thị trường: Đây phịng có đội ngũ cán cơng nhân viên có lực, chun mơn cao + Tồn hoạt động kinh doanh công ty phận thực đạo, tham mưu cho giám đốc để định hướng chiến lược lĩnh vực kinh doanh thương mại công ty để đạt hiệu cao +Xây dựng kế hoạch tiêu thụ, quảng bá sản phẩm công ty, nghiên cứu xâm nhập vào thị trường mở rộng thị trường tiêu thụ cho công ty, mở rộng lĩnh vực kinh doanh + Các nhân viên phận giao dịch trực tiếp với cửa hàng bán lẻ chủ công trình, có trách nhiệm tạo dựng uy tín cho công ty thực sở điều khoản cam kết +Mọi phương án kinh doanh phải trình giám đốc phê duyệt để đảm bảo tính khả thi cao + Theo dõi, cập nhật thông tin với khách hàng chất lượng, mẫu mã sản phẩm -Bộ phận Kỹ thuật: +Nhiệm vụ phòng lắp đặt, bảo dưỡng, bảo hành thiết bị nhằm đảm bảo chất lượng sản phẩm +Báo cáo vấn đề liên quan đến chất lượng hàng hoá để có định đắn việc kinh doanh mặt hàng -Bộ phận Kế hoạch hàng hoá: +Chịu trách nhiệm việc quản lý kho hàng hoá, nhập từ nhà cung cấp xuất cho phận bán hàng +Khảo sát lập dự trù gửi lên ban lãnh đạo II Khái quát Bộ phận kế hoạch hàng hoá Nhiệm vụ quản lý hàng hoá + Cùng với phận kinh doanh phận bán hàng tổ chức đánh giá phân loại hàng hố cho phù hợp với nhu câù thị trường thơng qua việc tập hợp Bản dự trù hàng hoá phận + Tổ chức chứng từ tài khoản, sổ sách kế toán phù hợp, ghi chép phản ánh tổng hợp số liệu tình hình mua vận chuyển, bảo quản nhập - xuất - tồn LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com + Kiểm tra việc chấp hành chế độ bảo dưỡng bảo hành hàng hố, quản lý chi phí phát sinh q trình bảo dưỡng, bảo hành + Tham gia kiểm tra đánh giá mẫu mã chất lượng hàng hoá Phân tích tình hình thu mua bảo quản dự trữ bảo hành nhằm giảm thiểu chi phí + Quản lý chặt chẽ trình nhập xuất hàng, tránh tình trạng thất Các phương pháp kế toán chi tiêt hàng hoá Hạch toán chi tiết hàng hố cơng việc có khối lượng lớn khâu hạch toán phức tạp doanh nghiệp Việc hạch tốn chi tiết vật tư địi hỏi phản ánh giá trị số lượng chất lượng vật liệu theo người phụ trách Trong thực tế có ba phương pháp hạch toán chi tiết hàng hoá tuỳ vào điều kiện doanh nghiệp lựa chọn cho phương pháp thích hợp: - Phương pháp thẻ song song - Phương pháp sổ đối chiếu luân chuyển - Phương pháp số dư Sơ đồ hạch tốn chi tiết hàng hố cơng TNHH TM XD Đức Việt Công ty tổ chức hệ thống sổ kế tốn theo hình thức chứng từ ghi sổ cuối tháng lập báo cáo tài Ghi chú: : Ghi cuối tháng : Quan hệ đối chiếu : Ghi hàng ngày Phiếu nhập kho Phiếu xuất kho Sổ chi tiết vật tư Sổ nhật ký chung Bảng tổng hợp nhập xuất tồn hàng hoá Sổ tài khoản 152,154 ` Bảng tính giá thành sản phẩm LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chứng từ Quản lý hàng hoá + Biên kiểm nghiệm hàng hoá + Phiếu nhập kho + Phiếu xuất kho + Hoá đơn cước vận chuyển + Phiếu báo hàng hố cịn lại cuối kỳ + Biên kiểm kê hàng hố +Bản dự trù hàng hố 4.Quy trình thực quản lý hàng hố Cơng ty TNHH TM XD Đức Việt Như biết hàng hoá trước xuất thị trường phải trải qua cơng đoạn phân tích, lựa chọn, thu mua, kiểm kê, bảo quản,do cơng việc quản lý hàng hố vơ quan trọng doanh nghiệp kinh doanh Đối với Công ty TNHH TM XD Đức Việt cơng tác quản lý hàng hố giao cho phịng Kế hoạch hàng hố Và hoạt động cơng tác quản lý hàng hố diễn sau: gồm hai phận, phận nhập hàng xuất hàng a Bộ phận nhập hàng Bộ phận có nhiệm vụ tổng hợp tồn dự trù mà phận, đơn vị công ty gửi lên Và tổng hợp tất dự trù thành dự trù chung gửi lên ban giám đốc, ban giám đốc duyệt gửi cho phận đặt hàng Bộ phận đặt hàng lựa chọn nhà cung cấp,lập gửi đơn đặt hàng đ ến cho nhà cung cấp Khi hàng với hoá đơn phận nghiệm thu có nhiệm vụ kiểm tra số lượng, chất lượng hàng hoá vật tư - Nếu hàng hoá hoá đơn đặt hàng cho nhập vào kho - Nếu không đáp ứng tiêu chuẩn hố đơn ghi lập biên kiểm nghiệm, khơng nhận lượng hàng trả lại cho nhà cung cấp b Bộ phận xuất hàng Sau nhận hoá đơn từ phận bán hàng, tiến hành kiểm tra lượng hàng tồn phù hợp với số lượng yêu cầu, loại mặt hàng gạch ốp lát ,yêu cầu lượng hàng xuất phải lô ngày ca, tránh tình trạng chênh lệch kích thước màu sắc mã hàng LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com -Khi kiểm kê hàng đủ số lượng yêu cầu tiến hành xuất hàng -Nếu không đủ hàng gửi trả lại hoá đơn Tuy nhiên trường hợp số lượng hàng hố đơn lớn phận xuất hàng yêu cầu phận nhập hàng tiến hành nhập đủ số lượng yêu cầu Cuối ngày phận quản lý hàng hoá tiến hành kiểm kê, tổng hợp đưa danh sách hàng hoá số lượng nhập xuất tồn Để từ giúp cho phận bán hàng nắm bắt tình hình nhập - xuất - tồn cần thiết phục vụ cho công việc bán hàng ngày hôm sau Khi hàng nhập vật tư vào kho thủ kho phải làm công việc sau: - Quản lý nhập hàng hoá: + Lập phiếu nhập kho hàng hoá + Cập nhật hoá đơn hàng Khi hàng hoá nhập kho, cơng ty lựa chọn hình thức tốn là: tốn tiền mặt chuyển khoản mua trả chậm cơng ty chưa có điều kiện toán bên bán chấp thuận - Quản lý xuất hàng hố: cơng ty xuất hàng hố từ kho trực tiếp cho phận bán hàng Thủ kho cơng ty quản lý hàng hố theo sổ kho + Nếu hàng hố kho cịn đủ đáp ứng yêu cầu thủ kho xuất hàng hoá trực tiếp từ kho lập phiếu xuất kho + Nếu hàng hố khơng đủ chất lượng mà nhập kho công ty trả lại Nhưng mặt hàng lưu kho để chờ xử lý + Nếu hàng hoá kho hết khơng đủ đáp ứng thủ kho phải lập dự trù hàng nhập gửi lên ban giám đốc Cuối tuần, tháng, quý thủ kho gửi thơng tin lên phịng kế tốn lập báo cáo sản xuất kinh doanh gồm có: báo cáo chi tiết hàng hoá, báo cáo tổng hợp nhập - xuất - tồn Định kỳ hàng năm vào cuối năm thủ kho phận thực kiểm kê, xác định xác số lượng , chất lượng giá trị mặt hàng có Báo cáo lập định kỳ từ ngày 27 đến ngày 30 tháng cuối quý hàng năm từ ngày đến ngày 10 tháng năm sau Các báo cáo gồm : - Báo cáo chi tiết - Báo cáo tổng hợp tình hình hàng hố nhập – xuất – tồn - Báo cáo chi tiết hàng tồn LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com DL_LV End Sub -Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim str If KeyCode = 113 Then str = "Delete*From TBL_Gia Where MaHH='" & Trim(Txt_MaHH) & "'" cn.Execute (str) Frm_Gia.Show Frm_Gia.Txt_MaHH = Txt_MaHH Frm_Gia.Txt_TenHH = Txt_TenHH Frm_Gia.Txt_Gia.SetFocus Frm_Gia.Txt_Gia = "" End If End Sub Private Sub Form_Load() Open_mdb DL_LV CmdMoi.Enabled = True CmdSua.Enabled = True CmdXoa.Enabled = True CmdThoat.Enabled = True CmdLuu.Enabled = False CmdBo.Enabled = False F1.Enabled = False End Sub -Private Sub LstView_ItemClick(ByVal Item As MSComctlLib.ListItem) Txt_MaHH = Item.SubItems(1) Txt_TenHH = Item.SubItems(2) Txt_DVT = Item.SubItems(3) End Sub Private Sub Txt_MaHH_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txt_TenHH.SetFocus End If End Sub Private Sub Txt_TenHH_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txt_DVT.SetFocus End If End Sub Private Sub Txt_DVT_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdLuu.SetFocus LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com End If End Sub Private Sub LuuDL() If Chon = "Moi" Then rsCust.Source = "Select*From TBL_HH" rsCust.ActiveConnection = cn rsCust.Open rsCust.AddNew rsCust.Fields("MaKho") = K rsCust.Fields("MaHH") = Txt_MaHH rsCust.Fields("TenHH") = Txt_TenHH rsCust.Fields("DVT") = Txt_DVT rsCust.Update rsCust.Close End If If Chon = "Sua" Then rsCust.Source = "Select*From TBL_HH Where MaHH='" & Trim(Txt_MaHH) & "'" rsCust.ActiveConnection = cn rsCust.Open rsCust.Fields("TenHH") = Txt_TenHH rsCust.Fields("DVT") = Txt_DVT rsCust.Update rsCust.Close End If End Sub -Private Sub XoaDL() Dim str, str2 Dim TB TB = MsgBox("Ban co thuc su muon xoa thong tin nay?", vbYesNo + vbQuestion, "THONG BAO") If TB = vbNo Then Exit Sub Else str2 = "Delete* From Tbl_Gia Where MaHH='" & Trim(Txt_MaHH) & "'" cn.Execute (str2) str = "Delete* From Tbl_HH Where MaHH='" & Trim(Txt_MaHH) & "'" cn.Execute (str) End If DL_LV End Sub LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Coding cho Form Cập nhật danh mục khách hàng Dim Chon Private Sub CmdBo_Click() CmdMoi.Enabled = True CmdSua.Enabled = True CmdXoa.Enabled = True CmdThoat.Enabled = True CmdLuu.Enabled = False CmdBo.Enabled = False F1.Enabled = False TXT_MaKH = "" Txt_TenKH = "" Txt_DiaChi = "" Txt_DT = "" End Sub Private Sub CmdLuu_Click() LuuDL DL_LV CmdMoi.Enabled = True CmdMoi.SetFocus CmdSua.Enabled = True CmdXoa.Enabled = True CmdThoat.Enabled = True CmdLuu.Enabled = False CmdBo.Enabled = False F1.Enabled = False End Sub Private Sub CmdMoi_Click() Chon = "Moi" CmdMoi.Enabled = False CmdSua.Enabled = False CmdXoa.Enabled = False CmdThoat.Enabled = False CmdLuu.Enabled = True CmdBo.Enabled = True F1.Enabled = True TXT_MaKH.SetFocus TXT_MaKH = "" Txt_TenKH = "" Txt_DiaChi = "" Txt_DT = "" End Sub Private Sub CmdSua_Click() Chon = "Sua" CmdMoi.Enabled = False LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CmdSua.Enabled = False CmdXoa.Enabled = False CmdThoat.Enabled = False CmdLuu.Enabled = True CmdBo.Enabled = True F1.Enabled = True Txt_TenKH.SetFocus End Sub -Private Sub CmdThoat_Click() Unload Me End Sub Private Sub DL_LV() Dim STT Dim rs As New ADODB.Recordset Dim mItEm As ListItem Set rs = New ADODB.Recordset rs.Source = "Select*From Tbl_KH" Set rs.ActiveConnection = cn rs.Open LstView.ListItems.Clear STT = Do Until rs.EOF Set mItEm = LstView.ListItems.Add(, , STT) mItEm.SubItems(1) = rs!MaKH mItEm.SubItems(2) = rs!TenKH mItEm.SubItems(3) = rs!DiaChi rs.MoveNext STT = STT + Loop End Sub -Private Sub CmdXoa_Click() XoaDL DL_LV End Sub Private Sub Form_Load() Open_mdb DL_LV CmdMoi.Enabled = True CmdSua.Enabled = True CmdXoa.Enabled = True CmdThoat.Enabled = True CmdLuu.Enabled = False CmdBo.Enabled = False F1.Enabled = False End Sub LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Private Sub LstView_ItemClick(ByVal Item As MSComctlLib.ListItem) TXT_MaKH = Item.SubItems(1) Txt_TenKH = Item.SubItems(2) Txt_DiaChi = Item.SubItems(3) Txt_DT = Item.SubItems(4) End Sub Private Sub Txt_MaKH_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txt_TenKH.SetFocus End If End Sub Private Sub Txt_TenKH_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txt_DiaChi.SetFocus End If End Sub Private Sub Txt_DiaChi_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txt_DT.SetFocus End If End Sub -Private Sub Txt_DT_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdLuu.SetFocus End If End Sub -Private Sub LuuDL() If Chon = "Moi" Then rsCust.Source = "Select*From TBL_KH" rsCust.ActiveConnection = cn rsCust.Open rsCust.AddNew rsCust.Fields("MaKH") = TXT_MaKH rsCust.Fields("TenKH") = Txt_TenKH rsCust.Fields("DiaChi") = Txt_DiaChi rsCust.Update rsCust.Close End If If Chon = "Sua" Then rsCust.Source = "Select*From TBL_KH Where MaKH='" & Trim(TXT_MaKH) & "'" rsCust.ActiveConnection = cn rsCust.Open rsCust.Fields("TenKH") = Txt_TenKH rsCust.Fields("DiaChi") = Txt_DiaChi LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com rsCust.Update rsCust.Close End If End Sub Private Sub XoaDL() Dim str Dim TB TB = MsgBox("Ban co thuc su muon xoa thong tin nay?", vbYesNo + vbQuestion, "THONG BAO") If TB = vbNo Then Exit Sub Else str = "Delete* From Tbl_KH Where MaKH='" & Trim(TXT_MaKH) & "'" cn.Execute (str) End If DL_LV End Sub Coding cho Form Danh mục Phiếu nhập Private Sub DL_LV() Dim STT Dim MaPX, MaKho Dim rs As New ADODB.Recordset Dim mItEm As ListItem Set rs = New ADODB.Recordset rs.Source = "Select*From Tbl_PhieuNHap" Set rs.ActiveConnection = cn rs.Open LstView.ListItems.Clear STT = Do Until rs.EOF Set mItEm = LstView.ListItems.Add(, , STT) mItEm.SubItems(1) = rs!SO mItEm.SubItems(2) = rs!Ngay mItEm.SubItems(3) = rs!NoiDung mItEm.SubItems(6) = rs!congtien mItEm.SubItems(7) = Tienchu(mItEm.SubItems(6)) MaKho = rs!MaKho MaPX = rs!MaPX Dim K As New ADODB.Recordset Set K = New ADODB.Recordset K.Source = "Select*From Tbl_Kho Where MaKho='" & Trim(MaKho) & "'" K.ActiveConnection = cn K.Open LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com If K.EOF = False Then mItEm.SubItems(5) = K!TenKho End If K.Close Dim D As New ADODB.Recordset Set D = New ADODB.Recordset D.Source = "Select*From Tbl_PX Where MaPX='" & Trim(MaPX) & "'" D.ActiveConnection = cn D.Open If D.EOF = False Then mItEm.SubItems(4) = D!TenPX End If D.Close rs.MoveNext STT = STT + Loop End Sub Private Sub DL_LV1() Dim STT Dim MaHH Dim HH As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim mItEm As ListItem Set rs1 = New ADODB.Recordset rs1.Source = "Select*From Tbl_CTPhieuNHap Where So='" & Trim(Txt_So) & "'" Set rs1.ActiveConnection = cn LstView1.ListItems.Clear rs1.Open Do Until rs1.EOF Set mItEm = LstView1.ListItems.Add(, , rs1!MaHH) Set HH = New ADODB.Recordset HH.Source = "Select*From TBL_HH Where MaHH='" & Trim(rs1!MaHH) & "'" HH.ActiveConnection = cn HH.Open If HH.EOF = False Then mItEm.SubItems(1) = HH!TenHH mItEm.SubItems(2) = HH!DVT End If HH.Close mItEm.SubItems(4) = rs1!DG mItEm.SubItems(3) = rs1!SL mItEm.SubItems(5) = rs1!TT rs1.MoveNext Loop rs1.Close End Sub - LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Private Sub XoaDuLieu() Dim str Dim str1 Dim TB TB = MsgBox("Ban co thuc su muon xoa thong tin nay?", vbYesNo + vbQuestion, "THONG BAO") If TB = vbNo Then Exit Sub Else str = "Delete* From Tbl_PhieuNHap Where So='" & Trim(Txt_So) & "'" cn.Execute (str) str1 = "Delete* From Tbl_CTPhieuNHap Where So='" & Trim(Txt_So) & "'" cn.Execute (str1) End If DL_LV DL_LV1 End Sub Private Sub Command1_Click() Unload Me End Sub -Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 113 Then Frm_PhieuNhap.Show End If If KeyCode = 114 Then XoaDuLieu End If If KeyCode = 115 Then Frm_LocPhieu.Show Chon = "PN" End If End Sub Private Sub Form_Load() Open_mdb Me.KeyPreview = True Me.Width = 11800 Me.Height = 7650 Me.Top = Me.Left = 70 DL_LV 'DL_LV1 End Sub Private Sub LstView_ItemClick(ByVal Item As MSComctlLib.ListItem) Txt_So = Item.SubItems(1) DL_LV1 End Sub LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Coding cho Form Danh mục Phiếu xuất Private Sub DL_LV() Dim STT Dim MaKH, MaKho Dim rs As New ADODB.Recordset Dim mItEm As ListItem Set rs = New ADODB.Recordset rs.Source = "Select*From Tbl_PhieuXuat" Set rs.ActiveConnection = cn rs.Open LstView.ListItems.Clear STT = Do Until rs.EOF Set mItEm = LstView.ListItems.Add(, , STT) mItEm.SubItems(1) = rs!SO mItEm.SubItems(2) = rs!Ngay mItEm.SubItems(3) = rs!NoiDung mItEm.SubItems(6) = rs!congtien mItEm.SubItems(7) = Tienchu(mItEm.SubItems(6)) MaKho = rs!MaKho MaKH = rs!MaKH Dim K As New ADODB.Recordset Set K = New ADODB.Recordset K.Source = "Select*From Tbl_Kho Where MaKho='" & Trim(MaKho) & "'" K.ActiveConnection = cn K.Open If K.EOF = False Then mItEm.SubItems(5) = K!TenKho End If K.Close Dim D As New ADODB.Recordset Set D = New ADODB.Recordset D.Source = "Select*From Tbl_KH Where MaKH='" & Trim(MaKH) & "'" D.ActiveConnection = cn D.Open If D.EOF = False Then mItEm.SubItems(4) = D!TenKH End If D.Close rs.MoveNext STT = STT + Loop End Sub -Private Sub DL_LV1() LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Dim STT Dim MaHH Dim HH As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim mItEm As ListItem Set rs1 = New ADODB.Recordset rs1.Source = "Select*From Tbl_CTPhieuXuat Where So='" & Trim(Txt_So) & "'" Set rs1.ActiveConnection = cn LstView1.ListItems.Clear rs1.Open Do Until rs1.EOF Set mItEm = LstView1.ListItems.Add(, , rs1!MaHH) Set HH = New ADODB.Recordset HH.Source = "Select*From TBL_HH Where MaHH='" & Trim(rs1!MaHH) & "'" HH.ActiveConnection = cn HH.Open If HH.EOF = False Then mItEm.SubItems(1) = HH!TenHH mItEm.SubItems(2) = HH!DVT End If HH.Close mItEm.SubItems(4) = rs1!DG mItEm.SubItems(3) = rs1!SL mItEm.SubItems(5) = rs1!TT rs1.MoveNext Loop rs1.Close End Sub -Private Sub XoaDuLieu() Dim str Dim str1 Dim TB TB = MsgBox("Ban co thuc su muon xoa thong tin nay?", vbYesNo + vbQuestion, "THONG BAO") If TB = vbNo Then Exit Sub Else str = "Delete* From Tbl_PhieuXuat Where So='" & Trim(Txt_So) & "'" cn.Execute (str) str1 = "Delete* From Tbl_CTPhieuXuat Where So='" & Trim(Txt_So) & "'" cn.Execute (str1) End If DL_LV DL_LV1 End Sub Private Sub Command1_Click() LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Unload Me End Sub -Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 113 Then Frm_PhieuXuat.Show End If If KeyCode = 114 Then XoaDuLieu End If If KeyCode = 115 Then Chon = "PX" Frm_LocPhieu.Show End If End Sub Private Sub Form_Load() Open_mdb Me.KeyPreview = True Me.Width = 11800 Me.Height = 7650 Me.Top = Me.Left = 70 DL_LV 'DL_LV1 End Sub Private Sub LstView_ItemClick(ByVal Item As MSComctlLib.ListItem) Txt_So = Item.SubItems(1) DL_LV1 End Sub LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com MỤC LỤC LỜI MỞ ĐẦU - CHƯƠNG I: GIỚI THIỆU CHUNG VỀ CÔNG TY TNHH TM - VÀ XD ĐỨC VIỆT - I Những thông tin Công ty TNHH TM XD Đức Việt - Giới thiệu công ty - Quá trình hình thành phát triển - Hoạt động công ty .- Hệ thống chức công ty - II Khái quát Bộ phận kế hoạch hàng hoá - Nhiệm vụ quản lý hàng hoá - Các phương pháp kế toán chi tiêt hàng hoá .- Chứng từ Quản lý hàng hoá - 4.Quy trình thực quản lý hàng hố Cơng ty TNHH TM XD Đức Việt - III Tình hình ứng dụng tin học quản lý Công ty - 13 IV Tính cấp thiết đề tài - 13 V Một số vấn đề đề tài nghiên cứu - 14 Mục Tiêu Của Đề Tài - 14 Chức đề tài - 15 Các thông tin đề tài - 15 Phương pháp nghiên cứu - 16 Đối tượng hưởng lợi từ hệ thống - 16 Yêu cầu HTTT quản lý hàng hố Cơng ty TNHH TM XD Đức Việt - 16 VII Định hướng đề tài nghiên cứu - 17 CHƯƠNG II CƠ SỞ LÝ LUẬN VỀ PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG THÔNG TIN - 18 I Tổng quan hệ thống thông tin quản lý - 18 Định nghĩa phận cấu thành hệ thống thông tin - 18 Phân loại hệ thống thông tin .- 19 II Các công đoạn phát triển hệ thống thông tin - 20 III.Các khái niệm sở liệu - 23 Cơ sở liệu Hệ sở liệu .- 23 Hệ quản trị sở liệu .- 24 - LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com IV Thiết kế sở liệu - 26 Thiết kế CSDL logic từ thông tin đầu .- 26 Mã hoá liệu .- 28 Thiết kế sở liệu phương pháp mơ hình hố - 28 3.1 Mơ hình thực thể liên kết (mơ hình E-R) - 28 3.2 Các loại mô hình liệu - 32 Chuẩn hóa CSDL quan hệ mối quan hệ file liệu - 32 4.1 Tại phải chuẩn hóa? - 32 4.2 Định nghĩa 1NF cho file liệu - 33 4.3 Định nghĩa phụ thuộc hoàn toàn - 33 4.4 Định nghĩa 2NF cho file liệu - 33 4.5 Định nghĩa bắc cầu - 33 4.6 Định nghĩa 3NF cho file liệu - 33 4.7 Định nghĩa 2NF cho sơ đồ quan hệ - 34 4.8 Định nghĩa bắc cầu sơ đồ quan hệ - 34 4.9 Định nghĩa 3NF cho sơ đồ quan hệ - 34 4.10 Định nghĩa dạng chuẩn BCNF - 34 4.11 Định nghĩa dạng chuẩn hệ khóa - 35 V Khái quát hệ quản trị sở liệu ngơn ngữ lập trình Visual Basic - 35 Khái niệm CSDL - 35 Tổng quan ngơn ngữ lập trình Visual Basic - 36 2.1 Cấu trúc ứng dụng VB - 36 2.2 Những thao tác áp dụng VB - 37 CHƯƠNG III PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG THÔNG TIN - 39 “ QUẢN LÝ HÀNG HOÁ “ - 39 I Khái quát hệ thống thơng tin Quản lý hàng hố - 39 Nghiệp vụ nhập kho - 40 Nghiệp vụ xuất kho .- 40 II Sơ đồ chức hệ thống (BDF) - 40 Khái niệm mơ hình nghiệp vụ: - 40 Biểu đồ chức hệ thống .- 40 III Sơ đồ luồng liệu hệ thống (DFD) - 42 1.Sơ đồ DFD mức ngữ cảnh - 42 - LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Sơ đồ DFD mức đỉnh - 43 2.1.Phân rã xử lý 1.0 - 44 2.2.Phân rã xử lý 2.0 - 45 2.3 Phân rã xử lý 3.0 - 46 2.4 Phân rã xử lý 4.0 - 47 V Thiết kế sở liệu - 48 Cấu trúc bảng sở liệu - 48 Mối quan hệ bảng CSDL - 51 VI Một số thuật tốn sử dụng chương trình - 52 Thuật toán Đăng nhập chương trình - 53 Thuật toán cập nhật phiếu nhập kho - 54 Cập nhật phiếu xuất kho - 55 4.Thuật toán báo cáo - 56 VII Một số giao diện chương trình - 57 Màn hình đăng nhập - 57 Giao diện chương trình - 57 Danh mục hàng hoá - 58 Danh mục khách hàng .- 58 Danh mục kho hàng - 59 Danh mục phân xưởng - 59 Danh mục Phiếu nhập kho - 60 Danh mục Phiếu xuất kho - 60 10 Cập nhật Phiếu xuất kho - 61 CHƯƠNG IV CÀI ĐẶT SỬ DỤNG VÀ HƯỚNG PHÁT TRIẾN - 62 I Cài đặt sử dụng - 62 II Hướng phát triển - 62 PHẦN KẾT LUẬN - 63 TÀI LIỆU THAM KHẢO - 65 PHỤ LỤC - 66 - LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ... tin học hoá hoạt động tác nghiệp đơn vị việc quản lý kinh doanh công ty Sau thời gian thực tập phận Kế hoạch hàng hố cơng ty em chọn đề tài: ? ?Phân tích thiết kế xây dựng phần mềm Quản lý hàng hố... bước xây dựng hệ thống quản lý hàng hố Thơng qua việc khảo sát thực tế để từ đưa phân tích thiết kế sở liệu ba việc quan trọng để xây dựng chương trình quản lý xây dựng sau: Khảo sát: Đây công. .. luanvanchat@agmail.com hoá công ty TNHH Thương mại Xây dựng Đức Việt gồm có chức sau: Sơ đồ chức hệ thống( BFD) QUẢN LÝ HÀNG HOÁ Quản lý Danh Mục Quản lý hàng xuất Quản lý hàng nhập Báo cáo DM Khách hàng Phiếu