Đồ án tốt nghiệp quản lý vật tư, thiết bị, ứng dụng cho trung tâm phát triển CNTT ĐHQG TPHCM

Quản lý vật tư, thiết bị đề tài :quản lý vật tư, thiết bị, ứng dụng cho trung tâm phát triển cntt-đhqg đồ án tốt nghiệp kỹ thuật viên chuyên ngành: công nghệ phần mềm Chương khảo sát nghiệp vụ đề tàI 1.1.Khảo sát trạng xác lập dự án 1.1.1.Mục đích: Là q trình khảo sát từ sơ đến chi tiết, ta cần phải có đầy đủ thơng tin, để từ làm xây dựng dự án mang tính khả thi 1.1.2.Các bước tiến hành khảo sát: -Khảo sát đánh giá trạng hoạt động hệ thống cũ -Xác định phạm vi hệ thống LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị -Đề xuất giải pháp cân nhắc tính khả thi -Vạch kế hoạch cho dự án với dự trù tổng quát 1.1.3.Khảo sát, tìm hiểu hệ thống a.Quan sát, tìm hiểu hệ thống -Việc quan sát, tìm hiểu đánh giá hệ thống phải theo cách nhìn nhà tin học -Có bước quan sát: +Mức thao tác thừa hành +Mức điêù phối quản lý +Mức định lãnh đạo +Mức chuyên gia cố vấn -Các hình thức tiến hành: +áp dụng hình thức quan sát +áp dụng hình thức vấn +Phương pháp thăm dị +Phương pháp nghiên cứu tài liệu b.Tập hợp phân loại thông tin Phân loại dựa theo số tiêu chuẩn sau: -Hiện tương lai -Phân loại theo thông tin tĩnh, động, thông tin biến đổi -Phân loại dựa vào nội môi trường -Tập hợp lại tất nhũng thông tin phân loại c.Phát yếu trạng yêu cầu tương lai -Phát yếu kém: Là tìm hiểu yếu số mặt như: Sự thiếu vắng thông tin xử lý, thiếu nhân lực, hiệu tổ chức quản lý, ùn tắc thông tin, phức tạp tổn phí cao -Phương pháp phát hiện: Trên sở xác định rõ nguyên nhân yếu để đề biện pháp khắc phục yếu 1.2.Phác hoạ giải pháp cân nhắc tính khả thi -Xác định phạm vi: Phạm vi toán đặt cho dự án kế hoạch tổng thể lâu dài tổ chức.Phạm vi toán phụ thuộc vào phạm vi tổ chức: +Tổ chức cỡ lớn, quốc gia, quốc tế: Tập đoàn, Tổng cơng ty… +Tổ chức cỡ trung bình: Đơn vị nhiều chi nhánh, công ty liên doanh +Tổ chức cỡ vừa nhỏ: Các quan, xí nghiệp -Xác định mục tiêu dự án: +Mang lại lợi ích nghiệp vụ: Tăng khẳ xử lý, đáp ứng yêu cầu nghiệp vụ, tin cậy, xác, bí mật +Mang lại lợi ích kinh tế: Tăng thu nhập, giảm chi phí hoạt động, hồn vốn nhanh +Mang lại lợi ích sử dụng: Nhanh chóng, thuận tiện LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị +Khắc phục yếu hệ thống cũ, hỗ trợ chiến lược lâu dài, đáp ứng ưu tiên, hạn chế áp đặt -Phác hoạ giải pháp: +Chỉ cho người dùng thấy triển vọng cụ thể dự án +Có định hướng triển khai dự án +Chỉ được: *Các chức hệ thống, đầu vào, đầu ra, giải pháp thực *Kiến trúc tổng thể hệ thống(phần cứng, phần mềm ) -Cân nhắc tính khả thi: +Khả thi nghiệp vụ +Khả thi kĩ thuật +Khả thi kinh tế 1.3 Lập dự trù kế hoạch phát triển dự án 1.3.1.Lập hồ sơ dự trù lựa chọn giải pháp a.Dự trù thiết bị kinh phí Khối lượng liệu lưu trữ -Số lượng thông tin cần thu thập, tài liệu cần kết xuất -Thiết bị ngoại vi, đường truyền -Khối lượng công việc, số người tham gia, thời gian dự án -Yêu cầu chất lượng, thời hạn bảo hành b.Dự trù nhân lực -Nhóm làm việc: Phân tích, thiết kế, lập trình -Nhóm điều hành dự án: Quản trị dự án c.Dự trù thiết kế 13.2.Lập kế hoạch triển khai dự án -Chọn tiến trình cho dự án( Thác nước, Xoắn ốc…) -Dự kiến lịch biểu thực dự án 1.4.Một số vấn đề hệ thống thông tin quản lý vật tư 1.4.1 Đặc điểm hệ thống quản lý vật tư a.Phân cấp quản lý -Hệ thống quản lý vật tư hệ thống lớn có chức tổng hợp tất thông tin vật tư, thiết bị…để từ quản lý cách dễ dàng Nhằm giúp công ty, doanh nghiệp, thực công tác quản lý vật tư xác, khoa học tiết kiệm thời gian cần áp dụng tin học vào cơng tác quản lý có hiệu quản lý kinh doanh tăng lên b.Luồng thông tin -Thông tin đầu vào: Trong hệ thống quản lý vật tư có thơng tin đầu vào đầu khác nhau, thông tin đầu vào gồm thông tin nhà cung cấp, thông tin vật tư, hoá đơn, phiếu nhập, phiếu xuất, u cầu thơng tin có tính chất thay đổi thường xuyên vật tư LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị -Thông tin đầu ra:Thông tin đầu tổng hợp từ thông tin đầu vào thông tin đầu chủ yếu bảng biểu, báo cáo, thơng tin khách hàng, tình hình nhập xuất -Các bảng biểu báo cáo thông tin đầu quan trọng tổng hợp để phục vụ công tác quản lý vật tư, phản ánh trực tiếp mục đích quản lý hệ thống Vì bảng biểu báo cáo địi hỏi phải xác kịp thời 1.4.2.Mơ hình số thơng tin quản lý hành a.Mơ hình ln chuyển liệu -Mơ hình luân chuyển liệu hệ thống quản lý vật tư mơ tả modul sau: +Cập nhật thơng tin có tính chất cố định để lưu trữ, tra cứu +Cập nhật thơng tin có tính chất thay đổi thường xuyên +Lập bảng biểu báo cáo b.Cập nhật thơng tin động -Modul có chức xử lý thông tin luân chuyển chi tiết tổng hợp loại thông tin chi tiết đặc biệt lớn số lượng cần xử lý thường nhật đòi hỏi tốc độ nhanh tin cậy cao Khi thiết kế modul cần quan tâm đến yêu cầu sau: +Phải biết rõ thông tin cần lọc từ thông tin động +Giao diện hình số lượng phải hợp lý, giảm tối đa thao tác cho người cập nhật liệu +Tự động nạp thông tin biết giá trị lặp +Kiểm tra phát sai sót q trình +Biết loại bỏ thơng tin có khơng cần thiết c.Cập nhật thơng tin cố định có tính chất tra cứu -Thơng tin loại không cần cập nhật thường xuyên, yêu cầu chủ yếu phải đầy đủ phải tổ chức hợp lý để tra cứu nhanh cần thiết d.Lập báo cáo, in ấn -Để thiết kế phần đòi hỏi người quản lý nắm thật vững nhu cầu quản lý, tìm hiểu thật kỹ mẫu biểu báo cáo Vì thơng tin sử dụng công việc thuận lợi xử lý từ trước nên việc kiểm tra sai lệch số liệu ngày phân giảm bớt 1.4.3 - Các nguyên tắc đảm bảo Để xây dựng hệ thống thông tin quản lý vật tư hồn chỉnh, cơng việc khơng phải đơn giản, nhiều thời gian cơng sức, trí óc người thiết kế Nói chung việc xây dựng hệ thống quản lý vật tư thường phải dựa số nguyên tắc sau: a.Nguyên tắc sở thơng tin thống Là thơng tin tích luỹ thường xuyên cập nhật để phục vụ cho tốn quản lý Chính mà thơng tin trùng lặp phải loại bỏ LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị Một điều cần thiết loại trừ là, để đảm bảo thông tin không quán Do ta cần tổ chức thành mảng thông tin mà trường hợp trùng lặp khơng qn thơng tin loại bỏ Chính mảng thông tin tạo thành đối tượng thông tin đối tượng điều khiển b Nguyên tắc linh hoạt thơng tin Ngun tắc này, ngồi mảng thơng tin cần phải có công cụ đặc biệt, để tạo mảng làm việc cố định tạm thời, dựa sở mảng thơng tin có trích từ mảng Việc tuân theo hai nguyên tắc thống linh hoạt với hệ thống thông tin làm hoàn thiện phát triển hệ thống rõ ràng đơn giản c Nguyên tắc làm cực tiểu thông tin vào thông tin Đây nguyên tắc có ý nghĩa lớn việc làm tăng hiệu xuất sử dụng máy tính Vì đầu vào đầu máy tính khâu hẹp hệ thống Để làm việc cần phải có phương pháp thay việc truyền tải tài liệu thủ công việc truyền tải tài liệu thiết bị băng từ, đĩa từ , để đảm bảo việc truyền xuất thông tin nhanh chóng Việc giảm bớt thời gian lãng phí tăng hiệu máy tính Nguyên tắc vận dụng đưa thông tin vào hệ thống Việc rút ngắn thời gian công sức cho việc vào liệu, mà cịn đảm bảo độ tin cậy thơng tin + Chương 2: Cơ sở lý thuyết phân tích, thiết kế xây dựng hệ thống thông tin 2.1.Đại cương hệ thống thông tin Hệ thống thông tin hệ thống bao gồm người, phương tiện phương pháp xử lý thông tin tổ chức LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị Hệ thông thông tin bao gồm hai thành phần bản: liệu ghi nhận thực trạng doanh nghiệp xử lý cho phép biến đổi liệu Các liệu: Đó thơng tin lưu trì nhằm phản ánh thực trạng thời hay khứ doanh nghiệp Có thể tách liệu thành hai phần: -Các liệu phản ánh cấu trúc nội quan, liệu nhân sự, nhà xưởng, thiết bị v.v Cấu trúc quan khơng phải cố định, mà có biến động có kiện xảy (chẳng hạn nhân viên thuyên chuyển, thiết bị bổ sung ) Sự kiện thường xảy bất chợt, ý muốn người Việc điều chỉnh lại liệu cho thích hợp có kiện xảy gọi cập nhật -Các liệu phản ánh hoạt động kinh doanh/ dịch vụ quan, liệu sản xuất, mua bán, giao dịch v.v Hoạt động kinh doanh/ dịch vụ biến đổi luồng vào/ra doanh nghiệp coi chuỗi việc sơ đẳng, gọi tác nghiệp (operation - chẳng hạn nhận lô hàng, hoàn thành mẻ sản phẩm, đơn hàng tới, tốn hóa đơn v.v ) Khi có tác nghiệp xảy ra, kiện cần ghi nhận, làm thay đổi liệu phản ánh hoạt động kinh doanh/dịch vụ doanh nghiệp Các xử lý: Đó q trình biến đổi thơng tin, nhằm vào hai mục đích chính: - Sản sinh thông tin theo thể thức quy định, chẳng hạn lập chứng từ giao dịch (đơn mua hàng, hóa đơn ), lập báo cáo, lập thống kê v.v - Trợ giúp định, thông thường cung cấp thông tin cần thiết cho việc thực lựa chọn định lãnh đạo, lựa chọn định( cách tự động), loại định dựa giải thuật( khác với loại định dựa trực giác) Mỗi xử lý thường áp dụng số quy tắc quản lý định sẵn diễn theo trật tự định sẵn (gọi thủ tục) Các quy tắc quản lý thủ tục ấn định hệ thống lãnh đạo doanh nghiệp, điều chỉnh theo ý muốn( chẳng hạn quy tắc tiêu thụ sản phẩm, phương pháp phân phối trợ cấp, quy định khuyến ), ấn định từ bên ngồi doanh nghiệp, đặc biệt Nhà nước( ví dụ quy tắc tính thuế VAT, cách tính lương bảo hiểm xã hội v.v ) doanh nghiệp không tùy tiện thay đổi Đầu vào xử lý thơng tin phản ánh cấu trúc doanh nghiệp và/ thông tin phản ánh hoạt động doanh nghiệp LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị Đầu là: - Các kết chuyển trực tiếp cho cá nhân hay tổ chức doanh nghiệp( chẳng hạn đơn đặt hàng, hóa đơn, thống kê Quản lý Sinh Viên, báo cáo tài v.v ) gọi kết - Các kết lưu trữ, để sau dùng làm đầu vào cho xử lý khác( thường thông tin tình trạng, lịch sử hay thơng tin lưu trữ) gọi kết Trong thực tế, thuật ngữ hệ thống thông tin thường dùng để môi trường điện tử - tin học trợ giúp cho công việc quản lý cụ thể đó, hay nói cách khác, để đích đạt sau q trình xây dựng nhằm tin học hố trợ giúp cho cơng tác quản lý hệ thống kinh tế xã hội… 2.2 Quy trình phát triển hệ thống thơng tin Quy trình phát triển hệ thống thông tin chia thành nhiều giai đoạn Tuỳ thuộc vào phương pháp luận quy định phương thức làm việc đơn vị, qui trình chia thành số lượng bước nhiều khác Tuy nhiên tổng hợp chung thành bước: Khảo sát, Phân tích, Thiết kế, Xây dựng, Cài đặt Bảo trì hệ thống Một điểm cần nhấn mạnh dù làm việc có phương pháp hay khơng cơng việc phải trải qua đầy đủ bước kể Hay nói cách khác dù có làm người ta phải xác định yêu cầu(Khảo sát), tưởng tượng hình hài hệ thống( Phân tích), xác định cách thể liệu thông tin( Thiết kế), lập trình( Xây dựng), cài đặt bảo trì 2.2.1 Chiến lược khảo sát Là giai đoạn tìm hiểu quy trình hoạt động hệ thống thực, nhu cầu thơng tin làm sở xác định yêu cầu, phạm vi hệ thống thông tin Kết hồ sơ khảo sát chiếm khoảng 10-15% công sức Việc khảo sát thường tiến hành qua giai đoạn: - Khảo sát sơ bộ: Nhằm xác định tính khả thi đề án - Khảo sát chi tiết: Nhằm xác định xác thực khẳng định kết thu - Báo cáo: Lập hồ sơ khảo sát giai đoạn khảo sát cần xác định rõ nhu cầu, vấn đề quan tâm, để có giới hạn xác cơng việc( phạm vi dự án: phải làm được, chưa làm vượt phạm vi vấn đề) Cũng giai đoạn này, cần tìm hiểu xác định cụ thể đối tượng sử dụng dù họ bị biến động số lượng loại công việc 2.2.2 Phân tích hệ thống LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị Là giai đoạn xác định rõ mục tiêu quản lý cần đạt hệ thống, nêu yếu tố quan trọng đảm bảo đạt mục tiêu hệ thống Dựa mục tiêu đó, xác định mơ hình chức mơ hình liệu Kết hồ sơ phân tích chiếm 15-25% cơng sức Mục tiêu giai đoạn biến đổi phần đầu vào thành đặc tả có cấu trúc Đây q trình mơ hình hố hệ thống với sơ đồ luồng liệu, thực thể liên kết, sơ đồ phân rã chức năng, sơ đồ ngữ cảnh Các công cụ thể (chủ yếu dạng đồ hoạ) sử dụng bước khác trình xây dựng để phục vụ mục đích, đối tượng khác Việc sử dụng công cụ không bắt buộc( đặc biệt công cụ luồng liệu) tuỳ thuộc vào sở trường đội ngũ phân tích hệ thống Trong thực tế, phần phân tích liệu phức tạp quan trọng Các phần phân tích chức phân tích liệu khơng bỏ qua a Phân tích chức Cung cấp cách nhìn tổng thể tới cơng việc Xác định rõ công việc cần phải giải để đạt mục tiêu quản lý hệ thống Việc phân rã cách biểu diễn cấu trúc chức giúp cho việc kiểm tra chức cịn thiếu dễ dàng phân tách, tổ hợp chức công việc Cấu trúc phân rã không phản ánh độ quan trọng hay thứ tự giải chức Trong giai đoạn phân tích nên đưa vào chức phản ánh nghiệp vụ thuộc phạm vi mục tiêu quản lý đặt Một chức xem đầy đủ gồm thành phần sau: - Tên chức - Mơ tả có tính tường thuật - Đầu vào chức (dữ liệu) - Đầu chức (dữ liệu) - Các kiện gây thay đổi, việc xác định hiệu chúng Phân tích chức đưa chi tiết quan trọng dùng lại nhiều lần giai đoạn sau q trình phân tích Sơ đồ chức sau lập cho cách nhìn tồn diện nhu cầu hệ thống b Phân tích liệu Thực thể đối tượng chứa thông tin phục vụ cho chức mà hệ cần giải Mỗi thực thể( Entity) nhóm liệu có thuộc tính, xuất Các thực thể trung gian sinh LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị phần thiết kế Các thực thể lấy liệu từ thực thể bị sửa đổi theo yêu cầu chức cần đưa vào giai đoạn phân tích c Phân tích ngữ cảnh Mơ tả mối liên hệ thực tế hệ thống với yếu tố, tác nhân liên quan đến hệ thống Trong sơ đồ, phần bên thể chức mức tổng qt với dịng liệu hệ Phần bên ngồi tác nhân người, tổ chức hay phận nghiệp vụ hệ thống khác dòng liệu liên quan đến hệ thống d Phân tích luồng liệu Sơ đồ dòng liệu (DFD) cơng cụ để trợ giúp bốn hoạt động chính: (1) Phân tích: Dùng để xác định quy trình quản lý, thể yêu cầu người sử dụng (2) Thiết kế: Dùng để minh hoạ phương án cho phân tích viên, lập trình viên người dùng xem xét thiết kế hệ thống Thể quy trình xử lý thơng tin hệ thống (3) Liên lạc: DFD công cụ trực quan, đơn giản, dễ hiểu trợ giúp cho việc hiểu biết lẫn phân tích viên người sử dụng (4) Tài liệu: Việc dùng DFD đặc tả yêu cầu người dùng đặc tả thiết kế hệ thống làm đơn giản cơng việc mơ hình hố chấp nhận tài liệu 2.2.3 Thiết kế hệ thống Là giai đoạn phát triển bước phân tích giai đoạn trước thành mơ hình logic vật lý, thiết kế giao diện với người sử dụng Giai đoạn phụ thuộc nhiều vào cấu hình phần cứng phần mềm lựa chọn Kết hồ sơ thiết kế chiếm khoảng 15-25% công sức Đầu q trình thiết kế đặc tả yêu cầu xây dựng trình phân tích Trong giai đoạn từ khái niệm biểu diễn mơ hình quan hệ thực thể sinh mơ hình liệu logic Giai đoạn q trình chuyển từ mơ hình liệu chức thành thiết kế sở liệu thiết kế module Trong giai đoạn thiết kế, có nhiều cơng cụ cho phép đặc tả hệ thống song tất công cụ cần phải sử dụng Nếu sử dụng công cụ phát triển hệ thống làm cho hệ thống chất lượng, ngược lại việc sử dụng q nhiều cơng cụ gây lãng phí thời gian để đồng mơ hình, mặt kéo dài thời gian xây dựng, mặt khác lại làm giảm chất lượng hệ thống Người phân tích phải tự chịu trách nhiệm đánh giá để có định xem nên dùng công cụ cho phù hợp với hệ thống cụ thể LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Quản lý vật tư, thiết bị Thiết kế hệ thống bao gồm công việc: - Xác định hệ thống máy tính - Phân tích việc sử dụng liệu - Hình thức hố hệ thống thành phần: áp dụng cách kiểm soát cần thiết, gộp nhóm thành phần chức - Thiết kế sở liệu vật lý - Thiết kế chương trình 2.2.4 Xây dựng chương trình Là giai đoạn lập trình sở phân tích, thiết kế giai đoạn trước Kết chương trình Giai đoạn chiếm khoảng 35-60% cơng sức Giai đoạn gồm bước : a Thi công: - Trên sở kết thiết kế tiến hành tích hợp, mã hố module chương trình - Viết câu lệnh sản sinh CSDL - Thực câu lệnh hệ quản trị CSDL lựa chọn b Tạo CSDL kiểm tra c Kiểm thử chương trình 2.2.5 Cài đặt hệ thống a Lập tài liệu hướng dẫn sử dụng b Chuyển đổi liệu cũ Thực chuyển đổi sở liệu có yêu cầu thay đổi sang hệ thống Việc đòi hỏi đồng thời hiểu biết cấu trúc hệ thống cũ hệ thống nguyên tắc chuyển đổi Cơ chế chuyển đổi phải thiết kế giai đoạn thiết kế hệ thống c Kiểm nghiệm, cài đặt 2.2.6 Bảo trì hệ thống Bảo trì hệ thống tính từ hệ thống thức đưa vào sử dụng Cơng việc bảo trì bao gồm : a Theo dõi việc sử dụng hệ thống, nhận thông báo lỗi b Sửa đổi, nâng cấp phiên c Trợ giúp hiệu chỉnh sai sót số liệu Thơng thường việc bảo trì tiến hành miễn phí khoảng tới 12 tháng Sau hợp đồng bảo trì tiếp tục hàng năm với trị giá khoảng 10% tổng giá trị hệ thống Việc bảo trì thực chỗ thơng qua Trung Tâm hỗ trợ từ xa 2.3 Phương pháp luận phân tích thiết kế hệ thống thơng tin LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 10 Quản lý vật tư, thiết bị Else DoCmd.RunCommand (acCmdSaveRecord) List12.Requery End If List12.Visible = True Dau.Visible = True Truoc.Visible = True Sau.Visible = True dieukien.Visible = True Cuoi.Visible = True Them.Visible = True Thoat.Visible = True DoCmd.GoToControl "Them" Ghi.Visible = False Khong.Visible = False Sua.Visible = True Xoa.Visible = True Xthem = False Xsua = False mancc.Locked = True tenncc.Locked = True diachi.Locked = True dienthoai.Locked = True sotk.Locked = True fax.Locked = True List12.Requery Exit_Ghi_Click: List12.Visible = True Dau.Visible = True dieukien.Visible = True Sau.Visible = True Truoc.Visible = True Cuoi.Visible = True Thoat.Visible = True Ghi.Visible = False Khong.Visible = False Xoa.Visible = True Sua.Visible = True Them.Visible = True DoCmd.GoToControl "Them" Xthem = False Xsua = False LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 76 Quản lý vật tư, thiết bị mancc.Locked = True tenncc.Locked = True diachi.Locked = True dienthoai.Locked = True sotk.Locked = True fax.Locked = True List12.Requery Exit Sub Err_Ghi_Click: MsgBox "Du lieu nhap khong hop le" End Sub Private Sub Khong_Click() On Error Resume Next DoCmd.RunCommand acCmdUndo DoCmd.GoToRecord , , acFirst List12.Visible = True Dau.Visible = True Sau.Visible = True dieukien.Visible = True Truoc.Visible = True Cuoi.Visible = True Thoat.Visible = True Sua.Visible = True Xoa.Visible = True Them.Visible = True Them.SetFocus Khong.Visible = False Ghi.Visible = False Xthem = False Xsua = False mancc.Locked = True tenncc.Locked = True diachi.Locked = True dienthoai.Locked = True sotk.Locked = True fax.Locked = True List12.Requery End Sub LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 77 Quản lý vật tư, thiết bị Private Sub Option35_GotFocus() Me.txtma.Enabled = True Me.txtten.Enabled = False Me.txtdiachi.Enabled = False Me.txtdienthoai.Enabled = False Me.txtma = "" Me.txtten = "" Me.txtdiachi = "" Me.txtdienthoai = "" End Sub Private Sub Option37_GotFocus() Me.txtma.Enabled = False Me.txtten.Enabled = True Me.txtdiachi.Enabled = False Me.txtdienthoai.Enabled = False Me.txtma = "" Me.txtten = "" Me.txtdiachi = "" Me.txtdienthoai = "" End Sub Private Sub Option39_GotFocus() Me.txtma.Enabled = False Me.txtten.Enabled = False Me.txtdiachi.Enabled = True Me.txtdienthoai.Enabled = False Me.txtma = "" Me.txtten = "" Me.txtdiachi = "" Me.txtdienthoai = "" End Sub Private Sub Option41_GotFocus() Me.txtma.Enabled = False Me.txtten.Enabled = False Me.txtdiachi.Enabled = False Me.txtdienthoai.Enabled = True Me.txtma = "" Me.txtten = "" LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 78 Quản lý vật tư, thiết bị Me.txtdiachi = "" Me.txtdienthoai = "" End Sub Private Sub Sau_Click() On Error GoTo Err_Sau_Click If cmt = mancc Then MsgBox "Ban dang o hang vbDefaultButton1, "chu y" Else sau cung!", vbExclamation + DoCmd.GoToRecord , , acNext End If Exit_Sau_Click: Exit Sub Err_Sau_Click: MsgBox Err.Description Resume Exit_Sau_Click End Sub Private Sub Sua_Click() On Error GoTo Err_Sua_Click mancc.Locked = False tenncc.Locked = False diachi.Locked = False dienthoai.Locked = False sotk.Locked = False fax.Locked = False mancc.SetFocus List12.Visible = False Dau.Visible = False Sau.Visible = False Truoc.Visible = False Cuoi.Visible = False dieukien.Visible = False Sua.Visible = False Khong.Visible = True Ghi.Visible = True Xoa.Visible = False LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 79 Quản lý vật tư, thiết bị Thoat.Visible = False Them.Visible = False Xsua = True Exit_Sua_Click: Exit Sub Err_Sua_Click: MsgBox Err.Description Resume Exit_Sua_Click End Sub Private Sub Them_Click() On Error GoTo Err_Them_Click DoCmd.GoToRecord , , acNewRec mancc.Locked = False tenncc.Locked = False diachi.Locked = False dienthoai.Locked = False sotk.Locked = False fax.Locked = False mancc.SetFocus List12.Visible = False Dau.Visible = False Sau.Visible = False dieukien.Visible = False Truoc.Visible = False Cuoi.Visible = False Sua.Visible = False Khong.Visible = True Ghi.Visible = True Xoa.Visible = False Thoat.Visible = False Them.Visible = False Xthem = True Exit_Them_Click: Exit Sub Err_Them_Click: MsgBox Err.Description LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 80 Quản lý vật tư, thiết bị Resume Exit_Them_Click End Sub Private Sub thoat_Click() On Error GoTo Err_thoat_Click DoCmd.Close Exit_thoat_Click: Exit Sub Err_thoat_Click: MsgBox Err.Description Resume Exit_thoat_Click End Sub Private Sub Truoc_Click() On Error GoTo Err_Truoc_Click If dmt = mancc Then MsgBox "ban dang o hang dau tien!", vbExclamation + vbDefaultButton1, "chu y" Else DoCmd.GoToRecord , , acPrevious End If Exit_Truoc_Click: Exit Sub Err_Truoc_Click: MsgBox Err.Description Resume Exit_Truoc_Click End Sub Private Sub Xoa_Click() On Error GoTo Err_Xoa_Click Dim traloi If IsNull(mancc) Then MsgBox "khong the xoa du lieu rong", 48, "chu y" Else LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 81 Quản lý vật tư, thiết bị traloi = MsgBox("Ban muon xoa ma nha cung cap: " & [mancc] & " (cung nhung mau tin lien quan )?", 48 + 4, "thong bao") If traloi = Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.GoToRecord , , acFirst List12.Requery DoCmd.SetWarnings True End If End If Exit_Xoa_Click: Exit Sub Err_Xoa_Click: MsgBox "khong the xoa mau tin nay" Resume Exit_Xoa_Click End Sub Private Sub List12_AfterUpdate() ' Find the record that matches the control Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[mancc] = '" & Me![List12] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Option Compare Database Dim xMshh, xsl, Xthem, Xsua Private Sub Command13_Click() If IsNull(txtma) = False And IsNull(txtten) = True Then Me.List12.RowSource = "select * from where([nhacungcap]![mancc] like '*" & [txtma] & "*')" Else If IsNull(txtma) = True And IsNull(txtten) = False Then Me.List12.RowSource = "select * from where([nhacungcap]![tenncc] like '*" & [txtten] & "*')" nhacungcap nhacungcap LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 82 Quản lý vật tư, thiết bị Else If IsNull(txtma) = False And IsNull(txtten) = False Then Me.List12.RowSource = "select * from nhacungcap where([nhacungcap]![mancc] like '*" & [txtma] & "*' or [nhacungcap]![tenncc] like '*" & [txtten] & "*')" Else If IsNull(txtma) = True And IsNull(txtten) = True Then MsgBox "Ban chua nhap dieu kien tim kiem", + 60, "Thong bao" End If End If End If End If End Sub Private Sub Command49_Click() Me.txtma = Null Me.txtten = Null Me.List12.RowSource = "select * from nhacungcap" End Sub Private Sub Cuoi_Click() On Error GoTo Err_Cuoi_Click If cmt = mancc Then MsgBox "ban dang o hang cuoi cung!", vbDefaultButton1, "chu y" vbExclamation + Else DoCmd.GoToRecord , , acLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub Private Sub Dau_Click() On Error GoTo Err_Dau_Click LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 83 Quản lý vật tư, thiết bị If dmt = mancc Then MsgBox "ban dang o hang dau tien !", vbExclamation + vbDefaultButton1, "chu y" Else End If DoCmd.GoToRecord , , acFirst Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub Private Sub Ghi_Click() On Error GoTo Err_Ghi_Click If IsNull(mancc) Then MsgBox "khong luu duoc gia tri rong!", vbDefaultButton1, "chu y" Exit Sub Else DoCmd.RunCommand (acCmdSaveRecord) List12.Requery End If List12.Visible = True Me.dktk.Visible = True Dau.Visible = True Truoc.Visible = True Sau.Visible = True Cuoi.Visible = True Them.Visible = True Thoat.Visible = True DoCmd.GoToControl "Them" Ghi.Visible = False Khong.Visible = False Sua.Visible = True Xoa.Visible = True Xthem = False Xsua = False vbExclamation + LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 84 Quản lý vật tư, thiết bị mancc.Locked = True tenncc.Locked = True diachi.Locked = True dienthoai.Locked = True sotk.Locked = True fax.Locked = True List12.Requery Exit_Ghi_Click: List12.Visible = True Me.dktk.Visible = True Dau.Visible = True Sau.Visible = True Truoc.Visible = True Cuoi.Visible = True Thoat.Visible = True Ghi.Visible = False Khong.Visible = False Xoa.Visible = True Sua.Visible = True Them.Visible = True DoCmd.GoToControl "Them" Xthem = False Xsua = False mancc.Locked = True tenncc.Locked = True diachi.Locked = True dienthoai.Locked = True sotk.Locked = True fax.Locked = True List12.Requery Exit Sub Err_Ghi_Click: MsgBox "Du lieu nhap khong hop le" End Sub Private Sub Khong_Click() On Error Resume Next DoCmd.RunCommand acCmdUndo DoCmd.GoToRecord , , acFirst List12.Visible = True Me.dktk.Visible = True Dau.Visible = True LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 85 Quản lý vật tư, thiết bị Sau.Visible = True Truoc.Visible = True Cuoi.Visible = True Thoat.Visible = True Sua.Visible = True Xoa.Visible = True Them.Visible = True Them.SetFocus Khong.Visible = False Ghi.Visible = False Xthem = False Xsua = False mancc.Locked = True tenncc.Locked = True diachi.Locked = True dienthoai.Locked = True sotk.Locked = True fax.Locked = True List12.Requery End Sub Private Sub Sau_Click() On Error GoTo Err_Sau_Click If cmt = mancc Then MsgBox "Ban dang o hang vbDefaultButton1, "chu y" Else sau cung!", vbExclamation + DoCmd.GoToRecord , , acNext End If Exit_Sau_Click: Exit Sub Err_Sau_Click: MsgBox Err.Description Resume Exit_Sau_Click End Sub Private Sub Sua_Click() LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 86 Quản lý vật tư, thiết bị On Error GoTo Err_Sua_Click mancc.Locked = False tenncc.Locked = False diachi.Locked = False dienthoai.Locked = False sotk.Locked = False fax.Locked = False mancc.SetFocus List12.Visible = False Me.dktk.Visible = False Dau.Visible = False Sau.Visible = False Truoc.Visible = False Cuoi.Visible = False Sua.Visible = False Khong.Visible = True Ghi.Visible = True Xoa.Visible = False Thoat.Visible = False Them.Visible = False Xsua = True Exit_Sua_Click: Exit Sub Err_Sua_Click: MsgBox Err.Description Resume Exit_Sua_Click End Sub Private Sub Them_Click() On Error GoTo Err_Them_Click DoCmd.GoToRecord , , acNewRec mancc.Locked = False tenncc.Locked = False diachi.Locked = False dienthoai.Locked = False sotk.Locked = False fax.Locked = False mancc.SetFocus Me.dktk.Visible = False LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 87 Quản lý vật tư, thiết bị List12.Visible = False Dau.Visible = False Sau.Visible = False Truoc.Visible = False Cuoi.Visible = False Sua.Visible = False Khong.Visible = True Ghi.Visible = True Xoa.Visible = False Thoat.Visible = False Them.Visible = False Xthem = True Exit_Them_Click: Exit Sub Err_Them_Click: MsgBox Err.Description Resume Exit_Them_Click End Sub Private Sub thoat_Click() On Error GoTo Err_thoat_Click DoCmd.Close Exit_thoat_Click: Exit Sub Err_thoat_Click: MsgBox Err.Description Resume Exit_thoat_Click End Sub Private Sub Truoc_Click() On Error GoTo Err_Truoc_Click If dmt = mancc Then MsgBox "ban dang o hang dau tien!", vbExclamation + vbDefaultButton1, "chu y" Else LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 88 Quản lý vật tư, thiết bị DoCmd.GoToRecord , , acPrevious End If Exit_Truoc_Click: Exit Sub Err_Truoc_Click: MsgBox Err.Description Resume Exit_Truoc_Click End Sub Private Sub Xoa_Click() On Error GoTo Err_Xoa_Click Dim traloi If IsNull(mancc) Then MsgBox "khong the xoa du lieu rong", 48, "chu y" Else traloi = MsgBox("Ban muon xoa ma nha cung cap: " & [mancc] & " (cung nhung mau tin lien quan )?", 48 + 4, "thong bao") If traloi = Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.GoToRecord , , acFirst List12.Requery DoCmd.SetWarnings True End If End If Exit_Xoa_Click: Exit Sub Err_Xoa_Click: MsgBox "khong the xoa mau tin nay" Resume Exit_Xoa_Click End Sub Private Sub List12_AfterUpdate() ' Find the record that matches the control Dim rs As Object LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 89 Quản lý vật tư, thiết bị Set rs = Me.Recordset.Clone rs.FindFirst "[mancc] = '" & Me![List12] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 90 ... quan hệ Chương Phân tích thiết kế hệ thống quản lý vật tư 4.1.Tổng quát công tác quản lý Trung Tâm phát triển CNTT 4.1.1.Mơ hình đào tạo Trung Tâm Trung Tâm phát triển CNTT thuộc trường Đại học... Phòng vật Phòng kỹ Phòng kế 22 Quản lý vật tư, thiết bị 4.1.2.Tình hình thực trạng ứng dụng cơng nghệ tin học quản lý vật tư Trung Tâm phát triển CNTT Trong lĩnh vực kinh doanh, Trung Tâm thường... cáo phịng kế toán hỗ trợ ban giám đốc việc định tài giúp cho việc quản lý kinh doanh Trung Tâm đạt hiệu cao Phòng vật tư nơi quản lý vật tư thiết bị Trung Tâm đồng thời hàng tháng báo cáo tình