Xây dựng phần mềm quản lí thiết bị thí nghiệm

Lời cảm ơn ! Trớc tiên em xin chân thành cảm ơn thầy giáo ,PGS_TS: Nguyễn Quang Lạc ; thầy giáo ,TS: Mai Văn Trinh ,xin chân thành cảm ơn thầy cô giáo thuộc phòng Khoa học Thiết bị nhà trờng ,các thầy cô giáo khoa Vật Lý toàn thể anh chị ,các bạn sinh viên tận tình giúp đỡ cho em đợc hoàn thành đề tài khoá luận tốt nghiệp cách thuận tiện Mặc dù cố gắng nhng đề tài em tránh khỏi sai xót Kính mong đợc phê bình đóng góp ý kiến thầy giáo, cô giáo ,các bạn sinh viên bạn đọc Một lần , xin chân thành cảm ơn Kính chúc may mắn ! Vinh ,tháng 5/2004 Sinh viên :Nguyễn Thế Hoạt_41B lý phần : Mở đầu 1.1 Lý chọn đề tài Xây dựng phần mền Quản lý thiết bị thí nghiệm Một xã hội phát triển bao gồm nhiều yếu tố ,trong có Khoa học ,Kỹ thuật Công nghệ Với nhiều tính u việt ,Công nghệ thông tin ,đang phát triển mạnh mẽ ,toàn diện sâu sắc toàn giới Nó xâm nhập vào nhiều lĩnh vực Khoa học ,Kỹ thuật sống trở thành công cụ đắc lực quan trọng nhiều ngành nghề nh xây dựng ,giao thông vận tải , quân quốc phòng , kinh tế ,giáo dục đặc biệt công tác Quản lý Trớc , cha xuất máy tính điện tử ứng dụng máy tính điện tử cha đợc khai thác phổ biến rộng rãi công tác quản lý nh công tác khoa học khác đòi hỏi nhiều thời gian ,nhân lực tài , dẫn đến hiệu công việc cha đợc nh mong muốn Ngày , với phát triển nh vũ bão Công nghệ Thông tin ,máy vi tính đợc s dụng rộng rãi quan ,nhà máy ,trờng học ,trong phòng thí nghiệm giúp cho công tác quản lý đợc thuận tiện tốt nhiều Vật lý học với t cách môn khoa học thực nghiệm Trên đờng tìm chứng minh chân lý khách quan giới vật chất , vật lý học luôn gắn liền với thí nghiệm vật lý học Với đa dạng phức tạp mang theo ý nghĩa lịch sử khoa học nó, thí nghiệm vật lý học cần nhiều, đa dạng dụng cụ ,các thiết bị thí nghiệm vật lý Từ xuất nhu cầu cấp thiết công tác quản lý thiết bị thí nghiệm ,các dụng cụ thí nghiệm thông số có liên quan đến thiết bị ,dụng cụ Để từ làm cho công tác có liên quan đến thiết bị ,dụng cụ thí nghiệm nh công tác nghiên cứu giảng dạy vật lý học tốt đợc thuận tiện ,mang lại hiệu cao Để góp phần thành công cho thí nghiệm vật lý học , để từ góp phần tìm tòi ,khám phá tri thức vật lý nh vấn đề khác nh khẳng định,chứng minh tri thức vật lý học có công tác giảng dạy vật lý học ,phổ biến kiến thức vật lý công tác quản lý thiết bị ,các dụng cụ thí nghiệm _Phòng thí nghiệm vật lý có vai trò quan trọng Do đặc trng riêng vật lý học , nhà vật lý tự xây dựng cho công cụ mang tính chất đặc trng riêng để phục vụ cho ngành khoa học nh Toán Vật lý (Vật lý _Toán) ,Tin Vật lý (Vật lý _Tin) việc xây dựng phần mềm vật lý học nh phần mềm mô thí nghiệm , tợng vật lý ; phần mềm Dạy học Vật lý ; phần mềm quản lý vật lý học nh phần mềm quản lý hồ sơ dạy học vật lý ; phần mềm quản lý thiết bị thí nghiệm vật lý đợc nhà vật lý quan tâm coi trọng Thực tế ngày xuất nhiều phần mềm vật lý học nói chung nh phần mềm mô thí nghiệm vật lý,các phần mềm dạy học vật lý ,cá phần mềm h- ớng dẫn học ôn thi vật lý phần mềm quản lý vật lý học nói riêng Nhận thức đợc tình hình nói , nghiên cứu vấn đề ứng dụng máy vi tính vào công tác quản lý dụng cụ ,thiết bị thí nghiệm, xây dựng phần mềm Quản lý thiết bị thí nghiệm cho phòng thí nghiệm nói chung (nh phòng thí nghiệm hóa học ,phòng thí nghiệm sinh học ) cho phòng thí nghiệm vật lý với thiết bị ,dụng cụ thí nghiệm phong phú đa dạng tuỳ ý Với chơng trình , hi vọng giúp ích đáng kể việc quản lý thiết bị , dụng cụ thí nghiệm khắc phục đợc hạn chế công tác quản lý theo phơng pháp truyền thống phòng thí nghiệm nói chung phòng thí nghiệm vật lý nói riêng ,để làm cho thí nghiệm vật lý đợc tiến hành thực đợc thuận tiện , từ góp phần làm cho công tác nghiên cứu giảng dạy vật lý học đợc tốt 1.2 Mục đích ,nhiệm vụ nghiên cứu Xây dựng sở lý luận việc ứng dụng máy vi tính vào công tác quản lý nói chung công tác quản lý thiết bị thí nghiệm nói riêng Để từ thấy đợc tính u việt Nghiên cứu phơng pháp phân tích thiết kế hệ thống để từ xây dựng lên chơng trình phần mềm Quản lý thiết bị thí nghiệm Lựa chọn nghiên cứu công cụ để xây dựng phần mềm Quản lý thiết bị thí nghiệm 1.3 Phơng pháp nghiên cứu Phơng pháp lý thuyết : Nghiên cứu phơng pháp ,nội dung yêu cầu công tác quản lý nói chung quản lý thiết bị thí nghiệm nói riêng Nghiên cứu tài liệu để sử dụng máy vi tính xây dựng lên phần mềm quản lý thiết bị thí nghiệm Nghiên cứu kỹ thuật lập trình cho chơng trình Quản lý thiết bị thí nghiệm Phơng pháp thực nghiệm : Sử dụng máy vi tính để thiết kế xây dựng phần mềm Quản lý thiết bị thí nghiệm 1.4 Phạm vi nghiên cứu Phạm vi nghiên cứu đề tài phòng thí nghiệm vật lý _Khoa Vật lý _Trờng Đại học VINH 1.5 Cấu trúc Đề tài Đề tài gồm phần nh sau : Phần : Mở đầu Phần 2: Nội dung Chơng : Cơ sở lí luận việc ứng dụng máy vi tính vào công tác quản lý Chơng : Thiết kế xây dựng phần Quản lý thiết bị thí nghiệm Chơng 3: Chơng trình quản lý Phần 3: Kết luận Phần : Nội dung CHƯƠNG : Cơ sở lý luận việc ứng dụnh máy vi tính vào việc quản lý thiết bị thí nghiệm 1.2.Các chức hỗ trợ máy vi tính trình quản lý thiết bị thí nghiệm 1.2.1 Chức cung cấp thông tin Với t cách phơng tiện nghe nhìn ,máy vi tính có khả cung cấp thông tin lớn Đặc biệt máy tính đợc kết nối với thiết bị ngoại vi khác đợc kết nối vào mạng máy tính _ mạng INTERNET lợng thông tin mang lại lớn lĩnh vực nh kinh tế ,khoa học ,giáo dục , y tế trị xã hội Các văn ,các hình ảnh tĩnh động ,các biểu đồ ,các đồ thị chơng trình đợc số hoá lu thiết bị nhớ máy vi tính nh đĩa từ ,băng từ hay đĩa CD_ROM.Kho liệu biểu diễn mô hình tợng ,các trình nói chung cho trình quản lý nói riêng Máy vi tính cung cấp cho ngời sử dụng khả truy cập nhanh chóng xác tới kho liệu để lấy đợc liệu ,những thông tin cần thiết phục vụ cho mục đích ngời sử dụng Mà ngày thị trờng với phát triển công nghệ thông tin ,các thiết bị ngoại vi (nh tivi ,máy ảnh số ,camera số ) thiết bị nhớ máy vi tính đợc cung cấp rộng rãivề số lợng chủng loại ,tạo điều kiện thuận tiên cho ngời sử dụng Ngay thân trình quản lý thông tin máy vi tính ,các phần mềm máy vi tính tài liệu tham khảo quí giá cho việc tạo phần mềm quản lý ngời sử dụng tạo cho riêng Với kho tàng thông tin lớn ,rất đa dạng ,phong phú mặt đời sống ,kinh tế ,xã hội cách cập nhập khoa học nguồn liệu vô lớn phục vụ cho việc quản lý ngời 1.2.2.Chức lu trữ thông tin Trớc cha xuất máy tính công việc lu trữ thông tin chủ yếu đợc thực giấy tờ sổ sách ,vì mà làm hạn chế nhiều khả lu trữ thông tin mà vốn đa dạng phong phú số lợng chủng loại ; làm cho thời gian lu trữ khả truy cập tìm kiếm , xử lý thông tin nhiều mà hiệu công việc cha cao Năm 1930 với đời máy tính _ Một kiện trọng đại ngời kỷ 20 đánh dấu chấm hết cho thời kỳ thủ công ,lạc hậu Việc lu trữ thông tin mà đợc thể đảm nhận đợc vai trò tầm cỡ Ngày , thông tin lĩnh vực đời sống ,kinh tế ,xã hội dới hình thức khác đợc lu trữ thiết bị nhớ máy vi tính cách khoa học an toàn với khối lợng thông tin lớn.Sau đợc số hoá ,các thông tin đợc lu trữ theo phần thiết bị nhớ Đặc biệt máy vi tính đợc kết nối vào mạng máy tính _Mạng INTERNET khả khả lu trữ tìm kiếm thông tin đợc phát huy mạnh mẽ Ngày với xâm nhập mạnh máy vi tính vào tất lĩnh vực đời sống ,đặc biệt mà loại máy vi tính ngày đợc cải thiện với tốc độ mạnh tốc độ dung lợng ,cấu hình may vi tính ngày đợc tối u hoá khả lu trữ thiết bị nhớ ,của nhớ máy vi tính ngày lớn đáp ứng đầy đủ yêu cầu thông tin cho ngời Thông thờng máy vi tính có dung lợng vào cỡ từ 40GB đến 60 GB , với dung lợng chứa lợng thông tin lớn đáp ứng đợc yêu cầu thông tin cho ngời Ngoài , thông tin máy vi tính đợc lu trữ với độ tin cậy an toàn cao ,thời gian gian lu trữ có tuổi thọ cao phục vụ tốt cho công tác quản lý nói riêng công tác khác , ngày chứng tỏ đợc vai trò quan trọng thiếu đợc máy vi tính lĩnh vực đời sống kinh tế xã hội 1.2.3 Chức truyền dẫn thông tin Ngoài khả lu trữ thông tin máy vi tính có khả truyền dẫn thông tin cách nhanh chóng xác theo yêu cầu mặt thông tin theo đơn đặt hàng ngời sử dụng Một kho tàng khổng lồ thông tin cần thiết truyền dẫn cách nhanh chóng xác hiệu theo nhiều chiều khác mà không cần biết đến danh giới, vị trí địa lý nơi gửi nơi nhận Việc truyền dẫn thông tin đợc thực lu thông tốt làm cho việc trao đổi thông tin cách nhanh chóng, hiệu cập nhập.Ngợc lại truyền dẫn trao đổi, lu thông thông tin làm cho khả lu trữ thông tin tốt nhiều lần phát huy tác dụng việc lu trữ ,tích luỹ thông tin máy vi tính Các vấn đề đợc tích cực ,mạnh mẽ máy vi tính tham gia vào mạng máy tính ,đặc biệt mạng internet Khả truyền dẫn thông tin công cụ đắc lực hiệu thiếu trình quản lý.Hơn ngày chất lợng máy vi tính đợc nâng lên nhanh tốc độ lẫn dung lợng cấu hình ngày thuận tiện gọn gàng làm cho khả truyền dẫn thông tin tối u , phục vụ tốt cho hoạt động ngời nói chung hoạt động quản lý nói riêng ngời 1.2.4.Chức xử lý thông tin Nếu nói đến khả lu trữ truyền dẫn thông tin cha thể nói lên nhiều mạnh chức quan trọng máy vi tính chức xử lý thông tin Từ ngân hàng liệu máy vi tính , sử dụng chơng trình xử lý thích hợp để xử lý thông tin ta nhận đợc thông tin cần thiết phục vụ lĩnh vực , đối tợng loại hình thông tin có máy vi tính Với ngân hàng chứa lợng liệi lớn số lợng chủng loại có tính chất phức tạp việc xử lý ,truy cập thông tin viẹc khó khăn vất vả cần nhiều thời gian với tính xác không caonếu nh trợ giúp máy vi tính vấn đề đợc khắc phục hoàn toàn với độ tin cậy cao Và quản lý ,với đa dạng phức tạp thông tin ngân hàng liệu mà tăng theo thời gian mặt đối tơng quản lý việc quản lý nói chung việc thực chức ,nhiệm vụ việc quản lý khó khăn với độ xác không cao hiệu công việc không cao Ngày với xuất đa dạng phong phú củ phần mềm quản lý việc phân loại phân luồng liệu đơn giản khoa học phục vụ chi tiết ,nhanh chóng xác cho việc truy cập xử lý liệu Qua ta nhận thấy việc quản lý trở nên thuận lợi dễ dàng nhà quản lý sử dụng phần mềm máy vi tính Có thể nói việc xử lý thông tin chức u việt bật máy vi tính Với cải thiện nhanh dung lợng tốc độ máy vi tính tốc độ xử lý thông tin ngày đợc nâng cao hơn, xác phục vụ tốt cho công tác quản lý , bảo vệ ,lu trữ xử lý thông tin Từ máy vi tính ngày thiết thực ,thuận lợi cho việc ứng dụng vào lĩnh vực đời sống ,khoa học ,kỹ thuật ,kinh tế xã hội 1.2.5.Điều chỉnh hoạt động quản lý Thê kỷ đánh dấu đời máy tính _thành tựu đáng kể ngời kỷ 20 _và theo sau thành tựu tiến không ngừng ngành tin học phát triển lên bậc cao trở thành ngành công nghệ thông tin với phát triển nhanh.Ngày ta thấy máy vi tính có mặt khắp nơi từ trung ơng đến địa phơng,từ thành thị đến nông thôn ,trong siêu thị,ngân hàng sân bay công sở ,trờng học ,các phòng thí nghiệm với lĩnh vực quản lý ;các hoạt động điều khiển học tập ;trợ giúp tính toán đến việc giả trí Đặc biệt với phân tích chức hỗ trợ máy vi tính việc quản lý chứng tỏ máy vi tính ,đang công cụ vô quan trọng thiếu đợc thời đại ngày tơng lai Với chức cung cấp thông tin , lu trữ thông tin , truyền dẫn ,xử lý thông tin máy vi tính trở thành công cụ vô đắc lực cho công việc quản lý từ lớn đến nhỏ ,từ đơn giản đến phức tạp Dựa vào nguồn liệu cập nhập từ nơi ,ở lúc giúp cho ngời quản lý cập nhập thông tin ,nhận thức thêm thông tin ,khẳng định thêm thông tin ,nhận thức sát thực tế từ giúp cho công việc quản lý phần việc quan trọng từ nhận thức thêm thông tin thực tế có tác dụng ,tác động hai chiều làm cho nhà quản lý tự đối chiếu qua tự điều chỉnh lại hoạt động quản lý quan cho bắt kịp ,phù hợp với thực tế làm cho hiệu công việc ngời quản lý đợc nâng cao lên nhiều lần 1.2.Những khó khăn việc sử dụng máy vi tính vào quản lý thiết bị thí nghiệm Mặc dù việc sử dụng máy vi tính vào công tác quản lý nói chung công tác quản lý thiết bị thí nghiệm nói riêng có nhiều mặt thuận tiện ,các tính u việt Song để ứng dụng vào thực tế cho công việc quản lý thuận tiện ,có hiệu thật vấn đề lớn với nhiều vấn đề có liên quan cần giải nh : Cơ sở vật chất thiết bị số quan , số phòng thí nghiệm nhiều địa phơng không nhiều số lợng chủng loại nên việc ngs dụng phần mềm quản lý thiết bị thí nghiệm cho hiệu suất không cao Một số địa phơng , quan , phòng thí nghiện cha đợc trang bị đầu t máy vi tính nên việc ứng dụng phần mềm vào công tác quản lý gặp khó khăn lớn Một số quan quen với phơng pháp quản lý truyền thống nên việc thay đổi phơng pháp quản lý để áp dụng phơng pháp quản lý gây không khó khăn Việc ứng dụng phần mềm quản lý thiết bị thí nghiệm cho ta quản lý mặt thông tin thiêts bị thí nghiệm mà khó khăn cho việc quản lý tài sản thiết bị thí nghiệm ; khó khăn cho việc quản lý nguyên tắc hoạt động vật lý thiết bị thí nghiệm vật lý Do phần mềm cho ta nhìn dầy đủ , toàn diện sâu sắc dụng cụ thiết bị thí nghiệm Một số đề xuất để giải quyết: Cần phải phối hợp phơng pháp quản lý truyền thống phơng pháp quản lý Cần phải xây dựng phần mềm vật lý khác song song với , phần mềm mô thí nghiệm , tợng vật lý có liên quan kết nối chúng với thiết bị thí nghiệm có phần mềm quản lý thiết bị thí nghiệm Mà thực tế xuất nhiều phần mềm mô thí nghiệm tợng vật lý Vậy nên việc liên kết phần mềm quản lý thiết bị thí nghiệm với phần mềm mô thí nghiệm , tợng vật lý có vai trò quan trọng hớng nghiên cứu đề tài Chơng : Thiết kế xây dựng chơng trình Quản lý thiết bị thí nghiệm 2.1 Cơ sở lý thuyết 2.1.1 Phân tích thiết kế hệ thống Quản lý 2.1.1.1.Phân tích hoạt động hệ thống quản lý thiết bị thí nghiệm 2.1.1.1.1.Hệ thống quản lý cũ : Qua việc khảo sát thực tế việc quản lý thiết bị nói chung thiết bị thí nghiệm nói riêng , nhận thấy việc quản lý thiết bị thí nghiệm bao gồm công việc sau : -Cán quản lý kiểm tra thiết bị lu vào sổ sách quản lý thông số kỹ thuật thông tin thiết bị cách tuý thông tin mặt thiết bị (mà lu hình ảnh hoạt động thiết bị).Cụ thể thông tin nh : Tên thiết bị ;mã thiết bị(chỉ số thiết bị có mã mà ) ; nớc sản xuất ; năm đa vào sử dụng ; số lợng ; nguyên giá (không có đơn giá) ; tình trạng thiết bị đa vào sử dụng ghi -Cán quản lý đảm nhận việc nhận thêm thông tin thiết bị , dụng cụ thí nghiện huỷ bỏ danh sách thiết bị , dụng cụ đến hạn lý -Cán quản lý đảm nhận việc xử lý h hỏng , mát tài sản thiết bị dụng cụ thí nghiệm ; đảm nhận việc theo dõi hoạt động vận hành thiết bị dụng cụ thí nghiệm Qua việc phân tích hệ thống quản lý thiết bị thí nghiệm cũ nói , thấy hệ thống quản lý cũ có số nhận xét sau: Ưu điểm: +Phản ánh chi tiết nhng toàn diện đầy đủ yếu tố thiết bị dụng cụ thí nghiệm +Hệ thống quản lý cũ bám sát với tình hình thực trạng thực tế thiết bị ,dụng cụ thí nghiệm Từ làm cho khả cập nhật xử lý thông tin quản lý đợc tốt Nhợc điểm: +Phơng pháp quản lý mang tính chất thủ công không phù hợp với thời đại +Phải cần lợng lớn giấy tờ lu trữ làm cho độ xác không cao việc bảo quản thông tin khó khăn +Mất nhiều thời gian nhân lực cho việc quản lý + Việc tra cứu tìm kiếm ,sửa đổi ,bổ sung khó khăn nhiều thời gian 2.1.1.1.2.Hệ thống quản lý : Để khắc phục hạn chế đặc điểm hệ thống quản lý cũ mà không làm u điểm , đa mô hình quản lý sau :Đó việc sử dụng chơng trình phần mềm quản lý thiết bị thí nghiệm đợc viết công cụ mà tác giả tự tìm hiểu ngôn ngữ lập trình Visual Basic 6.0 hãng phần mềm Microsoft a.Yêu cầu : Hệ thống quản lý phải đảm bảo đợc công cụ để quản lý thiết bị thí nghiệm phòng thí nghiệm quan có liên quan Để đạt đợc yêu cầu hệ thống phải thực đợc số chức sau: -Giải nhanh, gọn, an toàn cho sở liệu có chứa thông tin thiết bị dụng cụ thí nghiệm -Tìm kiếm, tra cứu, thống kê, sửa đổi, bổ sung, huỷ bỏ thông tin cách nhanh chóng -Có tính khả thi hiệu -Dễ sử dụng cho ngời b.Phân tích hệ thống : -Thông tin đầu vào:Các thông tin cần thiết dụng cị, thiết bị thí nghiệm nh : +Mã thiết bị +Tên thiết bị +Năm sản xuất +Năm nhập kho +Đơn vị tính +Số lợng +Đơn giá +Hình ảnh thiết bị +Thông số kỹ thuật +Hoạt động thiết bị +Ghi -Thông tin đầu ra:Sau có liệu đầu vào , thông tin đầu thể đảm nhận chức sau: +Xem thông tin-Xem tổng hợp xem chi tiết +Tra cứu, hỏi đáp +Sửa thông tin +Huỷ thông tin +Bổ sung thông tin +In thông tin Các thông tin đợc nhà quản lý xử lý nhanh xác kịp thời 2.1.1.2 Phân tích thiết kế hệ thống Từ việc phân tích nghiên cứu hệ thống ,chúng đa biểu đồ phân cấp chức hệ thống nh sau : 2.1.1.2.1.Sơ đồ phân cấp chức Sơ đồ phân cấp chức công cụ để đa chức hệ thống ,đồng thời thể toàn trình cho biểu đồ luồng liệu.Thông qua để mô tả tất chức xử lý hệ thống theo dạng mức Mô hình với hình chữ nhật chức cho ta nhìn tổng quát chức hệ thống Sơ đồ phân cấp chức năng: Biểu đồ luồng liệu mức vật lý : Thiết bị TN Quản lý thiết bị TN cầu Yêu Nhà Quản lý Hình ảnh form nhập loại thiết bị xuất hiện: Một cách tơng tự ta có hình ảnh form nhập thông số thiết bị: Tơng tự nh ta có hình ảnh chơng trình khác xuất hiện,ví dụ nh form tìm kiếm (theo năm nhập chẳng hạn theo khoá chọn có bảng chọn)sau đây: Sau lần nhập ,bổ xung thông tin; sửa thông tin;xoá thông tin bạn click vào menu ghi để ghi thông tin vào tệp sở liệu Khi bạn chọn chức (nh Nhập Sửa) mà bạn không muốn tực chức bạn nhấp chuột vào nút Huỷ lúc chức bị huỷ bạn chọn đợc chức khác Trớc form bạn phải nhập mật vào ->OK,lúc xuất form cần thiết Khi không muốn chạy chơng trình bạn click chuột vào menu thoát để thoát khỏi chơng trình Lúc chơng trình trở cửa sổ ban đầu Hoặc bạn chạy form login cách nháy đúp chuột vào form login có bên phía phải Lu ý :Cứ lần nhập bạn cần phải nhập đầy đủ thông tin thiết bị thí nghiệm nh: + Mã thiết bị +Tên thiết bị +Năm sản xuất +Nớc sản xuất +Năm nhập kho sử dụng +Số lợng +Đơn giá Và sau lần thao tác bạn nên ý xem có cần phải lu liệu vào tệp sở liệu hay không ?(bằng cách nháy chuột vào menu ghi) Chơng 3:chơng trình phần mềm quản lý thiết bị thí nghiệm *Module chơng trình Public gconn As ADODB.Connection Public Function OpenDB() As Boolean Dim msErrmsg As String Dim sConnect As String OpenDB = True msErrmsg = "" On Error GoTo OpenConnectionErr Set gconn = New ADODB.Connection With gconn ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\qlptn\data\qltn.mdb" ConnectionTimeout = 100 CursorLocation = adUseClient Open End With If gconn.State = Then msErrmsg = "" Else msErrmsg = "Khong mo duoc co so du lieu!" OpenDB = False End If Exit Function OpenConnectionErr: msErrmsg = "loi ket noi" & Err.Description OpenDB = False If msErrmsg "" Then MsgBox (msErrmsg) End If End Function Public Property Get AdoConnection() As ADODB.Connection Set AdoConnection = gconn End Property Private Sub Class_Terminate() gconn.Close Set gconn = Nothing End Sub Public Sub AddCombo(Combo As ComboBox, MyTable As String, Extend As String) Dim rs As ADODB.Recordset, itmX As ListItem Set rs = New ADODB.Recordset rs.Open MyTable, gconn, adOpenForwardOnly, adLockReadOnly Combo.Clear Do While Not rs.EOF Combo.AddItem rs.Fields(Extend) rs.MoveNext Loop rs.Close Set rs = Nothing End Sub Public Sub AddList(List As ListBox, MyTable As String, Extend As String) Dim rs As ADODB.Recordset, itmX As ListItem Set rs = New ADODB.Recordset rs.Open MyTable, gconn, adOpenForwardOnly, adLockReadOnly List.Clear Do While Not rs.EOF List.AddItem rs.Fields(Extend) rs.MoveNext Loop rs.Close Set rs = Nothing End Sub Public Function UpdateKey(MyTable, Key, Extend, st As String) As String Dim rs As ADODB.Recordset, itmX As ListItem Set rs = New ADODB.Recordset rs.Open MyTable, gconn, adOpenForwardOnly, adLockReadOnly Do While Not rs.EOF If Trim(rs.Fields(Extend)) = Trim(st) Then UpdateKey = rs.Fields(Key) End If rs.MoveNext Loop rs.Close Set rs = Nothing End Function Public Sub antruong(frm As Form) Dim ctrl As Control For Each ctrl In frm If TypeOf ctrl Is TextBox Then ctrl.Enabled = False End If Next For Each ctrl In frm If TypeOf ctrl Is ComboBox Then ctrl.Enabled = False End If Next End Sub Public Sub hientruong(frm As Form) Dim ctrl As Control For Each ctrl In frm If TypeOf ctrl Is TextBox Then ctrl.Enabled = True End If Next For Each ctrl In frm If TypeOf ctrl Is ComboBox Then ctrl.Enabled = True End If Next End Sub Public Function xoatruong(frm As Form) Dim ctrl As Control For Each ctrl In frm If TypeOf ctrl Is TextBox Then ctrl.Text = "" End If Next End Function Public Function hiennut(frm As Form) frm.cmdghi.Enabled = False frm.cmdhuy.Enabled = False frm.cmdnhap.Enabled = True frm.cmdsua.Enabled = True frm.cmdxoa.Enabled = True End Function Public Function annut(frm As Form) frm.cmdghi.Enabled = True frm.cmdhuy.Enabled = True frm.cmdnhap.Enabled = False frm.cmdsua.Enabled = False frm.cmdxoa.Enabled = False End Function Public Function ConvertDate(sDate As String) As Date ConvertDate = CDate(sDate) End Function Public Function ValidateData(frm As Form) As Boolean ValidateData = True If (frm.CboNganh.Text = "") Then MsgBox ("Đề nghị chọn ngành học !") ValidateData = False Exit Function End If If (frm.CboKhoahoc.Text = "") Then MsgBox ("Đề nghị chọn khoá học !") ValidateData = False Exit Function End If If (frm.CboHocky.Text = "") Then MsgBox ("Đề nghị chọn học kỳ !") ValidateData = False Exit Function End If If (frm.CboMonthi.Text = "") Then MsgBox ("Đề nghị chọn môn thi !") ValidateData = False Exit Function End If End Function Public Function kt(frm As Form) As Boolean Dim ctrl As Control kt = False For Each ctrl In frm If (TypeOf ctrl Is TextBox) Or (TypeOf ctrl Is ComboBox) Then If ctrl.Text = " " Then kt = True End If End If Next End Function *Form thiết bị Public nhap, sua As Boolean, macu, m_maloai As String Dim rs As ADODB.Recordset Private Sub cbloai_click() m_maloai = UpdateKey("loai", "maloai", "tenloai", Trim(cbloai.Text)) End Sub Public Function getma() As String Dim rs1 As ADODB.Recordset Set rs1 = New ADODB.Recordset rs1.Open "Tangma", gconn, adOpenForwardOnly, adLockReadOnly If Not rs1.EOF Then getma = rs1!ma End If rs1.Close Set rs1 = Nothing End Function Public Function suama() Dim macu, mamoi, sSql As String macu = getma mamoi = Format(Val(macu) + 1, "000#") sSql = "update tangma set ma='" & mamoi & "' where ma='" & macu & "'" gconn.Execute sSql End Function Private Sub cmdghi_Click() Dim sSql As String If kt(frmthietbi) Then MsgBox "Xin vui lòng nhập đầy đủ thông tin", vbYesNo, "cCảnh báo" Exit Sub End If If cbloai.Text = "" Then MsgBox "Xin vui lòng nhập đầy đủ thông tin", vbYesNo, "cCảnh báo" Exit Sub End If 'On Error GoTo loi If nhap = True Then sSql = "insert into thietbi(matb,maloai,tentb,namnhap,namsx,nuocsx,soluong,dongia,thongso,g hichu,anh) values('" & txtma.Text & "','" & m_maloai & "','" & txtten.Text & "','" & txtnamnhap.Text & "','" & txtnamsx.Text & "','" & txtnuoc.Text & "','" & txtsl.Text & "','" & txtdg.Text & "','" & txtts.Text & "','" & txtgc.Text & "','" & txtanh.Text & "')" gconn.Execute sSql suama End If If sua = True Then sSql = "update thietbi set matb='" & txtma.Text & "',maloai='" & m_maloai & "',tentb='" & txtten.Text & "',namnhap='" & txtnamnhap.Text & "',namsx='" & txtnamsx.Text & "',nuocsx ='" & txtnuoc.Text & "',soluong ='" & txtsl.Text & "',dongia ='" & txtdg.Text & "',thongso='" & txtts.Text & "',anh='" & txtanh.Text & "',ghichu='" & txtgc.Text & "' where matb='" & Trim(txtma.Text) & "'" gconn.Execute sSql End If rs.Requery nhap = False sua = False Call antruong(frmthietbi) Call hiennut(frmthietbi) Exit Sub 'loi: 'MsgBox "Xin vui lòng chon anh", vbYesNo, "Canh bao" 'Exit Sub End Sub Private Sub cmdhuy_Click() Call xoatruong(frmthietbi) Call antruong(frmthietbi) Call hiennut(frmthietbi) nhap = False sua = False End Sub Private Sub cmdnhap_Click() Call hientruong(frmthietbi) Call annut(frmthietbi) Call xoatruong(frmthietbi) txtma.Text = "TB" & getma txtma.Enabled = False txtanh.Enabled = False cbloai.SetFocus nhap = True End Sub Private Sub cmdsua_Click() If txtma.Text = " " Then MsgBox " Hãy chọn ghi cần sửa", vbYesNo, "Cảnh báo" Exit Sub End If Call hientruong(frmthietbi) txtma.Enabled = False txtanh.Enabled = False cbloai.Text = "" Call annut(frmthietbi) sua = True End Sub Private Sub cmdthoat_Click() Unload Me End Sub Private Sub cmdxoa_Click() If txtma.Text = " " Then MsgBox " Hãy chọn ghi cần xoá", vbYesNo, "Cảnh báo" Exit Sub End If If MsgBox("bạn có chắn xoá không", vbYesNo + vbQuestion, "Cảnh báo") = vbYes Then gconn.Execute "delete from thietbi where matb='" & Trim(txtma.Text) & "'" rs.Requery Call xoatruong(frmthietbi) End If End Sub Private Sub Command1_Click() C.Action = txtanh.Text = C.FileName Picture1.Picture = LoadPicture(Trim(txtanh.Text)) End Sub Private Sub Command2_Click() C.Action = On Error GoTo loi OLE1.CreateLink (C.FileName) Exit Sub loi: MsgBox "Chơng trình hoạt động", vbYesNo, "canh báo" End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) txtma.Text = DataGrid1.Columns(0) cbloai.Text = DataGrid1.Columns(1) txtten.Text = DataGrid1.Columns(2) txtnamnhap.Text = DataGrid1.Columns(3) txtnamsx.Text = DataGrid1.Columns(4) txtnuoc.Text = DataGrid1.Columns(5) txtsl.Text = DataGrid1.Columns(6) txtdg.Text = DataGrid1.Columns(7) txtts.Text = DataGrid1.Columns(8) txtgc.Text = DataGrid1.Columns(11) txtanh.Text = DataGrid1.Columns(9) On Error GoTo loi Picture1.Picture = LoadPicture(Trim(txtanh.Text)) Exit Sub loi: MsgBox "Thiết bị cha có ảnh", vbYesNo, "Cảnh báo" End Sub Private Sub Form_Load() Set rs = New ADODB.Recordset rs.Open "thietbi", gconn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs nhap = False sua = False Call AddCombo(cbloai, "loai", "tenloai") Call antruong(frmthietbi) Call xoatruong(frmthietbi) Call hiennut(frmthietbi) End Sub *form loại Public nhap, sua As Boolean, macu As String, rs As ADODB.Recordset Private Sub cmdghi_Click() Dim sSql As String, rs1 As ADODB.Recordset If kt(frmloai) Then MsgBox "Xin vui lòng nhập đầy đủ thông tin", vbYesNo, "cCảnh báo" Exit Sub End If If nhap = True Then Set rs1 = New ADODB.Recordset sSql = "select * from loai where maloai='" & Trim(Text1.Text) & "'" rs1.Open sSql, gconn, adOpenForwardOnly, adLockReadOnly If Not rs1.EOF Then MsgBox "Mãnày có", vbYesNo, "Cảnh báo" Exit Sub End If sSql = "insert into loai(maloai,tenloai)values('" & Text1.Text & "','" & Text2.Text & "')" gconn.Execute sSql End If If sua = True Then If macu Trim(Text1.Text) Then Set rs1 = New ADODB.Recordset sSql = "select * from loai where maloai='" & Trim(Text1.Text) & "'" rs1.Open sSql, gconn, adOpenForwardOnly, adLockReadOnly If Not rs1.EOF Then MsgBox "Mãnày có", vbYesNo, "Cảnh báo" Exit Sub End If End If sSql = "update loai set maloai='" & Text1.Text & "',tenloai='" & Text2.Text & "'where maloai='" & Trim(macu) & "'" gconn.Execute sSql End If rs.Requery nhap = False sua = False Call antruong(frmloai) Call hiennut(frmloai) End Sub Private Sub cmdhuy_Click() Call xoatruong(frmloai) Call antruong(frmloai) Call hiennut(frmloai) nhap = False sua = False End Sub Private Sub cmdnhap_Click() Call hientruong(frmloai) Call annut(frmloai) Call xoatruong(frmloai) Text1.SetFocus nhap = True End Sub Private Sub cmdsua_Click() If Text1.Text = " " Then MsgBox " Hãy chọn ghi cần sửa", vbYesNo, "Cảnh báo" Exit Sub End If Call hientruong(frmloai) Call annut(frmloai) sua = True macu = Trim(Text1.Text) End Sub Private Sub cmdthoat_Click() Unload Me End Sub Private Sub cmdxoa_Click() If Text1.Text = " " Then MsgBox " Hãy chọn ghi cần xoá", vbYesNo, "Cảnh báo" Exit Sub End If If MsgBox("bạn có chắn xoá không", vbYesNo + vbQuestion, "Cảnh báo") = vbYes Then gconn.Execute "delete from loai where maloai='" & Trim(Text1.Text) & "'" rs.Requery Call xoatruong(frmloai) End If End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Text1.Text = DataGrid1.Columns(0) Text2.Text = DataGrid1.Columns(1) End Sub Private Sub Form_Load() Set rs = New ADODB.Recordset rs.Open "loai", gconn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs nhap = False sua = False Call antruong(frmloai) Call xoatruong(frmloai) Call hiennut(frmloai) End Sub *Form login Private Sub Command1_Click() Dim rs As ADODB.Recordset If OpenDB = True Then Set rs = New ADODB.Recordset rs.Open "matkhau", gconn, adOpenForwardOnly, adLockReadOnly Dim kt As Boolean kt = False Do While Not rs.EOF If Trim(Text1.Text) = rs!ten And Trim(Text2.Text) = rs!mk Then kt = True End If rs.MoveNext Loop If kt Then Me.Hide main1.Show Else MsgBox "Bạn nhập sai mật khẩu", vbYesNo, "Cảnh báo" Exit Sub End If End If End Sub Private Sub Command2_Click() End End Sub *form tìm kiếm Dim sSql As String, rs As ADODB.Recordset Private Sub Combo1_Click() Dim m_maloai As String m_maloai = UpdateKey("LOAI", "maloai", "tenloai", Trim(Combo1)) sSql = "select * from thietbi where maloai='" & m_maloai & "'" Adodc1.ConnectionString = gconn Adodc1.RecordSource = sSql Adodc1.Refresh End Sub Private Sub Command1_Click() Dim sSql As String If Option2.Value = True Then sSql = "select * from thietbi where matb='" & Trim(Text1.Text) & "'" End If If Option3.Value = True Then sSql = "select * from thietbi where tentb='" & Text2.Text & "'" End If If Option4.Value = True Then sSql = "select * from thietbi where namnhap ='" & Text3.Text & "'" End If If Option4.Value = True Then sSql = "select * from thietbi where namsx ='" & Text4.Text & "'" End If If Option5.Value = True Then sSql = "select * from thietbi where nuocsx ='" & Text5.Text & "'" End If Adodc1.ConnectionString = gconn Adodc1.RecordSource = sSql Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "Khong co thiet bi nhu vay", vbYesNo, "Canh bao" Exit Sub End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Call AddCombo(Combo1, "loai", "tenloai") Call antruong(frmtimkiem) Call xoatruong(frmtimkiem) Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False Option6.Value = False End Sub Private Sub Option1_Click() Call antruong(frmtimkiem) Combo1.Enabled = True Call xoatruong(frmtimkiem) End Sub Private Sub Option2_Click() Call antruong(frmtimkiem) Text1.Enabled = True Call xoatruong(frmtimkiem) End Sub Private Sub Option3_Click() Call antruong(frmtimkiem) Text2.Enabled = True Call xoatruong(frmtimkiem) End Sub Private Sub Option4_Click() Call antruong(frmtimkiem) Text3.Enabled = True Call xoatruong(frmtimkiem) End Sub Private Sub Option5_Click() Call antruong(frmtimkiem) Text4.Enabled = True Call xoatruong(frmtimkiem) End Sub Private Sub Option6_Click() Call antruong(frmtimkiem) Text5.Enabled = True Call xoatruong(frmtimkiem) End Sub *Froject1_main1(Code) Private Sub mnunam_Click() frmthietbi.Show End Sub Private Sub mnuthoat_Click() End End Sub Private Sub mnutim_Click() frmtimkiem.Show End Sub Private Sub mnuttaonmthang_Click() frmloai.Show End Sub Private Sub Timer3_Timer() LBL.Move LBL.Left - 30 If (LBL.Left + LBL.Width) [...]... Phần 3: kết luận Trong đề tài này ,chúng tôi đã nghiên cứu những cơ sở lý luận của việc ứng dụng công nghệ thông tin vào việc quản lý nói chung và quản lý thiết bị thí nghiệm nói riêng ,đó là việc xây dựng phần mềm chơng trình Quản lý Thiết bị thí nghiệm Từ các chức năng hỗ trợ của máy vi tính trong các quá trình quản lý nói chung và quản lý thiết bị thí nghiệm nói riêng cũng nh việc phân tích và thiết. .. nghiệm ,quản lý về mặt thông tin về thiết bị, thông số kỹ thuật về thiết bị thí nghiệm nói chung và thiết bị thí nghiệm vật lý nói riêng mà nó đã mang một tính chất và tầm vóc rộng hơn đó là nó sẽ trở thành một chơng trình phần mềm quản lý phòng thí nghiệm với sự phản ánh đầy đủ về tất cả các mặt có liên quan của các thiết bị thí nghiệm Nhng do thời gian và số lợng các phần mềm mô phỏng có liên quan còn hạn... và việc kết hợp với các phần mềm mô phỏng các thí nghiệm ,hiện tợng vật lý vốn đang là đề tài nghiên cứu rất hấp dẫn cho các nhà vật lý Chúng tôi đã nghiên cứu phơng pháp thiết kế và xây dựng một chơng trình quản lý nói chung và chơng trình quản lý thiết bị thí nghiệm nói riêng Với việc tìm hiểu các hoạt động quản lý nói chung và thực tế của việc quản lý của các phòng thí nghiệm nói riêng Từ đó mà... 1.1.5.Điều chỉnh các hoạt độnh quản lý 7 1.2.Những khó khăn của việc ứng dụng máy vi tính vào việc quản lý.7 Chơng 2 :Thiết kế và xây dựng chơng trình Quản lý thiết bị thí nghiệm 2.1.Cơ sở lý thuyết 8 2.1.1.Phân tích và thiết kế hệ thống quản lý 8 2.1.1.1.Phân tích hoạt động của hệ thống quản lý 2.1.1 1.Hệ thống quản lý cũ 8 2.1.1.2.Hệ thống quản lý mới 9 2.1.1.2.Phân tích và thiết kế hệ thống 2.1.1.2.1.Sơ... trình quản lý của mình những nguyên tắc hoạt động của một số thiết bị có liên quan vào đợc kết nối với các chơng trình mô phỏng các thí nghiệm ,hiện tợng vật lý đợc viết bằng ngôn ngữ Pakma-một phần mềm của nớc cộng hoà Đức và một số các thí nghiệm mô phỏng khác nữa.Vấn đề này nếu đợc làm rộng rãi và triệt để thì chơng trình này không còn đơn thuần là một chơng trình quản lý thiết bị thí nghiệm ,quản. .. phần chính ,đó là:Tạo tệp cơ sở dữ liệu chứa đầy đủ các thông số,hình ảnh và hoạt động về các thiết bị thí nghiệm ;Các chức năng của các menu có trong chơng trình và hớng dẫn sử dụng chơng trình Tệp cơ sở dữ liệu chứa toàn bộ các thông tin của thiết bị thí nghiệm nh tên thiết bị ,mã thiết bị ,năm sản xuất ,nớc sản xuất ,năm nhập vào sử dụng ,số lợng ,đơn giá ,thông số kỹ thuật,hoạt động của thiết bị. .. nhập bạn cần phải nhập đầy đủ các thông tin về thiết bị thí nghiệm nh: + Mã thiết bị +Tên thiết bị +Năm sản xuất +Nớc sản xuất +Năm nhập kho sử dụng +Số lợng +Đơn giá Và sau mỗi lần thao tác bạn nên chú ý xem có cần phải lu dữ liệu vào tệp cơ sở dữ liệu hay không ?(bằng cách nháy chuột vào menu ghi) Chơng 3:chơng trình của phần mềm quản lý thiết bị thí nghiệm *Module của chơng trình Public gconn As... của một loại thiết bị nào đó) * Xem chi tiết 3_Chức năng tra cứu , hỏi đáp về thông tin : * Xem số thiết bị nhập vào trong một năm bất kỳ nào đó * Xem tổng số tiền phải mua trong một năm bất kỳ nào đó * Xem số thiết bị có đơn giá từ năm triệu đồng trở lên (chẳng hạn) 4_Sửa thông tin về thiết bị theo mã thiết bị 5_Huỷ thông tin về những thiết bị đã đến hạn thanh lý 6_Bổ xung thiết bị mới 7_Chức... chức năng của hệ thống: 1_Chức năng nhập dữ liệu quản lý -Nhập mã thiết bị -Nhập tên thiết bị -Nhập năm sản xuất -Nhập nớc sản xuất -Nhập ngày nhập kho -Nhập đơn vị tính -nhập số lợng -Nhập đơn giá -Nhập đơn vị tính -Nhập hình ảnh của thiết bị -Nhập thông số kỹ thuật -Nhập hoạt động của thiết bị 2_Chức năng xem thông tin về thiết bị theo mã thiết bị * Xem tổng hợp (Ngoài các thông tin đã nhập... bạn đọc Xin chân thành cảm ơn ! Mục lục Đề mục Trang Phần 1:Mở đầu 1.1 Lý do chọn đề tài Quản lý thiết bị thí nghiệm 1 1.2 Mục đích ,nhiệm vụ nghiên cứu 2 1.3.Phơng pháp nghiên cứu 2 1.4.Phạm vi nghiên cứu của đề tài 4 1.5.Cấu trúc của đề tài 4 Phần 2: Nội dung Chơng 1: Cơ sở lý luận của việc ứng dụng máy vi tính vào việc quản lý thiết thí nghiệm 4 1.1.Các chức năng của máy vi tính 4 1.1.1.Chức ... nghiệm có phần mềm quản lý thiết bị thí nghiệm Mà thực tế xuất nhiều phần mềm mô thí nghiệm tợng vật lý Vậy nên việc liên kết phần mềm quản lý thiết bị thí nghiệm với phần mềm mô thí nghiệm , tợng... việc xây dựng phần mềm vật lý học nh phần mềm mô thí nghiệm , tợng vật lý ; phần mềm Dạy học Vật lý ; phần mềm quản lý vật lý học nh phần mềm quản lý hồ sơ dạy học vật lý ; phần mềm quản lý thiết. .. tính xây dựng lên phần mềm quản lý thiết bị thí nghiệm Nghiên cứu kỹ thuật lập trình cho chơng trình Quản lý thiết bị thí nghiệm Phơng pháp thực nghiệm : Sử dụng máy vi tính để thiết kế xây dựng