Xây dựng phần mềm quản lý sách và thiết bị trường học bằng ngôn ngữ lập trình visual basic

Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sỏch v thit b trng hc Lời Nói ĐầU Chúng ta b-ớc sang kỷ nguyên mới, kỷ nguyên mà công nghệ thông tin đà có b-ớc phát triển nhảy vọt trở thành ngành thiếu việc áp dụng vào lĩnh vực đời sống xà hội nh-: Truyền thông, đo l-ờng, tự động hóa, quản lý hoạt động xà hội ng-ời Việc áp dụng công nghệ thông tin quản lý quan xý nghiệp, trở nên phổ biến ngày cấp thiết Những vấn đề đặt việc quản lý làm để chuẩn hóa cách xử lý liệu quan, xí nghiệp, hàng trăm quan, hàng trăm xí nghiệp, nơi có cách xử lý khác Trong công nghệ thông tin ngôn ngữ lập trình hệ quản trị sở liệu không ngừng phát triển đổi mới, cho phép xây dựng hỗ trợ quản lý hoạt động xà hội, kinh doanh quản lý trang thiết bị để giảm thiểu nhân công giảm tổn thất trang thiết bị cho quan Trong phạm vi thực đồ án tốt nghiệp đại học đề cập đến việc quản lý Sách thiết bị tr-ờng học cho công ty cổ phần sách thiết bị tr-ờng học việc Xây dựng phần mềm Quản lý sách thiết bị tr-ờng học Đồ án gồm ch-ơng: Ch-ơng I: Đặc tả toán quản lý Phân tích thiết kế hệ thống Ch-ơng II: Phần mềm quản lý sách thiết bị tr-ờng học Ch-ơng III: Một số thuật toán ch-ơng trình Tôi xin chân thành cảm ơn sù h-íng dÉn cđa TiÕn sÜ Lª Anh Ngäc, ban lÃnh đạo nhân viên công ty Cổ phần sách thiết bị tr-ờng học Nghệ An ( Số 65 Đ-ờng Lê Hồng Phong TP Vinh Nghệ An ) thầy cô giáo khoa Công nghệ thông tin đà động viên, giúp đỡ suốt trình qua Nh-ng khả thời gian nhiều hạn chế nên trình phân tích thiết kế hệ thống, cài đặt ch-ơng trình quản lý có chỗ ch-a tối -u Sinh viờn thc hin : Vừ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm qun lý Sỏch v thit b trng hc tránh khỏi thiếu sót Tôi mong đ-ợc góp ý bổ sung thầy cô giáo bạn để ch-ơng trình đ-ợc hoàn thiện Vinh, tháng năm 2010 Sinh viờn thc hin : Võ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường học Ch-ơng I: ĐặC Tả BàI TOáN PHÂN TíCH Và THếT Kế Hệ THốNG I ĐặC Tả BàI TOáN QUảN Lý: Đặc tả toán quản lý: Quản lý cách biểu ý chí muốn biến đổi thục tổng thể t-ợng Đó việc tạo kiện, thay kiện xảy bộc phát Đây lắp ráp nhiệm vụ rời rạc mà hoạt động phân biệt rõ ràng với chức khác tổ chức Tròng năm tr-ớc máy tính ch-a đ-ợc sử dụng rộng rÃi hệ thống quản lý, hệ thống quản lý đ-ợc thực theo ph-ơng pháp thủ công chủ yếu sức ng-ời nên hiệu đạt đ-ợc không cao hay xảy sai sót gây ảnh h-ởng đến hiệu hoạt động Hệ thống quản lý sách thiết bị tr-ờng học nằm sè ®ã Nhê tiÕn bé khoa häc vỊ ®iƯn tử, viễn thông đà đ-a tin học trở nên ứng dụng rộng rÃi sâu đời sống kinh tế xà hội ng-ời Con ng-ời quán triệt đ-ợc thông tin quyền lực kinh tế việc ứng dụng công nghệ thông tin vào công việc quản lý đ-ợc ứng dụng rộng rÃi công ty quan, vào nghiệp vụ để giúp cho việc quản lý đ-ợc dễ dàng Quản lý sách thiết bị tr-ờng học công ty công việc quan trọng đòi hỏi phận quản lý phải tiến hành nhiều nghiệp vụ phức tạp Việc ứng dụng công nghệ thông tin đà mang lại b-ớc đột phá cho công tác quản lý, giúp công ty nắm bắt thông tin sách thiết bị, thông tin khách hàng, nhà cung cấp cách xác kịp thời Từ ng-ời quản lý đ-a kế hoạch định đắn, giảm chi phí, chống thất thoát tăng khả quản lý, nâng cao kết hoạt động kinh doanh Phục vụ tốt cho giáo dục n-ớc nhà Nhằm đáp ứng nhu cầu đó, đà tập trung khảo sát nghiên cứu phân tích thực tế đ-a đề án Xây dựng Phần Sinh viờn thc hin : Võ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường học mềm quản lý Sách thiết bị tr-ờng học ngôn ngữ lập trình Visual Basic 6.0 Qua trình khảo sát đà nắm đ-ợc sơ đồ tổ chøc cđa c«ng ty nh- sau: Giám Đốc Phịng Kế Hoạch Kinh Doanh Phịng Tài Vụ Kho Trªn thùc tÕ việc quản lý sách thiết bị tr-ờng học công ty đ-ợc thực hầu hết thủ công doanh nghiệp gặp nhiều khó khăn việc l-u trữ liệu, nh- thống kê liệu Tìm hiểu ngôn ngữ Visual Basic: 2.1 Vài nét ngôn ngữ Visual Basic: Visual Basic môi tr-ờng lập trình đ-ợc xây dựng Microsoft nhằm cung cấp cho ng-ời lập trình ph-ơng pháp phát triển ứng dụng Windows nhanh dƠ nhÊt Visual Basic cung cÊp cho ng-êi lËp tr×nh môi tr-ờng tích hợp, nơi mà ng-ời lập trình sử dụng công cụ để tạo giao diện ng-ời sử dụng cách nhanh chóng dễ dàng tạo mà để trả lời lại tác động từ phái ng-ời sử dụng Visual Basic cung cấp cho ng-ời lập trình kỹ thuật lập trình h-ớng kiện kỹ thuật lập trình h-ớng đối t-ợng Môi tr-ờng phát triển Visual Basic có công cụ soạn thảo gỡ rối tinh vi, cho phép ng-ời lập trình gắn mà với giao diện cách nhanh chóng cho kiện Dùng Visual Basic cách nhanh tốt để lập trình cho Microsoft Windows Cho dù bạn chuyên nghiệp hay mẻ ch-ơng trình Sinh viờn thc hin : Vừ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường học Windows, Visual Basic cung cấp cho bạn công cụ hoàn chỉnh để đơn giản hóa việc triển khai lập trình ứng dụng cho MSWindows Visual Basic ? Phần "Visual" đề cập đến ph-ơng phàp đ-ợc sử dụng ®Ĩ t¹o giao diƯn ®å häa ng-êi dïng (Graphical User Interface hay viết tắc GUI) Có sẵn phận hình ảnh, gọi controls, bạn đặt vị trí định đặc tính chúng khung hình, gọi form Nếu bạn đà sử dụng ch-ơng trình vẽ chẳng hạn nh- Paint, bạn đà có sẵn kỹ cần thiết để tạo GUI cho Visual Basic Phần "Basic" đề cập đến ngôn ngữ BASIC (Beginners All-Purpose Symbolic Instruction Code), ngôn ngữ lập trình đơn giản, dễ học, đ-ợc chế cho khoa học gia ( ng-ời để học lập trình điện toán ) dùng Visual Basic đà đ-ợc từ MSBasic, Bill Gates viÕt tõ thêi dïng cho m¸y tÝnh bits 8080 hay Z80 HiÖn nã chøa đến hàng trăm câu lệnh ( commands ), hàm (functions) từ khóa (keywords) Rất nhiều commands, functions liên hệ trực tiếp đến MSWindows GUI Những ng-ời bắt đầu viết ch-ơng trình cách học vài commands, functions keywords Khả ngôn ngữ cho phép ng-ời chuyên nghiệp hoàn thành điều nhờ sử dụng ngôn ngữ lập trình MSWindows khác Ng-ời mang lại phần " Visual" cho Visual Basic ông Alan Cooper Ông đà gói môi tr-ờng hoạt động Basic phạm vi dễ hiểu, dễ dùng, không cần phải ý đến tinh xảo MSWindows, nh-ng dùng chức MSWindows cách hiệu Do đó, nhiều ng-ời xem ông Alan Cooper cha già Visual Basic Visual Basic có hai dạng khác: Visual Basic for Application (VBA) VBScript VBA ngôn ngữ nằm phía sau ch-ơng trình Word, Excel, MSAccess, MSProject, v.v gäi lµ Macros Dïng VBA MSOffice, Sinh viên thực : Võ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường hc ta làm tăng chức cách tự động hóa ch-ơng trình VBScript đ-ợc dùng cho Internet Operating System Dù cho mục đích bạn tạo tiện ích nhỏ cho riêng bạn, nhóm làm việc bạn, công ty lớn, hay cần phân bố ch-ơng trình ứng dụng réng r·i trªn thÕ giíi qua Internet, Visual Basic có công cụ lập trình mà bạn cần thiết 2.2 Các ấn Visual Basic Có ba ấn Visual Basic 6: Learning, Professional Enterprise Chúng ta hÃy gạt qua ấn Learning Bạn dïng Ên b¶n Professional hay Enterprise Ên b¶n Professional cung cấp đầy đủ bạn cần để học triển khai ch-ơng trình Visual Basic, control ActiveX, phận lập trình tiền chế hữu dụng cho ch-ơng trình ứng dụng ( application programs ) bạn t-ơng lai Ngoài đĩa compact cho Visual Basic, tài liệu đính kèm gồm có sách Visual Studio Professional Features hai đĩa CD Microsoft Developer Network (MSDN) ấn Enterprise ấn Professional cộng thêm công cụ Back Office chẳng hạn nh- SQL Server, Microsoft Transaction Server, Internet Information Server 2.3 Microsoft on the Web: Web site cña Microsoft chøa nhiều thông tin cập nhật cho ng-ời lập trình Visual Basic Trang chủ Visual Basic đặt URL http://www.microsoft.com/vbasic/ Thông tin có sẵn địa nầy bao gồm: Cập nhật đặc tính mới, phiên sản phẩm, sản phẩm liên hệ, thuyết trình ( seminar ) hoạt động ( event ) đặc biệt Thông tin bổ sung đặc tính Visual Basic chứa viết gọi White Papers, mách n-ớc ( tips ) trình trợ giáo, nguồn đào tạo Sản phẩm t¶i xuèng ( download ) bao gåm sù cËp nhËt đến file ch-ơng trình, cập nhật trợ giúp, trình điều khiển, file liên hệ khác Visual Basic 2.4 Visual Basic ngôn ngữ đơn giản, đại: Sinh viờn thc hin : Vừ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường học Visual Basic ®· loại bỏ vài ph-c tạp ngôn ngữ khác Điều làm cho ngôn ngữ trở nên đại ? Đặc tính nh- xử lý ngoại lệ, thu gom nhớ tự động, kiểu liệu mở rộng bảo mật mà nguồn đặc tính đ-ợc mong đợi ngôn ngữ đại Visual Basic chứa tất đặc tính 2.5 Visual Basic ngôn ngữ h-ớng đối t-ợng: Những đặc điểm ngôn ngữ h-ớng đối t-ợng (Object Oriented Language ) đóng gói ( Encapulation ), kế thừa ( Inheritance ) đa hình ( Polymorphism ) Visual Basic hộ trợ tất đặc tính Tất lớp Visual Basic kiểu tham khảo, nghĩa khai báo kiểu lớp có biến l-u trữ tham khảo đến thể lớp Visual Basic hỗ trợ đơn kế thừa lớp Một lớp thừa h-ởng thuộc tính ph-ơng thức từ lớp khác 2.6 Visual Basic ngôn ngữ mạnh mẽ mềm dẻo: Ngôn ngữ Visual Basic không đặt ràng buộc lên việc làm Visual Basic đ-ợc sử dụng cho nhiều dự án khác nh- tạo ứng dụng xử lý văn bản, tính phần mềm ứng dụng 2.7 Là ngôn ngữ h-ớng modul: Mà nguồn Visual Basic đ-ợc viết phần đ-ợc gọi lớp, lớp chứa ph-ơng th-c thành viên Những lớp ph-ơng thức đ-ợc sử dụng lại ứng dụng hay ch-ơng trình khác Bằng cách truyền mẩu thông tin đến lớp hay ph-ơng thức tạo mà nguồn dùng lại hiệu 2.8 Visual Basic ngôn ngữ trở nên phổ biến: Visual Basic ngôn ngữ lập trình đ-ợc sử dụng phổ biến đặc tính ngôn ngữ nh-: Đơn giản, h-ớng đối t-ợng, mạnh mẽ Và đ-ợc hộ trợ từ Microsoft Vài nét hệ quản trị sở liệu Access: Sinh viên thực : Võ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường học 3.1 Giíi thiƯu vỊ hƯ quản trị sở liệu Access: Từ cuối năm 80, hÃng Microsoft đà cho đời hệ điều hành Windows, đánh dấu b-ớc ngoặt phát triển ứng dụng phần mềm Windows (giao diện GUI- Graphical User Interface) Mét nh÷ng øng dơng nỉi bật kèm lúc phần mềm tin học văn phòng Microsoft Office Từ đến nay, phần mềm chiếm thị phần số giới lĩnh vực tin học văn phòng Ngoài ứng dụng văn phòng quen thuộc phải kể đến nh-: MS Word - để soạn thảo tài liệu; MS Excel - bảng tính điện tử; MS Powerpoint để trình chiếu báo cáo; phải kể đến phần mềm quản trị sở liệu tiếng kèm: MS Access 3.2 Access làm đ-ợc gì, ứng dụng thực tế? Access Hệ quản trị sở liệu quan hệ (RDMSRelational Database Management System), phù hợp cho toán quản lý vừa nhỏ Hiệu cao ®Ỉc biƯt dƠ sư dơng - bëi lÏ giao diƯn sử dụng phần mềm gần giống hệt số phần mềm khác MS Office quen thuộc nh-: MS Word, MS Excel; Hơn nữa, Access cung cấp hệ thống công cụ phát triển mạnh kèm (Development Tools) Công cụ giúp nhà phát triển phần mềm đơn giản việc xây dựng trọn gói dự án phần mềm quản lý qui mô vừa nhỏ Đặc biệt muốn học phát triển phần mềm cách dễ học nhất, nhanh giải toán Đến khẳng định đ-ợc ứng dụng Access là: - Dùng để xây dựng hệ sở liệu ( phần sở liệu, phần phát triển thành phần mềm dùng công cụ khác để làm nh-: Visual Basic, Visual C, Delphi, NET, ) - Có thể dùng để xây dựng trọn gói phần mềm quản lý qui mô vừa nhỏ 3.3 Access 2000 trở có so với phiên cũ (Acces97)? Phải thừa nhận giao diện sử dụng đà có tiến v-ợt bËc C¸c Sinh viên thực : Võ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường học thao t¸c sư dơng đi, đơn giản giao diện thân thiện; Công nghệ truy cập liệu ADO ActiveX Data Objects hoàn toàn thay công nghệ tr-ớc sử dụng Access DAO Data Access Objects nhiều lý cách thức sử dụng lẫn tối -u kỹ thuật Ngôn ngữ lập trình VBA đ-ợc cải tiến, đ ặ c b i ệ t b ả n MS Access 2000 Developer cung cấp công cụ để đóng gói dự án Access (tức tạo cài đặt mà sử dụng không cần phải cài đặt Access lên máy tính) Có khả tạo ứng dụng truy cập sở liệu thông quan giao diện web (web-base) Điều ch-a có phiên tr-ớc Tuy nhiên, khả vần số giới hạn, ch-a thể thực mạnh nh- công cụ chuyên nghiƯp kh¸c nh-: ASP, PHP, NET, … II LùA CHäN HƯớNG PHÂN TíCH: Khi phân tích thiết kế hệ thống ta cã thĨ chän mét hai h-íng lµ: h-íng chức h-ớng liệu Trong toán lựa chọn ph-ơng pháp dựa vào chức toán để phân tích thiết kế hệ thống Với cách tiếp cận chức đ-ợc lấy làm trục trình phân tích thiết kế Các b-ớc thực hiên: - Xây dựng biểu đồ phân cấp chức - Xây dựng biểu đồ luồng liệu - Xây dựng mối quan hệ thực thể - Xây dựng mô hình liêu Phân tích hệ thống cũ: Hệ thống quản lý hoạt động ng-ời nhằm mang lại lợi ích phục vụ cho ng-ời Đặc điểm chung hệ thống quản lý so với hệ thống khác lµ chóng lµ cđa ng-êi vµ cã ng-êi tham gia vào - Của ng-ời, mục tiêu chúng ng-ời định Sinh viên thực : Võ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường học - Cã ng-êi tham gia, ng-ời th-ờng xuyên góp phần thúc đẩy hay kìm hÃm phát triển hệ thống, ng-ời có trí thông minh, có khả sáng tạo tham vọng Do đặc điểm chung nh- vËy nªn cã hai nÐt nỉi bËt cđa hƯ thống quản lý sách thiết bị tr-ờng học là: - Vai trò chế điều khiển quan trọng, nhằm giữ cho hệ thống h-ớng đích, đạt kết với chất l-ợng cao - Vai trò cđa th«ng tin cịng rÊt quan träng, nh»m phơc vơ cho nhu cầu giao tiếp, trao đổi ng-ời với Qua trình khảo sát thực tế công ty cổ phần sách thiết bị tr-ờng học Nghệ An Đây công ty cung cấp sách thiết bị tr-ờng học cho tỉnh Nghệ An - Công ty Sách Thiết bị tr-ờng học đ-ợc thành lập từ năm 1986, đến tháng 08/2004 đà chuyển đổi thành công ty cổ phần sách thiết bị tr-ờng học Nghệ An - Quá trình hoạt động công ty đà mang lại hiệu cao việc phục vụ cho phụ huynh, học sinh, nhà tr-ờng ngành học, cấp học loại sách giáo khoa, sách giáo viên, sách tham khảo nâng cao loại thiết bị giáo dục khác - Với khả phục vụ công ty, việc quản lý Sách thiết bị cách hợp lý, nhanh chóng, xác quan trọng - Công ty hàng năm phân phối sách thiết bị xuống tận huyện, thành phố nhằm đáp ứng nhu cầu học tập học sinh giáo viên tỉnh Ngoài công ty cung cấp sách thiết bị cho quầy hàng bán sĩ, bán lẻ trực thuộc công ty, số khách hàng lấy sĩ khác Các hoạt động giao dịch mua bán công ty chủ yếu thủ công Nhập hàng: Cùng với đặt hàng huyện thành tỉnh thông qua trình kiểm kê định kỳ hàng hóa phòng Kế hoạch kinh doanh thủ kho lập bảng biểu l-ợng hàng tồn kho, từ đ-a kế hoạch nhập hàng trình lên ban giám đốc để xét duyệt mua hàng Sinh viờn thc : Võ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT 10 Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường hc Mathang, Loaihang KHNCC, Hoadon, chitiethoadon thông qua vthongkehoadon víi c²ch t×m kiÕm n¯y nã sÏ dùa v¯o loaihoadon = ho đơn xuất để thống kê Thuật toán thống kê hàng tồn chức thống kê hàng tồn: Private Sub cboloaihang_GotFocus() If cbomathang.Text "Tất c¶" Then If timkiem("mathang", "tenmh", Trim(cbomathang.Text)) Then cboloaihang.Clear Call taocbodk(cboloaihang, "loaihang", "mamh = '" & laydl("mathang", "tenmh", "mamh", Trim(cbomathang.Text)) & "'", "tenlh") cboloaihang.AddItem "TÊt c¶", Else MsgBox "Mat hang ban chon sai, yeu cau chon lai mat hang", vbCritical End If Else cboloaihang.AddItem "TÊt c¶", End If End Sub -Private Sub cbomathang_GotFocus() Call combo(cbomathang, "mathang", "tenmh") cbomathang.AddItem "TÊt c¶", cbomathang.ListIndex = End Sub -Private Sub GetDataByCondition() Set rs = Nothing Set rs = New ADODB.Recordset If cbomathang.Text = "TÊt c¶" Then Sinh viên thực : Võ Huy Cường – Lớp 46 K2 – Kỹ sư CNTT 42 Đồ án tốt nghiệp : Xây dựng phần mềm quản lý Sách thiết bị trường học rs.Open "select * from loaihang where soluong >0", ketnoi, adOpenDynamic, adLockOptimistic Else If cboloaihang = "TÊt c¶" Then rs.Open "select * from loaihang where soluong >0 and mamh = '" & laydl("mathang", "tenmh", "mamh", cbomathang.Text) & "'", ketnoi, adOpenDynamic, adLockOptimistic Else rs.Open "select * from loaihang where soluong >0 and mamh = '" & laydl("mathang", "tenmh", "mamh", cbomathang.Text) & "'and tenlh = '" & cboloaihang.Text & "' ", ketnoi, adOpenDynamic, adLockOptimistic End If End If End Sub ThuËt to¸n thống kê thông tin hàng xuất đ-ợc lấy từ bảng CSDL Mathang, Loaihang để thống kê hàng tồn Nó dựa vào số l-ợng Loại hàng để đ-a hàng tồn Thuật toán tìm kiếm hoá đơn nhập chức tìm kiếm hoá đơn nhập: Private Sub GetDataByCondition() Dim ss As String Set rs = New ADODB.Recordset 'Neu dang chon nha cung cap la tat ca If cboncc.Text = "TÊt c¶" Or cboncc.Text = "" Then rs.Open "select hoadon.*,khncc.tenkhncc from hoadon inner join khncc on hoadon.makhncc = khncc.makhncc where >= #" & Format(ngaydau.Value, "mm/dd/yyyy") & "# and = #" & Format(ngaydau.Value, "mm/dd/yyyy") & "# and =#" & Format(ngaydau.Value, "mm/dd/yyyy") & "# and =#" & Format(ngaydau.Value, "mm/dd/yyyy") & "# and