III. Những nghiệp vụ tiền gửi chủ yếu
b. Các chức năng của chơng trình
Chơng trình quản lý tiền gửi tiết kiệm đợc thiết kế bao gồm nhiều bảng, Form, Macro và các Modune chơng trình. Các chức năng của nĩ bao gồm:
Chức năng cập nhật dữ liệu.
Chơng trình đợc thiết kế với giao diện ngời sử dụng cho phép nhập dữ liệu vào các bảng qua các Form với các tiêu đề và chỉ đẫn bằng tiếng Việt đồng thời bàI trí một cách hợp lý làm cho quá trình nhập dữ liệu trở nên đơn giản và thuận tiện hơn so với nhập qua bảng. Form dùng để cập nhật dữ liệu đợc thiết kế nh một hộp thoại để gợi ý một vài phơng án cho ngời dùng chọn lựa rồi tiến hành các hành động theo phơng án đĩ.
Quá trình nhập liệu phải tiến hành một cách cĩ hệ thống, các tệp dữ liệu cơ sở phải đợc cập nhật trớc tiên. Ví dụ tệp “CHINHANH”, “NHANVIEN”, “KHACHHANG”… phải đợc cập nhật trớc sau đĩ mới đến tệp “SOTIETKIEM”. Ví dụ: khi lập sổ tiết kiệm ta nhập mã khách hàng mà khơng cĩ khách hàng nào trong danh mục khách hàng thì chơng trình sẽ báo lỗi và ta phải mở Form “KHACHHANG” để cập nhật khách hàng mới sau đĩ mới mở sổ tiết kiệm cho khách hàng đĩ đợc.
Trong các Form cập nhật dữ liệu cĩ Macro dùng để thêm mới dữ liệu vào bảng. Khi cĩ hành động Click chuột vào núm lệnh “Thêm” đợc liên kết
với Macro này thì các Text box sẽ tự động làm trắng để ngời dùng thêm vào một mẩu tin mới.
Chức năng lu trữ dữ liệu.
Yêu cầu đặt ra đối với thiết kế cơ sở dữ liệu là làm thế nào để giảm thiểu đợc sự trùng lặp và d thừa dữ liệu, tạo điều kiện thuận lợi nhất cho việc tìm kiếm và sử dụng dữ liệu, tăng cờng khả năng chia sẻ dữ liệu đồng thời cĩ thể bảo mật dữ liệu.
Chơng trình đợc thiết kế bằng Microsoft Access, một hệ quản trị cơ sở dữ liệu cho phép lu trữ thơng tin trong các bảng. Hành động lu trữ dữ liệu đợc thực hiện thơng qua một Macro nh sau:
Private Sub Ghi_Click()
On Error GoTo Err_Ghi_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_ Ghi _Click: Exit Sub
Err_ Ghi _Click:
MsgBox Err.Description Resume Exit_ Ghi _Click End Sub
Chức năng tính tiền lãi và tổng tiền cuối kỳ gửi.
Đây là chức năng quan trọng của trơng trình. Nĩ là yếu tố giúp ta dễ nhận ra sự khác biệt giữa làm tiết kiệm thủ cơng với quản lý tiết kiệm cĩ sụ trợ giúp của máy tính. Với chức năng này chơng trình sã tự động tính ra tiền lãi và tổng tiền khi ta vào số tiền gốc và mã kì hạn.
Trên Form “Lập sổ tiết kiệm” cĩ các Text box “Mã kỳ hạn” và “Số tiền gốc” làm nguồn dữ liệu đầu vào cho quá trình tính tốn. Khi ta nhập vào “Mã kỳ hạn” thì lãi suất sẽ tự động hiện lên vì ứng với mỗi kỳ hạn chỉ cĩ một mức
lãi suất nhất định. Quá trình tính tốn sẽ đợc chơng trình tự động thực hiện thơng qua các hàm sau đây:
Hàm tính tiền lãi
FunctionTienlai(sotiengoc As Double, laisuat As Double, Makyhan As
string) As Double
If Makyhan = K001 Then
Tienlai = sotiengoc * laisuat * 1 ElseIf Makyhan = K003 Then
Tienlai = sotiengoc * laisuat * 3 ElseIf Makyhan = K006 Then
Tienlai = sotiengoc * laisuat * 6 EndIf
End Function
Hàm tính tổng số tiền đợc lĩnh:
Function Tongtien ( Tienlai As Double, Sotiengoc As Double) As
Double
Tongtien = Tienlai + Sotiengoc End Function
Chức năng tìm kiếm thơng tin.
Trong tất cả các chơng trình quản lý, việc sắp xếp và lu trữ dữ liệu nhằm phục vụ cho mục đích chính đĩ là tìm kiếm các thơng tin một cách nhanh chĩng. Trong chơng trình này, việc tìm kiếm thơng tin đợc tiến hành một cách thuận tiện bởi đợc sự trợ giúp của ngơn ngữ truy vấn dữ liệu (SQL) cĩ sẵn trong hệ quản trị CSDL Microsoft Access.
Quá trình tìm kiếm đợc thực hiện thơng qua các bớc: Dùng Query tạo thành các bảng ảo từ một hay nhiều bảng dữ liệu, dùng Macro để tham chiếu tới mẩu tin trên bảng ảo đĩ, cuối cùng thiết kế các Form để hiện lên nguồn dữ liệu và thơng tin tìm đợc.
Kết luận.
Cùng với sự phát triển của hệ thống ngân hàng tài chính, NHNo&PTNT Việt Nam đang tập trung cố gắng đầu t lớn vào phát triển cơng nghệ trơng tin và xem đĩ nh một lực trợ giúp, một chất xúc tác trong việc nâng cao hiệu quả cơng việc. Những khái niệm về cơ sở dữ liệu , phần mềm thế hệ thứ t, hệ chuyên gia, vệ tinh viễn thơng và vi tin học là những cơng cụ sử lý thơng tin mà các tổ chức hiện đại đã và đang sử dụng thờng ngày.
Trên đây là chơng trình quản lý tiền gửi tiết kiệm thuộc chuyên đề thực tập. Sau khi hồn thành chuyên đề này sẽ giúp em tập hợp và sâu chuỗi những dãy kiến thức đã đợc học tập trong nhà trờng và học hỏi thêm đợc nhiều kinh ngiệm cho quá trình cơng tác sau này của mình.
Phụ lục A.
Giới thiệu ch ơng trình quản lý tiền gửi tiết kiệm.
Ví dụ Form cập nhật nhân viên:
Form cập nhật chi nhánh
Command Button(núm lệnh) dùng để điều khiển Form:
Command button “Thêm”, “Xố” dùng để thêm hay xố một bản ghi. Command button “Đĩng” dùng để đĩng Form.
Command button “Ghi” để lu giữ lại bản ghi vừa mới nhập.
- Hởng ứng sự kiện Them : “ ”
Private Sub Them_Click()
On Error GoTo Err_ Them _Click DoCmd.GoToRecord , , acNewRec Exit_ Them _Click:
Exit Sub
Err_ Them _Click:
MsgBox Err.Description Resume Exit_ Them _Click
Các command buton
- Hởng ứng sự kiện Ghi : “ ”
Private Sub Ghi_Click()
On Error GoTo Err_Ghi_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_ Ghi _Click: Exit Sub
Err_ Ghi _Click:
MsgBox Err.Description Resume Exit_ Ghi _Click End Sub
- Hởng ứng sự kiện Xố : “ ”
Private Sub Xoa_Click()
On Error GoTo Err_ Xoa _Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_ Xoa _Click:
Exit Sub Err_ Xoa _Click:
MsgBox “Bạn cĩ chắc chắn muốn xĩa khơng?”, VbOkCancel, “Thơng báo” Resume Exit_ Xoa _Click
End Sub
- Hởng ứng sự kiện Đĩng : “ ”
Private Sub Dong_Click()
On Error GoTo Err_ Dong _Click DoCmd.Close
Exit_ Dong _Click: Exit Sub
Err_ Dong _Click:
Resume Exit_ Dong _Click End Sub
Form giao dịch mở sổ tiết kiệm.
Các Command Button hởngứng các sự kiện:
- Hởng ứng sự kiện Tiep : “ ”
Private Sub Tiep_Click()
On Error GoTo Err_Tiep_Click DoCmd.GoToRecord , , acNext Exit_Tiep_Click:
Exit Sub Err_Tiep_Click:
MsgBox "Khơng thể xem tiếp vì đây là mẩu tin cuối!", vbOKOnly, "Thơng báo"
Resume Exit_Tiep_Click End Sub
On Error GoTo Err_ QLai _Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_ QLai _Click: Exit Sub
Err_ QLai _Click:
MsgBox “Bạn đang ở mẩu tin đầu tiên”, VbOkonly, “Thơng báo” Resume Exit_ QLai _Click
End Sub
- Hởng ứng sự kiện Them : “ ”
Private Sub Them_Click()
On Error GoTo Err_ Them _Click DoCmd.GoToRecord , , acNewRec Exit_ Them _Click:
Exit Sub
Err_ Them _Click:
MsgBox Err.Description Resume Exit_ Them _Click
- Hởng ứng sự kiện Ghi : “ ”
Private Sub Ghi_Click()
On Error GoTo Err_Ghi_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_ Ghi _Click: Exit Sub
Err_ Ghi _Click:
MsgBox Err.Description Resume Exit_ Ghi _Click End Sub
Private Sub Xoa_Click()
On Error GoTo Err_ Xoa _Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_ Xoa _Click:
Exit Sub Err_ Xoa _Click:
MsgBox “Bạn cĩ chắc chắn muốn xĩa khơng?”, VbOkCancel, “Thơng báo” Resume Exit_ Xoa _Click
End Sub
- Hởng ứng sự kiện Đĩng : “ ”
Private Sub Dong_Click()
On Error GoTo Err_ Dong _Click DoCmd.Close
Exit_ Dong _Click: Exit Sub
Err_ Dong _Click:
MsgBox “Bạn cĩ chắc muốn thốt khơng?”,VbOKcancel, “Thơng báo” Resume Exit_ Dong _Click
End Sub
- Thuật tốn tính tiền tiết kiệm: Hàm tính tiền lãi
FunctionTienlai(sotiengoc As Double, laisuat As Double, Makyhan As
string) As Double
If Makyhan = K001 Then
Tienlai = sotiengoc * laisuat * 1 ElseIf Makyhan = K003 Then
Tienlai = sotiengoc * laisuat * 6 EndIf
End Function
Hàm tính tổng số tiền đợc lĩnh:
Function Tongtien ( Tienlai As Double, Sotiengoc As Double) As
Double
Tongtien = Tienlai + Sotiengoc End Function
Form giao dịch tra cứu thơng tin.
Khi nhân viên muốn tra cứu thơng tin về sổ tiết kiệm, khách hàng, hoặc nhân viên, chọn các mục theo ý muốn, chọn thơng tin cần tra cứu rồi C_lick vào nút ba chấm( ). Ch… ơng trình sẽ tìm thơng tin theo yeu cầu.
Thuật tốn cho Form tra cứu:
Option Compare Database
Private Sub Chon_BeforeUpdate(Cancel As Integer) Select Case Chon
Case 1:
Sotietkiem.Visible = True Khachhang.Visible = False Nhanvien.Visible = False a1.Visible = True
a2.Visible = False a3.Visible = False Case 2: Sotietkiem.Visible = False Khachhang.Visible = True Nhanvien.Visible = False a1.Visible = False a2.Visible = True a3.Visible = False Case 3: Sotietkiem.Visible = False Khachhang.Visible = False Nhanvien.Visible = True a1.Visible = False a2.Visible = False a3.Visible = True End Select End Sub
Private Sub _Click()…
On Error GoTo Err_..._Click Dim stDocName As String stDocName = "kh" DoCmd.RunMacro stDocName Exit_..._Click: Exit Sub Err_a1_Click: MsgBox Err.Description Resume Exit_..._Click End Sub
On Error GoTo Err_..._Click Dim stDocName As String stDocName = "nv" DoCmd.RunMacro stDocName Exit_..._Click: Exit Sub Err_..._Click: MsgBox Err.Description Resume Exit_..._Click End Sub
Private Sub _Click()…
On Error GoTo Err_..._Click Dim stDocName As String stDocName = "stk" DoCmd.RunMacro stDocName Exit_..._Click: Exit Sub Err_..._Click: MsgBox Err.Description Resume Exit_..._Click End Sub
Private Sub a3_Click()
On Error GoTo Err_a3_Click Dim stDocName As String stDocName = "nv" DoCmd.RunMacro stDocName Exit_a3_Click: Exit Sub Err_a3_Click: MsgBox Err.Description
Resume Exit_a3_Click End Sub
Private Sub a2_Click()
On Error GoTo Err_a2_Click Dim stDocName As String stDocName = "kh" DoCmd.RunMacro stDocName Exit_a2_Click: Exit Sub Err_a2_Click: MsgBox Err.Description Resume Exit_a2_Click End Sub
Private Sub a1_Click()
On Error GoTo Err_a1_Click Dim stDocName As String stDocName = "stk" DoCmd.RunMacro stDocName Exit_a1_Click: Exit Sub Err_a1_Click: MsgBox Err.Description Resume Exit_a1_Click End Sub
Ví dụ về kết quả tra cứu:
Kết quả tra cứu hiện ra sẽ là một mẩu tin với các thơng tin đầy đủ trên Form. Trên Form này ta cĩ thể in trực tiếp thơng tin.
C_lick vào nut In ấn. Report Sổ tiết kiệm:
Menu chính của chơng trình:
Là hệ thống menu giúp cho ngời sử dụng dễ dàng truy nhập đến các bảng, Form, các giao dịch của hệ thống. Hệ thống menu hiển thị StartUp Form, menu, toolmenu. Giấu cửa sổ Database, ngời sử dụng chỉ thao tác trên các Form, Report mà khơng cần quan tâm đến cách thức hoạt động của hệ thống
Phụ lục B.
Danh mục tài liệu tham khảo.
Tài lệu tham khảo:
Giáo trình cơ sở dữ liệu và Access 97, Th.S Trần Cơng Uốn. Giáo trình Hệ thống thơng tin quản lý, TS Trơng Văn Tú.
Giáo trình cơng ngệ phần mềm , cơng ty t vấn Tài ngân BFC, Hà Nội 10/1999.
Mục lục
Lời nĩi đầu...1
Chơng I...3
Ngân hàng và hoạt động tín dụng của ngân hàng...3
I. Ngân hàng nơng nghiệp Việt Nam...3
1. Lịch sử hình thành và phát triển...3
2. Các chức năng chủ yếu của ngân hàng...5
3. Hiện trạng về tổ chức...5
a. Lĩnh vực kinh doanh...6
b. Các loại hình dịch vụ ngân hàng cung cấp...6
c. Sơ đồ tổ chức...8
. Ban giám đốc:...9
.Phịng kế hoạch kinh doanh...9
.Phịng kế tốn ngân quỹ...9
.Phịng hành chính...9
.Phịng tổ chức cán bộ...10
.Phịng kiểm tra kiểm tốn nội bộ ...10
.Quỹ tiết kiệm trung tâm...11
II. Một số kết quả đạt đợc và khĩ khăn cịn tồn tại trong thời gian gần đây. ...13
1. Khái quát kết quả hoạt động kinh doanh trong 3 năm trở lại đây...13
a. Cơng tác huy động vốn...13
c. Kết quả tài chính...16
2. Sơ đồ tổ chức quầy tiết kiệm...16
a. Tổ chức quầy tiết kiệm...16
b. Nhiệm vụ và trách nhiệm của thành viên Quầy Tiết Kiệm...17
Trởng quầy: ...17
Kế tốn:...17
Thủ quỹ:...18
III. Những nghiệp vụ tiền gửi chủ yếu...18
1. Quy định chung...19
2. Chứng từ và hồ sơ nghiệp vụ trong huy động tiền gửi tiết kiệm...19
3. Ghi chép kế tốn giao dịch tiền gửi tiết kiệm...20
Ghi chép với khách hàng của quầy tiết kiệm...20
Ghi chép đối với quầy tiết kiệm của chi nhánh...21
4. Quy trình thu - nhận tiền gửi. (Sơ đồ hình 1)...21
5. Quy trình trả tiền tiết kiệm...22
Khách hàng rút tiền gốc và lãi:...22
Khách hàng rút tiền lãi:...22
6. Chuyển kỳ hạn mới cho sổ tiết kiệm đã gửi...23
Phơng pháp tính lãi:...23
8. Đối chiếu và lu trữ cuối ngày...24
9. Những vấn đề liên quan dén tiền gửi và giấy chứng nhận tiền gửi...24
2 Khơng cho ngời khác rút tiền: ...25
Thơng báo và đăng kí giấy chứng nhận tiền gửi :...25
Chơng II...27
Thiết kế chơng trình quản lý tiền gửi tiết kiệm tại ngân hàng nơng nghiệp và phát triển nơng thơn thanh trì...27
1. Thiết kế cơ sở dữ liệu bằng phơng pháp mơ hình hố...27
a. Những khái niệm về thơng tin và cơ sở dữ liệu...27
b. Các thành phần cơ sở dữ liệu:...28
c. Hệ quản trị cơ sở dữ liệu...29
2. Cơ sở dữ liệu cho hệ thống quản lý tiền gửi tiết kiệm...30
a. Sơ đồ luồng thơng tin của hệ thống quản lý tiết kiệm...30
Các ký pháp của sơ đồ:...30
Sử lý:...30
Kho lu trữ dữ liệu:...30
Dịng thơng tin:...30
Quy trình lập sổ tiền gửi tiết kiệm:...31
Quy trình thu nhận tiền gửi:...33
Quy trình chi - trả tiền gửi tiết kiệm...34
Quy trình chuyển kỳ hạn...35
b. Sơ đồ luồng dữ liệu:...36
Các ký pháp dùng trong sơ đồ DFD:...36
Sơ đồ ngữ cảnh(DFD mức 0)...36
DFD mức 1:...38
Hệ Thống DFD mức 2...40
Hệ thống gửi tiết kiệm:...40
Sơ đồ sử lý rút tiền:...42
Sơ đồ sử lý chuyển kỳ hạn:...43
Hệ thống tra cứu:...44
c. Tạo các bảng dữ liệu...44
Chi tiết bảng loại tiền:...45
Chi tiết bảng chi nhánh...46
Chi tiết bảng tài khoản...46
Chi tiết bảng kỳ hạn...47
Chi tiết bảng quầy...48
Chi tiết bảng khách hàng...48
Chi tiết bảng nhân viên...49
...50
Chi tiết bảng sổ tiết kiệm...50
Chi tiết bảng giao dịch quỹ...51
Chi tiết bảng giao dịch...52
Bảng chi tiết giao dịch quỹ...54
Tạo mối quan hệ...54
...55
3. Thiết kế chơng trình...56
a.Giới thiệu về Microsoft access...56
b. Các chức năng của chơng trình...57
Chơng trình quản lý tiền gửi tiết kiệm đợc thiết kế bao gồm nhiều bảng, Form, Macro và các Modune chơng trình. Các chức năng của nĩ bao gồm:...57
Chức năng cập nhật dữ liệu...57
Chức năng lu trữ dữ liệu...58
Chức năng tính tiền lãi và tổng tiền cuối kỳ gửi...58
FunctionTienlai(sotiengoc As Double, laisuat As Double, Makyhan As string) As Double...59
Chức năng tìm kiếm thơng tin...59
Kết luận...60
Phụ lục A...61
Form cập nhật chi nhánh...61
FunctionTienlai(sotiengoc As Double, laisuat As Double, Makyhan As string) As Double...65
Menu chính của chơng trình:...71
Phụ lục B...72