Đang tải... (xem toàn văn)
Lý do lựa chọn đề tàiCông ty Sao Kim chuyên sản xuất và cung cấp một số lượng lớn các dược phẩm cho thị trường trong nước và một số đối tác nước ngoài, vì vậy công việc đòi hỏi yêu cầu chính xác về số lượng, chủng loại thuốc và dược liệu để kịp thời đáp ứng nhu cầu thị trường. Tuy công việc không phức tạp nhưng lại dễ gây nhầm lẫn, không đảm bảo độ tin cậy do ghi chép nhiều, thao tác chủ yếu là thủ công, giấy tờ dễ bị thất lạc. Do đó cần thiết phải xây dựng được một hệ thống thông tin trong công tác quản lý kho để đảm bảo công tác quản lý được chính xác và nhanh chóng.Công việc theo dõi lượng thuốc xuất – nhập – tồn tốt rất nhiều công sức khi phải quản lý thông qua sổ sách, báo cáo, bảng biểu, phiếu viết tay. Sau đó, cử cán bộ chuyên trách thống kê xử lý số liệu. Điều này không những ảnh hưởng đến sai sót trong việc quản lý một khối lượng thuốc và dược liệu lớn mà còn dẫn đến hơi lãng phí về sử dụng cán bộ. Với những lý do trên, việc xây dựng một hệ thống thông tin quản lý kho cho công ty là rất cần thiết.Một hệ thống thông tin quản lý kho mới sẽ giúp nhà quản lý có thể hoạch định chính sách sản xuất, nhập khẩu phù hợp đáp ứng nhu cầu thị trường, tránh tình trạng sản xuất và nhập khẩu quá nhu cầu sẽ gây thiệt hại về kinh tế và không đảm bảo chất lượng.Đối tượng nghiên cứuĐối tượng nghiên cứu là hệ thống thông tin quản lý kho tại công ty Cổ phần Dược phẩm Sao Kim, các hoạt động xuất – nhập – tồn tại công ty.Phạm vi nghiên cứuPhạm vi nghiên cứu của đề tài được ứng dụng trong nội bộ của công ty, bao gồm các vấn đề liên quan đến hệ thống thông tin quản lý kho như: việc xuất – nhập – tồn; các giấy tờ liên quan và việc xuất ra cáo báo cáo định kỳ, báo cáo tổng hợp…Mục đích của đề tài•Tìm hiểu được quy trình xuất nhập kho tại một doanh nghiệp.•Phần nào giúp giải quyết khó khăn mà công ty cổ phần Dược phẩm Sao Kim đang gặp phải, giúp mọi người có thể giảm khối lượng công việc và tăng hiểu suất quản lý giảng đường.•Từ đó mở rộng đề tài nghiên cứu, nâng cấp phần mềm ngày càng hoàn thiện để có thể đáp ứng tốt cho công việc quản lý tại đây.Kết cấu của đề tàiNgoài lời nói đầu, kết luận, danh mục tài liệu tham khảo, phụ lục đề tài được kết cấu thành ba chương:Chương 1. Tổng quan về Công ty Cổ phần Dược phẩm Sao kim.Chương 2. Cơ sở phương pháp luận về phân tích thiết kế ệ thống thông tin.Chương 3. Phân tích thiết kế hệ thống thông tin quản lý kho tại công ty cổ phần Dược phẩm Sao Kim.
TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN KHOA TIN HỌC KINH TẾ CHUYÊN ĐỀ THỰC TẬP Tên đề tài: PHÂN TÍCH, THIẾT KẾ HẸ THỐNG THÔNG TIN QUẢN LÝ KHO TẠI CÔNG TY CỔ PHẦN DƯỢC PHẨM SAO KIM Sinh viên thực : Đặng Thị Ngọc Giáo viên hướng dẫn : TS Trương Văn Tú HÀ NỘI, 5/2015 LỜI MỞ ĐẦU Lý lựa chọn đề tài Công ty Sao Kim chuyên sản xuất cung cấp số lượng lớn dược phẩm cho thị trường nước số đối tác nước ngoài, công việc đòi hỏi yêu cầu xác số lượng, chủng loại thuốc dược liệu để kịp thời đáp ứng nhu cầu thị trường Tuy công việc không phức tạp lại dễ gây nhầm lẫn, không đảm bảo độ tin cậy ghi chép nhiều, thao tác chủ yếu thủ công, giấy tờ dễ bị thất lạc Do cần thiết phải xây dựng hệ thống thông tin công tác quản lý kho để đảm bảo công tác quản lý xác nhanh chóng Công việc theo dõi lượng thuốc xuất – nhập – tồn tốt nhiều công sức phải quản lý thông qua sổ sách, báo cáo, bảng biểu, phiếu viết tay Sau đó, cử cán chuyên trách thống kê xử lý số liệu Điều ảnh hưởng đến sai sót việc quản lý khối lượng thuốc dược liệu lớn mà dẫn đến lãng phí sử dụng cán Với lý trên, việc xây dựng hệ thống thông tin quản lý kho cho công ty cần thiết Một hệ thống thông tin quản lý kho giúp nhà quản lý hoạch định sách sản xuất, nhập phù hợp đáp ứng nhu cầu thị trường, tránh tình trạng sản xuất nhập nhu cầu gây thiệt hại kinh tế không đảm bảo chất lượng Đối tượng nghiên cứu Đối tượng nghiên cứu hệ thống thông tin quản lý kho công ty Cổ phần Dược phẩm Sao Kim, hoạt động xuất – nhập – tồn công ty Phạm vi nghiên cứu Phạm vi nghiên cứu đề tài ứng dụng nội công ty, bao gồm vấn đề liên quan đến hệ thống thông tin quản lý kho như: việc xuất – nhập – tồn; giấy tờ liên quan việc xuất cáo báo cáo định kỳ, báo cáo tổng hợp… Mục đích đề tài • Tìm hiểu quy trình xuất nhập kho doanh nghiệp Đăng Thị Ngọc – Chuyên đề tốt nghiệp • Phần giúp giải khó khăn mà công ty cổ phần Dược phẩm Sao Kim gặp phải, giúp người giảm khối lượng công việc tăng hiểu suất quản lý giảng đường • Từ mở rộng đề tài nghiên cứu, nâng cấp phần mềm ngày hoàn thiện để đáp ứng tốt cho công việc quản lý Kết cấu đề tài Ngoài lời nói đầu, kết luận, danh mục tài liệu tham khảo, phụ lục đề tài kết cấu thành ba chương: Chương Tổng quan Công ty Cổ phần Dược phẩm Sao kim Chương Cơ sở phương pháp luận phân tích thiết kế ệ thống thông tin Chương Phân tích thiết kế hệ thống thông tin quản lý kho công ty cổ phần Dược phẩm Sao Kim Đăng Thị Ngọc – Chuyên đề tốt nghiệp CHƯƠNG GIỚI THIỆU TỔNG QUAN VỀ CÔNG TY CỔ PHẦN DƯỢC PHẨM SAO KIM 1.1 Giới thiệu chung Công ty cổ phần dược phẩm Sao Kim đơn vị kinh tế hạch toán độc lập, có đầy đủ tư cách pháp nhân, có quan hệ đối nội đối ngoại tốt có dấu riêng Công ty bình đẳng kinh doanh với doanh nghiệp thuộc thành phần kinh tế khác Công ty phép mở tài khoản giao dịch ngân hàng theo quy định pháp luật Tên công ty : Công ty Cổ phần Dược Phẩm Sao Kim Lô gô công ty Tên giao dịch : kim pharmaceutical joint stock company Tên viết tắt : saokim pharma Tài khoản số : 102010000033439 Mở : Sở giao dịch số Ngân hàng công thương Việt Nam Mã số thuế : 2500169960 * Trụ sở giao dịch công ty : Khu công nghiệp Quang Minh, huyện Mê Linh, thành phố Hà Nội * Văn phòng đại diện công ty: Phòng 1608, tòa nhà 27 Huỳnh Thúc Kháng, Hà Nội * Chi nhánh miền Nam 319/A8 Lý Thường Kiệt, Phường 15, Quận 11, TP Hồ Chí Minh Đăng Thị Ngọc – Chuyên đề tốt nghiệp * Điện thoại liên hệ : - Điện thoại trụ sở : 043 5841213 - Số FAX : 043 5840788 Lĩnh vực hoạt động: sản xuất kinh doanh xuất nhập lĩnh vực dược phẩm 1.2 Lịch sử hình thành phát triển Giai đoạn 1: từ tháng năm 1999 đến tháng 11 năm 2017 SaoKim pharma thành lập ngày 24/5/1999 theo giấy chứng nhận đăng ký kinh doanh số: 1902000358 phòng ĐKKD – sở kế hoạch đầu tư Vĩnh Phúc cấp ngày 24/5/1999 Là Công ty TNHH gồm hai sáng lập viên: Giám đốc : Đường Ngọc Hà với vốn góp 600 triệu ( VNĐ ) Phó giám đốc : Đường Ngọc Vân với vốn góp 400 triệu ( VNĐ ) Hình thức hoạt động: Công ty TNHH Dược phẩm Sao Kim Ngành nghề kinh doanh: - Sản xuất kinh doanh dược liệu: Artemisinin dẫn chất bao gồm: Artesunate, Dihydroartemisinin, Artemethe, Arteether dạng nguyên liệu bột thành phẩm dạng viên Thời gian đầu thành lập công ty gặp nhiều khó khăn: + Xây dựng nhà xưởng văn phòng, đầu tư trang thiết bị máy móc + Vốn thiếu + Bộ máy quản lý sản xuất trẻ Tháng năm 2000 công ty thức vào sản xuất, bước đầu nhiều hạn chế chưa có kinh nghiệm sản xuất, quản lý chưa có nhiều bạn hàng xong với sức trẻ, động, sáng tạo lòng tâm ban giám đốc công ty bước khởi sắc thu nhiều thắng lợi, sản phẩm làm không tiêu thụ nước xuất hàng chục nguyên liệu thuốc chữa sốt rét bán tổng hợp dẫn chất Artesunate, Dihydroartemisinin, Đăng Thị Ngọc – Chuyên đề tốt nghiệp Artemethe, Arteether cho công ty dược phẩm hàng đầu Châu Âu, Châu Châu Phi Công ty trở thành công ty dẫn đầu giới sản xuất xuất mặt hàng Doanh thu tăng dần năm lợi nhuận năm đầu đạt đến tỷ đồng/năm, giải việc làm cho hàng ngàn người dân lao động trồng dược liệu để cung cấp cho công ty lúc giờ, giúp vào công xóa đói giảm nghèo đất nước, liên tục UBND tỉnh Vĩnh Phúc sở y tế Vĩnh Phúc tặng khen Tháng 3/2005 công ty thức xây dựng Nhà máy sản xuất dược phẩm với thiết bị, dây chuyền bào chế hệ KCN Quang Minh, Mê Linh, Hà Nội Tháng 10/2006, Nhà máy tiếp nhận chứng thực hành tốt sản xuất thuốc GMP (Good Manufacturing Practice) theo khuyến cáo Tổ chức Y tế giới Bộ Y tế Việt Nam cấp Tháng 11/2006, nhà máy đạt tiêu chuẩn ISO 9001:2000 tổ chức BVQI Vương quốc Anh cấp Nhà máy thức sản xuất sản phẩm chất lượng cao theo tiêu chuẩn GMP/GLP/GSP-WHO Hệ thống kinh doanh toàn quốc thức vào hoạt động cung cấp sản phẩm chất lượng giới chuyên môn người tiêu dùng đánh giá cao Giai đoạn 2: từ 11/2017 đến Hình thức hoạt động: Công ty Cổ phần Dược phẩm Sao Kim Cuối năm 2007 có chuyển đổi từ công ty TNHH dược phẩm Sao Kim sang công ty cổ phần dược phẩm Sao Kim, có giấy chứng nhận đăng ký kinh doanh số: 1903000359 phòng đăng ký kinh doanh – sở kế hoạch đầu tư tỉnh Vĩnh Phúc cấp ngày 19 tháng 11 năm 2007 * Ngành nghề kinh doanh : - Sản xuất thuốc tân dược chữa bệnh cho người Vốn điều lệ Đăng Thị Ngọc – Chuyên đề tốt nghiệp : 85.000.000.000 đồng Mệnh giá cổ phần Số cổ phần đăng ký mua : 10.000 đồng : 8.500.000 Đường ngọc Hà số cổ phần : 4.675.000 Đường ngọc Vân số cổ phần: 3.400.000 Đinh thị Nga số cổ phần : 425.000 Người đại diện theo pháp luật công ty: Ông Đường ngọc Hà - Chức danh : Chủ tịch hội đồng quản trị kiêm Tổng giám đốc công ty Tháng 10/2008, công ty vinh dự công ty dược phẩm Việt Nam nhận Chứng nhận thực hành tốt sản xuất thuốc GMP-WHO nguyên liệu dược theo khuyến cáo Tổ chức Y tế giới Bộ Y tế Việt Nam cấp Chức nhiệm vụ công ty: Là công ty chuyên sản xuất kinh doanh dược phẩm nên mục tiêu ngành y tế chi phối, ảnh hưởng đến công ty nhu cầu cung ứng đầy đủ loại dược phẩm để phục vụ cho công tác phòng bệnh chữa bệnh, phục vụ việc chăm sóc sức khỏe cho người dân Song song công ty phát triển, nghiên cứu nâng cao chất lượng, kỹ thuật sản xuất để đảm bảo thuốc đạt chất lượng tốt đảm bảo đạt tiêu chuẩn GMP & WHO 1.3 Cơ cấu máy tổ chức Bộ máy quản lý công ty cổ phần dược phẩm Sao Kim tổ chức theo cấp Công ty đơn vị hạch toán kinh tế độc lập, có đầy đủ tư cách pháp nhân trực tiếp quan hệ với ngân hàng, với khách hàng chịu trách nhiệm trước nhà nước quản lý sử dụng nguồn vốn có hiệu Bộ máy quản lý công ty tổ chức theo phương thức trực tuyến chức với mô hình tập trung, khép kín thống từ hội đồng quản trị tới phòng ban, phân xưởng để đáp ứng nhu cầu chuyên môn hoá sản xuất, thuận tiện cho công tác quản lý tổ chức hạch toán kinh tế Đăng Thị Ngọc – Chuyên đề tốt nghiệp Đại hội đồng cổ đông Gồm tất cổ đông có quyền biểu quyết, quan định cao công ty cổ phần Đại hội đồng cổ đông có quyền Bầu, miễn nhiệm, bãi nhiệm thành viên hội đồng quản trị, thành viên ban kiểm soát Quyết định sửa đổi, bổ sung điều lệ công ty, thông qua báo cáo tài hàng năm, thông qua định hướng phát triển công ty, định bán tài sản có giá trị lớn Hội đồng quản trị (HĐQT) Là quan quản lý công ty, có toàn quyền nhân danh công ty để định vấn đề liên quan đến chiến lược phát triển, kế hoạch sản xuất kinh doanh, phương án đầu tư vấn đề kinh doanh lớn công ty đồng thời định giải pháp phát triển thị trường, tiếp thị công nghệ, thông qua hợp đồng mua bán, vay, cho vay bổ nhiệm, miễn nhiệm, cách chức Giám đốc cán quản lý quan trọng khác công ty, định mức lương lợi ích kinh tế khác cán quản lý Quyết định cấu tài chính, quy chế quản lý nội công ty, định thành lập công ty con, lập chi nhánh, văn phòng đại diện việc góp vốn Chủ tịch hội đồng quản trị HĐQT bầu số thành viên HĐQT Chủ tịch HĐQT người lập chương trình kế hoạch hoạt động HĐQT, chuẩn bị chương trình, nội dung, tài liệu phục vụ họp, triệu tập chủ toạ họp HĐQT Giám đốc công ty Là người lãnh đạo, quản lý giám sát hoạt động chung công ty, trực tiếp điều hành sản xuất kinh doanh công ty theo kế hoạch, sách, pháp luật Nhà nước, sách Hội đồng quản trị Đại hội cổ đông đề Là người kiến nghị phương án bố trí cấu Tổ chức, quy chế quản lý nội công ty, có quyền đề xuất lên HĐQT bổ nhiệm cách chức chức danh quản lý công ty, đề xuất lên HĐQT nâng lương, phụ cấp người công ty Phó giám đốc kỹ thuật Đăng Thị Ngọc – Chuyên đề tốt nghiệp Kiêm trưởng phòng kỹ thuật phụ trách kinh tế kỹ thuật, giám sát thực kế hoạch sản xuất, chất lượng sản phẩm, nhu cầu vật tư hàng hoá cho sản xuất Điều hành việc thực kế hoạch phục vụ cho việc sản xuất như: Tiến độ, kỹ thuật làm mặt hàng mới, kế hoạch công tác dược chính, kế hoạch an toàn lao động Báo cáo thường xuyên, định kỳ tiến độ sản xuất cho giám đốc Phó giám đốc kinh doanh Là người thiết lập chiến lược kinh doanh công ty, điều chỉnh chiến lược phù hợp với chế kinh tế Phòng kế hoạch kinh doanh Chịu điều hành trực tiếp phó giám đốc kinh doanh - kiêm trưởng phòng kế hoạch Phòng kế hoạch – Kinh doanh gồm 12 cán bộ, có dược sỹ đại học dược trung làm công tác chức sau: - Cung tiêu, quản lý cung ứng dụng cụ lao động nhỏ cần thiết nguyên vật liệu… cho sản xuất, đồng thời làm thủ tục xuất kho thành phẩm, ban hành lệnh sản xuất đến phân xưởng - Nhóm kho: Gồm cán làm nhiệm vụ quản lý số lượng, chất lượng cấp phát theo định mức vật tư, định mức nguyên liệu, hoá chất đồng thời nêu ý kiến điều chỉnh bất hợp lý định mức vật tư - Nhóm Marketing: Gồm cán có nhiệm vụ khai thác nguồn hàng, mua NVL, hoá chất, phụ liệu bao bì cho sản xuất, đồng thời tìm bạn hàng để ký hợp đồng với khách hàng lớn công ty - Nhóm cửa hàng: Giới thiệu bán sản phẩm công ty Phòng tổ chức hành Phòng gồm cán thức Trưởng phòng Dược sỹ cao cấp, điều hành toàn công việc chung, phòng có cán làm công tác tiền lương, chế độ lao động, định mức lao động chế độ sách khác gồm: theo dõi, kiểm tra, Đăng Thị Ngọc – Chuyên đề tốt nghiệp xét duyệt, lưu trữ tất khoản chi tiêu quỹ lương, đồng thời lên kế hoạch lương kế hoạch quỹ lương thực hàng tháng Giải chế độ theo qui định Nhà nước cho cán công nhân viên Ngoài có người phụ trách an toàn lao động phụ trách mảng hành chính, nữ y sỹ làm công tác chăm lo sức khoẻ cho cán công nhân viên toàn công ty Công tác lễ tân, tổng đài, phiên dịch nữ nhân viên đảm nhận Phòng kế toán Làm nhiệm vụ trực tiếp quản lý tình hình tài công ty, tức hạch toán kinh doanh sản xuất Phòng gồm cán chịu giám sát điều chỉnh Giám đốc, có chức tổ chức công tác tài kế toán quản lý Tài sản, vốn công ty, cung cấp thông tin cho việc điều hành quản lý Công ty, cho quan bên Trích lập, sử dụng quỹ tiền lương, tiền thưởng…cho công nhân viên Phòng kiểm nghiệm Gồm cán làm công tác kiểm tra NVL phụ liệu trước đưa vào sản xuất, kiểm nghiệm bán thành phẩm, thành phẩm đảm bảo sản phẩm cuối đạt tiêu chuẩn Phòng nghiên cứu Đây phận có vai trò quan trọng phận sản xuất Phòng gồm người cán phụ trách chung trưởng phòng phó phòng, người lại vừa nghiên cứu vừa trợ lý kỹ thuật phân xưởng có nhiệm vụ: Giám sát, kiểm tra liên tục mặt kỹ thuật công đoạn, nghiên cứu sản xuất thử, xin phép đăng ký mặt hàng Phòng kỹ thuật bảo trì Gồm thợ lành nghề có nhiệm vụ tổ chức tiến hành bảo dưỡng định kỳ đột xuất cho đơn vị máy, tổ chức lắp đặt đơn vị máy khác kịp thời đưa vào sản xuất Đăng Thị Ngọc – Chuyên đề tốt nghiệp cboNhaSX.SelectedValue = _SoLo.MaNSX txtMaLo.Text = _SoLo.MaLo DTNgaySX.Value = _SoLo.NgaySX DTHanSD.Value = _SoLo.HSD End If End If End Sub Dim i As Integer = Private Sub btnNhap_Click(sender As Object, e As EventArgs) Handles btnNhap.Click If (txtMaThuoc.Text "" And txtMaLo.Text "" And IsNumeric(txtSoLuong.Text) = True And Long.Parse(txtSoLuong.Text) >= And Long.Parse(txtSoLuong.Text) _SoLo.SoLuong Then MsgBox("Số Lượng hàng kho còn: " + _SoLo.SoLuong.ToString, MsgBoxStyle.OkOnly, "Thông báo") Else MsgBox("Vui lòng kiểm tra lại thông tin.", MsgBoxStyle.OkOnly, "Thông báo") End If End If End Sub Private Sub btnHuy_Click(sender As Object, e As EventArgs) Handles btnHuy.Click Try If MsgBox("Bạn chắn muốn hủy thông tin nhập?", MsgBoxStyle.YesNo, "Thông báo") = vbYes Then DS.XuatThuoc.Clear() DgvThuocXuat.Refresh() Lammoi() End If Catch ex As Exception End Try End Sub Private Sub Lammoi() txtMaThuoc.Text = "" txtTenThuoc.Text = "" txtTacDung.Text = "" txtDonVi.Text = "" txtGhiChu.Text = "" cboNhomThuoc.SelectedValue = txtSoLuong.Text = "" cboNhaSX.SelectedValue = txtSoLuong.Text = txtGiaXuat.Text = txtMaLo.Text = "" 'DTNgaySX.Value = Nothing 'DTHanSD.Value = Nothing 'DgvThuocNhap.Refresh() Đăng Thị Ngọc – Chuyên đề tốt nghiệp End Sub Private Sub frmXuatThuoc_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DS.KhachHang' table You can move, or remove it, as needed Me.KhachHangTableAdapter.Fill(Me.DS.KhachHang) 'TODO: This line of code loads data into the 'DS.Kho' table You can move, or remove it, as needed Me.KhoTableAdapter.Fill(Me.DS.Kho) 'TODO: This line of code loads data into the 'DS.NSX' table You can move, or remove it, as needed Me.NSXTableAdapter.Fill(Me.DS.NSX) 'TODO: This line of code loads data into the 'DS.NhomThuoc' table You can move, or remove it, as needed Me.NhomThuocTableAdapter.Fill(Me.DS.NhomThuoc) End Sub Private Sub btnLuu_Click(sender As Object, e As EventArgs) Handles btnLuu.Click If MsgBox("Bạn chắn lưu lại phiếu nhập này?", MsgBoxStyle.YesNo, "Thông báo") = vbYes Then If (DS.XuatThuoc.Rows.Count > And cboKhachHang.SelectedValue Nothing And cboKhoNhap.SelectedValue Nothing) Then Try Dim cn As New SqlConnection cn.ConnectionString = cnn cn.Open() Dim cmd As New SqlCommand cmd = cn.CreateCommand cmd.CommandText = "INSERT INTO PhieuXuat (NgayXuat,MaKH,NguoiNhan,NoiDung,MaKho) Values(@ngayxuat,@makh,@nguoinhan,@noidung,@makho)" cmd.Parameters.AddWithValue("@ngayxuat", Date.Now) cmd.Parameters.AddWithValue("@makh", cboKhachHang.SelectedValue) cmd.Parameters.AddWithValue("@nguoinhan", txtNguoiGiao.Text) cmd.Parameters.AddWithValue("@noidung", txtNoiDung.Text) Đăng Thị Ngọc – Chuyên đề tốt nghiệp cmd.Parameters.AddWithValue("@makho", cboKhoNhap.SelectedValue) cmd.ExecuteNonQuery() cmd.Dispose() Dim cmd1 As New SqlCommand cmd1 = cn.CreateCommand 'Dim cmd2 As New SqlCommand 'cmd2 = cn.CreateCommand Dim cmdud As New SqlCommand cmdud = cn.CreateCommand Dim cmdis As New SqlCommand cmdis = cn.CreateCommand For Each dr As DataRow In DS.XuatThuoc.Rows 'cmd2.CommandText = "INSERT INTO SoLo Values(@malo,@ngaysx,@hansd)" 'cmd2.Parameters.AddWithValue("@malo", dr(3)) 'cmd2.Parameters.AddWithValue("@ngaysx", dr(4)) 'cmd2.Parameters.AddWithValue("@hansd", dr(5)) 'cmd2.ExecuteNonQuery() 'cmd2.Dispose() cmd1.CommandText = "INSERT INTO ChiTietPhieuXuat(SoPX,MaThuoc,MaLo,SoLuong,DonGia,ThanhTien) Values('" + MaPhieuXuat().ToString + "',@mathuoc,@malo,@soluong,@dongia,@thanhtien)" cmd1.Parameters.AddWithValue("@mathuoc", dr(1)) cmd1.Parameters.AddWithValue("@malo", dr(3)) cmd1.Parameters.AddWithValue("@soluong", dr(8)) cmd1.Parameters.AddWithValue("@dongia", dr(9)) cmd1.Parameters.AddWithValue("@thanhtien", dr(10)) cmd1.ExecuteNonQuery() cmd1.Dispose() cmdud.CommandText = "UPDATE Thuoc SET SoLuong =SoLuong - @soluong, GiaXuat = @gianhap WHERE MaThuoc =@mathuoc" cmdud.Parameters.AddWithValue("@soluong", dr(8)) cmdud.Parameters.AddWithValue("@gianhap", dr(9)) cmdud.Parameters.AddWithValue("@mathuoc", dr(1)) cmdud.ExecuteNonQuery() cmdud.Dispose() Đăng Thị Ngọc – Chuyên đề tốt nghiệp cmdis.CommandText = "UPDATE TonKho SET SoLuongTon = SoLuongTon - @soluong WHERE MaThuoc= @mathuoc AND MaLo = @malo " '"INSERT INTO TonKho Values(@mathuoc,@malo,@soluong)" cmdis.Parameters.AddWithValue("@mathuoc", dr(1)) cmdis.Parameters.AddWithValue("@malo", dr(3)) cmdis.Parameters.AddWithValue("@soluong", dr(8)) cmdis.ExecuteNonQuery() cmdis.Dispose() Next cn.Close() cn.Dispose() MsgBox("Lưu phiếu xuất thành công.", MsgBoxStyle.OkOnly, "Thông báo") DS.XuatThuoc.Clear() DgvThuocXuat.Refresh() Lammoi() Catch ex As Exception MsgBox(ex.ToString) End Try Else MsgBox("Vui lòng kiểm tra lại thông tin.", MsgBoxStyle.OkOnly, "Thông báo") End If End If End Sub Private Sub btnInPhieu_Click(sender As Object, e As EventArgs) Handles btnInPhieu.Click If MsgBox("Bạn chắn in lưu lại phiếu nhập này?", MsgBoxStyle.YesNo, "Thông báo") = vbYes Then If (DS.XuatThuoc.Rows.Count > And cboKhachHang.SelectedValue Nothing And cboKhoNhap.SelectedValue Nothing) Then Try Dim cn As New SqlConnection cn.ConnectionString = cnn cn.Open() Dim cmd As New SqlCommand cmd = cn.CreateCommand cmd.CommandText = "INSERT INTO PhieuXuat (NgayXuat,MaKH,NguoiNhan,NoiDung,MaKho) Values(@ngayxuat,@makh,@nguoinhan,@noidung,@makho)" Đăng Thị Ngọc – Chuyên đề tốt nghiệp cmd.Parameters.AddWithValue("@ngayxuat", Date.Now) cmd.Parameters.AddWithValue("@makh", cboKhachHang.SelectedValue) cmd.Parameters.AddWithValue("@nguoinhan", txtNguoiGiao.Text) cmd.Parameters.AddWithValue("@noidung", txtNoiDung.Text) cmd.Parameters.AddWithValue("@makho", cboKhoNhap.SelectedValue) cmd.ExecuteNonQuery() cmd.Dispose() frmInPhieuXuat.ShowDialog() Dim cmd1 As New SqlCommand cmd1 = cn.CreateCommand 'Dim cmd2 As New SqlCommand 'cmd2 = cn.CreateCommand Dim cmdud As New SqlCommand cmdud = cn.CreateCommand Dim cmdis As New SqlCommand cmdis = cn.CreateCommand For Each dr As DataRow In DS.XuatThuoc.Rows 'cmd2.CommandText = "INSERT INTO SoLo Values(@malo,@ngaysx,@hansd)" 'cmd2.Parameters.AddWithValue("@malo", dr(3)) 'cmd2.Parameters.AddWithValue("@ngaysx", dr(4)) 'cmd2.Parameters.AddWithValue("@hansd", dr(5)) 'cmd2.ExecuteNonQuery() 'cmd2.Dispose() cmd1.CommandText = "INSERT INTO ChiTietPhieuXuat(SoPX,MaThuoc,MaLo,SoLuong,DonGia,ThanhTien) Values('" + MaPhieuXuat().ToString + "',@mathuoc,@malo,@soluong,@dongia,@thanhtien)" cmd1.Parameters.AddWithValue("@mathuoc", dr(1)) cmd1.Parameters.AddWithValue("@malo", dr(3)) cmd1.Parameters.AddWithValue("@soluong", dr(8)) cmd1.Parameters.AddWithValue("@dongia", dr(9)) cmd1.Parameters.AddWithValue("@thanhtien", dr(10)) cmd1.ExecuteNonQuery() cmd1.Dispose() Đăng Thị Ngọc – Chuyên đề tốt nghiệp =SoLuong =@mathuoc" cmdud.CommandText = "UPDATE Thuoc SET SoLuong @soluong, GiaXuat = @gianhap WHERE MaThuoc cmdud.Parameters.AddWithValue("@soluong", dr(8)) cmdud.Parameters.AddWithValue("@gianhap", dr(9)) cmdud.Parameters.AddWithValue("@mathuoc", dr(1)) cmdud.ExecuteNonQuery() cmdud.Dispose() cmdis.CommandText = "UPDATE TonKho SET SoLuongTon = SoLuongTon - @soluong WHERE MaThuoc= @mathuoc AND MaLo = @malo " '"INSERT INTO TonKho Values(@mathuoc,@malo,@soluong)" cmdis.Parameters.AddWithValue("@mathuoc", dr(1)) cmdis.Parameters.AddWithValue("@malo", dr(3)) cmdis.Parameters.AddWithValue("@soluong", dr(8)) cmdis.ExecuteNonQuery() cmdis.Dispose() Next cn.Close() cn.Dispose() MsgBox("Lưu phiếu xuất thành công.", MsgBoxStyle.OkOnly, "Thông báo") DS.XuatThuoc.Clear() DgvThuocXuat.Refresh() Lammoi() Catch ex As Exception MsgBox(ex.ToString) End Try Else MsgBox("Vui lòng kiểm tra lại thông tin.", MsgBoxStyle.OkOnly, "Thông báo") End If End If End Sub Private Sub DgvThuocXuat_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgvThuocXuat.CellDoubleClick Try If e.ColumnIndex = Then Dim i As Long = InputBox("Số lượng : ", "Nhập vào số lượng thuốc.", DgvThuocXuat.CurrentCell.Value) If i