LUẬN VĂN: Ứng dụng tin học vào phân tích, thẩm định dự án đầu tư 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à cịn 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 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 nhiều hình thức lĩnh vực Đối với đất nước 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 q trình đầu tư từ kiến thức thu thập suốt bốn năm đào tạo trường Đại học Kinh tế Quốc 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 hồn tồ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ư” Kết cấu nội dung chủ yế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ị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) 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 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, 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 Tố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ệ nhà nước chứng nhận quyền; phần mềm Công ty ứ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ồi 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 - 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, 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 hố 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ự tốn, tính tố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ơng ty coi trọng, có nhiều người theo học cao học, tiến sỹ ngồi nước Tất lao động có việc làm ổn định, thu nhập bình qn tồ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ô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 Nemetschek (CHLB Đức), EagePoint (Mỹ), Soft Promotion (Hàn Quốc), TEKLA (Phần Lan), Viện hàn lâm Khoa học xây dựng (Trung Quốc), MVA (Vương quốc 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, ngồi sở 37-Lê Đại Hành – Hai Bà Trưng-Hà Nội, Cơng ty cịn 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 trưng 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 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 đá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 tốn, vẽ thiết kế Vinasas, kỹ sư thiết kế việc xác nhận kết tính tốn sở tiêu chuẩn cho phép Những phần mềm có tính tự động hố cao, có phương phá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 thủ tướng Chính phủ tặng khen năm 2000 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 xuất nhập 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 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 để hồ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 CNTT phục vụ quản lý, kinh tế, kỹ thuật - 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ị ngồi nước để phát triển đầu tư cơng nghệ Ngồi nhiệm vụ cơng ty cịn thực nhiệm vụ Bộ Xây dựng giao 4.2 Nhiệm vụ cụ 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: - 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 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 II Sự cần thiết đề tài Khái quát hoạt động đầu tư Hoạt động đầu tư hoạt động kinh tế hiểu hoạt động bỏ vốn (bao gồm tiền, nhân lực, nguyên liệu công nghệ ) vào lĩnh vực sản xuất, kinh doanh hay dịch vụ nhằm mục đích thu lợi nhuận Đây xem chất hoạt động đầu tư Hiểu theo nghĩa rộng việc tiến hành đầu tư để đạt mục đích hay tập mục đích định Hoạt động đầu tư phải phân tích đánh giá đầy đủ nhiều khía cạnh khác nhau, phải phân tích đầy đủ thơng tin hoạt động kinh tế tiến hành đầu tư, kể thông tin khứ, dự kiến tương lai - Đầu tư vào hoạt động kinh tế biểu mục tiêu kinh tế - xã hội cụ thể Chính vậy, hoạt động đầu tư ln phải vạch mục tiêu cụ thể Xác định cụ thể mục tiêu, nhân tố đảm bảo cho hoạt động đầu tư đem lại hiệu cao Hoạt động đầu tư tiến hành hình thức dự án đầu tư (DAĐT) hiểu kế hoạch chi tiết triển khai hoạt động đầu tư nhằm đạt mục tiêu đề khoảng thời gian định với nguồn lực định DAĐT cơng cụ để thực hoạt động đầu tư DAĐT lập công cụ hoạch định việc sử dụng vốn, vật tư, lao động nhằm tạo sản phẩm cho xã hội Lập DAĐT thể kế hoạch chi tiết để thực chương trình đầu tư xây dựng nhằm phát triển kinh tế - xã hội, làm cho việc định đầu tư sử dụng vốn đầu tư Thông qua DAĐT thấy tập hợp hoạt động cụ thể, có mối liên hệ biện chứng, nhân với vấn đề để đạt mục đích định tương lai Chính việc nâng cao chất lượng hiệu DAĐT địi hỏi phải có biện pháp hồn thiện phương pháp lập DAĐT Các DAĐT chia thành nhóm chịu điều tiết nhà nước theo qui tắc, luật lệ khác nhau, nhóm DAĐT từ nguồn vốn ngân sách Nhà nước DAĐT từ nguồn vốn khác Các dự án thuộc nguồn vốn ngân sách chịu điều tiết không văn quản lý kinh tế chung cho thành phần chịu điều tiết văn pháp luật khác Điều đảm bảo cho nguồn vốn Nhà nước sử dụng có hiệu đảm bảo cho tính định hướng XHCN hoạt động kinh tế Nhà nước Trong kinh tế thị trường nay, nhiều dự án khác lĩnh vực khác đời sống kinh tế xã hội hình thành Điều tạo điều kiện góp phần đưa kinh tế thoát khỏi khủng hoảng tồn nhiều năm Thực trạng áp dụng tin học đánh giá, thẩm định DADT Trong nước - End If Select Case btclick Case If Trim(cob1) = "" Or Trim(txtmada) = "" Or Trim(txtmachp) = "" Then MsgBox "chu ý : không để trống", vbOKOnly + vbExclamation, "thongbao" Else str = "select * from nvl where machiphi ='" & Me.txtmachp.Text & "'and maduan='" & Me.txtmada.Text & "'and namchi='" & Me.cob1.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 If tim(frmduan.x) = True Then With Me.MSH1 Rows = Rows + SetFocus Row = Rows - Col = End With Else With Me.MSH1 Rows = Rows + .SetFocus Row = Rows - Col = End With End If MSH1.TextMatrix(Me.MSH1.Row, 2) = cob1.Text MSH1.TextMatrix(Me.MSH1.Row, 1) = txtmada.Text MSH1.TextMatrix(Me.MSH1.Row, 0) = txtmachp.Text MSH1.TextMatrix(Me.MSH1.Row, 3) = txttenchp.Text MSH1.TextMatrix(Me.MSH1.Row, 4) = txtKl.Text MSH1.TextMatrix(Me.MSH1.Row, 5) = txtdg.Text MSH1.TextMatrix(Me.MSH1.Row, 6) = txtvat.Text rs.AddNew rs.Fields("MADUAN") = txtmada.Text rs.Fields("namchi") = cob1.Text rs.Fields("khoiluong") = txtKl.Text rs.Fields("dongia") = txtdg.Text rs.Fields("thuesuatVAT") = txtvat.Text rs.Fields("tenchiphi") = txttenchp.Text rs.Fields("machiphi") = txtmachp.Text rs.Update MSH1.Refresh Else MsgBox " du lieu khong duoc trung", vbOKOnly rs.Close End If End If Case str = "select * from nvl" 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 nvl set khoiluong= '" & Val(txtKl.Text) & "',dongia='" & Val(txtdg.Text) & "',thuesuatVAT='" & Val(txtvat.Text) & "',tenchiphi='" & Trim(txttenchp.Text) & "' where namchi= '" & Trim(cob1.Text) & "'and machiphi= '" & Trim(txtmachp.Text) & "'and maduan= '" & Trim(txtmada.Text) & "'" cn.Execute (str) rs.Update MSH1.TextMatrix(Me.MSH1.Row, 3) = txttenchp.Text MSH1.TextMatrix(Me.MSH1.Row, 4) = txtKl.Text MSH1.TextMatrix(Me.MSH1.Row, 5) = txtdg.Text MSH1.TextMatrix(Me.MSH1.Row, 6) = txtvat.Text End If End Select cmdthem.Enabled = True cmdluu.Enabled = False cmdxoa.Enabled = True cmdboqua.Enabled = False cmdsua.Enabled = True cmdthoat.Enabled = True End Sub Private Sub cmdsua_Click() cob1.Enabled = True txtKl.Enabled = True txtdg.Enabled = True txttenchp.Enabled = True txtvat.Enabled = True btclick = cmdluu.Enabled = True cmdthem.Enabled = False cmdboqua.Enabled = True cmdthoat.Enabled = True cmdsua.Enabled = False End Sub Private Sub cmdthem_Click() txtmachp.Enabled = True cob1.Enabled = True txtKl.Enabled = True txtdg.Enabled = True txttenchp.Enabled = True txtvat.Enabled = True txtKl.Text = "" txtdg.Text = "" txtvat.Text = "" txttnchp.Text = "" cmdthem.Enabled = False cmdluu.Enabled = True cmdxoa.Enabled = False cmdboqua.Enabled = True cmdsua.Enabled = False cmdthoat.Enabled = False btclick = End Sub Private Sub cmdthoat_Click() Unload Me frmnhaplieu.Show End Sub Private Sub hiencombo() NoiCSDL.addcombo1 frmduan.y, cob1 End Sub Private Sub cmdxoa_Click() Call xoadl End Sub Private Sub Form_Load() Dim str As String Dim rs As ADODB.Recordset Call hiencombo txtmada.Enabled = False cob1.Enabled = False txtKl.Enabled = False txtdg.Enabled = False txttenchp.Enabled = False txtvat.Enabled = False MSH1.ColWidth(0, 0) = 980 MSH1.ColWidth(1, 0) = 980 MSH1.ColWidth(2, 0) = 980 MSH1.ColWidth(3, 0) = 1500 MSH1.ColWidth(4, 0) = 1500 MSH1.ColWidth(5, 0) = 1500 MSH1.ColWidth(6, 0) = 1500 MSH1 = flexGridRaised Me.MSH1.TextMatrix(0, 2) = "Năm" Me.MSH1.TextMatrix(0, 1) = "Mã du án" Me.MSH1.TextMatrix(0, 0) = "Mã chi phí" Me.MSH1.TextMatrix(0, 3) = "tên chi phí" Me.MSH1.TextMatrix(0, 4) = "Khối lượng" Me.MSH1.TextMatrix(0, 5) = "Đơn giá" Me.MSH1.TextMatrix(0, 6) = "Thuế suất(VAT)" txtmada.Text = frmduan.x str = "select * from nvl where maduan= " + """" + frmduan.x + """ " If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.Open str, cn, adOpenKeyset, adLockPessimistic NoiCSDL.fillMSgrid rs, MSH1 If rs.RecordCount Then cob1.Text = MSH1.TextMatrix(Me.MSH1.Row, 2) txtmada.Text = MSH1.TextMatrix(Me.MSH1.Row, 1) txtmachp.Text = MSH1.TextMatrix(Me.MSH1.Row, 0) txtKl.Text = MSH1.TextMatrix(Me.MSH1.Row, 4) txttenchp.Text = MSH1.TextMatrix(Me.MSH1.Row, 3) txtdg.Text = MSH1.TextMatrix(Me.MSH1.Row, 5) txtvat.Text = MSH1.TextMatrix(Me.MSH1.Row, 6) End If Else MsgBox "khong ket noi duoc" End If End Sub Private Sub msh1_Click() txtmada.Text = MSH1.TextMatrix(Me.MSH1.Row, 1) cob1.Text = MSH1.TextMatrix(Me.MSH1.Row, 2) txtmachp.Text = MSH1.TextMatrix(Me.MSH1.Row, 0) txtKl.Text = MSH1.TextMatrix(Me.MSH1.Row, 4) txtvat.Text = MSH1.TextMatrix(Me.MSH1.Row, 6) txttenchp.Text = MSH1.TextMatrix(Me.MSH1.Row, 3) txtdg.Text = MSH1.TextMatrix(Me.MSH1.Row, 5) End Sub  form tìm kiếm thơng tin dự án Option Explicit Dim btclick Private Sub cmdthoat_Click() Unload Me End Sub Private Sub cmdtim_Click() Dim str As String Dim rs As ADODB.Recordset Dim maso As String Dim ten As String Dim nam1 As String Dim nam2 As String Dim chu As Variant Select Case btclick Case maso = "%" + Txtmada.Text + "%" ten = "%" + txtten.Text + "%" chu = "%" + Text1.Text + "%" nam1 = "%" + txtnamvh.Text + "%" nam2 = "%" + txtnamxd.Text + "%" str = "select * from duan where maduan like '" & maso & "'and tenduan like '" & ten & "' and chudautu like '" & chu & "' and thoigianhoatdong like '" & nam1 & "'and thoigianxaydung like '" & nam2 & "'" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.Open str, cn, adOpenKeyset, adLockPessimistic End If If rs.RecordCount = Then MsgBox " khong tim thay mau tin nay", vbExclamation, "thong bao" End If NoiCSDL.fillMSgrid rs, msh1 Case maso = "%" + txta.Text + "%" str = "select * from duan where maduan like '" & maso & "'" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.Open str, cn, adOpenKeyset, adLockPessimistic End If NoiCSDL.fillMSgrid rs, msh1 Case ten = "%" + txta.Text + "%" str = "select * from duan where tenduan like '" & ten & "'" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.Open str, cn, adOpenKeyset, adLockPessimistic End If NoiCSDL.fillMSgrid rs, msh1 Case chu = "%" + txta.Text + "%" str = "select * from duan where chudautu like '" & chu & "'" If NoiCSDL.connection = True Then Set rs = New ADODB.Recordset rs.Open str, cn, adOpenKeyset, adLockPessimistic End If NoiCSDL.fillMSgrid rs, msh1 End Select End Sub Private Sub Form_Load() msh1.ColWidth(0, 0) = 1500 msh1.RowHeight(0) = 650 msh1.ColWidth(1, 0) = 3000 msh1.ColWidth(2, 0) = 2500 msh1.ColWidth(3, 0) = 2000 msh1.ColWidth(4, 0) = 2000 msh1.ColWidth(5, 0) = 2000 msh1.ColWidth(6, 0) = 2000 msh1.ColWidth(7, 0) = 2000 msh1.ColWidth(8, 0) = 1500 msh1 = flexGridRaised Me.msh1.TextMatrix(0, 0) = " Mã dự án " Me.msh1.TextMatrix(0, 1) = " Tên dự án " Me.msh1.TextMatrix(0, 2) = " chủ dâu tư " Me.msh1.TextMatrix(0, 7) = "Thời gian vận hành" Me.msh1.TextMatrix(0, 8) = "Thời gian xây dựng" Me.msh1.TextMatrix(0, 6) = "năm băt đầu vận hành" Me.msh1.TextMatrix(0, 4) = " Suất thu lợi " Me.msh1.TextMatrix(0, 5) = "Thuế suất thu nhập" Me.msh1.TextMatrix(0, 3) = "Số sản phẩm" Frame2.Visible = False btclick = End Sub Private Sub msh1_Click() frmduan.x = msh1.TextMatrix(msh1.Row, 0) frmduan.y = msh1.TextMatrix(msh1.Row, 3) devm.Thdt (frmduan.x) DVonxd.Show End Sub Private Sub msh1_KeyPress(KeyAscii As Integer) KeyAscii = 13 frmduan.Show frmduan.Txtmada = Me.msh1.TextMatrix(msh1.Row, 0) frmduan.txttenda = Me.msh1.TextMatrix(msh1.Row, 1) frmduan.txtchudt = Me.msh1.TextMatrix(msh1.Row, 2) frmduan.txttgvh = Me.msh1.TextMatrix(msh1.Row, 7) frmduan.txttgxd = Me.msh1.TextMatrix(msh1.Row, 8) frmduan.txtnamvh = Me.msh1.TextMatrix(msh1.Row, 6) frmduan.txtstl = Me.msh1.TextMatrix(msh1.Row, 4) frmduan.txttstn = Me.msh1.TextMatrix(msh1.Row, 5) frmduan.txtsosp = Me.msh1.TextMatrix(msh1.Row, 3) Call frmduan.cmdsua_Click frmduan.optold.Enabled = False frmnhaplieu.cmdhien.Enabled = False End Sub Private Sub Op1_Click() Frame1.Visible = False Frame2.Visible = True End Sub Private Sub op2_Click() Dim i As Integer Dim j As Integer Frame2.Visible = False Frame1.Visible = True btclick = End Sub Private Sub op3_Click() btclick = txta.Text = "" End Sub Private Sub op4_Click() btclick = txta.Text = "" End Sub Private Sub op5_Click() btclick = txta.Text = "" End Sub Mục lục Lời cảm ơn Error! Bookmark not defined Lời nói đầu 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 sở thực tập 1.Giới thiệu chung Tình hình hoạt động Cơng ty Cơ cấu cổ chức .6 Nhiệm vụ chức công ty 4.1 Nhiệm vụ chung .9 4.2 Nhiệm vụ cụ thể .9 II Sự cần thiết đề tài 10 Khái quát hoạt động đầu tư 10 Thực trạng áp dụng tin học đánh giá, thẩm định DADT 11 Sự cần thiết đề tài nghiên cứu 13 Mục đích nghiên cứu đề tài 14 Đối tượng phạm vi nghiên cứu đề tài 15 III Phương pháp nghiên cứu 15 Phương pháp phân tích hệ thống có cấu trúc 16 1.1 Mục đích phương pháp 16 1.2 Công cụ, mơ hình sử dụng phương phâp 16 1.3 Ưu điểm phương pháp 16 Phương pháp làm mẫu 17 Chương II 17 Cơ sở lý luận phương pháp luận 17 I Các kiến thức sở phương pháp đánh giá, thẩm định dự án đầu tư 18 Những vấn đề mở đầu có liên quan đến đầu tư 18 1.1 Khái niệm chung đầu tư 18 1.2 Khái niệm đầu tư xây dựng 18 1.3 Quá trình đầu tư dự án đầu tư 18 1.4 Dự án đầu tư giai đoạn lập dự án đầu tư 19 1.5 Khái niệm phân loại hiệu dự án đầu tư 21 1.6 Quan điểm đánh giá đầu tư 23 2.1.Các phương pháp phân tích tài dự án đầu tư 23 2.2.Nội dung phân tích tài dự án đầu tư 25 2.3 Phương pháp đánh giá hiệu tài dự án đầu tư 26 2.4 Phương pháp đánh giá độ an tồn tài dự án đầu tư 33 2.5 Đánh giá dự án đầu tư mặt kinh tế-xã hội 37 II Tổng quan trình phát triển hệ thống thông tin công cụ thực đề tài 38 Quá trình phát triển hệ thống thơng tin 38 1.1 Những nguyên nhân dẫn tới việc phát triển hệ thống thông tin 38 1.2 Phương pháp phát triển hệ thống thông tin 39 1.3 Các công đoạn phát triển hệ thống 41 Công cụ thực đề tài 44 2.1 Ngôn ngữ sử dụng 44 2.2 Cơ sở liệu dùng chương trình 46 chương III 49 Phân tích thiết kế chương trình đánh giá, thẩm định dự án đầu tư 49 I phân tích hệ thống 49 Thu thập thông tin hệ thống 49 1.1 Các phương pháp thu thập thông tin 49 Mơi trường chương trình thẩm định dự án đầu tư 50 2.1 Môi trường bên 50 2.2 Môi trường bên 51 Mơ hình hố hệ thống 51 3.1 Cơng cụ mơ hình hóa 51 3.2 Mô hình hố chương trình thẩm định dự án đầu tư 54 II Thiết kế hệ thống 60 1.Thiết kế sở liệu 60 1.1 Phương pháp thiết kế sở liệu cho chương trình 60 1.2 Thiết kế chi tiết tệp sở liệu 68 1.3 Mối quan hệ bảng Cơ sở liệu 73 Thiết kế giải thuật chương trình 75 2.1 Tổng quan lập trình 75 2.2 Một số thuật toán chương trình 76 III Một số giao diện chương trình 79 Kết luận 101 danh mục tài liệu tham khảo 102 phụ lục chương trình 103 IV Kết thử nghiệm, hướng phát triển 100 ... ? ?ứng dụng tin học vào phân tích, thẩm định dự án đầu tư? ?? Kết cấu nội dung chủ yế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. .. chương trình thẩm định dự án đầu tư 2.1 Môi trường bên ngồi Q trình thẩm định dự án đầu tư tiến hành dựa thơng tin chi phí dự kiến để xây dựng dự án mà chủ đầu tư tiến hành thống kê lập nên dự - tốn,... cho chủ đầu tư, xác định dự án có đáng giá hay khơng - Phân tích tính khả thi tài dự án: độ an tồn tài khả thực dự án - Trên sở ba phân tích lớn này: chủ đầu tư định có đầu tư vào dự án hay khơng?