IV. thiết kế chơng trình
1. Yêu cầu với hệ thống mới
Về mặt hệ thống:
- Tập trung quản lý thống nhất cơ sở dữ liệu và chơng trình, thực hiện phân chia quyền hạn hợp lý nhằm làm cho hệ thống không bị rối loạn.
- Mỗi ngời sử dụng đều có một tên (username) và mật khẩu (Password) để tránh truy nhập trái phép. Mật khẩu cần đợc mã hoá.
- Khả năng cập nhật các thay đổi từ môi trờng ngoài (Tỉ giá hối đoái) và môi trờng bên trong (các quy định mới về lãi suất, kỳ hạn, ) linh hoạt hơn.…
- Thờng xuyên có những thông báo cần thiết trong quá trình làm việc để ngời sử dụng biết mình đang thao tác gì, trạng thái của hệ thống ra sao. Chơng trình phải có những tính năng tra cứu cần thiết để cung cấp thêm các thông tin cho ngời sử dụng (VD: Thông tin về những ngời sử dụng trong hệ thống, thông tin về tỉ giá, lãi suất ).… - Ngoài các báo cáo, sao kê theo quy định, chơng trình quản lý tiền gửi tiết kệm cần phải có những tiện ích cho phép ngời sử dụng tra cứu các tập thông tin cần thiết (Tỉ giá, lãi suất, thông tin ngời sử dụng). Các thông tin này giúp ngời sử dụng có thể đối chiếu, so sánh với các chứng từ khi cần thiếthoặc giải quyết những thắc mắc, khiếu nại từ phía khách hàng.
- Giao diện đẹp, thuận tiện cho mọi thao tác, gây thiện cảm với ngời sử dụng.
- Hệ thống phải đợc thiết kế mềm dẻo, thông minh, thuận tiện cho việc cải tiến, nâng cấp về sau.
Về mặt nhập liệu:
- Tự động điền những tham số cần thiết.
- Kiểm tra chặt chẽ các bớc nhập nhằm tránh sai sót.
- Giảm thiểu những thao tác không đáng có (Tự động chuyển sang phần khác khi nhập xong một phần).
Về mặt truy cập thông tin:
Đảm bảo truy cập thông tin nhanh chóng, an toàn. Về mặt in ấn:
- Tận dụng tối đa khả năng in ấn trong Windows với nhiều loại máy in, font chữ.
sử dụng, hệ chơng trình quản lý tiền gửi tiết kiệm đợc tổ chức theo nguyên tắc sau: Chơng trình và dữ liệu đợc tập trung, thống nhất tại máy tính phòng kế toán, các bàn gửi sử dụng hệ thống mạng để khai thác dữ liệu.
Mỗi ngời sử dụng có một mức (level) truy cập tài nguyên khác nhau đợc khai báo từ khi cài đặt.
Mỗi ngời sử dụng có một th mục riêng chứa các dữ liệu riêng của mình, khi truy cập, căn cứ vào tên truy cập (loginname) và đúng mật khẩu (password), ngời sử dụng đợc truy cập dữ liệu trong th mục của mình.
Các dữ liệu dùng chung nh các thông số về lãi suất, kỳ hạn, loại tiền gửi, đ… ợc lu trong th mục riêng của phòng kế toán, các bàn gửi chỉ đợc tra cứu, sử dụng.
Th mục chứa chơng trình, các mẫu báo cáo, sao kê có th mục riêng để mọi ngời trong hệ thống cùng đợc sử dụng.
Phòng kế toán đợc quyền khai thác, tổng hợp các dữ liệu của các bàn gửi để lập ra các báo cáo cần thiết.
Cấu trúc của hệ chơng trình nh sau:
Th mục chứa chơng trình <QLTK> có các th mục con và các tệp sau: + <FORMS> : Th mục chứa các biểu mẫu dùng chung.
+ <MODULS> : Th mục chứa các modul chơng trình. + <DESIGNERS> : Th mục chứa các báo cáo dùng chung.
+ <BACKUP> : Th mục chứa một số th mục con bao gồm ADMIN, th mục chứa dữ liệu bàn gửi dùng để chứa các dữ liệu đã bị xoá.
+ Tệp qltk.exe đã mã hoá ra ngôn ngữ máy dùng để chạy chơng trình.
Nh vậy, khi sử dụng hệ chơng trình, ngời sử dụng sẽ truy cập vào mạng, ánh xạ(map) th mục QLTK từ Server làm ổ đĩa mạng rồi sau đó khai báo tên(username) khi login vào mạng và khi bắt đầu chạy chơng trình thì ngời dùng đã có tên sẵn, do đó chỉ phải nhập password để chạy chơng trình.
3.1.1. Thực đơn chính.
Thực đơn này bao gồm những phần sau: Hệ thống, Giao dịch, Thông tin chung, Thông tin về bàn gửi, Thông tin chung, In báo cáo, sao kê.
3.1.2. Thực đơn hệ thống.
Thực đơn này chứa các mục chọn sau đây:
Vào hệ thống: Chức năng này cho phép ngời sử dụng có thể vào lại hệ thống, vì vậy ngời sử dụng có thể vào hệ thống với các Username và Password khác nhau.
Sao lu dữ liệu, phục hồi dữ liệu: Chức năng này cho phép Admin sao lu và phục hồi dữ liệu cho hệ thống. Ngời sử dụng không có quyền sử dụng(thực đơn này sẽ bị mờ với ngời sử dụng).
Cài đặt thêm bàn gửi tiết kiệm, Thay đổi quyền ngời sử dụng, Nhập thêm ngời sử dụng, Nhập thêm loại gửi, Thay đổi lãi suất, nhập thêm tiền sử dụng, Thay đổi tỉ giá ngoại tệ: Có tác dụng cho phép Admin thay đổi các thông số nh trên. Ngời sử dụng không có quyền sử dụng(thực đơn này sẽ bị mờ với ngời sử dụng).
Thoát khỏi hệ thống: Cho phép ngời sử dụng thoát khỏi hệ thống.
3.1.3. Thực đơn giao dịch.
Thực đơn này chứa các mục chọn sau:
Công việc đầu ngày : Vào đầu ngày mới ngời sử dụng phải chọn mục này để tạo hồ sơ ngày mới và tính lãi cho các sổ tiết kiệm không kỳ hạn và tính lãi cho các sổ tiết kiệm đã đến hạn.
Gửi có kỳ hạn, Gửi không kỳ hạn ( trong mục này có thêm thực đơn gửi mới và gửi thêm), Rút tiết kiệm( mục này có thêm thực đơn rút không kỳ hạn và rút có kỳ hạn :
Vào trong ngày khi khách hàng đến giao dịch ngời sử dụng chọn mục này để có thể gửi và rút cho khách hàng.
Công việc cuối ngày (mục này có thực đơn chuyển sổ đến hạn ): Vào cuối ngày ng- ời sử dụng phải chọn mục này để chuyển gốc vào lãi cho những sổ đến hạn mà khách hàng không đến rút và cho các sổ không kỳ hạn nếu là ngày 1/1.
3.1.4. Thực đơn thông tin chung.
Thực đơn này chứa các mục chọn sau:
Giới thiệu chơng trình, Tình trạng hệ thống : Có tác dụng giới thiệu chơng trình và tình trạng hệ thống đang sử dụng.
Các thực đơn còn lại có tác dụng cho phép ngời dùng truy cập các thông tin cần thiết để họ có thể truy cập thêm thông tin cần thiết những thông tin này chỉ có phòng kế
3.1.5. Thực đơn thông tin về bàn gửi.
Thực đơn này cho phép bàn gửi có thể xem đợc thông tin cụ thể về tình trạng bàn gửi hiện thời.
3.1.6. Thực đơn in báo cáo, sao kê.
Thực đơn này chứa các chức năng tạo báo cáo, sao kê của cả bàn huy động vốn và phòng kế toán.
Chức năng lập báo cáo tình hình huy động vốn đợc dùng chu cho cả bàn gửi lẫn phòng kế toán vì chúng có cùng mẫu, chỉ khác nguồn dữliệu và cách tổng hợp.
Bốn loại sao kê chi tiết chỉ có tác dụng cho bàn gửi còn phòng kế toán không có tác dụng, ba loại sao kê danh sách chỉ có tác dụng phòng kế toán còn không có tác dụng với bàn gửi.
Đây là mẫu báo cáo cơ sở để lập các báo cáo đầu ra về tình hình huy động vốn ngày, tình hình huy động tháng, tình hình huy động vốn năm đợc lập dựa trên các mẫu báo cáo sẵn có của Ngân hàng.
Đây mới chỉ là mẫu cơ bản, còn một số mẫu khác: Sao kê phát sinh rút gốc, Sao kê chi tiết sổ tiền gửi, Sao kê danh sách khách hàng Sau đây là sao kê phát sinh lãi… nhập gốc:
V. Giải pháp kỹ thuật cho hệ thống.
1. Giải pháp về phần mềm.
Chơng trình cần đợc cài đặt trên mạng máy tính để quản lý tập trung thống nhất cơ sở dữ liệu cho các bàn gửi cũng nh phòng kế toán.
• Yêu cầu về phần mềm hệ điều hành:
Hệ điều hành Microsoft Windows 9X cho các máy khách. Hệ điều hành mạng Windows NT 4.0 cho hệ thống máy chủ.
• Công cụ ngôn ngữ thiết kế hệ thống:
+ Công cụ thiết kế: Visual Basic 6.0 + Công cụ lập trình: Visual Basic 6.0
• Hệ quản trị cơ sở dữ liệu:
+ Microsoft Access 97 cho các máy khách. + Microsoft Access 97 cho các máy chủ
2. Giải pháp về phần cứng
• Môi trờng mạng LAN, hệ điều hành mạng Windows NT Server 4.0 Cấu trúc Client - server:
+ Môi trờng máy chủ:
Cấu hình tối thiểu:
1. Cấu hình tối thiểu Pentium Pro 233 MHz 2. Bộ nhớ Ram 32 MB, ổ cứng 3.2 GB HDD Cấu hình tiêu chuẩn:
1. Cấu hình tối thiểu Pentium Pro - 450 2. Bộ nhớ Ram 64 MB, ổ cứng 4.3 GB HDD
3. Máy chủ chỉ nên dùng cho hệ thống, việc cài các ứng dụng khác có thể làm ảnh hởng đến hệ thống.
4. Có ổ bằng từ để Backup
+ Môi trờng máy trạm:
Cấu hình tối thiểu: 2. Pentium 133 MHZ 3. 16 MB RAM
4. 1.7 GB HDD (trên 100 MB ổ cứng còn trống trớc khi cài ứng dụng) 5. 1 card mạng
Cấu hình tiêu chuẩn:
3. 32 MB RAM
4. 3.2 GB HDD (trên 250 MB ổ cứng còn trống trớc khi cài ứng dụng) 5. 1 card mạng
quốc doanh và hệ thống Ngân hàng Việt nam ” là một vấn đề đang đợc quan tâm và đang nằm trong dự án cải tạo, nâng cấp và phát triển của ngành Ngân hàng. Chơng trình quản lý tiền gửi tiết kiệm không chỉ áp dụng đợc với các Ngân hàng thơng mại quốc doanh mà còn có thể áp dụng đợc cho hệ thống Ngân hàng nói chung. Hiện tại đề tài đã đi sâu vào phân tích, thiết kế và xây dựng đợc hệ thống thông tin quản lý tiết kiệm từ khái quát đến chi tiết, những phần chính đã đợc kế thừa và phát triển của hệ thống cũ, bao gồm:
• Quản lý tiền gửi gửi khách hàng.
• Quản lý khách hàng.
• Xử lý các yêu cầu gửi, rút tiền hàng ngày của khách hàng.
• Quản lý các loại kỳ hạn gửi, mức lãi suất, đăng ký rút trớc hạn, đăng ký các loại tiền sử dụng…
• Tính lãi cho khách hàng, quản lý tổng số tiền gửi, rút của khách hàng.
• Theo dõi và tổng hợp đợc tình hình hoạt động gửi, rút tiền hàng ngày, định kỳ
tháng, năm để lập báo cáo cần thiết cho bộ phận lãnh đạo. Hệ thống mới đã hoàn thiện thêm đợc những nội dung sau:
• Cho phép huy động đợc nhiều loại tiền gửi khác ngoài tiền gửi Việt nam • Hoàn thiện chức năng tiền gửi rút lãi trớc
• Hoàn thiện chức năng quản lý kỳ hạn gửi.
• Bổ sung chức năng rút trớc hạn với loại sổ có kỳ hạn.
• Tận dụng đợc tối đa khả năng về đồ hoạ, giao diện và in ấn trong môi trờng
Windows(bằng cơ sở dữ liệu Microsoft Access 97 &ngôn ngữ lập trình Visual Basic 6.0) nhằm cho chơng trình có giao diện đẹp hơn trớc, các bản in đợc việt hoá 100% và có thể sử dụng nhiều loại máy in khác nhau.
• Đề tài đã tận dụng đợc những u điểm của việc sử dụng hệ thống mạng bằng việc
xây dựng hệ chơng trình thống nhất chạy trên mạng, có các dữ liệu dùng chung cùng đợc chia sẻ có các dữ liệu riêng của mỗi ngời dùng.
Tuy nhiên với thời gian hạn hẹp, lại cha có nhiều kinh nghiệm cho nên dù có cố nhiều cố nhng chơng trình không tránh những thiếu sót. Vì vậy tôi rất mong nhận đ- ợc những ý kiến đóng góp để chơng trình đợc hoàn thiện hơn nữa.
phân cấp hệ thống; kết hợp với các chơng trình quản lý vốn để tạo thành phân hệ quản lý vốn tại các Ngân hàng này.
Tài liệu tham khảo.
1. Các văn bản pháp quy về hệ thống Ngân hàng thơng mại – Lu hành nội bộ.
2. Phân tích và thiết kế hệ thống – TG: Trơng Văn Tú - NXB Khoa học & kỹ
thuật – 1994.
3. Cấu trúc dữ liệu & giải thuật – TG: PTS. Hàn Viết Thuận - NXB Thống kê - 1999.
4. Cơ sở dữ liệu – TG: Đỗ Trung Tuấn – NXB Giáo dục – 1998.
5. Microsoft Access 97 & Visual Basic for Applications từ A đến Z – TG: Trần ThanhPhong - NXB Thống kê - 1998.
6. Kỹ năng lập trình Visual Basic 6.0 – TG: PTS. Nguyễn Tiến Dũng - NXB
Thống kê - 1999.
7. Mạng căn bản – TG: Lê Phụng Long & Nguyễn Lam Trung - NXB Thống kê -
Mã lệnh của Module chơng trình
Global Loctext As String Global SNSD As String Global SMK As String Global db As Database Global db1 As Database Global rs As Recordset Global rs1 As Recordset Global nut As Integer Global ma As String Global ten As String Public Sub Main() Loctext = App.Path
If Right(Loctext, 1) <> "\" Then Loctext = Loctext & "\" MDIForm1.Show
End Sub
******************************************************************** ******
Mã lệnh của MDIFORM.
Private Sub MDIForm_Load() MDIForm1.Height = 6800 MDIForm1.Left = 0
MDIForm1.Top = 0 MDIForm1.Width = 9620 End Sub
Private Sub mnuban_Click() frmban_sd.Show
End Sub
Private Sub MDIForm_Unload(Cancel As Integer) Unload frmgioithieu
End Sub
Private Sub mnugui_them_Click() frmso_tkiem.Show
End Sub
Private Sub mnuguikyhan_moi_Click() frmguimoi_cokhan.Show
End Sub
Private Sub mnuguikyhan_them_Click() frmso_tkiem.Show
End Sub
Private Sub mnubc_ngay_Click() DataReport1.Show
End Sub
Private Sub mnugiaodich_guikyhan_Click() frmguimoi_cokhan.Show
End Sub
Private Sub mnuhethong_laisuat_Click() Form3.Show
End Sub
Private Sub Mnuhethong_loaigui_Click() frmds_kyhan.Show
End Sub
Private Sub mnuthongtinb_so_Click() frmso_tkiem.Show
End Sub
Private Sub mnuthongtinc_gioithieu_Click() frmgioithieu.Timer1.Interval = 7000
frmgioithieu.Show End Sub
Private Sub Timer1_Timer() frmmatkhau.Show
End Sub
******************************************************************** ******
Mã lệnh Form gửi tiết kiệm.
Option Explicit
Private Sub Command1_Click(Index As Integer) If Index = 2 Then Label2(14).Visible = True text3(13).Visible = True text3(13).SetFocus End If End Sub
Private Sub Form_Load() Dim i As Byte
Dim data As Database Dim rec As Recordset
Set data = OpenDatabase(loctext + "qltk.mdb", dbOpenDynaset) Set rec = data.OpenRecordset("so_tkiem")
For i = 1 To 4
Do While Not rec.EOF List1.AddItem rec.Fields("so_so") rec.MoveNext Loop rec.MoveFirst text1.Text = "" End Sub
Private Sub List1_Click() Dim i As Byte
Dim so As Single Dim data As Database Dim rec As Recordset Dim rec1 As Recordset Dim rec2 As Recordset Dim rec3 As Recordset
Set data = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rec = data.OpenRecordset("so_tkiem")
Command1(1).Enabled = True Command1(2).Enabled = True text1.Text = List1.Text
Text4.Text = List1.Text rec.MoveFirst
Do While Not rec.EOF
If List1.Text = rec.Fields(0).Value Then For i = 0 To 5 text2(i).Text = rec.Fields(i) Next i For i = 0 To 4 text3(i).Text = rec.Fields(6 + i) Next i
text3(11).Text = Val(text3(3).Text) + Val(text3(4).Text) rec.MoveNext
Loop
rec.MoveFirst
Set rec1 = data.OpenRecordset("loai_gui") rec1.MoveFirst
Do While Not rec1.EOF
If text3(2).Text = rec1.Fields(0).Value Then text3(5).Text = rec1.Fields(3).Value text3(6).Text = rec1.Fields(1).Value End If rec1.MoveNext Loop rec1.MoveFirst
Set rec2 = data.OpenRecordset("tien_sd") rec2.MoveFirst
Do While Not rec2.EOF
If text3(5).Text = rec2.Fields(0).Value Then text3(7).Text = rec2.Fields(1).Value
text3(8).Text = Val(text3(3).Text) * rec2.Fields(2).Value text3(9).Text = Val(text3(4).Text) * rec2.Fields(2).Value text3(12).Text = Val(text3(8).Text) + Val(text3(9).Text) End If
rec2.MoveNext Loop
rec2.MoveFirst
Set rec3 = data.OpenRecordset("lai_suat") Do While Not rec3.EOF
If text3(2).Text = rec3.Fields(0).Value And so < rec3.Fields(2).Value Then so = rec3.Fields(2).Value
text3(10).Text = so End If
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer) Select Case Action
Case vbDataActionMoveFirst kt = True Case vbDataActionMovePrevious kt = True Case vbDataActionMoveNext kt = True Case vbDataActionMoveLast kt = True Case vbDataActionAddNew kt = False Case vbDataActionUpdate kt = False Case vbDataActionDelete kt = False Case vbDataActionFind kt = False Case vbDataActionBookmark Case vbDataActionClose End Select End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) Dim i As Byte
Dim data As Database Dim rec As Recordset
Set data = OpenDatabase(loctext + "qltk.mdb", dbOpenDynaset) Set rec = data.OpenRecordset("so_tkiem")
If KeyAscii = 13 Then Do While Not rec.EOF
rec.MoveNext Loop
If text1.Text <> List1.Text Then
MsgBox ("Không có số sổ này, hãy vào lại ") End If
End If
rec.MoveFirst End Sub
Private Sub MaskEdBox1_GotFocus() MaskEdBox1.SelStart = 0
MaskEdBox1.SelLength = Len(MaskEdBox1.Text) End Sub
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Text1.SetFocus End If
End Sub
Private Sub Text1_GotFocus() Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Text12.SetFocus End If
End Sub
Private Sub Text12_GotFocus() Text1.SelStart = 0
Text1.SelLength = Len(Text12.Text) End Sub
Text13.SetFocus End If
End Sub
Private Sub Text13_GotFocus() Text1.SelStart = 0
Text1.SelLength = Len(Text13.Text) End Sub
Private Sub Text13_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Text2.SetFocus End If
End Sub
Private Sub Text2_GotFocus() Dim dk As String
Set db = OpenDatabase(Loctext + "hethong.mdb") Set rs = db.OpenRecordset("dmkh")
dk = "makh='" & Text13.Text & "'" rs.FindFirst dk
If rs.NoMatch = False Then
Text2.Text = rs.Fields(1).Value Command1.SetFocus Else If Len(Text2.Text) = 0 Then ttt.Show 1 Text13.Text = ma Text2.Text = ten Text5.SetFocus End If End If rs.Close db.Close
Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Command1.SetFocus End If
End Sub
Private Sub Text5_GotFocus() Text5.SelStart = 0
Text5.SelLength = Len(Text5.Text) End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Text6.SetFocus End If
End Sub
Private Sub Text6_GotFocus()
Set db = OpenDatabase(Loctext + "hethong.mdb") Set rs = db.OpenRecordset("DMVT")
dk = "mavt='" & Text5.Text & "'" rs.FindFirst dk
If rs.NoMatch = False Then
Text6.Text = rs.Fields(1).Value Text7.SetFocus Else If Len(Text5.Text) = 0 Then tt.Show 1 Text5.Text = ma Text6.Text = ten Text7.SetFocus End If End If rs.Close
Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Text17.SetFocus End If
End Sub
Private Sub Text7_GotFocus() Text7.SelStart = 0
Text7.SelLength = Len(Text7.Text) End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Text8.SetFocus End If
End Sub
Private Sub Text8_GotFocus() Text8.SelStart = 0
Text8.SelLength = Len(Text8.Text)