Đang tải... (xem toàn văn)
Tài liệu tham khảo công nghệ thông tin Quản lý vật tư, thiết bị, ứng dụng cho trung tâm phát triển công nghệ thông tin- đại học quốc gia TP. Hồ Chí Minh
Quản lý vật t, thiết bị nhóm sinh viên: nguyễn văn nam phạm văn mạnh nguyễn tú uyên đề 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 Giáo viên híng dÉn: tiÕn sÜ Lª Huy thËp Niªn khãa: 2003 - 2005 Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập Quản lý vật t, thiết bị Lời nói đầu Ngày với phát triển không ngừng mạnh mẽ công nghệ thông tin (CNTT) tất ngành nghề, lĩnh vực kh¸c cđa x· héi nh: kinh tÕ, an ninh quốc phòng, thơng mại điện tử .CNTT nhu cầu cần thiết công ty, doanh nghiệp, tổ chức kinh tế, xà hội với tất Rất nhiều chơng trình phần mềm ứng dụng quản lý đà đời nh chơng trình quản lý nhân sự, quản lý hàng hoá, quản lý vật t thực chiếm đợc lòng tin khách hàng Tuy nhiên đời sản phẩm phần mềm quản lý có chất lợng ngời thiết kế phải hiểu đợc thực tế công ty, doanh nghiệpmà thiết kế mô hình sở liệu để quản lý Các chơng trình ớng dụng phải có độ xác cao, việc lu trữ liệu phải thuận tiện cho việc tra cứu kiểm tra Phần mềm phải hoạt động tốt đáp ứng đợc nhu cầu phát sinh cho hiệu kinh tế cao đồng thời phải phù hợp với khả kinh tế công ty, doanh nghiệp Trong xu thÕ héi nhËp vµo nỊn kinh tÕ thÕ giới, để phát triển kinh tế theo hớng công nghiệp hoá, đại hoá ngành CNTT đà trở thành cầu nối xuyên quốc gia hoạt động tổ chức kinh tế, thơng mại Với việc áp dụng thành tựu khoa học tiên tiến, đại vào lĩnh vực tin học đà dần thay phơng pháp thủ công chơng trình phần mềm quản lý máy tính, giảm bớt thời gian, nhân lực, tăng độ xác bảo mật cao Những phần mềm quản lý công cụ thiếu cho doanh nghiệp nớc Với u điểm tính vợt trội chúng em đà chọn đề tài : quản lý vật t, thiết bị, ứng dụng cho trung tâm phát triển CNTT- đhqg làm đồ án tốt nghiệp Với đề tài chúng em mong muốn công ty, doanh nghiệp, trung tâm, tổ chức kinh tế, xà hội nhà quản lý nhìn thấy tầm quan trọng CNTT đặc biệt phần mềm ứng dụng công tác quản lý Trong suốt trình làm đề tài, chúng em xin trân thành cảm ơn thầy giáo - tiến sĩ LÊ HUY THập đà tận tình bảo nhà trờng đà tạo điều kiện giúp đỡ chúng em hoàn thành đồ án Nhng thời gian ngắn trình độ có phần hạn chế nên trình phân tích thiết kế đề tài không tránh khỏi thiếu xót, chúng em mong nhận đợc ý kiến đóng góp bảo thầy, cô để đề tài lần sau chúng em làm tốt Chúng em xin trân thành cảm ơn! Hà nội tháng 5-2005 Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập Quản lý vật t, thiết bị 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à 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 đợc 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 -Đề 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 đá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 đà đợc 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 Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập Quản lý vật t, thiết bị +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, hoàn vốn nhanh +Mang lại lợi ích sử dụng: Nhanh chóng, thn tiƯn +Kh¾c phơc u kÐm cđa 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 thĨ cđa 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Ĩ cđa 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 vỊ kÜ tht +Kh¶ thi vỊ 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 lu 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ï vỊ 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 đợc Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập Quản lý vật t, thiết bị 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ó nh hiệu quản lý kinh doanh đợc 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, yêu cầu thông tin có tính chất thay đổi thờng xuyên nh vật t -Thông tin đầu ra:Thông tin đầu đợc 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 đợc 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 luân chuyển liệu -Mô hình luân chuyển liƯu hƯ thèng qu¶n lý vËt t cã thĨ mô tả modul sau: +Cập nhật thông tin có tính chất cố định để lu 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 nhng 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 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, nhng 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 đà đợc xử lý từ trớc nªn viƯc kiĨm tra sù sai lƯch cđa sè liƯu ngày phân đợc giảm bớt Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập Quản lý vật t, thiết bị 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 hoàn chỉnh, công việc đơn giản, nhiều thời gian c«ng søc, cịng nh 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 đợc tích luỹ thờng xuyên cập nhật để phục vụ cho toán quản lý Chính mà thông tin trùng lặp phải đợc loại 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 quán thông tin đà đợc 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 Nguyên tắc này, 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 đợc 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ị nh băng từ, đĩa từ , để đảm bảo việc truyền xuất thông tin đợc nhanh chóng Việc giảm bớt đợc 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à đảm bảo độ tin cậy thông tin + Chơng 2: Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập Quản lý vật t, thiết bị 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 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 đợc lu trì nhằm phản ánh thực trạng hiƯn thêi hay qu¸ khø cđa 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, nh liệu nhân sự, nhà xởng, thiết bị v.v Cấu trúc quan 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ị đợc 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, nh 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, toán hóa đơn v.v ) Khi có tác nghiệp xảy ra, kiện cần đợc ghi nhận, nh làm thay đổi liệu phản ánh hoạt động kinh doanh/dịch vụ doanh nghiệp Các xử lý: Đó 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, nhng 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 đợc ấn định hệ thống lÃnh đạo doanh nghiệp, nh đ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 mÃi ), đợc ấn định từ bên 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 ) nh doanh nghiệp không đợc tùy tiện thay đổi Đồ ¸n tèt nghiƯp KTV Gi¸o viªn híng dÉn: Lª Huy Thập Quản lý vật t, thiết bị Đầ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 Đầ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 ) đợc gọi kết - Các kết đợc lu 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 lu trữ) đợc gọi kết Trong thực tế, thuật ngữ hệ thống thông tin thờng đợc 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 đợc sau trình xây dựng nhằm tin học hoá 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 đợc 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 đợc 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 nh 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 đợc 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 đợc - 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, cha làm đợc đà 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 Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 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 đợc hệ thống, nêu đợc yếu tố quan trọng đảm bảo đạt đợc mục tiêu hệ thống Dựa mục tiêu đó, xác định đợc 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 trình mô hình hoá 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ạ) đợc 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 đợc 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 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 đợ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 đợc dùng lại nhiều lần giai đoạn sau trình phân tích Sơ đồ chức sau đợc lập cho cách nhìn toà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 sÏ sinh phÇn thiÕt kÕ Các thực thể lấy liệu từ thực thể nhng 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Õ cđa hƯ thèng víi c¸c 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 quát với dòng liệu hệ Phần bên Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập Quản lý vật t, thiết bị tác nhân nh ngêi, mét tỉ chøc hay bé 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Õ mét hƯ thèng míi ThĨ hiƯn 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 hoá chấp nhận tài liƯu nh vËy 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 đợc lựa chọn Kết hồ sơ thiết kế chiếm khoảng 15-25% công sức Đầu trình thiết kế đặc tả yêu cầu đà đợc 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 đợc mô hình liệu logic Giai đoạn 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 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 thĨ 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 hoá 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 Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 10 Quản lý vật t, thiết bị Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 64 Quản lý vật t, thiết bị Đồ ¸n tèt nghiƯp KTV Gi¸o viªn híng dÉn: Lª Huy Thập 65 Quản lý vật t, thiết bị Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 66 Quản lý vật t, thiết bị 5.4 Các mà lệnh đợc sử dụng chơng trình Private Sub Form_Load() DoCmd.Restore Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("user") If rs.EOF Then DoCmd.Close DoCmd.OpenForm "main" End If End Sub Private Sub login_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Me.dem = Me.dem + Set db = CurrentDb() Set rs = db.OpenRecordset("user") rs.MoveFirst Do While Not rs.EOF If rs![username] = ten And rs![password] = ma Then kt = Exit Do End If rs.MoveNext Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 67 Quản lý vật t, thiÕt bÞ Loop If kt = Then DoCmd.Close DoCmd.OpenForm "main" Else If Me.dem = Then DoCmd.Quit Exit Sub End If MsgBox "ban nhap username hoac password sai", + 48, "thong bao" End If End Sub Private Sub Form_Timer() Dim x As String, y As String Randomize r = Rnd(1) * 250 + g = Rnd(1) * 250 + b = Rnd(1) * 250 + r1 = Rnd(1) * 250 + g1 = Rnd(1) * 250 + b1 = Rnd(1) * 250 + Me.Label6.ForeColor = RGB(r, g, b) End Sub Option Compare Database Private Sub Form_Load() DoCmd.Restore End Sub Private Sub ok_Click() Dim db As DAO.Database, rec As DAO.Recordset Set db = CurrentDb() Set rec = db.OpenRecordset("admin") rec.MoveFirst If passcu = rec![pass] Then If IsNull(passmoi) And IsNull(xlpassmoi) Then MsgBox "Ban chua nhap ma so he thong moi!" & Chr(10) & "De nghi nhap day du", + vbCritical, "Thong bao" Exit Sub End If If passmoi = xlpassmoi Then rec.Edit Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 68 Quản lý vật t, thiết bị rec![pass] = passmoi rec.Update rec.Close db.Close passcu = "" passmoi = "" xlpassmoi = "" MsgBox "Ma so he thong da duoc thay doi", + 64, "Thong bao" DoCmd.Close Else MsgBox "Xac lap ma so moi sai !" & Chr(10) & "De nghi nhap lai ", + vbCritical, "Thong bao" passmoi = "" xlpassmoi = "" End If Else MsgBox "Ma he thong khong dung" & Chr(10) & "De nghi nhap lai", + 16, "Thong bao" passcu = "" End If End Sub Option Compare Database Private Sub Command4_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("user") If Not rs.EOF Then rs.MoveFirst Do Until rs.EOF If rs![userID] = mauser And rs![username] = ten And rs![password] = ma Then If IsNull(ma1) = False And IsNull(ma2) = False Then If ma1 = ma2 Then rs.Edit rs![password] = ma1 rs.Update MsgBox "Ban da thay doi ma so cong", + 60, "thong bao" Me.mauser = "" Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 69 Quản lý vật t, thiết bÞ Me.ten = "" Me.ma = "" Me.ma1 = "" Me.ma2 = "" GoTo Thoat Else If ma1 ma2 Then MsgBox "new password va retype new password cua ban khong dung", + 48, "thong bao" GoTo Thoat End If End If Else MsgBox "ban khong duoc de new password va retype new password", + 48, "thong bao" GoTo Thoat End If End If rs.MoveNext Loop MsgBox "ban nhap userID, username hoac password chua dung", + 60, "Thong bao" End If Thoat: End Sub Private Sub Form_Load() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("user") If Not rs.EOF Then Me.ma.Enabled = True Me.ten.Enabled = True Else Me.ma.Enabled = False Me.ten.Enabled = False End If End Sub Private Sub Command13_Click() On Error GoTo Err_Command13_Click Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 70 Quản lý vËt t, thiÕt bÞ DoCmd.Close Exit_Command13_Click: Exit Sub Err_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub Private Sub Form_Load() DoCmd.Restore Me.khungxoa.Visible = False Me.khungthem.Visible = False End Sub Private Sub Ghi_Click() Dim db As DAO.Database Dim rec As DAO.Recordset Set db = CurrentDb() Set rec = db.OpenRecordset("user") If (mamoi "") And (ten "") And (pass "") Then On Error GoTo loi rec.AddNew rec![userID] = mamoi rec![username] = ten rec![password] = pass rec.Update mamoi = "" ten = "" pass = "" MsgBox "Ho so da duoc luu", + 64, "Thong bao" Me.macu.Requery Me.bangma.Requery Else MsgBox "Nhap thieu du lieu", + 64, "Thong bao" End If loi: rec.MoveFirst Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 71 Quản lý vật t, thiết bị Do Until rec.EOF If rec![userID] = mamoi Then MsgBox "Ma User da ton tai" & Chr(10) & "De nghi nhap Ma User khac", + 64, "thông báo" Exit Sub End If rec.MoveNext Loop End Sub Private Sub Option59_GotFocus() Me.khungxoa.Visible = False Me.khungthem.Visible = True End Sub Private Sub Option61_GotFocus() Me.khungxoa.Visible = True Me.khungthem.Visible = False End Sub Private Sub thoat1_Click() DoCmd.Close End Sub Private Sub thoat2_Click() DoCmd.Close End Sub Private Sub Xoa_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("user") rs.Edit Do While Not rs.EOF If rs![userID] = macu Then rs.Delete End If rs.MoveNext Loop Me.macu = "" bangma.Requery macu.Requery End Sub Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 72 Quản lý vật t, thiết bị Option Compare Database Dim xMshh, xsl, Xthem, Xsua Private Sub Command13_Click() Select Case luachon Case 1: Me.List12.RowSource = "select * from where([nhacungcap]![mancc] like '*" & [txtma] & "*')" Case 2: Me.List12.RowSource = "select * from where([nhacungcap]![tenncc] like '*" & [txtten] & "*')" Case 3: Me.List12.RowSource = "select * from where([nhacungcap]![diachi] like '*" & [txtdiachi] & "*')" Case 4: Me.List12.RowSource = "select * from where([nhacungcap]![dienthoai] like '*" & [txtdienthoai] & "*')" End Select End Sub nhacungcap nhacungcap nhacungcap nhacungcap Private Sub Command49_Click() Me.txtma = "" Me.txtten = "" Me.txtdiachi = "" Me.txtdienthoai = "" 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!", vbExclamation + vbDefaultButton1, "chu y" Else DoCmd.GoToRecord , , acLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 73 Quản lý vật t, thiết bÞ Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub Private Sub Dau_Click() On Error GoTo Err_Dau_Click 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!", vbExclamation + vbDefaultButton1, "chu y" Exit Sub 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 Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 74 Quản lý vật t, thiÕt bÞ 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 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 Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 75 Quản lý vật t, thiết bÞ 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 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 = "" Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 76 Quản lý vật t, thiết bÞ 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 = "" 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 sau cung!", vbExclamation + vbDefaultButton1, "chu y" Else DoCmd.GoToRecord , , acNext End If Exit_Sau_Click: Exit Sub Err_Sau_Click: MsgBox Err.Description Resume Exit_Sau_Click §å ¸n tèt nghiƯp KTV Gi¸o viªn híng dÉn: Lª Huy Thập 77 Quản lý vật t, thiết bị 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 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 Đồ án tốt nghiệp KTV Giáo viên hớng dẫn: Lê Huy Thập 78 ... 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 quốc gia TP Hồ Chí Minh. .. 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... : quản lý vật t, thiết bị, ứng dụng cho trung tâm phát triển CNTT- đhqg làm đồ án tốt nghiệp Với đề tài chúng em mong muốn công ty, doanh nghiệp, trung tâm, tổ chức kinh tế, xà hội nhà quản lý
