Báo cáo Xây dựng, thiết kế và cài đặt Hệ thống thông tin phục vụ quản lý Vốn tài trợ thương mại là nội dung của tổng hợp sau 3 tháng thực tập tại ngân hàng nông ngiệp và phát triển nông thôn Việt Nam
Xây dựng, thiết kế và cài đặt Hệ thống thông tin phục vụ quản lý Vốn tài trợ thương mại là nội dung của Báo cáo tổng hợp sau 3 tháng thực tập tại NHN0&PTNT Việt Nam(86 trang) LỜI NÓI ĐẦU Trong những năm gần đây, ngành Công nghệ thông tin đã phát triển như vũ bão, Thế kỷ 21 là thế kỷ Công nghệ thông tin.Từ một nguồn tài nguyên tiềm tàng, thông tin đã trở thành một nguồn tài nguyên thực sự và nó đã trở thành một hàng hoá đặc biệt. Việc tận dụng nguồn tài nguyên này đã tạo nên một bước phát triển to lớn trong lực luợng sản suất, cơ sở hạ tầng, kinh tế xã hội, cấu trúc kinh tế, cấu trúc lao động và cách thức quản lý kinh tế xã hội . Trong lĩnh vực Máy tính, những thành tựu về Khoa học và Công nghệ làm cho các sản phẩm máy tính ngày càng phát triển theo hướng hiện đại, chi phí thấp, khả năng tính toán được nâng cao. Sự ra đời và phát triển của Máy tính thực sự đã trở thành một cuộc Cánh mạng vĩ đại. Chúng ta đã thấy thông tin ngày càng phong phú đa dạng và phức tạp không thể xử lý đơn giản bằng phương pháp và công cụ cổ điển. Để xử lý được lượng thông tin lớn như vậy nghĩa là khai thác được nguồn tài nguyên quan trọng đó đòi hỏi phải có những phương pháp và công cụ mới đó chính là Tin học. Xã hội càng phát triển thì nhu cầu ứng dụng Tin học ngày càng lớn và ngược lại những thành tựu tin học sẽ tác động trở lại, tạo điều kiện phát triển nhanh chóng cho sản xuất và xã hội. Việc ứng dụng Tin học là nhằm một cách hiệu quả và đạt năng suất cao trong việc xử lý thông tin phức tạp trong quá trình nghiên cứu điều tra điều khiển, quản lý kinh doanh , tổ chức khai thác các hệ thống tin học ở mọi mức độ. Ứng dụng Tin học trong công tác quản lý là một trong những hiệu quả của Tin học nhằm giảm nhẹ đến mức tối đa sự tham gia của cơ bắp, tiết kiệm thời gian tìm kiếm thông tin, làm hẹp không gian lưu trữ, hệ thống hoá và cụ thể hoá lượng thông tin theo nhu cầu của người sử dụng . Trong thời đại ngày nay tin học đã chứng tỏ được ưu thế của mình trong nền kinh tế quốc dân, nó đã thúc đẩy và hỗ trợ cho các ngành khác phát triển vượt bậc. Một trong những ngành ứng dụng Tin học nhiều nhất ở Việt Nam cũng như trên thế giới đó là Ngành Ngân Hàng. Một trong những đơn vị ứng dụng Công nghệ thông tin sớm nhất và mạnh nhất đó là Ngân hàng nông nghiệp Việt Nam. Ngoài các 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ý và theo dõi các khoản vốn tài trợ thương mại (HNTTTM) giữa NHNo & PTNT Việt Nam với các Ngân hàng chi nhánh và các Ngân hàng đại lý trên thế giới ” đó chính là việc áp dụng Tin học vào việc quản lý các hạn ngạch tài trợ thượng mại. Xây dựng, thiết kế và cài đặt Hệ thống thông tin phục vụ quản lý Vốn tài trợ thương mại là nội dung của Báo cáo tổng hợp sau 3 tháng thực tập tại NHN0&PTNT Việt Nam. Việc xây dựng hệ thống này không thể tránh khỏi những thiếu sót, vì vậy tôi rất mong nhận được sự đóng góp ý kiến chân thành của thầy giáo và các bạn đồng nghiệp để hoàn thiện và bảo trì hệ thống sau này được tốt hơn. Cuối cùng tôi xin trân thành cảm ơn thầy giáo :Ts. Cao Đình Thi đã tận tình giúp đỡ tôi trong quá trình thực tập và hoàn thiện đề tài này. Tôi cũng 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 và toàn thể các anh lập trình viên đẫ tận tình giúp đỡ tôi và đóng góp những ý kiến quý báu và tạo mọi điều kiện về cơ sở vật chất kỹ thuật, thuận lợi cho tôi trong quá trình thực tập tại phòng kỹ thuật phần mềm thuộc trung tâm Công nghệ thông tin của NHNo&PTNT Việt Nam và thực hiện đề tài này. CHƯƠNG I GIỚI THIỆU VỀ HỆ THỐNG QUẢN LÝ NHNO&PTNT VIỆT NAM VÀ PHƯƠNG PHÁP LUẬN GIẢI QUYẾT 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 các tổ chức tài chính thì có khoảng 70% là các Ngân hàng thương mại, sau đó mới đến các tổ chức tài chính. Hệ thống các Ngân hàng thương mại rất quan trọng, nó chiếm khoảng 70% vốn và nhiệm vụ chính của nó là kinh doanh tiền tệ, nhận tiền gửi, cho vay, đi vay và tiến hành mua bán ngoại tệ. Còn các tổ chức tài chính chỉ tiến hành mua bán cổ phiếu, trái phiếu. Ngân hàng nông nghiệp và phát triển nông thôn Việt Nam ( gọi tắt là NHNo&PTNT Việt nam ) là một ngân hàng thương mại lớn nhất Việt Nam hiện nay, có tên giao dịch quốc tế là Viet Nam bank for agriculture and rural Development, được thành lập vào tháng 3 năm 1988 theo quyết định 402/HĐBT của Chủ tịch hội đồng bộ trưởng ( nay là thủ tướng chính phủ ). Khi bắt đầu chuyển Hệ thống ngân hàng một cấp sang ngân hàng hai cấp, được hình thành từ một số vụ tín dụng công nghiệp và tín dụng thương nghiệp của Ngân hàng trung ương và các phòng tín dụng của Ngân hàng nhà nước tại các chi nhánh tỉnh, thành phố, quận và thị xã. Nó hoạt động theo đúng pháp lệnh Ngân hàng, hợp tác xã tín dụng và ông ty tài chính của Chủ tịch hội đồng nhà nước ban hành. Ngân hàng nông nghiệp là một 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 đối với các thành phần kinh tế trong và ngoài nước, chủ yếu trong lĩnh vực nông nghiệp nhằm góp phần phát triển sản xuất, lưu thông và ổn định tiền tệ. NHNo&PTNT Việt Nam hoạt động dưới sự quản lý của Nhà nước mà trực tiếp là Ngân hàng nhà nước Việt Nam và quyền điều hành của Tổng giám đốc. Hoạt động có sự tư vấn của Hội đồng quản trị. Qua 10 năm đi vào hoạt động tới nay Ngân hàng nông nghiệp đã trở thành một ngân hàng rộng lớn có chi nhánh ở tất cả các tỉnh thành trong cả nước và có hội sở chính tại Hà Nội. Hiện nay, Ngân hàng đã có quan hệ đại lý với hơn 740 ngân hàng và các tổ chức tín dụng quốc tế ở 89 nước trên thế giới trong đó mới thiết lập với 145 ngân hàng đại lý trong năm 2001. Hiện nay NHNo&PTNT Việt Nam có tổng nguồn vốn là 73,635 tỷ đồng với khoảng 25.000 CBCNV trong toàn thể hệ thống. NHNo&PTNT Việt Nam ngày một lớn mạnh đang và sẽ là Ngân hàng thương mại hiện đại để bước vào giai đoạn cạnh tranh và hội nhập với khu vực và quốc tế. Để làm được điều đó NHNo&PTNT Việt Nam phải có bước đột phá về Công nghệ thông tin. Ngày nay, chúng ta đang sống trong thời đại Công nghệ thông tin phát triển như vũ bão và xu thế Tin học hoá toàn cầu, ở mọi ngành, mọi lĩnh vực, việc áp dụng Tin học vào các hoạt động quản lý, trong sản suất kinh doanh lại càng quan trọng. Nhằm xử lý và quản lý hệ thống thông tin một cách hiệu quả. Một trong những ngành áp dụng Tin học mạnh nhất ở nước ta cũng như trên thê giới là phải nói tới Ngành ngân hàng. Và một trong những đơn vị áp dụng Tin học vào quản lý, kinh doanh sớm nhất đó là NHNo&PTNT Việt Nam.Từ khi mới thành lập NHNo&PTNT Việt Nam đã không gặp ít những khó khăn, quá trình chuyển đổi từ nền kinh tế tập trung bao cấp sang nền kinh tế thị trường, gặp nhiều khó khăn về vốn, cơ ở vật chất, kỹ thuật, tổ chức bộ máy chưa ổn định, cơ chế kinh doanh và quản lý ngân hàng chưa đồng bộ. Sử dụng các phương pháp tính toán thủ công nên đã gặp rất nhiều khó khăn, mất nhiều thời gian. Do vậy, trong hoạt động kinh doanh của mình NHNo&PTNT Việt Nam đã không đạt được kết quả cao. Và sau khi NHNo&PTNT Việt Nam đã nhận thức và đã đưa Tin học vào áp dụng để quản lý thì kết quả kinh doanh đã tăng lên ro dệt, đã tiết kiệm được sức lao động, thuận lợi khi 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 càng tăng. Đúng như lời phát biểu của Ông tổng giám đốc NHN0&PTNT Việt Nam Ông Lê văn Sở tại buổi ký kết hợp đồng cung ứng và triển khai hệ thống thanh toán nội bộ Ngân hàng và kế toán khách hàng giữa Agribank và liên doanh Hyundai là “ Tin học hoá hệ thống Ngân hàng là một đòi hỏi hết sức bức xúc, là một tất yếu khách quan trong xu thế cạnh tranh và hội nhập quốc tế ngày nay ” Như vậy, NHNo&PTNT Việt Nam đã từng bước khắc phục và khẳng định được vị trí, vai trò của mình là một Ngân hàng quốc doanh không ngừng phát triển với tốc độ cao trên các lĩnh vực kinh doanh tiền tệ, tín dụng và dịch vụ ngân hàng. Cho đến nay thì Bộ máy của NHNo&PTNT Việt Nam được thể hiện qua sơ đồ sau :
Bạn đang xem trước 20 trang tài liệu Báo cáo Xây dựng, thiết kế và cài đặt Hệ thống thông tin phục vụ quản lý Vốn tài trợ thương mại là nội dung của tổng hợp sau 3 tháng thực tập tại ngân hàng nông ngiệp và phát triển nông thôn Việt Nam, để xem tài liệu hoàn chỉnh bạn click vào nút DOWNLOAD ở trên
thèng, v× nã x¸c ®Þnh th«ng tin nµo ph¶i cã mÆt tríc khi qu¸ tr×nh ®îc thùc hiÖn.
S¬ ®å luång gi÷ liÖu ë møc tæng qu¸t :
§èi t¸c
Ng©n hµng
Ban l·nh ®¹o khèi phßng liªn quan
HÖ thèng
Tr¶
Lêi
Yªu cÇu
Yªu cÇu
B¸o c¸o
M« h×nh trªn thÓ hiÖn sù trao ®æi th«ng tin gi÷a hÖ thèng vµ c¸c t¸c nh©n bªn ngoµi. Luång gi÷ liÖu tõ bªn ngoµi cña hÖ thèng bao qåm c¸c yªu cÇu cña Ban l·nh ®¹o, c¸c khèi phßng liªn quan. Luång d÷ liÖu t¹o ra bao gåm c¸c b¸o c¸o thèng kª tr¶ lêi.
Sau khi ®· cã s¬ ®å møc tæng qu¸t vµ dùa vµo yªu cÇu môc ®Ých cña HÖ thèng ta cã s¬ ®å luång d÷ liÖu ph©n gi· chøc n¨ng nh sau :
§èi t¸c
Ng©n hµng
Ban l·nh ®¹o,
khèi phßng liªn quan
HÖ thèng
B¸o c¸o
Kho
D÷
LiÖu
Tr¶
Lêi
Yªu
CÇu
Tµi
Trî
B¸o
C¸o
Yªu
CÇu
b¸o
c¸o
B¸o
C¸o
Yªu
CÇu
B¸o
C¸o
Chøc n¨ng qu¶n lý c¸c kho¶n vèn tµi trî : Qu¶n lý c¸c kho¶n vèn tµi trî vµ c¸c kho¶n vay cô thÓ, qu¶n lý c¸c giao dÞch ph¸t sinh hµng ngµy, sÏ nhËn d÷ liÖu tõ khèi phßng liªn quan göi vÒ vµ tiÕn hµnh cËp nhËt, xö lý, bæ xung vµo kho d÷ liÖu.
Chøc n¨ng B¸o c¸o : LËp c¸c b¸o c¸o thèng kª c¨n cø vµo yªu cÇu cña ban l·nh ®¹o ®Ó ®a ra mÉu b¸o c¸o thÝch hîp.
S¬ ®å d÷ liÖu chøc n¨ng qñan lý Hå s¬ tµi trî
Kho d÷ liÖu
§èi t¸c tµi trî
Ban l·nh ®¹o
Khèi phßng liªn quan
CËp nhËt DL
Xö lý
Ng©n hµng
Yªu
CÇu l·nh ®¹o
Khèi phßng liªn quan
Th«ng l·nh ®¹o
Khèi phßng liªn quan
tin
B¸o
C¸o
B¸o c¸o
Th«ng tin tr¶ lêi
NhËp kho¶n vay
NhËp GiÊy b¸o nî
NhËp lÞch tr¶ nî
NhËp phiÕu tr¶ nî
Yªu
CÇu l·nh ®¹o
Khèi phßng liªn quan
BiÓu ®å luång d÷ liÖu chøc n¨ng cËp nhËt DL:
§èi t¸c
Qu¶n lý KV
Rót vèn
LÞch tr¶ nî
Kho d÷ liÖu
Tr¶ nî
Ban l·nh ®¹o
Khèi phßng liªn quan
§èi t¸c
Ban l·nh ®¹o
Khèi phßng liªn quan
Tr¶ nî
Rót vèn
§èi t¸c
Gia h¹n
Kho d÷ liÖu
S¬ ®å luång d÷ liÖu chøc n¨ng sö lý:
S¬ ®å luång d÷ liÖu chøc n¨ng b¸o c¸o:
B¸o c¸o
B¸o c¸o
Kho d÷ liÖu
Tæng hîp
B¸o c¸o chi tiÕt
Ban l·nh ®¹o
khèi phßng liªn quan
Ng©n hµng
2. M« h×nh liªn kÕt gi÷a c¸c thùc thÓ.
Thùc thÓ vµ c¸c kho¸
Qua qu¸ tr×nh kh¶o s¸t ta cã mét sè thùc nh sau:
C¸c thùc thÓ :
Tªn thùc thÓ
Néi dung
Thuéc tÝnh kho¸
Doitac
Lu tr÷ th«ng tin vÒ c¸c ®èi t¸c cã quan
hÖ víi NHNo & PTNT
Bank_id
Hosotaitro
C¸c th«ng vÒ hå s¬ tµi trî
Hosovay
Chøa c¸c th«ng tin vÒ c¸c kho¶n vay cô thÓ
MasoKV
Ngoaite
B¶ng m· c¸c ngo¹i tÖ
MaNT
Chinhanh
C¸c chi nh¸nh cña ng©n hµng
MasoCN
Lichtrano
LÞch tr¶ nî cña c¸c kho¶n vay
Bank_id
Sophieu
Rutvon
C¸c th«ng tin vÒ tõng rót cña c¸c kho¶n vay
Bank_id
MasoKV
Sophieu
Lantrano
C¸c lÇn tr¶ nî cô thÓ
Bank_id
Sophieu
MasoKV
- Table Doitac
Name
Type
Width
Dec
Chó thÝch
Bank_ID
Ten
Diachi
Daidien
Dienthoai
Ghichu
Text
Text
Text
Text
Number
Text
15
50
60
25
11
60
1
M· sè ®èi t¸c
Tªn ®èi t¸c
§Þa chØ
§¹i diÖn
Diªn tho¹i
Ghichó
- Table Chi nh¸nh
Name
Type
Width
Dec
Chó thÝch
MasoCn
TenCN
Daidien
Dienthoai
Ghichu
Text
Text
Text
Number
Text
15
35
25
10
60
M· sè chi nh¸nh
Tªn chi nh¸nh
§¹i diÖn
§iÖn tho¹i
Ghi chó
-Table Hosotaitro
Name
Type
Width
Dec
Chó thÝch
Bank_id
Mucdich
Giatri
Laixuat
Thoigian
Dieukien
NgayTT
Text
Text
Number
Number
Number
Text
Date
15
35
10
3
3
45
10
M· s« NH
Môc ®Ých
Gi¸ trÞ
L·i xuÊt
Thêi gian
§iÒu kiÖn
Ngµy tho¶ thuËn
-Table HOVAYVON
NaNameName
Type
Width
Dec
Chó thÝch
Masohs
NgayXN
LoaiNgoaite
Bank_id
Loaivay
Nguonvon
Vontuco
Giatri
Anhan
Nhucau
Ngaytralai
Giamlai
Chuongtrinh
Kieutra
Hinhthucvay
Thoigian
CanboXN
Daidien
Chinhanh
Taikhoan
Text
Date
Text
Text
Text
Text
Number
Number
Number
Text
Date
Text
Text
Text
Text
Date
Text
Text
Text
Text
15
10
6
15
25
25
10
10
3
40
10
15
30
30
30
10
25
26
39
12
1
M· sè hå s¬
Ngay x¸c nhËn
Lo¹i ngo¹i tÖ
M· sè ng©n hµng
Lo¹i vay(Tai trî)
Nguån vèn
Vèn tù cã
GÝa trÞ kho¶n vay
¢n h¹n cho NH
Nhu cÇu vay
Ngµy B§ tr¶ l·i
Gi¶m l·i kh«ng?
Ch¬ng tr×nh g×
KiÓu tr¶(l·i,vèn)
H×nh thøc(Vay)
Thêi gian vay
Ngêi x¸c nhËn
§¹i diÖn ký
Chi nh¸nh
Tµi kho¶n
- Table Lantrano
Name
Type
Width
Dec
Chó thÝch
Masokv
Bank_id
Trano
Ngaytra
Sophieu
Giatri
Text
Text
Text
Date
Text
Text
15
15
10
10
10
10
M· sè kho¶n vay
M· sè ®èi t¸c
Rót tiÒn?
Ngµy tr¶
Sè phiÕu
Gi¸ trÞ
- Table Rutvon
Name
Type
Width
Dec
Chó thÝch
Masokv
Bank_id
Rutvon
Ngaytra
Sophieu
Giatri
Text
Text
Text
Date
Text
Text
15
15
10
10
10
10
M· sè kho¶n vay
M· sè ®èi t¸c
Rót tiÒn?
Ngµy tr¶
Sè phiÕu
Gi¸ trÞ
M« h×nh liªn kÕt gi÷ c¸c thùc thÓ
Trano
Rutvon
Doitac(NH)
Taitro
Hosovayvon
Tiente
Chinhanh
Lichtrano
BiÓu ®å ph©n cÊp chøc n¨ng.
Sau khi ®· cã c¸c s¬ ®å luång d÷ liÖu, ta x©y dùng biÓu ®å ph©n cÊp chøc n¨ng nh sau:
S¬ ®å chøc n¨ng
HÖ thèng
Qu¶n lý Hå s¬ tµi trî vèn
Qu¶n lý
Giao dÞch
Thèng kª
b¸o c¸o
S¬ ®å ph©n cÊp chøc n¨ng qu¶n lý Hå s¬ tµi trî
- Mçi hå s¬ cã mét m· sè duy nhÊt.
-Qu¶n lý th«ng tin chung vÒ tõng hå s¬ tµi trî vµ têng kho¶n vay cô thÓ
C¸c th«ng tin chung vÒ hå s¬ tµi trî
C¸c kho¶n vay khi tr¶ nî hÕt c¶ gèc vµ l·i .
C¸c kho¶n vay huû bá
CËp nhËt hå s¬
VÊn tin
Xo¸ hå s¬
Qu¶n lý hå s¬ tµi trî
S¬ ®å ph©n cÊp chøc n¨ng qu¶n lý giao dÞch
- KiÓm tra sè d cßn l¹i xem cã cßn ®îc rót kh«ng.
- Ghi sè tiÒn dót vµo sæ
KiÓm tra sè tiÒn cßn ph¶i tr¶
-Khi cã sù chÊp nhËn cña ®èi t¸c
- KiÓm tra xem cã ®îc phÐp gia h¹n kh«ng
Rót vèn
Tr¶ nî
Gia h¹n
Qu¶n lý giao dÞch
S¬ ®å ph©n cÊp chøc n¨ng in b¸o c¸o
Tæng hîp sè d
LiÖt kª nî ®Õ h¹n
LiÖt kª giao dÞch
HÖ thèng b¸o c¸o
C¨n cø vµo s¬ ®å ph©n cÊp chøc n¨ng ta x©y dùng hÖ th«ng thùc ®¬n nh sau :
Qu¶n lý hå s¬
X¸c nhËn vÒ vèn tµi trî
Tho¶ thuËn vÒ vèn tµi trî
Th«ng tin ®èi t¸c tµi trî
Danh môc c¸c chi nh¸nh
Danh môc L·i suÊt
Danh môc ngo¹i tÖ
Giao dÞch hµng ngµy
Giao dÞch dót vèn
Giao dÞch tr¶ nî
Giao dÞc t¹o lÞch tr¶ nî
Giao dÞch gia h¹n nî
C¸c kho¶n vay &cßn nî
C¸c kho¶n vay ®îc &gia h¹n
C¸c kho¶n vay &qu¸ h¹n
HÖ thèng b¸o c¸o
Thèng kª b¸o c¸o hµng ngµy
C¸c KV §H ph¶i tr¶ trong ngµy
C¸c KV ph¸t sinh trong ngµy
C¸c KV ®· tr¶ nî trong ngµy
Thèng kª &b¸o c¸o NHNo
B¸o c¸o ®i vay &Ng¾n h¹n
B¸o c¸o ®i vay &dµi h¹n
Theo dâi tr¶ nî vµ tr¶ L·i
IV. M« t¶ chi tiÕt c¸c chøc n¨ng sö lý chung trong hÖ thèng qu¶n lý Vèn tµi trî
HÖ thèng qu¶n lý c¸c hå s¬ vay nî :
HÖ thèng nµy cã c¸c chøc n¨ng qu¶n lý toµn bé hå s¬ cña c¸c kho¶n vèn tµi trî còng nh c¸c kho¶n vay cô thÓ. C¸c th«ng tin nµy lµ nÒn t¶ng, lµ c¬ së x¸c ®Þnh c¸c mèi quan hÖ gi÷ NHNo & PTNT vµ c¸c ®èi t¸c. Ta cã thÓ ph©n ra thµnh c¸c bé hå s¬ nh sau :
Hå s¬ tµi trî : Qu¶n lý th«ng tin vÒ c¸c kho¶n vèn tµi trî ®· ®îc tho¶ thuËn gi÷a NHNo & PTNT vµ ®èi t¸c tµi trî. C¸c th«ng tin nµy bao gåm : môc ®Ých sö dông, gi¸ trÞ kho¶n vèn tµu trî, thêi gian cho va , l·i xuÊt, ®iÒu kiÖn cu thÓ .
Hå s¬ vÒ kho¶n vay cô thÓ: qu¶n lý th«ng tin vÒ kho¶n vay cô thÓ nh : sè vèn ®ùoc chÊp nhËn thêi gian, l·i xuÊt….
HÖ thèng giao dÞch :
Qu¶n lý c¸c giao dÞch ph¸t sinh cña c¸c kho¶n vay ®· ®îc x¸c nhËn, bao gåm c¸c chøc n¨ng nh :
+ Rót vèn : Sè vèn tµi trî
+ Tr¶ nî : Tr¶ tiÒn cho c¸c kho¶n vay ®Õn h¹n ph¶i tr¶.
+ Gia h¹n : Víi c¸c ®iÒu kiÖn ®Õn h¹n tr¶ nî th× ®èi t¸c cã thÓ gia h¹n.
HÖ thèng b¸o c¸o, thèng kª :
Cung cÊp c¸c biÓu mÉu ttáng hîp thèng kª hµng th¸n, quÝ n¨m, theo yªu cÇu cña hÖ thèng.
Theo dâi t×nh h×nh ®i vay, tr¶ nî cña c¸c kho¶n vay.
4. Qu¶n trÞ hÖ thèng :
Mét ch¬ng tr×nh qu¶n lý hÖ thèng th«ng tin ®îc Tin häc ho¸ th× Qu¶n trÞ hÖ thèng lµ c«ng viÖc kh«ng thÓ thiÕu.
5. Chän lùa c¬ së d÷ liÖu vµ m«i trêng ph¸t triÓn.
Do tÝnh b¶o mËt cña c¬ së d÷ liÖu lªn m«i trêng ®Ó ph¸t triÓn phï hîp ®ã lµ
Oracle vµ Visual Basic.
CH¦¥NG III :
THIÕT KÕ HÖ TIN HäC QU¶N Lý TµI TRî VèN
Qu¶n lý hå s¬ vèn vay :
Qu¶n lý c¸c hå s¬ gi÷a Ng©n hµng n«ng nghiÖp v¬i c¸c Ng©n hµng níc ngoµi. C¸c th«ng tin mµ M¸y tÝnh lu tr÷ chØ lµ nh÷ng ®iÒu kho¶n c¬ b¶n nhÊt cña h¹n ng¹ch tµi trî nµy v× ®©y míi chØ lµ nh÷ng thña thuËn ban ®Çu cßn khi nµo ph¸t sinh nh÷ng kho¶n vay cô thÓ th× míi cã nh÷ng kho¶n cô thÓ phï hîp víi tõng kho¶n vay.
ë ®©y chØ s dông hai thùc thÓ lµ BANK vµ INVITE c¸c thùc thÓ ®îc liªn kÕt v¬i nhau nh sau :
BANK
INVITE
Form X¸c nhËn c¸c kho¶n vay
Tr¶ nî :
C¸n bé qu¶n lý chon tµi trî trªn thùc ®¬n møc giao dÞch hµng ngµy th× mµn h×nh sÏ hiÖn lªn nh sau :
Giao dÞch tr¶ nî
C¸c kiÓm so¸t trªn mµn h×nh tr¶ nî : VÒ c¬ b¶n còng kiÓm so¸t kho¶n vay vµ è tham chiÕu nh c¸c phÇn trªn. Khi tiÕn hµnhn giao dÞch tr¶ míi cho c¸c lÇn rót vèn cña tõng kho¶n vay.
Sau khi nhËp m· sè kho¶n vay vµ sè tham chiÕu hîp lÖ qua sù kiÓm so¸t cña chu¬ng tr×nh th× ch¬ng tr×nh sÏ tÝnh to¸n.
Giao dÞch hµng ngµy :
Rót vèn : PhÇn nµy cho phÐp qu¶n lý th«ng tin chi tiÕt cña c¸c lÇn rót vèn hµng ngµy khi nhËn ®îc c¸c giÊy b¸o rót tiÒn tõ c¸c ng©n hµng chi nh¸nh
Ta cã giao diÖn sau :
Giao dÞch rót vèn
Giao diÖn c¸c chøc n¨ng cña ch¬ng tr×nh nh sau : Giao diÖn nµy cho phÐp truy cËp vµo toµn bé hÖ thèng :
Giao diÖn cña ch¬ng tr×nh
Giao diÖn Qu¶n lý ngêi sö dông :
Form Qu¶n trÞ ngêi dïng
Form Gia h¹n nî
Giao diÖn lÞch tr¶ nî :
Giao diÖn gia h¹n cho c¸c lÇn tr¶ nî :
Giao diÖn c¸c ®èi t¸c tµi trî vèn vay :
Form §èi t¸c tµi trî
Form Tho¶ thuËn ban ®Çu
Giao diÖn tháa thuËn vÒ h¹n ng¹ch tµi trî :
Giao diÖn chÝnh cña ch¬ng tr×nh:
KÕt luËn
Trong thêi ®¹i bïng næ th«ng tin, hiÖn nay nhu cÇu sö dông c¸c øng dông Tin häc ®Ó xö lý th«ng tin lµ mét nhu cÇu cÊp thiÕt. Ngoµi viÖc tiÕp nhËn C«ng nghÖ míi vµ sö dông c¸c phÇn mÒm cã s½n, chóng ta cÇn ph¶i cã nh÷ng ch¬ng tr×nh øng dông cña m×nh. Trong nh÷ng n¨m trë l¹i ®©y, nghµnh C«ng nghÖ phÇn mÒm cña níc ta ®· cã nh÷ng bíc ngoÆt rÊt lín, s¶n phÈm phÇn mÒm kh«ng nh÷ng chØ phôc vô trong níc mµ cßn ®ang cã híng xuÊt khÈu ra níc ngoµi x¾p tíi chóng ta hoµn thiÖn khu c«ng nghÖ cao L¸ng Hoµ L¹c sÏ thu hót ®îc rÊt nhiÒu c¸c lËp tr×nh viªn cã ®¼ng cÊp quèc tÕ vµ sÏ cho ra c¸c s¶n phÈm phÇn mÒm ngµy cµng cã chÊt lîng cao. Vµ ®a ViÖt Nam trë thµnh mét níc xuÊt khÈu phÇn mÒm tÇm cì khu vùc còng nh trªn thÕ giíi. Nh÷ng øng dông Tin häc ®· phôc vô rÊt tèt cho c¸c ho¹t ®éng ph¸t triÓn kinh tÕ x· héi mang l¹i hiÖu qu¶ kinh tÕ cao. §Æc biÖt trong lÜnh vùc qu¶n lý cã nhiÒu tr¬ng tr×nh ®¹t tíi tr×nh ®é cao, ®¸p øng ®îc nhu cÇu cho ngêi sö dông.
ViÖc tin häc ho¸ c¸c c«ng t¸c qu¶n lý nãi chung vµ vÊn ®Ò qu¶n lý tµi trî vèn t¹i NHN0VN nãi riªng ®· vµ ®ang ®îc tiÕn hµnh m¹nh mÏ ë kh¾p mäi n¬i trªn toµn quèc. Nã kh«ng chØ gi¶i phãng con ngêi khái nh÷ng c«ng viÖc bußn tÎ mµ cßn n©ng cao mét c¸ch ®¸ng kÓ hiÖu qu¶ c«ng viÖc, ®é chÝnh x¸c, an toµn cña th«ng tin cao vµ lµ mét c¸nh tay ®¾c lùc trî gióp cho con ngêi ®a ra nh÷ng qyÕt ®Þnh chÝnh x¸c trong c«ng viÖc.
Cã thÓ nãi r»ng viÖc ®a C«ng nghÖ míi vµo vÊn ®Ò qu¶n lý tµi trî vèn lµ c¶ mét sù n¨ng ®éng, t×m tßi s¸ng t¹o träng viÖc ®Çu t nh»m c¶i tiÕn HÖ thèng còng nh träng viÖc lùa chän gi¶i ph¸p kü thuËt nh»m x©y dùng mét HÖ thèng qu¶n lý vèn gi÷a NHN0 &PTNTVN víi c¸c Ng©n hµng chi nh¸nh vµ c¸c Ng©n hµng tµi trî vèn trªn thÕ giíi. Nh»m thanh to¸n chÝnh x¸c, thuËn lîi, an toµn vµ hiÖu qu¶ ®¸p øng nhu cÇu cña kh¸ch hµng, gi¶m chi phÝ qu¶n lý vµ t¨ng cêng hiÖu suÊt kinh doanh, s½n sµng tÝch hîp víi c¸c s¶n phÈm DÞch vô ng©n hµng trong t¬ng lai vµ thÕ giíi. HÖ thèng nµy sÏ gióp cho viÖc n©ng cao chÊt lîng vµ hiÖu qu¶ kinh doanh.
Híng ph¸t triÓn cña ch¬ng tr×nh : Trong t¬ng lai gÇn sÏ hoµn thiÖn c¸c chøc n¨ng vµ thùc hiÖn viÖc qu¶n lý toµn bé c¸c kho¶n vay nî trong níc vµ níc ngoµi.
Do thêi gian vµ tr×nh ®é cã h¹n cña mét sinh viªn thùc tËp, do vËy mµ ch¬ng tr×nh kh«ng thÓ tr¸nh khái nh÷ng thiÕu sãt. T«i rÊt mong nhËn ®îc sù ®ãng gãp qóy b¸u cña c¸c thÇy c« gi¸o vµ c¸c b¹n ®ång nghiÖp gÇn xa ®Ó HÖ thèng ®îc b¶o tr× vµ ph¸t triÓn tèt h¬n.
Cuèi cïng t«i xin tr©n thµnh c¶m ¬n thÇy gi¸o : TS. Cao §×nh Thi ®· tËn t×nh gióp ®ì t«i trong qu¸ tr×nh thùc tËp vµ hoµn thùc hiÖn ®Ò tµi nµy. T«i còng 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 vµ toµn thÓ c¸c anh lËp tr×nh viªn ®É tËn t×nh gióp ®ì, ®ãng gãp nh÷ng ý kiÕn quý b¸u vµ t¹o mäi ®iÒu kiÖn vÒ c¬ së vËt chÊt kü thuËt, thuËn lîi cho t«i trong qu¸ tr×nh thùc tËp t¹i phßngkü thuËt phÇn mÒm thuéc trung t©m C«ng nghÖ th«ng tin cña NHN0&PTNT ViÖt nam vµ ®Ò lµm ®Ò tµi nµy.
Hµ Néi th¸ng 5 n¨m 2002
Ngêi thùc hiÖn
NguyÖn Ngäc Toµn
*****************************************************************
Mét sè Module cña ch¬ng tr×nh
*****************************************************************’
‘Toµn bé cèt cña form 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 1
Sukien = "Themmoi"
Case 3
Sukien = "Suadoi"
Case 2
If Sukien = "Suadoi" Then
CmdSuadoi
End If
If Sukien = "Themmoi" Then
CmdSave
End If
Case 4
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
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
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
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)
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
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 > 0 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 nµy cÇn ®a vµo tµi kho¶n nµo ?", vbCritical, "Th«ng b¸o"
End If
' KiÓm tra sè tiÒm vay ph¶i < Sè tiÒn Tho¶ thuËn 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 h¬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)
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) > 1 Then
MsgBox "Kho¶n vay kh«ng thÓ 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 & "' " & _
",CanboXN='" & TxtCBTD.Text & "',Daidien='" & TxtDaidien.Text & "' " & _
",Chinhanh='" & Txtchinhanh.Text & "',Taikhoan='" & TxtTaikhoan.Text & "'" & _
" where Masokv='" & Txtsohieuvay.Text & "'"
Cn.Execute (Sql)
Load ' Sua lai du lieu
MsgBox "Kho¶n vay ®· söa ch÷a", vbInformation, "Th«ng b¸o"
End Sub
Private Sub CmdDelete()
Dim ThamSoDele As String
Dim Bien As String
ThamSoDele = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
Sql = "select Sum(giatri) as SUMGT from Ruttien where MasoKV='" & ThamSoDele & "'"
Set Rs = New ADODB.Recordset
Set Rs = Cn.Execute(Sql)
If Rs.Fields(0) >= TxtGiatri.Text Then
Lu ch÷ c¸c kho¶n vay
Sql = "insert into Lutru Select * from Hosovayvon where maoskv='" & ThamSoDele & "'"
Cn.Execute (Sql)
Sql = "Delete * from Hosovayvon Where MasoKV='" & ThamSoDele & "'"
Bien = MsgBox("Xo¸ kho¶n vay vay cã m·" & ThamSoDele, vbCritical + vbYesNo, "Th«ng b¸o")
If Bien = 6 Then
Cn.Execute (Sql)
Load
End If
End If
End Sub
Private Sub cmdFind() 'T×m theo m· hå s¬
Sql = "Select * from Hosovayvon Where Masohs ='" & Txtsohieuvay.Text & "' "
Set Rs = New ADODB.Recordset
Set Rs = Cn.Execute(Sql)
Rs.Open Sql, Cn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount > 0 Then
Mdlpublic.FillMSgrid Rs, MSFlexGrid1
FlextToTxt
MSFlexGrid1.FormatString = "M· sè HS|^ Ngµy XN|^Ngo¹i tÖ|^ Ng©n hµng | ^Lo¹i vay |^ Nguån vèn | " & _
"Vèn tù cã|^Gi¸ trÞ KV| ¢n h¹n| ^ Nhu cÇu |^B§Tr¶ l·i|^Gi¶m l·i|^Ch¬ng tr×nh|^KiÓu tr¶ |^ H×nh thøc vay|^ " & _
"Thêi gian |^ Ph¬ng thøc|^ C¸n bé |^ §¹i diÖn |^ Chi nh¸nh| ^Tµi kho¶n"
Else
MsgBox "Kh«ng cã kho¶n vay cã m· sè : " & Txtsohieuvay.Text, vbInformation, " Th«ng b¸o "
End If
End Sub
Private Sub FlextToTxt()
Txtsohieuvay.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
MaskEdBox.Text = Format(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1), "DD/MM/YYYY")
TxtLoaiNT.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
TxtNganhang.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3)
TxtLoaivay.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4)
TxtNguonvon.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5)
TxtVONTUCO.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6)
TxtGiatri.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7)
TxtNGAYANHAN.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 8)
TxtNhucau.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 9)
TxtBATDAUTRA.Text = Format(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 10), "DD/MM/YYYY")
CmbGIAMLAI.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 11)
TxtChuongt.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 12)
TxtKieutra.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 13)
TxtHTvay.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 14)
TxtThoigian.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 15)
TxtPTvay.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 16)
TxtCBTD.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 17)
TxtDaidien.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 18)
Txtchinhanh.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 19)
TxtTaikhoan.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 20)
End Sub
‘********************************************************************’
‘Cèt cña form Qu¶n trÞ c¸c user
Dim Sql As String
Dim Themsua As String
Private Sub cmdghi_Click()
Dim a, b, c, d As String
On Error GoTo Loi
a = Me.txtMaso
b = Me.txtMatkhau
c = Me.txtQuyenTC
d = Me.txtTenUser
e = Me.txttendd.Text
f = Me.txtTenGhiChu.Text
If a = "" And c = "" Then
MsgBox "M· sè vµ quyÒn kh«ng ®îc rçng", vbOKOnly + vbExclamation, "Th«ng b¸o"
Me.txtMaso.SetFocus
Exit Sub
End If
If b = "" Then
b = " "
End If
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 hiÖn 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
Me.cmdthem.Enabled = True
TextDisable
TextClear
Exit Sub
Loi:
Dim user_err
user_err = "M· Lçi : " & Err & " -> " & Err.Description
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
Private Sub cmdXOA_Click()
Dim FormatString As String
Dim Thong_Bao As String
On Error GoTo Loi
Thong_Bao = MsgBox("B¹n cã ch¾c ch½n xo¸ b¶n ghi nµy 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 b¶n 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 "
Set Rs = Cn.Execute(Sql)
GridUser.Cols = 3
GridUser.FormatString = Header
i = 1
If Not Rs.EOF Then
Rs.MoveFirst
GridUser.Rows = 1
Do While Not Rs.EOF
GridUser.Rows = GridUser.Rows + 1
GridUser.Row = GridUser.Rows - 1
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 = 1
GridUser.Rows = 2
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
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, 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)
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
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 1
Sukien = "Themmoi"
Case 3
Sukien = "Suadoi"
Case 2
If Sukien = "Suadoi" Then
CmdSuadoi
End If
If Sukien = "Themmoi" Then
CmdSave
End If
Case 4
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
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
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
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)
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
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 > 0 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 nµy cÇn ®a vµo tµi kho¶n nµo ?", vbCritical, "Th«ng b¸o"
End If
' KiÓm tra sè tiÒm vay ph¶i < Sè tiÒn Tho¶ thuËn 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 h¬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)
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) > 1 Then
MsgBox "Kho¶n vay kh«ng thÓ 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 & "' " & _
",CanboXN='" & TxtCBTD.Text & "',Daidien='" & TxtDaidien.Text & "' " & _
",Chinhanh='" & Txtchinhanh.Text & "',Taikhoan='" & TxtTaikhoan.Text & "'" & _
" where Masokv='" & Txtsohieuvay.Text & "'"
Cn.Execute (Sql)
Load ' Sua lai du lieu
MsgBox "Kho¶n vay ®· söa ch÷a", vbInformation, "Th«ng b¸o"
End Sub
Private Sub CmdDelete()
Dim ThamSoDele As String
Dim Bien As String
ThamSoDele = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
Sql = "select Sum(giatri) as SUMGT from Ruttien where MasoKV='" & ThamSoDele & "'"
Set Rs = New ADODB.Recordset
Set Rs = Cn.Execute(Sql)
If Rs.Fields(0) >= TxtGiatri.Text Then
Lu ch÷ c¸c kho¶n vay
Sql = "insert into Lutru Select * from Hosovayvon where maoskv='" & ThamSoDele & "'"
Cn.Execute (Sql)
Sql = "Delete * from Hosovayvon Where MasoKV='" & ThamSoDele & "'"
Bien = MsgBox("Xo¸ kho¶n vay vay cã m·" & ThamSoDele, vbCritical + vbYesNo, "Th«ng b¸o")
If Bien = 6 Then
Cn.Execute (Sql)
Load
End If
End If
End Sub
Private Sub cmdFind() 'T×m theo m· hå s¬
Sql = "Select * from Hosovayvon Where Masohs ='" & Txtsohieuvay.Text & "' "
Set Rs = New ADODB.Recordset
Set Rs = Cn.Execute(Sql)
Rs.Open Sql, Cn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount > 0 Then
Mdlpublic.FillMSgrid Rs, MSFlexGrid1
FlextToTxt
MSFlexGrid1.FormatString = "M· sè HS|^ Ngµy XN|^Ngo¹i tÖ|^ Ng©n hµng | ^Lo¹i vay |^ Nguån vèn | " & _
"Vèn tù cã|^Gi¸ trÞ KV| ¢n h¹n| ^ Nhu cÇu |^B§Tr¶ l·i|^Gi¶m l·i|^Ch¬ng tr×nh|^KiÓu tr¶ |^ H×nh thøc vay|^ " & _
"Thêi gian |^ Ph¬ng thøc|^ C¸n bé |^ §¹i diÖn |^ Chi nh¸nh| ^Tµi kho¶n"
Else
MsgBox "Kh«ng cã kho¶n vay cã m· sè : " & Txtsohieuvay.Text, vbInformation, " Th«ng b¸o "
End If
End Sub
Private Sub FlextToTxt()
Txtsohieuvay.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
MaskEdBox.Text = Format(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1), "DD/MM/YYYY")
TxtLoaiNT.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
TxtNganhang.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3)
TxtLoaivay.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4)
TxtNguonvon.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5)
TxtVONTUCO.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6)
TxtGiatri.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7)
TxtNGAYANHAN.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 8)
TxtNhucau.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 9)
TxtBATDAUTRA.Text = Format(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 10), "DD/MM/YYYY")
CmbGIAMLAI.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 11)
TxtChuongt.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 12)
TxtKieutra.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 13)
TxtHTvay.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 14)
TxtThoigian.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 15)
TxtPTvay.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 16)
TxtCBTD.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 17)
TxtDaidien.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 18)
Txtchinhanh.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 19)
TxtTaikhoan.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 20)
End Sub
‘*****************************************************************
Formgiaodich()
Private Sub cmdCAPNHAT_Click(Index As Integer)
End Sub
Private Sub cmdDONG_Click()
Unload Me
End Sub
Private Sub cmdFind_Click()
cmdFinds
End Sub
Private Sub cmdFinds()
'T×m theo m· hå s¬
Thamso = txtMasoKV.Text
Sql = "Select MasoHS,Bank_ID,TenNH,Daidien,NgayXacNhan,TenNT,MaTK " & _
" from Hosovayvon Where Masohs ='" & Thamso & "' "
Set Rs = New ADODB.Recordset
' Set Rs = Cn.Execute(Sql)
'C¸c th«ng tin vÒ Kho¶n vay
Rs.Open Sql, Cn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount > 0 Then
txtMaSNH.Text = Rs.Fields(1).Value
txtTenNH.Text = Rs.Fields(2).Value
txtDaidien.Text = Rs.Fields(3).Value
txtNgayXN.Text = Rs.Fields(4).Value
txtLoai_NT.Text = Rs.Fields(5).Value
txtTK_Von.Text = Rs.Fields(6).Value
'******************************************************************************************************************************
''Th«ng tin vÒ sè lÇn tr¶ nî vµ gi¸ trÞ cô thÓ
Sql = "Select * from Lantrano Order by Lantra "
Set Rs = New ADODB.Recordset
Rs.Open Sql, Cn, adOpenKeyset, adLockPessimistic
Mdlpublic.FillMSgrid Rs, Flex1
' FlextToTxt
Else
MsgBox "Kho¶n vay cha ®îc tr¶ nî : " & Txtsohieuvay.Text, vbInformation, " Th«ng b¸o "
End If
End Sub
Private Sub Addnew()
'******************************************************************************************************************************
Dim Con As Long
' Lu sè liÖu Giao dÞch míi
If Opt_LoaiGD(1).Value = True Then
'Giao dich tra no
If Not IsDate(txtNGAY_GD) Then
txtNGAY_GD.Text = Format(CDate(txtNGAY_GD.Text), "DD/MM/YYYY")
End If
If Not IsDate(txtNGAY_CT) Then
txtNGAY_CT.Text = Format(CDate(txtNGAY_CT.Text), "DD/MM/YYYY")
End If
If txtMGD.Text = "" Then
MsgBox "Ma so Giao dich khong the trong", vbCritical, "Thong bao"
Exit Sub
End If
Con = KiemtaGD(Conlai)
If Con < txtSOTIEN.Text Then
MsgBox "So tien giao dich da lon hon So Tien con lai", vbCritical, "Thong bao"
Exit Sub
End If
Sql = " Insert Into Lantra values( )"
Set Rs = New ADODB.Recordset
Set Rs = Cn.Execute(Sql)
End Sub
Private Sub KiemtaGD(Conlai As Long)
Dim Giatri As Long
Dim Tongsotra As Long
Sql = "Select Giatri from Hosovayvon Where Masohs ='" & Trim(txtMasoKV.Text) & "'"
Set Rs = New ADODB.Recordset
Set Rs = Cn.Errors(Sql)
Giatri = Rs.Fields(0) 'Lay duoc gia tri khoan vay
Sql = "Select SUM(Giatri) from Lantra Where Masohs ='" & Trim(txtMasoKV.Text) & "'"
Set Rs = New ADODB.Recordset
Set Rs = Cn.Execute(Sql)
Tongsotra = Rs.Fields(0)
Conlai = Giatri - Tongsotra
End Sub
‘***********************************************************************************************************************************
‘Cèt cña form Qu¶n trÞ c¸c user
Dim Sql As String
Dim Themsua As String
Private Sub cmdghi_Click()
Dim a, b, c, d As String
On Error GoTo Loi
a = Me.txtMaso
b = Me.txtMatkhau
c = Me.txtQuyenTC
d = Me.txtTenUser
e = Me.txttendd.Text
f = Me.txtTenGhiChu.Text
If a = "" And c = "" Then
MsgBox "M· sè vµ quyÒn kh«ng ®îc rçng", vbOKOnly + vbExclamation, "Th«ng b¸o"
Me.txtMaso.SetFocus
Exit Sub
End If
If b = "" Then
b = " "
End If
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 hiÖn 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
Me.cmdthem.Enabled = True
TextDisable
TextClear
Exit Sub
Loi:
Dim user_err
user_err = "M· Lçi : " & Err & " -> " & Err.Description
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
Private Sub cmdXOA_Click()
Dim FormatString As String
Dim Thong_Bao As String
On Error GoTo Loi
Thong_Bao = MsgBox("B¹n cã ch¾c ch½n xo¸ b¶n ghi nµy 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 b¶n 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 "
Set Rs = Cn.Execute(Sql)
GridUser.Cols = 3
GridUser.FormatString = Header
i = 1
If Not Rs.EOF Then
Rs.MoveFirst
GridUser.Rows = 1
Do While Not Rs.EOF
GridUser.Rows = GridUser.Rows + 1
GridUser.Row = GridUser.Rows - 1
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 = 1
GridUser.Rows = 2
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
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, 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)
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
Me.txttendd.SetFocus
End If
End Sub
******************************************************************
Module Public
******************************************************************
‘Ket noi chuot
Public Sub SetMouse(ByRef frm As Form)
Dim MyConTrol
For Each MyConTrol In frm.Controls
If (TypeOf MyConTrol Is CommandButton) Or _
(TypeOf MyConTrol Is ComboBox) Or _
(TypeOf MyConTrol Is ListBox) Or _
(TypeOf MyConTrol Is TreeView) Or _
(TypeOf MyConTrol Is Toolbar) Or _
(TypeOf MyConTrol Is MSFlexGrid) Then
MyConTrol.MouseIcon = LoadResPicture("ChiTay", 2)
MyConTrol.MousePointer = 99
End If
Next
End Sub
Public Sub FillMSgrid(ByVal mrssM As ADODB.Recordset, ByVal mMsGrid As MSFlexGrid)
'use all form in project
Dim miRow As Integer 'so dong
Dim miCol As Integer 'socot
Dim miiFor As Integer
Dim mijFor As Integer
miRow = mrssM.RecordCount
miCol = mrssM.Fields.Count
mMsGrid.Cols = miCol
mMsGrid.Rows = miRow + 1
If miRow 0 Then
mrssM.MoveFirst
For miiFor = 1 To miRow
For mijFor = 0 To miCol - 1
If mrssM.Fields(mijFor) "" Then
mMsGrid.TextMatrix(miiFor, mijFor) = mrssM.Fields(mijFor)
End If
Next mijFor
mrssM.MoveNext
Next miiFor
End If
End Su
Tµi liÖu tham kh¶o
Kü thuËt lËp tr×nh C¬ së d÷ kiÖu ViSual Basic 6.0.
C¬ së d÷ liÖu SQL sever 7.0.
HÖ thèng th«ng tin qu¶n lý. TS : Tr¬ng v¨n Tó.
T¹p chÝ Ng©n hµng.( Th¸ng 1 vµ 2 n¨m 2002 ).
Các file đính kèm theo tài liệu này:
Xây dựng, thiết kế và cài đặt Hệ thống thông tin phục vụ quản lý Vốn tài trợ thương mại là nội dung của Báo cáo tổng hợp sau 3 tháng thực tập tại NHN0.DOC
