Đang tải... (xem toàn văn)
Báo cáo tổng hợp thực tập tại NHNN&PTNT Việt Nam
Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Lêi nãi đầu Trong năm gần đây, ngành Công nghệ thông tin đà phát triển nh vũ bÃo, Thế kỷ 21 kỷ Công nghệ thông tin.Từ nguồn tài nguyên tiềm tàng, thông tin đà trở thành nguồn tài nguyên thực đà trở thành hàng hoá đặc biệt Việc tận dụng nguồn tài nguyên đà tạo nên bớc phát triển to lớn lực luợng sản suất, sở hạ tầng, kinh tÕ x· héi, cÊu tróc kinh tÕ, cÊu tróc lao động cách thức quản lý kinh tế xà hội Trong lĩnh vực Máy tính, thành tựu Khoa học Công nghệ làm cho sản phẩm máy tính ngày phát triển theo hớng đại, chi phí thấp, khả tính toán đợc nâng cao Sự đời phát triển Máy tính thực đà trở thành Cánh mạng vĩ đại Chúng ta đà thấy thông tin ngày phong phú đa dạng phức tạp xử lý đơn giản phơng pháp công cụ cổ điển Để xử lý đợc lợng thông tin lớn nh nghĩa khai thác đợc nguồn tài nguyên quan trọng đòi hỏi phải có phơng pháp công cụ Tin học Xà hội phát triển nhu cầu ứng dụng Tin học ngày lớn ngợc lại thành tựu tin học tác động trở lại, tạo điều kiện phát triển nhanh chóng cho sản xuất xà hội Việc ứng dụng Tin học nhằm cách hiệu đạt suất cao việc xử lý thông tin phức tạp trình nghiên cứu điều tra điều khiển, quản lý kinh doanh, tổ chức khai thác hệ thèng tin häc ë mäi møc ®é øng dơng Tin học công tác quản lý hiệu Tin học nhằm giảm nhẹ đến mức tối đa tham gia bắp, tiết kiệm thời gian tìm kiếm thông tin, làm hẹp không gian lu trữ, hệ thống hoá cụ thể hoá lợng thông tin theo nhu cầu ngời sử dụng Trong thời đại ngày tin học đà chứng tỏ đợc u kinh tế quốc dân, đà thúc đẩy hỗ trợ cho ngành khác phát triển vợt bậc Một ngành øng dơng Tin häc nhiỊu nhÊt ë ViƯt Nam cịng nh giới Ngành Ngân Hàng Một đơn vị ứng dụng Công nghệ thông tin sớm mạnh Ngân hàng nông nghiệp Việt Nam Ngoài Hệ thống quản lý khác hệ chơng trình Xây dựng Hệ thống thông tin quản lý theo dõi khoản vốn tài trợ thơng mại (HNTTTM) NHNo & PTNT Việt Nam với Ngân hàng chi nhánh Ngân hàng đại lý giới việc áp dụng Tin học vào việc quản lý hạn ngạch tài trợ thợng mại -1- Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Xây dựng, thiết kế cài đặt Hệ thống thông tin phục vụ quản lý Vốn tài trợ thơng mại nội dung Báo cáo tổng hợp sau tháng thực tập NHN0&PTNT Việt Nam Việc xây dựng hệ thống tránh khỏi thiếu sót, mong nhận đợc đóng góp ý kiến chân thành thầy giáo bạn đồng nghiệp để hoàn thiện bảo trì hệ thống sau đợc tốt Cuối xin trân thành cảm ơn thầy giáo :Ts Cao Đình Thi đà tận tình giúp đỡ trình thực tập hoàn thiện đề tài Tôi xin chân thành cảm ơn anh Nguyễn Quốc Hùng trởng phòng kỹ thuật phần mềm thuộc trung tâm Công nghệ thông tin toàn thể anh lập trình viên đẫ tận tình giúp đỡ đóng góp ý kiến quý báu tạo điều kiện sở vật chất kỹ thuật, thuận lợi cho trình thực tập phòng kỹ thuật phần mềm thuộc trung tâm Công nghệ thông tin NHNo&PTNT Việt Nam thực đề tài -2- Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Ch¬ng I Giíi thiƯu vỊ hƯ thèng qu¶n lý NHNo&PTNT ViƯt Nam Phơng pháp luận giải vấn đề Tin học hoá Hệ thống thông tin quản lý vốn NHN0&PTNT ViƯt nam I Giíi thiƯu vỊ hƯ thèng qu¶n lý NHNo&PTNT Việt Nam: Trong tổ chức tài có khoảng 70% Ngân hàng thơng mại, sau đến tổ chức tài Hệ thống Ngân hàng thơng mại quan trọng, chiếm khoảng 70% vốn nhiệm vụ kinh doanh tiỊn tƯ, nhËn tiỊn gưi, cho vay, ®i vay tiến hành mua bán ngoại tệ Còn tổ chức tài tiến hành mua bán cổ phiếu, trái phiếu Ngân hàng nông nghiệp phát triển nông thôn Việt Nam ( gọi tắt NHNo&PTNT Việt nam ) ngân hàng thơng mại lớn Việt Nam nay, có tên giao dịch quốc tế Viet Nam bank for agriculture and rural Development, đợc thành lập vào tháng năm 1988 theo định 402/HĐBT Chủ tịch hội đồng trởng ( thủ tớng phủ ) Khi bắt đầu chuyển Hệ thống ngân hàng cấp sang ngân hàng hai cấp, đợc hình thành từ số vụ tín dụng công nghiệp tín dụng thơng nghiệp Ngân hàng trung ơng phòng tín dụng Ngân hàng nhà nớc chi nhánh tỉnh, thành phố, quận thị xà Nó hoạt động theo pháp lệnh Ngân hàng, hợp tác xà tín dụng ông ty tài Chủ tịch hội đồng nhà nớc ban hành Ngân hàng nông nghiệp doanh nghiệp nhà níc tiÕn hµnh kinh doanh tiỊn tƯ, tÝn dơng vµ dịch vụ ngân hàng thành phần kinh tÕ vµ ngoµi níc, chđ u lÜnh vùc nông nghiệp nhằm góp phần phát triển sản xuất, lu thông ổn định tiền tệ NHNo&PTNT Việt Nam hoạt động dới quản lý Nhà nớc mà trực tiếp Ngân hàng nhà nớc Việt Nam quyền điều hành Tổng giám đốc Hoạt động có t vấn Hội đồng quản trị Qua 10 năm vào hoạt động tới Ngân hàng nông nghiệp đà trở thành ngân hàng rộng lớn có chi nhánh tất tỉnh thành nớc có hội sở Hà Nội Hiện nay, Ngân hàng đà có quan hệ đại lý với 740 ngân hàng tổ chức tín dụng quốc tế 89 nớc giới thiÕt lËp víi 145 -3- Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 ngân hàng đại lý năm 2001 HiƯn NHNo&PTNT ViƯt Nam cã tỉng ngn vèn lµ 73,635 tỷ đồng với khoảng 25.000 CBCNV toàn thể hệ thống NHNo&PTNT Việt Nam ngày lớn mạnh Ngân hàng thơng mại bớc vào giai đoạn cạnh tranh hội nhập với khu vực quốc tế Để làm đợc điều NHNo&PTNT Việt Nam phải có bớc đột phá Công nghệ thông tin Ngày nay, sống thời đại Công nghệ thông tin phát triển nh vũ bÃo xu Tin học hoá toàn cầu, ngành, lĩnh vực, việc áp dụng Tin học vào hoạt động quản lý, sản suất kinh doanh lại quan trọng Nhằm xử lý quản lý hệ thống thông tin cách hiệu Một ngành áp dụng Tin học mạnh nớc ta nh thê giới phải nói tới Ngành ngân hàng Và đơn vị áp dụng Tin học vào quản lý, kinh doanh sớm NHNo&PTNT Việt Nam.Từ thành lập NHNo&PTNT Việt Nam đà không gặp khó khăn, trình chuyển đổi từ kinh tế tập trung bao cấp sang kinh tế thị trờng, gặp nhiều khó khăn vốn, vật chất, kỹ thuật, tổ chức máy cha ổn định, chế kinh doanh quản lý ngân hàng cha đồng Sử dụng phơng pháp tính toán thủ công nên đà gặp nhiều khó khăn, nhiều thời gian Do vậy, hoạt động kinh doanh NHNo&PTNT Việt Nam đà không đạt đợc kết cao Và sau khiBan lạnh Việt Nam đà nhận thức đà đa Tin NHNo&PTNT đạo học vào áp dụng để quản lý kết kinhtổng giám tăng lên ro dệt, đà tiết kiệm đợc (Đứng đầu doanh đà đốc) sức lao động, thuận lợi giao dịch với khách hàng việc giao dịch, quan hệ mở rộng đối tác làm ăn ngày tăng Đúng nh lời phát biểu Ông tổng giám đốc NHN0&PTNT Việt Nam Ông Lê văn Sở buổi ký kết hợp đồng cung ứng triển khai hệ thống toán nội Ngân hàng kế toán khách hàng Khối Khối Khối Khối Khối Khối Agribank liên doanh Hyundai TinKhối hoá hệ thống Ngân hàng Khối tổ học tổng hỏi đối sức bứcđối nội tất yếu khách quan xu cạnh toán vàchức tiếp thị văn điện kế tranh hội đòi hết xúc, kiểm ngoại phòng toán tài cán nhập quốc tế ngày soát Nh vậy, NHNo&PTNT Việt Nam đà bớc khắc phục khẳng định đợc vị trí, vai trò Ngân hàng quốc doanh không ngừng phát triển với tốc độ cao lĩnh vực kinh doanh tiền tệ, tín dụng dịch vụ ngân hàng Cho đến Bộ máy NHNo&PTNT Việt Nam đợc thể qua sơ đồ sau : Bộ máy quản lý NHNNo & PTNT Việt Nam đợc thể theo sở đồ sau Quỹ Phòng Chi nhánh (Đứng tiết giao đầu giám đốc) kiệm dịch Quỹ tiết kiệm Phòng giao dịch Các phòng khác -4- Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Ban lÃnh đạo : Đứng đầu Tổng giám đốc ngời điều hành trực tiếp hoạt động kinh doanh cđa NHNNo & PTNT theo chÕ ®é thđ trëng có quyền định cao vấn ®Ị liªn quan ®Õn häat ®éng cđa NHNNo & PTNT giúp việc cho tổng giám đốc Phó giám đốc Các khối : Đứng đầu Giám đốc khối Giám đốc khối có quyền hạn riêng chịu trách nhiệm trớc Tổng giám đốc định thuộc phạm vi Các khối có chức riêng có nghiệp vụ liên quan đến Sự phối hợp đồng hợp lý khối dới điều hành Ban lÃnh đạo làm cho NHNNo & PTNT Việt Nam ngày phát triển đứng vững thÞ trêng -5- Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Hệ thống chi nhánh : Đứng đầu Giám đốc chi nhánh, đại diện pháp nhân Tổng giám đốc địa phơng khu vực phụ trách chịu trách nhiệm trớc Tổng giám đốc quan pháp luật định thuộc phạm vi uỷ quyền Các sở giao dịch, quỹ tiết kiệm có cán bộ, nhân viên phụ trách trực tiếp Hoạt động kinh doanh NHNNo & PTNT ViƯt Nam bao gåm : • Ngn vèn : Nguồn vốn huy động : Nhận tiền gửi không kỳ hạn, có kỳ hạn, tiền gửi toán tất đơn vị, tổ chức Hiện nay, NHNo&PTNT ViƯt Nam cã tỉng ngn vèn huy ®éng vào khoảng73.635 tỷ Nguồn vốn vay : Đi đôi với việc huy động vốn từ tổ chức, vầ để bổ xung cho hoạt động kinh doanh, NHNo&PTNT Việt Nam ý khai thác vốn vay từ Ngân hàng nhà nớc, Ngân hàng nớc ngoài, tổ chức tín dụng quốc tế nớc, bao gồm ngắn hạn dài hạn ã Nghiệp vụ sử dụng vốn : Cho vay ngắn hạn hoạt động sản xuất, kinh doanh, dịch vụ nhu cầu xà hội khác Cho vay trung dài hạn mục tiêu hiệu mục tiêu tài trợ tuỳ tính chất khả sử dụng vèn Thùc hiƯn nghiƯp vơ tÝn dơng cho thuª, tù doanh, liên doanh với tổ chức tín dụng nớc Thực nghiệp vụ kinh doanh tiền tệ, tín dụng Dịch vụ ngân hàng Là hệ thống rộng lớn với nghiệp vụ đa dạng có yêu cầu thông tin nhanh chóng, kịp thời, xác đầy đủ, thống nội dung, đảm bảo tính liên tục tính hệ thống, giá trị pháp lý khả thi thông tin ®Ĩ ®a ho¹t ®éng cđa NHNNo & PTNT ViƯt Nam tiến kịp với hoạt động Ngân hàng đại NHNNo & PTNT đẫ đầu t nhiều tiền công sức để Tin học hoá Hệ thống thông tin Bởi Tin học hoá phơng pháp cho phép khai thác nguồn thông tin cách tối đa triệt để, từ cung cấp thông tin cách nhanh chóng, kịp thời ,chính xác, đầy đủ hiệu cho ban lÃnh đạo để đa quyêt định đứng đắn mang lại hiệu cho Ngân hàng II Phơng pháp luận giải vấn đề Tin học hoá Hệ thống thông tin quản lý NHN0&PTNT Việt Nam Thông tin phục vụ quản lý : -6- Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 ♦ ♦ ♦ Công tác quản lý việc điều hành tổ chức Trong giai đoạn trớc đây, cán quản lý chủ yếu dựa vào kinh nghiệm, nghệ thuật trực giác để giải nhiệm vụ quản lý Nhng ngày với phát triển thông tin liên lạc với yêu cầu đa dạng quản lý làm cho khối lợng thông tin ngày lới phức tạp Đòi hỏi ngời quản lý phải có công cụ để nắm bắt, xử lý nhanh chóng luồng thông tin nhằm phục vụ cho việc định Các yếu tố thông tin : Thông tin làm giảm độ bất định Thông tin thể tính tổ chức Thông tin liên hệ phận với phận khác liên kết phân hệ thống Thông tin mang tính tơng đối, phản ánh cách tơng đối đối tợng đợc phản ánh có sai lệch từ nơi phát tới nơi nhận Thông tin mang tính cục Nh ta đà biết, thông tin gắn liền với trình quản lý, giá trÞ cđa nã chØ sinh nã dïng trình định Do đó, chØ cã ý nghÜa HƯ thèng ®iỊu khiĨn sư dụng hệ thống không Thông tin có tính thời ®iĨm : Nã chØ cã Ých t¹i mét thêi ®iĨm định hệ thống 1.1 Hệ thống thông tin phục vụ quản lý : Hệ thống lÃnh đạo Thông tin đà xử lý Hệ thống thông tin phục vụ quản lý -7- Hệ thống thừa hành Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Sơ đồ hệ thống quản lý Thông tin thông tin từ từ vào Đầu vào Đầu Hệ thống lÃnh đạo nơi ban hành định quản lý Hệ thống thừa hành kết thực kêt quản lý, biến yếu tố đầu vào Hệ thống thành kết đầu Hệ thống thông tin trung gian hai hệ thống có chức thu thập, lu trữ truyền thông tin hệ thống, đa thông tin vào trình xử lý truyền đạt thông tin cách xác, kịp thời 1.1 Đặc điểm hệ thống thông tin quản lý : Hệ thống thông tin quản lý đợc tổ chức theo lối phân cấp từ xuống dới Thông tin đợc tổng hợp từ dới lên định đợc đa tư trªn xng díi qua cÊp trung gian ♦ Lng thông tin vào : Luồng thông tin bao gồm thông tin định hớng hệ thống cấp thông tin liên hệ trao dổi với môi trờng Mỗi phận có lợng thông tin lớn đa dạng cần phải xử lý -8- Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Các thông tin cần xử lý chia làm ba loại : + Thông tin luân chuyển : Là loại thông tin chi tiết hoạt động hàng ngày hệ thống Khối lợng thông tin lớn đòi hỏi phải lý nhanh kịp thời + Thông tin tổng hợp định kỳ : Là thông tin cấp dới báo cáo lên cấp thông tin thu thập nhũng thông tin ddợc ghi chép trực tiếp từ phận hệ thống thừa hành + Các thông tin dùng để tra cứu thông tin chung Hệ thống Các thông tin tồn thời gian dài thay đổi, đợc dùng để tra cứu việc xử lý thông tin luân chuyển thông tin tổng hợp Luồng thông tin : Luồng thông tin đợc tổng hợp từ thông tin đầu vào phụ thuộc vào yêu cầu quản lý cụ thể Đầu vào quản lý thờng thông tin kết thông tin thờng mang tính định kỳ theo thời gian Các thông tin cần phải xử lý chia làm hai loại : + Thông tin đà xử lý : Là thông tin đà đợc cán xử lý nhằm cô đọng, lọc, tổng hợp, làm giầu thông tin Và cung cấp cho lÃnh đạo định quản lý + Thông tin định : Là thông tin lÃnh đạo ban hành, chuyển qua Hệ thống thông tin để nhân bản, cụ thể hoá thành nhiệm vụ chuyển xuống cho hệ thống thừa hành Nguyên tắc chung việc cung cấp thông tin cho lÃnh đạo : Đối với cán quản lý cấp cao thông tin quan trọng thông tin cần khái quát cô đọng tổng hợp Đối với cán cung cấp trung gian thông tin quan trọng hơn, thông tin mang tính chi tiết định hớng cao Đối với cán sở cung cấp thông tin chi tiết tốt 1.2 Mô hình hệ thống thông tin phục vụ quản lý : Để tổ chức thông tin phụ vụ quản lý cần xây dựng modul liệu bao gồm : ã Các modul cập nhật, xử lý thông tin cập nhật thông tin lu©n chun -9- Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 ã Các thông tin cập nhật tra cứu : Các thông tin tra cứu đợc dùng cho Hệ thống thời gian dài Nó đợc cập nhật không thờng xuyên, việc tổ chức modul cần bảo đảm dễ tra cứu ã Các modul bảng biểu, báo cáo 1.3 Yêu cầu thông tin quản lý : ãCác thông tin hệ thống thờng đợc giải nhiều khâu trình quản lý Điều đòi hỏi thông tin hệ thống không đợc trùng lặp Thông tin cần đợc tổ chức hợp lý đảm bảo tính quán Hệ thống thông tin thờng đợc tổ chức thành mảng ã Giảm tối thiểu lợng thông tin làm tăng suất hiệu sử dụng máy ã Để đảm bảo tính lôgic cho toàn hệ thống, cần có mảng thông tin làm khung để tái toàn thông tin hệ thống Một định dựa tất thông tin hệ thống mà dựa vào nhóm thông tin phận Do đó, phải hÕt søc tiÕp kiƯm c¸c thao t¸c xư lý, biÕn đổi, hợp thông tin 1.4 Các phơng pháp xây dựng hệ thống thông tin quản lý : ã Phơng pháp tổng hợp : Phơng pháp đòi hỏi phải xây dựng nhiệm vụ cho phận Nhng phải đảm bảo tính toán học hệ thống để sau cá thể xây dựng đợc mảng sở nhiệm vụ + Ưu điểm : Phơng pháp cho phép đa dần hệ thống vào làm việc theo giai đoạn nhanh thu đợc kết + Nhợc điểm : Các thông tin dễ bị trùng lặp, sinh thao tác không cần thiết ã Phơng pháp phân tích : Xây dựng đảm bảo toán học hệ thống sau xây dựng chơng trình làm việc thiết lập mảng làm việc cho chơng trình + Ưu điểm : Phơng pháp cho phép tránh đợc việc thiết lập mảng làm việc cách thủ công + Nhợc điểm : Hệ thống hoạt động dợc đa vào đồng thời mảng ã Tổng hợp phân tích : Đây phơng pháp kết hợp hai phơng pháp tiến hành đông thời xây dựng mảng số thao tác nh nhiệm vụ cần thiết Nhng yêu cầu phải đảm bảo tính quán thông tin hệ thống 1.5 Các bớc xây dựng Hệ thống thông tin quản lý : - 10 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 If d = "" Then d="" End If If e = "" Then e="" End If If f = "" Then f="" End If If Themsua = "them" Then Sql = "Insert into NSD Values ('" & a & "','" & d & "', '" & b & "', '" & c & "', '" & e & "', '" & f & "')" Cn.Execute (Sql) MsgBox "Bạn đà thực thành công", vbOKOnly + vbExclamation, "Thông báo" End If If Themsua = "sua" Then Sql = "Update NSD set Ten_NSD = '" & Me.txtTenUser & "', MM_NSD ='" & Me.txtMatkhau & "', QUYEN = '" & Me.txtQuyenTC & "' , TEN_DAY_DU ='" & Me.txttendd & "', GHI_CHU ='" & Me.txtTenGhiChu & "' where Maso = '" & Me.txtMaso.Text & "'" Cn.Execute (Sql) End If Dim FormatString As String Sql = "Select Maso,Ten_NSD from NSD Order by Maso " FormatString = "STT |M· sè |Tªn ngêi sư dơng Set Rs = Cn.Execute(Sql) Call Load_Flex(FormatString, Rs, GridUser) Set Rs = Nothing TextDisable Me.cmdghi.Enabled = False - 55 - " Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Me.cmdthem.Enabled = True TextDisable TextClear Exit Sub Loi: Dim user_err user_err = "M· Lỗi : " & Err & " MsgBox user_err, 16 Exit Sub End Sub Private Sub cmdsua_Click() Themsua = "sua" Me.txtMaso.Enabled = False Me.txtMatkhau.Enabled = True Me.txtQuyenTC.Enabled = True Me.txtTenUser.Enabled = True Me.txttendd.Enabled = True Me.txtTenGhiChu.Enabled = True Me.cmdghi.Enabled = True ' Me.cmdTHEM.Enabled = False End Sub Private Sub cmdTHEM_Click() TextEnable TextClear Themsua = "them" Me.txtMaso.SetFocus Me.cmdghi.Enabled = True Me.cmdxoa.Enabled = False Me.cmdsua.Enabled = False End Sub - 56 - -> " & Err.Description Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Private Sub cmdXOA_Click() Dim FormatString As String Dim Thong_Bao As String On Error GoTo Loi Thong_Bao = MsgBox("B¹n có chẵn xoá ghi không", vbOKCancel, "Thông b¸o") If Thong_Bao = vbOK Then Cn.BeginTrans Sql = "Delete from NSD Where Maso='" & Me.txtMaso.Text & "'" Set Rs = Cn.Execute(Sql) Set Rs = Nothing Cn.CommitTrans Sql = "Select Maso,Ten_NSD from NSD order by maso" FormatString = "STT |M· sè |Tªn ngêi sư dơng Set Rs = Cn.Execute(Sql) Call Load_Flex(FormatString, Rs, GridUser) TextDisable TextClear End If Exit Sub Loi: MsgBox "Bạn Không thể xoá đợc ghi này", , "Thông báo" End Sub Private Sub Form_Load() Dim FormatString As String Dim i As Integer Sql = "Select * from NSD Order by Maso" Header = "STT |M· sè |Tªn ngêi sư dơng - 57 - " " Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Set Rs = Cn.Execute(Sql) GridUser.Cols = GridUser.FormatString = Header i=1 If Not Rs.EOF Then Rs.MoveFirst GridUser.Rows = Do While Not Rs.EOF GridUser.Rows = GridUser.Rows + GridUser.Row = GridUser.Rows - GridUser.TextMatrix(i, 0) = Str(i) GridUser.TextMatrix(GridUser.Row, 1) = Rs!maso GridUser.TextMatrix(GridUser.Row, 2) = Rs!Ten_NSD i=i+1 Rs.MoveNext Loop Else GridUser.Rows = GridUser.Rows = End If Set Rs = Nothing TextDisable Me.cmdghi.Enabled = False Me.cmdsua.Enabled = False Me.cmdxoa.Enabled = False End Sub Private Sub TextDisable() Me.txtMaso.Enabled = False Me.txtMatkhau.Enabled = False Me.txtQuyenTC.Enabled = False Me.txtTenUser.Enabled = False Me.txttendd.Enabled = False Me.txtTenGhiChu.Enabled = False - 58 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End Sub Private Sub TextEnable() Me.txtMaso.Enabled = True Me.txtMatkhau.Enabled = True Me.txtQuyenTC.Enabled = True Me.txtTenUser.Enabled = True Me.txttendd.Enabled = True Me.txtTenGhiChu.Enabled = True End Sub Private Sub TextClear() Me.txtMaso.Text = "" Me.txtMatkhau.Text = "" Me.txtQuyenTC.Text = "" Me.txtTenUser.Text = "" Me.txttendd.Text = "" Me.txtTenGhiChu.Text = "" End Sub Private Sub GridUser_Click() Set Rs = Cn.Execute("Select * from NSD Order by Maso") Rs.Move Me.GridUser.Row - 1, Me.txtMaso.Text = Rs!maso Me.txtMatkhau.Text = IIf(Not IsNull(Rs!MM_NSD), Rs!MM_NSD, " ") Me.txtQuyenTC.Text = IIf(Not IsNull(Rs!QUYEN), Rs!QUYEN, " ") Me.txtTenUser.Text = IIf(Not IsNull(Rs!Ten_NSD), Rs!Ten_NSD, " ") Me.txttendd.Text = IIf(Not IsNull(Rs!Ten_DAY_DU), Rs!Ten_DAY_DU, " ") Me.txtTenGhiChu.Text = IIf(Not IsNull(Rs!GHI_CHU), Rs!GHI_CHU, " ") Me.cmdxoa.Enabled = True Me.cmdsua.Enabled = True End Sub Private Sub txtMaso_KeyPress(KeyAscii As Integer) - 59 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 If KeyAscii = 13 Then Me.txtMatkhau.SetFocus End If End Sub Private Sub txtMatkhau_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtQuyenTC.SetFocus End If End Sub Private Sub txtQuyenTC_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtTenUser.SetFocus End If End Sub Private Sub txttendd_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtTenGhiChu.SetFocus End If End Sub Private Sub txtTenGhiChu_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.cmdghi.SetFocus End If End Sub Private Sub txtTenUser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then - 60 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Me.txttendd.SetFocus End If End Sub Xác nhận khoản vay ‘Dim gcnnsm As ADODB.Connection ‘Cn.CursorLocation = adUseClient Private Sukien As String Private Dulieu As String 'Lay du lieu tu Frm khac Private Sub CmbGIAMLAI_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtChuongt.SetFocus End If End Sub Private Sub cmdDONG_Click() Unload Me End Sub Private Sub Cmd_Click(Index As Integer) Select Case Index Case Sukien = "Themmoi" Case Sukien = "Suadoi" Case If Sukien = "Suadoi" Then CmdSuadoi End If If Sukien = "Themmoi" Then CmdSave - 61 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End If Case CmdDelete End Select End Sub Private Sub CmdChinhanh_Click() Dulieu = "Chinhanh" Frmchinhanh.Show TxtTaikhoan.SetFocus End Sub Private Sub cmdFindt_Click() cmdFind End Sub Private Sub CmdKhachhang_Click() Dulieu = "Nganhang" FrmThoathuan.Show End Sub Private Sub CmdNgoaite_Click() Dulieu = "Ngoaite" FrmNgoaite.Show End Sub Private Sub Load() Sql = "select * from hosovayvon order by masohs " Set Rs = New ADODB.Recordset Set Rs = Cn.Execute(Sql) Rs.Open Sql, Cn, adOpenKeyset, adLockPessimistic Mdlpublic.FillMSgrid Rs, MSFlexGrid1 - 62 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) Format(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1), "DD/MM/YYYY") MSFlexGrid1(MSFlexGrid1.Row, 0) = "" MSFlexGrid1.FormatString = "M· sè HS|Ngµy NhËn" End Sub Private Sub Form_Load() Call SetMouse(Me) 'chen Tranh vao nut lenh Cmd(0).Picture = LoadResPicture("TIMKIEM", 0) Cmd(1).Picture = LoadResPicture("THEMMOIF2", 0) Cmd(3).Picture = LoadResPicture("SUADOI", 0) Cmd(4).Picture = LoadResPicture("XOAF8", 0) Cmd(2).Picture = LoadResPicture("CAPNHATF3", 0) Cmd(5).Picture = LoadResPicture("THOAT", 0) End Sub Private Sub MaskEdBox_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then CmdNgoaite.SetFocus End If End Sub Private Sub TxtBATDAUTRA_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then CmbGIAMLAI.SetFocus End If End Sub Private Sub TxtCBTD_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtDaidien.SetFocus End If End Sub - 63 - = Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Private Sub Txtchinhanh_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtTaikhoan.SetFocus End If End Sub Private Sub TxtChuongt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtKieutra.SetFocus End If End Sub Private Sub TxtDaidien_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then CmdChinhanh.SetFocus End If End Sub Private Sub TxtGiatri_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtNGAYANHAN.SetFocus End If End Sub Private Sub TxtHTvay_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtThoigian.SetFocus End If End Sub Private Sub TxtKieutra_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtHTvay.SetFocus - 64 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End If End Sub Private Sub TxtLoaivay_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtNguonvon.SetFocus End If End Sub Private Sub TxtNGAYANHAN_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtNhucau.SetFocus End If End Sub Private Sub TxtNguonvon_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtVONTUCO.SetFocus End If End Sub Private Sub TxtNhucau_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtBATDAUTRA.SetFocus End If End Sub Private Sub TxtPTvay_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtCBTD.SetFocus End If End Sub Private Sub Txtsohieuvay_KeyPress(KeyAscii As Integer) - 65 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 If KeyAscii = 13 Or KeyAscii = vbKeyTab Then MaskEdBox.SetFocus End If End Sub Private Sub TxtThoigian_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtPTvay.SetFocus End If End Sub Private Sub TxtVONTUCO_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Or KeyAscii = vbKeyTab Then TxtGiatri.SetFocus End If End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case Is = vbKeyF6 If Cmd(0).Enabled = True Then cmdFinds Case Is = 13 SendKeys "{Tab}", True Case Is = vbKeyF2 If Cmd(1).Enabled = True Then CmdAdds Case Is = vbKeyF3 If Cmd(2).Enabled = True Then CmdSaves Case Is = vbKeyF8 If Cmd(4).Enabled = True Then CmdDeletes Case Is = vbKeyF5 If Cmd(3).Enabled = True Then CmdEdits Case Is = vbKeyF12 If Cmd(5).Enabled = True Then CmdTSTCs End Select - 66 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End Sub Private Sub CmdSave() If IsNull(Txtsohieuvay.Text) Then MsgBox " M· sè kho¶n vay ?", vbCritical, "Thông báo" Exit Sub Sql = "select * from Hosokhoanvay Where MasoHS= '" & Txtsohieuvay.Text & "'" Set Rs = New ADODB.Recordset Rs.Open Sql, Cn, adOpenKeyset, adLockPessimistic If Rs.RecordCount > Then MsgBox " M· sè kho¶n vay đà dùng rồi", vbCritical, "Thông báo" Exit Sub If Not IsDate(MaskEdBox.Text) Then MaskEdBox = Date Else MaskEdBox.Text = Format(CDate(MaskEdBox.Text), "DD/MM/YYYY") End If If Not IsDate(TxtBATDAUTRA.Text) Then MaskEdBox = Date Else TxtBATDAUTRA.Text = Format(CDate(TxtBATDAUTRA.Text), "DD/MM/YYYY") End If If IsNull(Txtchinhanh.Text) Then MsgBox "Sử Dụng cho chi nhánh nào", vbCritical, "Thông báo" Exit Sub End If If IIf(IsNull(TxtNganhang.Text), "", TxtNganhang.Text) Then MsgBox "Đối tác tài trợ ?", vbCritical, "Thông báo" End If If IIf(IsNull(TxtTaikhoan.Text), "", TxtTaikhoan.Text) Then MsgBox "Khoản vay cần đa vào tài khoản ?", vbCritical, "Thông báo" - 67 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End If ' KiĨm tra sè tiỊm vay ph¶i < Sè tiỊn Tho¶ thn tríc Dim NgayTT% NgayTT = Max(NgayTT) Sql = "Select Max(NgayTT) from Hstaitro where Bank_id ='" & TxtNganhang & "' " Set Rs = New ADODB.Recordset Set Rs = Cn.Execute(Sql) If Rs > Date Then Exit Sub Else Sql = "Select giatri from Hstaitro where Bank_id ='" & TxtNganhang & "' " Set Rs = New ADODB.Recordset Rs.Open Sql, Cn, adOpenKeyset, adLockPessimistic If TxtGiatri.Text > Rs("giatri") Then MsgBox "Khoản vay Không thể lớn mức thoả thuận", vbCritical, "Thông báo" End If Exit Sub Sql = "Insert into Hosovayvon values('" & Txtsohieuvay.Text & "' " & _ ",'" & MaskEdBox.Text & "' ,'" & TxtLoaiNT.Text & "'" & _ ",'" & TxtNganhang.Text & "' ,'" & TxtLoaivay.Text & "' " & _ ",'" & TxtNguonvon.Text & "'," & TxtVONTUCO.Text & " " & _ ",'" & TxtNGAYANHAN.Text & "','" & TxtNhucau.Text & "' " & _ ", '" & TxtBATDAUTRA.Text & "', '" & CmbGIAMLAI.Text & "'" & _ ",'" & TxtChuongt.Text & "' ,'" & TxtKieutra.Text & "', '" & TxtHTvay.Text & "'" & _ "," & TxtThoigian.Text & ",'" & TxtPTvay.Text & "' " & _ ",'" & TxtCBTD.Text & "','" & TxtDaidien.Text & "' " & _ ",'" & Txtchinhanh.Text & "','" & TxtTaikhoan.Text & "')" Cn.Execute (Sql) - 68 - Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End Sub Private Sub CmdSuadoi() Sql = " select NgayXN from Hosovayvon where MasoHS =' " & Txtsohieuvay.Text & " '" Set Rs = New ADODB.Recordset Set Rs = Cn.Execute(Sql) Dim Ngayvay% Dim Homnay% 'HÖ thống hoạt động theo tháng Homnay = FormatDateTime(Format(Date, "DD/MM/YYYY")) Ngayvay = FormatDateTime(Format(Rs("NgayXN"), "DD/MM/YYYY")) If Right(Homnay) - Right(Ngayvay) > Then MsgBox "Khoản vay sử chữa", vbCritical, "Thông báo" Exit Sub End If Sql = " Update Hosovayvon set " & _ " NgayXN= '" & MaskEdBox.Text & "' ,LoaiNgoaite= '" & TxtLoaiNT.Text & "'" & _ ",Bank_id= '" & TxtNganhang.Text & "' ,Loaivay='" & TxtLoaivay.Text & "' " & _ ",nguonvon ='" & TxtNguonvon.Text & "',vontuco=" & TxtVONTUCO.Text & " " & _ ",anhan='" & TxtNGATxtNguonvonYANHAN.Text & "',nhucau='" & TxtNhucau.Text & "' " & _ ", Ngaytralai='" & TxtBATDAUTRA.Text & "', Giamlai=' " & CmbGIAMLAI.Text & "'" & _ ",Chuongtrinh ='" & TxtChuongt.Text & "' ,Kieutra='" & TxtKieutra.Text & "', Hinhthucvay='" & TxtHTvay.Text & "'" & _ ",Thoigian=" & TxtThoigian.Text & ",Phuongthuc='" & TxtPTvay.Text & "' " & _ - 69 - ... hệ thống quản lý Thông tin thông tin từ từ vào Đầu vào Đầu Hệ thống lÃnh đạo nơi ban hành định quản lý Hệ thống thừa hành kết thực kêt quản lý, biến yếu tố đầu vào Hệ thống thành kết đầu Hệ. .. thể Hệ thống Tin học hoá theo cách gắn bó thiết kế hệ thống thông Tin học quản lý với việc hoá tổ chức Theo MERISE thiết kế Hệ thống thông tin cần ý đến vấn đề : ã Nhìn hệ thống quản lý dới hệ thống. .. Tel (: 0918.775.368 Ch¬ng II: Hệ thống thông tin quản lý vốn tài trợ I Các giai đoạn xây dựng hệ thống thông tin quản lý : Việc xây dựng hệ thống thông tin quản lý bao gồm giai đoạn Mỗi giai