Đang tải... (xem toàn văn)
Phân tích thiết kế hệ thống công ty Thương mại vụ Dịch vụ ONETWOFOUR.
BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG………… Luận văn Phân tích thiết kế hệ thống cơng ty Thương mại vụ Dịch vụ ONETWOFOUR PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên LỜI NÓI ĐẦU Trong năm gần đây, với phát triển mạnh mẽ xà hội mặt, dịch vụ hàng hoá phục vụ đời sống vật chất ng-ời không ngừng đa dạng phong phú Môi tr-ờng kinh doanh ngày mang tính thị tr-ờng rõ rệt với cạnh tranh doanh nghiệp Điều đòi hỏi doanh nghiệp phải trang bị hệ thống quản lý thông tin tiên tiến để quản lý tình hình kinh doanh định cách nhanh Với tính thực tiễn đó, em đà chọn đề tài Phân tích thiết kế hệ thống công ty Th-ơng mại Dịch vụ ONETWOFOUR Đó minh chứng cho cần thiết quản lý kinh doanh b»ng m¸y tÝnh, mét øng dơng quan träng, mang tÝnh áp dụng rộng rÃi, góp phần làm giảm bớt công việc l-u trữ sổ sách số l-ợng nhân lực phục vụ Đề tài đ-ợc xây dựng ngôn ng÷ VisualBasic cho phÐp ng-êi dïng tiÕp cËn nhanh víi cách thức lập trình Windows , cho phép quản lý mặt hàng, số liệu cách thống nhất, có tổ chức, liên kết số liệu cách rời rạc lại với Mặt khác ch-ơng trình giúp ng-ời sử dụng liên kết ch-ơng trình cách tự động, thông tin đ-ợc cập nhËt nhanh chãng, t×m kiÕm, thay thÕ, chØnh sưa mét cách dễ dàng, tránh thao tác thủ công trình tính toán sử lí liệu Trong trình tìm hiểu, khảo sát hệ thống, chắn không tránh khỏi sai sót ch-a có kinh nghiệm thực tế vốn kiến thức hạn chế Rất mong nhận đ-ợc giúp đỡ thầy giáo h-ớng dẫn bạn đồng nghiệp để em hoàn thiện đề tài Hải Phòng, ngày 01 tháng 07 năm 2009 SV thực V Thựy Liên Trường Đại Học Dân Lập Hải Phòng Khoa Công Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch V ONETWOFOUR V Thựy Liờn nhiệm vụ đề tài Nội dung yêu cầu cần giải nhiệm vụ đề tài tốt nghiệp a Nội dung: - Phân tích thiết kế hệ thống quản lý kinh doanh công ty Th-ơng Mại Dịch Vụ ONETWOFOUR, b-ớc đầu ứng dụng công việc quản lý kinh doanh máy tính, góp phần giảm bớt công việc l-u trữ sổ sách b Các yêu cầu cần giải - Tìm hiểu, khảo sát hoạt động nghiệp vụ chức công ty Th-ơng Mại Dịch Vụ ONETWOFOUR - Phân tích thiết kế hệ thống công ty quản lý kinh doanh công ty - Xây dựng mô h×nh nghiƯp vơ - ThiÕt kÕ giao diƯn ng-êi dïng - Lập trình thử nghiệm, chạy ch-ơng trình, đóng gói, hoàn thiện ch-ơng trình Các số liệu cần thiết để thiết kế, tính toán - Các thông tin , số liệu tình hình hàng hóa tồn kho, xuất kho, tình hình hàng hóa nhập - Báo cáo tình hình bán hàng, nhập hàng theo ngày, tháng Địa điểm thực tập - Viện công nghệ thông tin- Viện khoa học công nghệ Việt Nam - a : 18 Đường Hoàng Quốc Việt – Quận Cầu Giấy – Hà Nội - Điện thoại : (04) 756 4697 - Website : ioit.ac.vn - Email Fax: (04) 756 4217 : vanthu@ioit.ac.vn Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên Chƣơng 1: KHẢO SÁT HỆ THỐNG “ QUẢN LÝ KINH DOANH CÔNG TY THƢƠNG MẠI VÀ DỊCH VỤ ONETWOFOUR ” 1.Phát biểu toán quản lý: Trong kinh tế thị trường hẳn biết công việc quản trị, quản lý công việc quan trọng giữ vai trò mấu chốt hoạt động sản xuất kinh doanh Nhưng hoạt động sản xuất, kinh doanh hoạt động quản lý bán hàng lại cơng việc khơng phần quan trọng giúp doanh nghiệp, công ty đứng vững phát triển chế thị trường đầy mạo hiểm Công việc quản lý bán hàng mấu chốt hình thành đầu cho chu trình sản xuất kinh doanh Khơng cịn dịch vụ thiết yếu sống người thời kỳ lịch sử lồi người Vì lẽ để xây dựng hệ thống quản lý nhanh gọn thơng thống hiệu mơ ước nhiều doanh nghiệp, công ty 1.2.Giới thiệu đơn vị khảo sát : Công ty Thương mại - Dịch vụ công nghệ thông tin ONETWOFOUR doanh nghiệp Việt Nam hoạt động lâu năm lĩnh vực công nghệ thơng tin, tích cực đóng góp phần công sức vào nghiệp phát triển kinh tế đất nước Với định hướng đắn mục tiêu phấn đấu phát triển chung, trình hoạt động nhiều năm qua, cơng ty ONETWOFOUR khẳng định vị trí, lực lĩnh vực Cơng nghệ thơng tin-Viễn thơng-Điện tự động hố Các dự án, giải pháp kỹ thuật công nghệ, thiết bị, dịch vụ ONETWOFOUR cung cấp thực bao hàm tất yếu tố Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên quan trọng, cần thiết cho việc phát triển sở hạ tầng thông tin nghành, địa phương nước Với lực, kinh nghiệm phấn đấu vươn lên, với quan tâm giúp đỡ cấp, tín nhiệm q khách, cơng ty tin tưởng đóng góp nhiều cơng sức vào nghiệp cơng nghiệp hố, đại hố đất nước nói chung phát triển nghành công nghệ thông tin Việt Nam nói riêng Chức năng, nhiệm vụ lĩnh vực hoạt động : Kinh doanh thiết bị công nghệ thông tin-viễn thơng-điện tự động hố Tư vấn, thiết kế, xây dựng dự án, giải pháp hệ thống công nghệ thơng tin tổng thể: Hệ thống mạng máy tính-phần cứng phần mềm ứng dụng Cung cấp dịch vụ công nghệ thông tin-viễn thông-điện tự động hố Thực hình thức kinh doanh khác quan có thẩm quyền cho phép phục vụ nhu cầu sản xuất kinh doanh công ty đơn vị nghành kinh tế kỹ thuật Cung cấp giải pháp phù hợp với yêu cầu khách hàng ứng dụng thành tựu công nghệ trình xây dựng sở hạ tầng công nghệ thông tin Đảm bảo nguồn cung cấp thiết bị mạng trực tiếp, giá hợp lý có hỗ trợ kỹ thuật thông qua hãng sản xuất thiết bị mạng tiếng giới AMP, Cisco, 3Com, Intel Các dự án, giải pháp hệ thống mạng tổng thể ONETWOFOUR xây dựng triển khai thực nhiều bộ, nghành, địa phương, trường đại học, doanh nghiệp nhà nước, tư nhân , trường dạy nghề, phổ thông mang lại hiệu tích cực Dịch vụ bảo hành, bảo trì thiết bị: Tồn thiết bị ONETWOFOUR cung cấp có chế độ bảo hành miễn phí Thời gian bảo hành thiết bị tuân thủ theo quy định nhà sản xuất nhà cung cấp cho chủng loại thiết bị Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên Các thiết bị hư hỏng sửa chữa, thay thế, đổi vật tư hãng tương đương Sau thời gian bảo hành khách hàng có nhu cầu ONETWOFOUR tiếp tục ký kết dịch vụ bảo trì 1.3 Sơ đồ tổ chức Với cách thức tổ chức chặt chẽ, gọn gàng linh hoạt, ONETWOFOUR phát huy tốt tính hiệu quản lý, sản xuất kinh doanh Phương thức tổ chức quản lý mà Ban Giám đốc lựa chọn giúp cho ONETWOFOUR lúc triển khai nhiều dự án, thiết lập mối quan hệ bền chặt kinh doanh với đối tác, đặc biệt thể rõ nét nét văn hóa đặc trưng quản trị nguồn nhân lực mà lãnh đạo Lạc Việt Group thực Sơ đồ tổ chức máy công ty sau: GIÁM ĐỐC Bộ phận nhận hàng Bộ phận bán hàng Bộ phận kế toán Bộ phận kho Chức năng, nhiệm vụ phân công ty: Giám đốc: - Là người đại diện pháp nhân công ty, thành viên công ty bầu - Là người chịu trách nhiệm trước Nhà nước hoạt động kinh doanh công ty Bộ phận nhận hàng: Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên - Quản lý tốt khâu nhập hàng: chọn nhà cung cấp có nguồn hàng tốt, ổn định có giá hợp lý - Kiểm tra chất lượng sản phẩm trước nhập, gửi báo cáo danh sách nhà cung cấp có uy tín cung bảng báo giá để bán giám đốc lựa chọn nguồn nhập hàng Bộ phận bán hàng: - Quản lý tốt khâu bán hàng: tìm kiếm thị trường luôn coi trọng nhu cầu thị trường để từ lập kế hoạch quảng cáo dịch vụ - Chăm sóc khách hàng, nâng cao chất lượng phục vụ khách hàng: gửi phiếu báo giá theo kỳ, ngày; tạo chiến lược khuyến giai đoạn quan trọng - Tư vấn khách hàng lựa chọn sản phẩm tốt, có chất lượng cao, giá thành phù hợp với đối tượng khách hàng Bộ phận kho: - Kiểm tra định kỳ chất l-ợng hàng hoá, có phiếu đánh giá chất l-ợng mặt hàng theo định kỳ - Kiểm kê mặt hàng theo ngày, báo cáo mặt hàng tồn để ban lÃnh đạo dựa vào để có h-ớng nhập hàng - Thống kê mặt hàng chất l-ợng để báo cáo lÃnh đạo thay đổi nhà cung cấp - Cất giữ bảo quản hàng hoá tốt, xắp xếp hợp lý để thuận tiện cho khâu nhập xuất hàng Bộ phận kÕ to¸n: - Khi đến kỳ báo cáo nhận yêu cầu báo cáo ban giám đốc yêu cầu báo cáo doanh thu hoăc chi phí số loại mặt hàng hay tất mặt hàng phận thu thập thông tin từ chứng từ có liên quan đến u cầu cơng viêc - Lập báo cáo giấy nhắc nợ Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên - Sau lập xong báo cáo tài giấy nhắc nợ phận gửi đến ban giám đốc phòng kế tốn để kiểm tra lại xem thơng tin xác chưa để phịng kế tốn hay ban giám c gia quyt nh cui cựng Bộ phận bảo hành: - Thực hiên việc bảo hành cho hàng hóa Thống kê tình trạng bảo hành 1.4.Tỉng quan vỊ hệ thống quản lý công ty: - Các khâu trình quản lý thủ công, sử dụng chứng từ sổ sách để theo dõi tra cứu nhiều thời gian - Các phòng ban có sử dụng máy tính nh-ng phục vụ cho ứng dụng văn phòng như: lập phiếu nhËp xuÊt, thu chi… * Một số mô tả hoạt động hệ thống quản lý ti Quản lý nhập hàng: - Nhân viên kho kiểm tra hàng kho để tổng hợp báo cáo lên phận nhập hàng - Bộ phận nhập hàng vào lập báo cáo gửi ban giám đốc duyệt đạo - Trong tr-ờng hợp có đơn hàng với số l-ợng nhiều, phận bán hàng lập kế hoạch để gửi ban giám đốc đạo - Sau ban giám đốc duyệt xong, cần mua thêm hàng phận nhập hàng liên hệ với nhà cung cấp để, dựa vào bảng báo giá nhà NCC để thoả thuân với nhà cung cấp loại mặt hàng cần mua, số l-ợng hẹn thời gian giao hàng - Bộ phận nhËp hµng viÕt phiÕu nhËp hµng råi cïng bé phËn kho kiểm kê hàng, sau bàn giao cho phận kho để trực tiếp quản lý, bảo vệ xuất hàng theo quy định công ty - Khi đà nhập hàng xong phận kế toán viết phiếu chi để làm toán cho nhà cung cấp Quản lý xuất hàng: Trng i Hc Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên - Khi có khách hàng đến mua hàng, sau đ-ợc nhân viên bán hàng tvấn cách lựa chọn mặt hàng, với khách mua hàng với số l-ợng lớn gửi bảng báo giá tr-ớc cho khách hàng tham khảo - Khách hàng đồng ý mua hàng điền đầy đủ vào giấy mua hàng nhân viên bán hàng liên hệ với phận kho để xem số l-ợng chủng loại có đáp ứng nhu cầu khách hàng, không đáp ứng đuợc nhu cầu khách hàng phận bán hàng liên hệ với phận nhập hàng để nhập hàng - Sau khách hàng đà kiểm tra xong mặt hàng, đồng ý nhân viên bán hàng thực toán, viết phiếu thu để nhận tiền toán, với khách hàng lâu năm cho nợ phần dịnh, sau nhân viên bán hàng viết phiếu giao để giao hàng cho khách Nhân viên thoả thuận với khách ph-ơng thức giao hàng - Công ty quy định việc vận chuyển hàng cho khách hàng nh- sau: khách hàng thuộc khu vực nội thành (đia khách hàng không km), nhân viên bán hàng có trách nhiệm giao hàng đến tận nơi miễm giá c-ớc vận chuyển, địa khách hàng v-ợt km, công ty th-ơng l-ợng với khách hàng phí vận chuyển theo quy định cđa c«ng ty - Nếu có u cầu bảo hành từ phía khách hàng BP BẢO HÀNH tiếp nhận phiếu bảo hành, hàng hóa cần bảo hành, lập phiếu hẹn lấy hàng sau bảo hành, có chức bảo hành hàng hóa cho khách hàng, sau bảo hành xong xác nhận việc bảo hành , thống kê tỡnh hỡnh bo hnh ca hng húa 1.5.Những thành công hạn chế công ty: Thành công: - Công ty tạo đ-ợc uy tín thị tr-ờng, có kế hoạch mở rộng thị truờng cách thành lập chi nhánh nội thành để mở rộng việc khai thác khách hàng giới thiệu sản phẩm, nhÃn hiệu - Công ty có đội ngũ nhân viên nhiệt tình, có lực, có tinh thần trách nhiƯm c«ng viƯc Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên - Doanh thu công ty ngày cao, nhân viên có thu nhập ổn định ,có tính th-ởng theo mức bán sản phẩm tăng Hạn chế: - Để mở rộng chi nhánh, công ty phải huy động nhiều vốn, số vốn công ty nhỏ so với chiến l-ợc kinh doanh - Các khâu quản lý công ty mang tính thủ công, ch-a áp dụng phần mềm quản lý để làm giảm bớt công việc, thời gian nhËn lùc 1.6.Néi dung, mơc ®Ých cđa hƯ thèng míi: * Phương hướng hoạt động: - Trong thời gian công ty tăng cường dịch vụ tư vấn khách hàng chi phí kèm theo việc vËn chun hµng miễn phí - Hồn chỉnh hệ thống bán hàng qua mạng điện thọai - Mở rộng chi nhánh sang vùng ngo¹i thành để tăng hiệu bán hµng * Tổng quan thơng tin quản lý: * Phân cấp quản lý: - Hệ thống quản lý tr-ớc hết hệ thống đ-ợc tổ chức từ xuống d-ới có chức tổng hợp thông tin giúp lÃnh đạo quản lý thống toàn hệ thống Hệ thống quản lý đ-ợc phân tích thành nhiều cấp bậc gồm cấp trung -ơng, cấp đơn vị trực thuộc, nhằm tạo điều kiện thuận lợi cho công tác qun lý từ xuống d-ới Thông tin đ-ợc tổ hợp từ d-ới lên từ xuống * Luồng thông tin vào: Trong hệ thống thông tin quản lý có thông tin đầu vào khác gồm: - Những thông tin đầu vào cố định thay đổi thông tin mang tính chất thay đổi lâu dài - Những thông tin mang tính chất thay đổi th-ờng xuyên phải cập nhập Trng Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thựy Liờn + Option: Khách hàng Hình 14: Form Tìm kiếm khách hàng Nhập vào tên khách, ch-ơng trình cho thông tin khách hàng có tên nhvËy 110 Trường Đại Học Dân Lập Hải Phòng Khoa Công Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch V ONETWOFOUR V Thựy Liờn + Option Hàng: Hình 15: Form Tìm kiếm hàng 111 Trng i Hc Dõn Lp Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên + Option: NCC H×nh 16: Form ‚T×m kiÕm NCC‛ 112 Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên - Form ‚Tra cøu‛ H×nh 17: Form ‚Tra cøu hệ thống Form cho phép ng-ời quản lý tra cứu theo số mục định nh-: tra cứu hàng giao, hàng nhập, mặt hàng bán chạy, mặt hàng bán chậm, khách mua nhiều hàng, NCC chủ yếu sở, mặt hàng tồn đọng kho, nợ khách hàng nợ NCC Với mục tìm kiếm, ch-ơng trình đ-a báo cáo t-ơng ứng 113 Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR V Thựy Liờn Kết luận Kết đạt đ-ợc Qua năm tháng tìm hiểu, nghiên cứu thực đề tài Phân tích thiết kế hệ thống kinh doanh công ty th-ơng mại dịch vụ ONETWOFOUR em đà đạt đ-ợc số kết sau: + Hiểu nắm bắt đ-ợc quy trình việc phân tích, thiết kế hệ thống thông tin + Đà xây dựng đ-ợc chức cho hệ thống, giúp cho ng-ời quản lý khách hàng thuận lợi trình mua bán + Giao diện đơn giản, dễ sử dụng Tổ chức thông tin hợp lý Hạn chế + Vấn đề bảo mật ch-a cao + Ch-a có giao diện toán riêng H-ớng phát triển + Khắc phục hạn chế + Tiến tới xây dựng website để thực giao dịch mua bán online cách hiệu bên cạnh việc mua bán trực tiếp thông th-ờng 114 Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR V Thựy Liờn Phụ lục H-ớng dẫn cài đặt 1.1 Cài đặt Microsoft SQL Server 2000 - Yêu cầu cài đặt: Để cài đặt SQL Server, cần có WinNT máy 486, tối thiểu 16MB nhớ, 80MB đĩa cứng trống, ổ CD WinNT từ 3.51 trở lên - Cách cài đặt: + Sau chạy Install hình thứ 1, chọn SQL Server 2000 Components để cài đặt -> Next + h×nh thø 2, Install Components, chän Install Database Server -> Next + hình Computer name, chọn Local Computer -> Next + hình Installation Selection, chọn Create a new instance of SQL Server, or install Client Tools -> Next + hình User Information, nhập tên công ty bạn -> Next + hình Software License Agreement, chọn Yes + hình Install Definition, chän Client and Server Tolls + ë mµn hình Setup Type, chọn Typical + hình Service Accounts, chän Use the Local System account + ë mµn hình Authentication Mode chọn Mixed Mode Các b-ớc sau chọn Next để cài đặt Sau install bạn thấy icon nằm góc bên phải bên d-ới hình, Service Manager Bạn Start, Stop SQL Server Services dễ dàng cách kích đúp vào icon Chú ý Service Manager phải đ-ợc Start thực ch-ơng trình liên quan đến SQL Server Nếu icon Service Manager không 115 Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR V Thựy Liờn thấy xuất góc phải h×nh th× ta chän Start – Programs – Microsoft SQL Server Service Manager bạn Start, Stop SQL Server Service 1.2 Cài đặt VB6 Đà trình bày phần giới thiệu VB 6.0 H-ớng dẫn sử dụng ch-ơng trình - Khởi động Microsoft SQL Server 2000 - Khëi ®éng VB 6.0; New Project, chän tab recent -> Project1 (trong thmôc C:\QLKD) - NhÊn F5 để chạy ch-ơng trình + Hiện hình chào đón -> Nhấn vào nút đăng nhập để đăng nhập hệ thống (Hình 2) + Sau đăng nhập hệ thống, hình ch-ơng trình nh- h×nh Ta cã thĨ cËp nhËt, xư lý, t×m kiếm, tra cứu thông tin chi tiết + Để thoát khỏi ch-ơng trình, nhấn vào tab Thoát, ấn Alt+T Một số đoạn code tiêu biểu * Code Tìm kiÕm kh¸ch” Private Sub cmdtimkiem_Click() Dim rs As New ADODB.Recordset Dim str, i grdchi_tiet_clear str = "select * from khach where ten_khach like '%" & Trim(txtten) & "%'" rs.Open str, cn i=0 If rs.EOF = False Then While Not rs.EOF i=i+1 If i > grdchi_tiet.Rows - Then grdchi_tiet.Rows = grdchi_tiet.Rows + 116 Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên End If grdchi_tiet.TextMatrix(i, 0) = i grdchi_tiet.TextMatrix(i, 1) = rs!ma_khach grdchi_tiet.TextMatrix(i, 2) = rs!ten_khach grdchi_tiet.TextMatrix(i, 3) = rs!diachi_khach grdchi_tiet.TextMatrix(i, 4) = rs!tai_khoan grdchi_tiet.TextMatrix(i, 5) = rs!phone grdchi_tiet.TextMatrix(i, 6) = rs!email grdchi_tiet.TextMatrix(i, 7) = rs!du_no grdchi_tiet.TextMatrix(i, 8) = rs!ghi_chu rs.MoveNext Wend Else MsgBox "Khong tim thay khach nhu tren!", vbOKOnly + vbExclamation, "Thong bao" Exit Sub End If End Sub * Code “Xo¸ mét record” Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(txtsodondat) = "" Then Exit Sub End If response = MsgBox("Ban co chac chan muon xoa so don dat hang ko?", vbYesNo + vbQuestion, "Thong bao") If response = vbNo Then 117 Trường Đại Học Dân Lập Hải Phòng Khoa Công Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên Exit Sub Else str = "delete from dondat where so_don='" & Trim(txtsodondat) & "'" cn.Execute (str) End If SET_NULL Lock_Text Display_Listview End Sub * Code “Lu mét record” Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str, str1 str1 = txtsodondat.Text If flag = "save" Then If Trim(txtsodondat) = "" Then MsgBox " Chu y : Ban phai nhap du lieu day du truoc luu", vbOKOnly + vbExclamation, "Thongbao" Exit Sub Else str = "select * from dondat where so_don='" & Trim(txtsodondat) & "'" rs.Open str, cn While Not rs.EOF If rs!so_don = str1 Then MsgBox "So don dat da ton tai Yeu cau nhap lai.", vbOKOnly + vbExclamation, "Thongbao" Me.MousePointer = 118 Trường Đại Học Dân Lập Hải Phòng Khoa Công Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên Exit Sub End If rs.MoveNext Wend str="insertintodondat(so_don,ma_khach,ngay_dat,ngay_denghigiao,ngay_thanhtoa n,so_hdtd) values('" & Trim(txtsodondat) & "','" & cbomakhach.Text & "','" & txtngaydat.Text & "','" & txtngaygiao.Text & "','" & txtngaythanhtoan.Text & "','" & cbosohdtd & "')" cn.Execute (str) ' str = "INSERT INTO dong_dondat(so_don,ma_hang,soluong_dat,dongia_dat) VALUES('" & txtsodondat & "','" & cbomahang.Text & "','" & txtsoluong & "','" & txtdongia & "')" 'cn.Execute (str) flag = "" End If ElseIf flag = "update" Then str = "update dondat set ma_khach='" & cbomakhach.Text & "', ngay_dat='" & txtngaydat.Text & "',ngay_denghigiao='" & txtngaygiao.Text & "',ngay_thanhtoan='" & txtngaythanhtoan.Text & "',so_hdtd='" & cbosohdtd.Text & "' where so_don='" & Trim(txtsodondat) & "'" cn.Execute (str) 'str = "update dong_dondat set soluong_dat='" & Trim(txtsoluong) & "',dongia_dat='" & Trim(txtdongia) & "' where so_don='" & Trim(txtsodondat) & "' and ma_hang='" & cbomahang.Text & "'" 'cn.Execute (str) 119 Trường Đại Học Dân Lập Hải Phịng Khoa Cơng Nghệ ThơngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR Vũ Thùy Liên End If Lock_Text Display_Listview cmdNew.SetFocus Me.MousePointer = End Sub * Code “Më CSDL” vµ “KiĨm tra ngµy th¸ng” 'Public temp_tim Public cn As New ADODB.Connection Public bolCheck As Boolean Sub open_mdb() Dim str As String If bolCheck = True Then cn.Close DE1.CN1.Close str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Database=QLKinhdoanh;Data Source=FAMILIE-D437780" DE1.CN1.ConnectionString Security=SSPI;Persist Security = "Provider=SQLOLEDB.1;Integrated Info=False;Database=QLKinhDoanh;Data Source=FAMILIE-D437780" cn.Open str bolCheck = True Else str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Database=QLKinhDoanh;Data Source=FAMILIE-D437780" 120 Trường Đại Học Dân Lập Hải Phòng Khoa Công Nghệ ThôngTin PTTKHT QLKD Cty Thương Mại Dịch Vụ ONETWOFOUR DE1.CN1.ConnectionString Security=SSPI;Persist Security = Vũ Thùy Liên "Provider=SQLOLEDB.1;Integrated Info=False;Database=QLKinhDoanh;Data Source=FAMILIE-D437780" DE1.CN1.Open cn.Open str bolCheck = True End If End Sub Sub close_mdb() If bolCheck = True Then cn.Close DE1.CN1.Close bolCheck = False Else bolCheck = False End If End Sub Public Function CheckDATE(strDATE As String) As String Dim temp As Integer Dim strTemp As String temp = 'kiem tra phan If IsNumeric(Left(strDATE, 1)) Then 'neu ktu dau la so thi If IsNumeric(Mid(strDATE, 2, 1)) Then 'neu ktu thu la so thi If Left(strDATE, 2)