ứng dụng tin học vào phân tích, thẩm định dự án đầu tư

Luận văn tốt nghiệp Lời cảm ơn Sau bốn năm học tập khoa Tin học Kinh tế trờng Đại học Kinh tế Quốc dân nhờ bảo tận tình thầy giáo, cô giáo; chúng em ®· lín lªn rÊt nhiỊu nhËn thøc cịng nh chuyên môn Đó hành trang vững để chúng em bớc vào sống Để có đợc ngày hôm cho phép em tỏ lòng biết ơn công lao thầy, cô giáo thầy giáo, cô giáo khoa Tin học Kinh tế, ngời dẫn dắt bảo chúng em suốt trình học tập Em xin bày tỏ lời cảm ơn chân thành tới thầy giáo hớng dẫn kỹ s Bùi Thế Ngũ đà tận tình hớng dẫn, bảo, giúp đỡ, động viên em suốt trình làm luận văn tốt nghiệp Chính nhờ giúp đỡ, động viên thầy đà giúp em bình tĩnh, tự tin để hoàn thành luận văn tốt nghiệp Qua đây, em xin gửi lời cảm ơn tới anh chị Xí nghiệp Phần mềm Quản lý- Công ty Tin học Xây dựng- Bộ Xây Dựng đà nhiệt tình giúp đỡ, tạo điều kiện thuận lợi cho em tiếp thu nh÷ng kiÕn thøc míi, bỉ xung nh÷ng kiÕn thøc thiếu học tập đợc kinh nghiệm làm việc suốt thời gian thực tập Điều sÏ cã Ých rÊt lín cho em sau tèt nghiƯp trêng Ci cïng em xin gưi lêi c¶m ơn tới tất bạn, ngời đà động viên, giúp đỡ em để hoàn thành luận văn tốt nghiệp Em xin chân thành cảm ơn ! Sinh viên Phạm Thị Phơng Anh - Tin học 42 A Luận văn tốt nghiệp Lời nói đầu Ngày nay, Công nghệ thông tin đà có bớc phát triển mạnh mẽ chiều rộng chiều sâu Chiếc máy tính điện tử ngày trở thành công cụ làm việc giải trí thông dụng ngời, không văn phòng mà gia đình Nói đến Công nghệ thông tin phải nói đến ứng dụng thực tiễn, tiện ích mang lại cho đời sống ngời, từ ứng dụng hỗ trợ khoa học đến ứng dụng quản lý Trong ứng dụng quản lý xem nh tiềm lâu dài Cho đến hầu hết công ty giới ứng dụng Công nghệ thông tin vào hoạt động quản lý kinh tế kinh doanh cách sử dụng phần mềm quản lý Việt Nam đà phát triển hoạt động kinh tế diễn sôi động phức tạp, hoạt động đầu t diễn mạnh dới nhiều hình thức lĩnh vực Đối với đất nớc nh Việt Nam hoạt động đầu t hoạt động quan trọng thúc đẩy phát triển cuả kinh tế điều kiện đầu t có hiệu Xuất phát từ nhu cầu thực tiễn đòi hỏi trình đầu t từ kiến thức thu thập suốt bốn năm đợc đào tạo trờng Đại häc Kinh tÕ Qc d©n Em nhËn thÊy viƯc thÈm định dự án đầu t công việc quan trọng khó khăn phân tích dự án thủ công Với công việc chơng trình máy tính hoàn toàn hỗ trợ để tăng hiệu xử lý công việc Do em đà chọn hoàn thành đề tài ứng dụng tin học vào phân tích, thẩm định dự án đầu t Để hoàn thành đợc đề tài em đà đợc hớng dẫn, bảo tận tình thầy giáo Bùi Thế Ngũ, khoa Tin học Kinh tế kĩ s Nguyễn Đắc Tuấn, Trởng phòng XN Phần mềm Quản lý- Công ty Tin học Xây dựng (CIC)- Bộ Xây dựng anh chị XN Phần mềm Quản lý Nhân cho phép em tỏ lòng biết ơn chân thành giúp đỡ quý báu Sinh viên Phạm Thị Phơng Anh - Tin học 42 A Luận văn tèt nghiƯp KÕt cÊu vµ néi dung chđ u luận văn bao gồm: Tên đề tài ứng dụng tin học vào phân tích, thẩm định dự án đầu t Ngoài phần mở đầu, kết luận phụ lục luận văn có Chơng1: Sự cần thiết phải tin học hoá hệ thống đánh giá, thẩm định dự án đầu t Chơng trình bày tổng quan sở thực tập (Công ty Tin học Xây dựng-Bộ Xây dựng), chức năng, nhiệm vụ sở thực tập, thực trạng áp dụng tin học thẩm định dự án, cần thiết đề tài, mục tiêu đề tài, phơng pháp sử dụng để nghiên cứu đề tài Chơng2: Cơ sở lý luận Phơng pháp luận Chơng trình bày chọn lọc vấn đề sở lý luận thẩm định dự án đầu t, tổng quan trình phát triển hệ thống thông tin công cụ thực đề tài Chơng 3: Phân tích, Thiết kế xây dựng chơng trình Chơng trình bày kết quan trọng đề tài (chi tiết trình phân tích hệ thống, chi tiết qui trình thiết kế liệu, thiết kế giải thuật , thiết kế hình giao diện, kết thử nghiệm chơng trình, đa số giao diện chơng trình) Do khuôn khổ thời gian lực có hạn, đà cố gắng, nhng vấn đề đánh giá dự án đầu t ứng dụng tin học vào lĩnh vực Việt Nam phức tạp nên luận văn nhiều hạn chế, em hy vọng nội dung nghiên cứu đề tài đợc bổ sung phát triển tơng lai em đà có đủ thời gian, lực đợc đóng góp ý kiến ngời quan tâm đến vấn đề Một lần em xin chân thành cảm ơn! Sinh viên Phạm Thị Phơng Anh - Tin học 42 A Luận văn tốt nghiệp chơng I Sự cần thiết phải tin học hóa hệ thống đánh giá, thẩm định dự án đầu t (DAĐT) I Tỉng quan vỊ c¬ së thùc tËp 1.Giíi thiƯu chung Công ty Tin học Xây dựng (Tên giao dịch quốc tế CIC-Contruction Informaitics Corporation) đơn vị trực thuộc Bộ Xây dựng, đ ợc thành lập theo định số 243/QĐ-BXD ngày 16/02/2000 Bộ trởng Bộ Xây dựng Tiền thân từ phòng ứng dụng Toán Máy tính (5/1974) phát triển thành Trung tâm Tin học Xây dựng (16/02/2000) Với đội ngũ 100 cán có trình độ từ đại học trở lên, Công ty đà không ngừng phát triển hoạt động nghiên cứu- sản xuất t vấn, chuyển giao công nghệ đợc nhà nớc chứng nhận quyền; phần mềm Công ty đà đợc ứng dụng rộng rÃi nhiều năm qua Đến nay, Công ty đà cung cấp, đào tạo chuyển giao phần mềm cho 1200 đơn vị ngành Xây dựng Tình hình hoạt động Công ty Công ty Tin học Xây dựng quan thờng trực Ban đạo phát triển CNTT Bộ Xây dựng, đơn vị tham gia chủ yếu Ban soạn thảo Đề án phát triển CNTT ngành Xây dựng từ 2005 ữ 2010 Là đơn vị nghiên cứu sản xuất phần mềm chuyển giao công nghệ phục vụ quan quản lý nhà nớc, đơn vị nghiên cứu, đào tạo doanh nghiệp ngành Hoạt động Công ty diễn chủ yếu lĩnh vực sau: - Đào tạo cấp chứng trình độ CNTT cho cán chuyên viên, đầu mối triển khai hoạt động CNTT, t vấn xây dựng hệ thống thiết bị mạng, tham gia xây dựng số sở liệu quản lý ngành Sinh viên Phạm Thị Phơng Anh - Tin học 42 A Luận văn tốt nghiệp - Hoạt động nghiên cứu phần mềm: đà hoàn thiện 30 sản phẩm phần mềm phục vụ quản lý, kinh tế, kỹ thuật Ngành nh: phần mềm phục vụ công tác t vấn thiết kế, quản lý thiết kế quy hoạch, quản lý quan, doanh nghiệp, đợc Nhà nớc cấp quyền đà chuyển giao phần mềm sử dụng cho 3.000 khách hàng ngành Xây dựng, góp phần đẩy mạnh đại hoá ngành Xây dựng (có danh mục phần mềm kèm theo) - Về hoạt động đào tạo, phổ biến kiến thức: Đà đào tạo ứng dụng tin học cho 5000 lợt cán chuyên viên ngành phổ cập tin học, sử dụng khai thác phần mềm, internet, chơng trình phục vụ thiÕt kÕ, dù to¸n, tÝnh to¸n kÕt cÊu, kÕ to¸n, nhân tiền lơng, hợp đồng - Hoạt ®éng cung cÊp trang thiÕt bÞ tin häc: Trang bÞ hàng ngàn máy tính - mạng cho gần 800 đơn vị, có mạng XD.NET-01 Bộ Xây dựng, mạng Viện, trờng Cao đẳng Trung học Xây dựng, Uỷ ban nhân dân tỉnh - thành phố, Tổng công ty, Công ty đơn vị thuộc Bộ - Về hoạt động sản xuất kinh doanh: Trong năm 2000 2002, tình hình sản xuất kinh doanh Công ty đà phát triển vững chắc, hoàn thành tốt tiêu kế hoạch hàng năm - Việc đào tạo bồi dỡng nâng cao trình độ đội ngũ cán đợc Công ty rÊt coi träng, cã nhiỊu ngêi ®ang theo häc cao häc, tiÕn sü ë vµ ngoµi níc TÊt lao động có việc làm ổn định, thu nhập bình quân toàn Công ty đạt mức 1,6 triệu đồng/ngời/tháng - Hoạt động đầu t công nghệ mới: Do CNTT phát triển với tốc độ cao nên việc đầu t cho công nghệ đợc Công ty trọng Hàng năm Công ty tiếp tục đầu t thay thế, nâng cấp thiết bị cũ mua sắm thiết bị đại - Công tác hợp tác quốc tế: Công ty đà có quan hệ với 25 hÃng 20 nớc giới hợp tác phát triển phần mềm chuyển giao công nghệ, đào tạo, Đặc biệt, Công ty đà trở thành đối tác công ty nh Nemetschek (CHLB Đức), EagePoint (Mỹ), Soft Promotion (Hàn Quốc), Sinh viên Phạm Thị Phơng Anh - Tin học 42 A Luận văn tốt nghiệp TEKLA (Phần Lan), Viện hàn lâm Khoa học xây dùng (Trung Qc), MVA (V¬ng qc Anh), viƯc phát triển ứng dụng phần mềm Việt Nam theo tiêu chuẩn nớc Đến Công ty không ngừng mở rộng thị tr ờng tăng cờng hoạt động lĩnh vực CNTT, sở 37-Lê Đại Hành Hai Bà Trng-Hà Nội, Công ty mở chi nhánh thành phố Hồ Chí Minh Để mở rộng thị trờng tăng cờng hoạt động hỗ trợ khách hàng, vừa qua Công ty đà mở thêm phòng giới thiệu bán sản phẩm 177 Bùi Thị Xuân-Hà Nội Tại Showroom Công ty trng bày công nghệ máy tính, thiết bị mạng mạng không dây Cũng Showroom khách hàng đợc t vấn, giải đáp phần mềm, xem Demo giới thiệu sản phẩm Công ty Nếu khách hàng muốn có thông tin t vấn có hiệu lĩnh vực phần mềm xây dựng Showroom đợc đáp ứng cách tốt Trong quí I năm 2002 công ty đà kết hợp với cục giám định chất lợng Nhà nớc, Ban đạo CNTT ngành Xây dựng tổ chức 12 lớp tập huấn sử dụng phần mềm tặng phần mềm cho 53 Sở, trờng đào tạo thuộc Bộ xây dựng Cho đến phần mềm Công ty đà có mặt 61 tỉnh thành nớc Công ty Tin học Xây dựng số đơn vị chuyên sâu lĩnh vực CNTT xây dựng Các phần mềm thơng phẩm đóng gói công ty chia theo nhóm sản phẩm chính: Phần mềm phục vụ quản lý Vinacamcem, phần mềm phục vụ thiết kế Vinasas, phần mềm thiết kế qui hoạch Vinaplan Với tính tự động tính toán, vẽ thiết kế Vinasas, kỹ s thiết kế việc xác nhận kết tính toán sở tiêu chuẩn cho phép Những phần mềm có tính tự động hoá cao, có ph ơng pháp Sinh viên Phạm Thị Phơng Anh - Tin học 42 A Luận văn tốt nghiệp tính đại, đủ sức thay phần mềm nhập trở thành công cụ cho nhiều kỹ s cán nghiệp vụ Với thành đà đạt đợc, Công ty đợc thủ tớng Chính phủ tặng khen năm 2000 đợc Nhà nớc tặng huân chơng lao động hạng năm 2002 Cơ cấu cổ chức Tổ chức Công ty theo kiểu cấp bậc, phân nhánh Quản lý theo phân quyền theo chức Cấp cao Ban giám đốc, phân theo chức có tổ chức hành chính, ban khoa học công nghệ, trung tâm - Tổ chức hành bao gồm: + Xí nghiệp phầm mềm quản lý + Xí nghiệp phần mềm t vấn xây dựng - Ban khoa học c«ng nghƯ bao gåm: + XÝ nghiƯp xt nhËp khÈu kinh doanh thiết bị tin học + Xí nghiệp tự động hoá t vấn xây dựng - Các trung tâm bao gồm: + Trung tâm đào tạo chuyển giao công nghệ + Trung tâm GIS + Trung tâm nghiên cứu phát triển CNTT Trong phận đảm nhận chức năng, nhiệm vụ khác Ban giám đốc có quyền tối cao điều hành công việc Công ty chịu trách nhiệm phân bổ quản lý phận Các phận lại thực công việc phạm vi chức Sinh viên Phạm Thị Phơng Anh - Tin học 42 A Luận văn tốt nghiệp Sinh viên Phạm Thị Phơng Anh - Tin học 42 A Luận văn tốt nghiệp Nhiệm vụ chức công ty 4.1 Nhiệm vụ chung Mỗi phận công ty có chức nhiệm vụ cụ thể riêng để hoàn thành mục tiêu chung Công ty Nh ng nhìn chung Công ty có nhiệm vụ sau: - Nghiên cứu, thiết kế, sản xuất, khai thác phát triển cung cấp phần mềm vỊ CNTT phơc vơ qu¶n lý, kinh tÕ, kü tht - T vấn giải pháp tổng thể hệ thống thiết bị tin học, viễn thông; nghiên cứu ứng dụng chuyển giao giải pháp CNTT, thực lắp đặt hệ thống thiết bị tin học viễn thông - Thực nội dung công tác t vấn xây dựng công trình tin học viễn thông, công trình dân dụng, công nghiệp, công trình kỹ thuật hạ tầng đô thị, khu công nghiệp - Xuất nhập cung cấp thiết bị, sản phẩm CNTT ứng dụng công nghệ khác - Tổ chức đào tạo, bồi dỡng CNTT ứng dụng công nghệ khác - Liên doanh, liên kết với đơn vị n ớc để phát triển đầu t công nghệ Ngoài nhiệm vụ công ty thực nhiệm vụ Bé X©y dùng giao 4.2 NhiƯm vơ thĨ 4.1.1 Đào tạo Công ty thờng xuyên tổ chức đào tạo cấp chứng tin học xây dựng (có nhiều trình độ) cho học viên bao gồm chơng trình sau: Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiệp 10 - Tin học bản, tin học văn phòng - Tin học chuyên ngành Xây dựng (T vấn, quy hoạch, thiết kế ) - Đào tạo quản trị mạng - Sử dụng intranet, internet -Sử dụng chơng trình chuyên dụng nh Archicad, STAADIIIm Autocad, Sap, Trips - Biên soạn cấp tài liệu cho học viên, thực hành mạng 4.1.2 Chuyển giao công nghệ - Chuyển giao phần mềm theo hình thức chọn gói (gồm cài đặt hớng dẫn sử dụng chỗ, bảo hành Phần mềm trợ giúp ngời dùng) - Nghiên cứu phát triển hệ thống quản lý mạng máy tính phục vụ cho công tác quản lý điều hành kết nối liệu đơn vị - Xây dựng sở liệu đơn vị - Xây dựng sở liệu lớn phục vụ cho ngành xây dựng - Xây dựng dự án ứng dụng CNTT lĩnh vực quản lý t vấn xây dựng, phục vụ Sở, Tổng công ty, Công ty, Viện nghiên cứu, Tr ờng đào tạo 4.1.3 Cung cấp bảo hành thiết bị - Cung cấp máy tính, máy in, thiết bị ngoại vi khác cho nhiều dự án CNTT Bộ Xây dựng, đơn vị trực thuộc - T vấn thiết kế thi công xây dựng mạng cục bộ, mạng diện rộng cho nhiều đơn vị ngành xây dựng - Bảo hành, bảo trì thiết bị theo yêu cầu khách hàng Sinh viên Phạm Thị Phơng Anh Tin học 42 A 101 Luận văn tốt nghiệp Chơng trình cho phép cập nhật thông tin - Cập nhật loại chi phí đầu t: Hạng mục, Thiết bị, Chi khác, Vốn - Cập nhật chi phÝ vËn hµnh: Chi phÝ NVL, khÊu hao, chi kh¸c - CËp nhËt doanh thu dù kiÕn cđa dự án Chơng trình tự tính toán tổng hợp thông tin đa báo cáo - Tổng hợp vốn giai đoạn đầu t - Tổng hợp vốn vận hành sản xuất - Tính dự trù lÃi, lỗ cho dự án - Tính tiêu NPV - Đánh giá độ nhạy cảm dự án doanh thu chi phí thay đổi Chơng trình tìm kiếm thông tin dự án theo tiêu chí có sẵn Hớng phát triển đề tài Đề tài phát triển theo hớng sau: - Trong đề tài phức tạp loại chi phí đầu t nên đà không chi tiết loại chi phí doanh thu dự án đầu t, chơng trình cần có tổng hợp ngời dïng víi mét sè lo¹i chi phÝ, doanh thu NÕu phát triển đề tài chi tiết hoá loại chi phí đa dủ loại chi phí - Chơng trình ®ỵc thiÕt kÕ víi mét hƯ thèng biĨu ®å minh hoạ sinh động tiện lợi cho ngời đánh giá - Chơng trình phát triển so sánh đợc phơng án khác nhau, nhằm đa đợc lựa chọn phơng án tối u giúp cho ngời định lựa chọn dễ dàng Kết luận Trong trình học tập trờng, sinh viên đà đợc truyền thụ kiến thức để sau tốt nghiệp trở thành cử nhân kinh tế với lực định giúp ích cho xà hội thân Để thực tốt công Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiệp 102 việc mình, kiến thức đà đợc trang bị trờng, kinh nghiệm thực tế thiếu đợc sinh viên Trong khuôn khổ đào tạo, cha có điều kiện phối hợp lý thuyết thực hành cách thờng xuyên, đợt thực tập hội tốt để sinh viên kiểm chứng lại đà học đồng thời nâng cao kiến thức chuyên môn, khả giao tiếp, ứng xử thân qua học thực tế Đối với sinh viên chuyên ngành Tin học kinh tế chúng em, đợc thực tập nơi ứng dụng công nghệ thông tin hoạt động quản lý, thông tin điều bổ ích Tại XN Phần mềm quản lý- Công ty Tin học Xây dựng Bộ Xây dựng, em đợc tiếp xúc với công việc thực tế hàng ngày, tham gia vào dự án XN trao đổi với cán công tác XN đà tạo điều kiện cho em học hỏi, củng cố kiến thức đà học nâng cao trình độ thân Đề tài "ứng dụng tin học vào phân tích thẩm định dự án đầu t nhằm mục đích hỗ trợ đánh giá hiệu dự án đầu t dự án xây dựng công nghiệp Do thiếu kiến thức kinh nghiệm thực tế nên đề tài mà em xây dựng nhiều thiếu sót bất cập, em mong nhận đợc ý kiến đóng góp thầy cô để đề tài em đợc hoàn thiện Cuối em xin chân thành cảm ơn thầy giáo Bùi Thế Ngũ đà nhiệt tình giúp đỡ em hoàn thành đề tài danh mục tài liệu tham khảo Nguyễn Thị Ngọc Mai, Microsoft Visual Basic & Lập trình sở liệu 6.0, NXB Giáo Dục, Hà Nội, 2000 Ks.Đinh Xuân Lâm, Lập trình sở liệu víi Visual Basic 6.0, VNGuide, NXB Thèng Kª, 2000 Sinh viên Phạm Thị Phơng Anh Tin học 42 A 103 Luận văn tốt nghiệp TS Trơng Văn Tú TS Nguyễn Thị Song Minh, Giáo trình Hệ thống thông tin quản lý, NXB Thống Kê, 2000 Trần Công Uẩn, Giáo trình Cơ sở liệu SQL, Access, NXB Thống Kê, 2000 TS Nguyễn Bạch Nguyệt-TS Từ Quang Phơng, Giáo trình Kinh tế đầu t, NXB Thống Kê, 2003 GS.TS Nguyễn Văn Chọn, Kinh tế đầu t, NXB Khoa Học Kỹ Thuật, 1998 phụ lục chơng trình ♦ form thông tin dự án Option explicit Dim btclick Public x Public y Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tèt nghiÖp 104 Private Sub cmdhuy_Click() Dim str As String Dim rs As ADODB.Recordset str = "select * from duan" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Source = str Set rs.ActiveConnection = cn rs.Open If rs.BOF = False Then rs.MoveFirst Txtmada.Text = rs.Fields("maduan") txttenda.Text = rs.Fields("tenduan") txtchudt.Text = rs.Fields("chudautu") txtsosp.Text = rs.Fields("sosanpham") txtstl.Text = rs.Fields("suatthuloi") txtnamvh.Text = rs.Fields("nambatdauhoatdong") txttgxd.Text = rs.Fields("thoigianxaydung") txttgvh.Text = rs.Fields("thoigianhoatdong") txttstn.Text = rs.Fields("thuesuatTN") End If Else MsgBox "khong ket noi duoc" End If cmdthem.Enabled = True cmdluu.Enabled = False cmdxoa.Enabled = True cmdhuy.Enabled = False cmdsua.Enabled = True cmdthoat.Enabled = True Sinh viên Phạm Thị Phơng Anh Tin häc 42 A Luận văn tốt nghiệp 105 rs.Close Set rs = Nothing End Sub Private Sub cmdluu_Click() Dim str As String Dim rs As ADODB.Recordset Dim item As ListItem If Trim(txtnamvh) = "" Then txtnamvh.Text = Date End If If Trim(txtstl) = "" Then txtstl.Text = End If If Trim(txttgvh) = "" Then txttgvh = End If If Trim(txttgxd) = "" Then txttgxd = "_" End If If Trim(txtsosp) = "" Then txtsosp = "_" End If If Trim(txttstn) = "" Then txttstn = End If If Trim(txtchudt) = "" Then txtchudt = "_" End If If Trim(txttenda) = "" Then txttenda = "_" End If Select Case btclick Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiệp 106 Case If Trim(Txtmada) = "" Then MsgBox "chu ý : không đợc để trống", vbOKOnly + vbExclamation, "thongbao" Me.MousePointer = Exit Sub Else str = "select * from duan where maduan='" & Trim(Txtmada.Text) & "'" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Source = str Set rs.ActiveConnection = cn rs.Open End If If rs.RecordCount = Then Set item = lvlduan.ListItems.Add(, , Txtmada.Text) item.SubItems(1) = txttenda.Text rs.AddNew rs.Fields("maduan") = Txtmada.Text rs.Fields("tenduan") = txttenda.Text rs.Fields("chudautu") = txtchudt.Text rs.Fields("sosanpham") = txtsosp.Text rs.Fields("suatthuloi") = txtstl.Text rs.Fields("nambatdauhoatdong") = txtnamvh.Text rs.Fields("thoigianxaydung") = txttgxd.Text rs.Fields("thoigianhoatdong") = txttgvh.Text rs.Fields("thuesuatTN") = txttstn.Text rs.Update Else MsgBox " d÷ liệu không đợc trùng", vbOKOnly rs.Close Sinh viên Phạm Thị Ph¬ng Anh Tin häc 42 A Luận văn tốt nghiệp 107 End If End If Case str = "select * from duan" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Source = str Set rs.ActiveConnection = cn rs.Open str = "update duan set tenduan= '" & Trim(txttenda.Text) & "',thoigianhoatdong= '" & Trim(txttgvh.Text) & "',nambatdauhoatdong= '" & Trim(txtnamvh.Text) & "',thoigianxaydung= '" & Trim(txttgxd.Text) & "',sosanpham='" & Trim(txtsosp.Text) & "',chudautu='" & Trim(txtchudt.Text) & "' ,suatthuloi='" & Trim(txtstl.Text) & "',thuesuattn='" & Trim(txttstn.Text) & "'where maduan= '" & Trim(Txtmada.Text) & "'" End If cn.Execute (str) rs.Update End Select cmdthem.Enabled = True cmdluu.Enabled = False cmdxoa.Enabled = True cmdhuy.Enabled = False cmdsua.Enabled = True cmdthoat.Enabled = True frmnhaplieu.Show End Sub Public Sub cmdsua_Click() Txtmada.Enabled = True txttenda.Enabled = True txtchudt.Enabled = True Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiệp 108 txtsosp.Enabled = True txtstl.Enabled = True txttgxd.Enabled = True txttgvh.Enabled = True txtnamvh.Enabled = True txttstn.Enabled = True btclick = cmdluu.Enabled = True cmdthem.Enabled = False cmdhuy.Enabled = True cmdthoat.Enabled = True cmdsua.Enabled = Fal End Sub Private Sub cmdthem_Click() optnew.SetFocus Txtmada.Enabled = True txttenda.Enabled = True txtchudt.Enabled = True txtsosp.Enabled = True txtstl.Enabled = True txttgxd.Enabled = True txttgvh.Enabled = True txtnamvh.Enabled = True txttstn.Enabled = True txtmada.SetFocus txtmada.Text = "" txttenda.Text = "" txtchudt.Text = "" txtsosp.Text = "" txtstl.Text = "" txttgxd.Text = "" txttgvh.Text = "" Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiÖp 109 txttstn.Text = "" cmdthem.Enabled = False cmdluu.Enabled = True cmdxoa.Enabled = False cmdhuy.Enabled = True cmdsua.Enabled = False cmdthoat.Enabled = False btclick = End Sub Private Sub cmdthoat_Click() Unload Me End Sub Private Sub cmdxoa_Click() Call xoadl End Sub Private Sub Form_Load() Txtmada.Enabled = False txttenda.Enabled = False txtchudt.Enabled = False txtsosp.Enabled = False txtstl.Enabled = False txttgxd.Enabled = False txttgvh.Enabled = False txtnamvh.Enabled = False txttstn.Enabled = False lvlduan.Enabled = False cmdluu.Enabled = False cmdhuy.Enabled = False cmdsua.Enabled = False cmdxoa.Enabled = False End Sub Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiệp 110 Private Sub xoadl() Dim repon Dim str As String Dim rs As ADODB.Recordset If Trim(Txtmada) = "" Then Exit Sub End If repon = MsgBox("ban co chac chan xoa khong", vbYesNo + vbQuestion, "thong bao") If repon = vbNo Then Exit Sub Else str = "select * from duan" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.Open str, cn, adOpenKeyset, adLockPessimistic End If str = "delete from duan where maduan='" & Trim(Txtmada.Text) & "'" cn.Execute (str) End If rs.Close End Sub Private Sub lvlduan_DblClick() frmnhaplieu.Show End Sub Private Sub lvlduan_ItemClick(ByVal item As MSComctlLib.ListItem) Dim str As String Dim rs As ADODB.Recordset Dim i As Integer Dim a As String str = "select * from duan " If NoiCSDL.connection = True Then str = str + "where maduan= " + """" + item.Text + """" Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiệp 111 x = item.Text Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Source = str Set rs.ActiveConnection = cn rs.Open y = rs.Fields("thoigianhoatdong") Txtmada.Text = rs.Fields("maduan") txttenda.Text = rs.Fields("tenduan") txtchudt.Text = rs.Fields("chudautu") txtsosp.Text = rs.Fields("sosanpham") txtstl.Text = rs.Fields("suatthuloi") txtnamvh.Text = rs.Fields("nambatdauhoatdong") txttgxd.Text = rs.Fields("thoigianxaydung") txttgvh.Text = rs.Fields("thoigianhoatdong") txttstn.Text = rs.Fields("thuesuatTN") rs.Close End If cmdthem.Enabled = False cmdluu.Enabled = False cmdhuy.Enabled = False cmdsua.Enabled = True cmdxoa.Enabled = True End Sub Private Sub optnew_Click() lvlduan.ListItems.Clear lvlduan.Enabled = False End Sub Private Sub optold_Click() Dim str As String Dim rs As ADODB.Recordset Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiệp 112 Dim i As Integer Dim a As String Dim mitem As ListItem str = "select * from duan " If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Source = str Set rs.ActiveConnection = cn rs.Open If rs.BOF = False Then rs.MoveFirst Do Until rs.EOF a = rs.Fields("maduan") Set mitem = lvlduan.ListItems.Add(, , rs.Fields("maduan")) mitem.SubItems(1) = rs.Fields("tenduan") rs.MoveNext Loop End If Else MsgBox "khong ket noi duoc" End If rs.Close Set rs = Nothing lvlduan.Enabled = True End Sub ♦ form thiÕt bÞ Dim btclick,x,y Private Function tim(ByVal x As String) As Boolean Dim str As String Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tốt nghiệp 113 Dim rs As ADODB.Recordset str = "select * from thietbi" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Source = str Set rs.ActiveConnection = cn rs.Open End If Do Until rs.EOF If rs.Fields("maduan") = x Then tim = True Exit Function Else tim = False End If rs.MoveNext Loop End Function Private Sub xoadl() Dim repon Dim str As String Dim rs As ADODB.Recordset If Trim(txtmada) = "" Then Exit Sub End If repon = MsgBox("ban co chac chan xoa khong", vbYesNo + vbQuestion, "thong bao") If repon = vbNo Then Exit Sub Else str = "select * from thietbi" Sinh viên Phạm Thị Phơng Anh Tin häc 42 A Luận văn tốt nghiệp 114 If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.Open str, cn, adOpenKeyset, adLockPessimistic End If str = "delete from thietbi where mathietbi='" & Trim(cob1.Text) & "'and maduan='" & Trim(txtmada.Text) & "'" cn.Execute (str) End If rs.Close End Sub Private Sub Check1_Click() If Check1.Value = Then txttile.Enabled = True Else txttile.Enabled = False End If End Sub Private Sub cmdboqua_Click() Dim str As String Dim rs As ADODB.Recordset str = "select * from thietbi where maduan='" & Trim(frmduan.x) & "'" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Source = str Set rs.ActiveConnection = cn rs.Open If rs.BOF = False Then rs.MoveFirst txtmada.Text = rs.Fields("MADUAN") cob1.Text = rs.Fields("Mathietbi") Sinh viên Phạm Thị Phơng Anh Tin học 42 A Luận văn tèt nghiÖp 115 txtSL.Text = rs.Fields("soluong") txtDG.Text = rs.Fields("dongia") txtvat.Text = rs.Fields("thuesuatVAT") txttile.Text = rs.Fields("tylelap") End If Else MsgBox "khong ket noi duoc" End If cmdthem.Enabled = True cmdluu.Enabled = False cmdxoa.Enabled = True cmdboqua.Enabled = False cmdsua.Enabled = True cmdthoat.Enabled = True txtmada.Enabled = False cob1.Enabled = False txtSL.Enabled = False txtDG.Enabled = False txttile.Enabled = False Check1.Enabled = False rs.Close Set rs = Nothing End Sub Private Sub cmdluu_Click() Dim str As String Dim rs As ADODB.Recordset If Trim(txtSL) = "" Then txttentb.Text = End If If Trim(txtDG) = "" Then txtDG.Text = End If Sinh viên Phạm Thị Phơng Anh Tin häc 42 A ... Tên đề tài ứng dụng tin học vào phân tích, thẩm định dự án đầu t Ngoài phần mở đầu, kết luận phụ lục luận văn có Chơng1: Sự cần thiết phải tin học hoá hệ thống đánh giá, thẩm định dự án đầu t Chơng... toàn qui trình tính toán, phân tích số liệu, tiêu đánh giá thẩm định dự án đầu t Một Chơng trình đánh giá thẩm định dự án đầu t phải đáp ứng cho chuyên viên trình đánh giá thẩm định DAĐT thực công... Phương pháp phân tích tài dự án đầu tư Phương pháp đánh giá dự án đầu tư riêng lẻ với xác suất kết định Phương pháp đánh giá dự án đầu tư điều kiện bất định Phương pháp dùng tiêu tĩnh So sánh theo