Chức năng: Mụ tả quỏ trỡnh đăng nhập vào menu làm việc chớnh
Hỡnh 3.12 Giải thuật đăng nhập
3.4.2 Giải thuật nhập dữ liệu
Chuyờn đề thực tập tốt nghiệp
Chức năng: Mụ tả quỏ trỡnh nhập dữ liệu
Hỡnh 3.13 Giải thuật nhập dữ liệu
Chuyờn đề thực tập tốt nghiệp
3.4.3 Giải thuật sửa đổi dữ liệu
Chức năng: Mụ tả quỏ trỡnh tỡm và sửa đổi dữ liệu
Chuyờn đề thực tập tốt nghiệp
3.4.4 Giải thuật huỷ dữ liệu
Hỡnh 3.15 Giải thuật huỷ dữ liệu
Chuyờn đề thực tập tốt nghiệp
3.4.5 Giải thuật hiển thị và in bỏo cỏo
Chức năng: Mụ tả quỏ trỡnh in bỏo cỏo và hiển thị bỏo cỏo cỏc loại như bỏo
cỏo số dư cú, bỏo cỏo số tiền gửi và rỳt theo thỏng
Hỡnh 3.16 Giải thuật hiển thị và in bỏo cỏo
Chuyờn đề thực tập tốt nghiệp
3.4.6 Giải thuật tỡm kiếm và xử lý dữ liệu
Chức năng: Mụ tả quỏ trỡnh tỡm kiếm dữ liệu và sự tương tỏc với dữ liệu
được tỡm kiếm
Hỡnh 3.17 Giải thuật tỡm kiếm và xử lý dữ liệu
Chuyờn đề thực tập tốt nghiệp
3.4.7 Giải thuật tớnh và in bỏo cỏo số tiền gửi – rỳt – dư cú của khỏch hàng
Hỡnh 3.18 Giải thuật tớnh và in bỏo cỏo số tiền gửi- rỳt - số dư cú
Chuyờn đề thực tập tốt nghiệp
3.5 Một số giao diện chớnh của chương trỡnh
Màn hỡnh đăng nhập hệ thống
Màn hỡnh menu làm việc chớnh
Chuyờn đề thực tập tốt nghiệp Màn hỡnh menu lam việc chớnh
Chuyờn đề thực tập tốt nghiệp
Màn
Chuyờn đề thực tập tốt nghiệp
Màn hỡnh cập nhật danh mục bộ phận
Chuyờn đề thực tập tốt nghiệp
Màn hỡnh cập nhật danh mục nhõn viờn
Màn hỡnh cập nhật danh mục chi nhỏnh
Chuyờn đề thực tập tốt nghiệp
Màn hỡnh cập nhật danh mục khỏch hàng
Màn hỡnh tỡm kiếm thụng tin khỏch hàng
Chuyờn đề thực tập tốt nghiệp
Màn hỡnh tỡm kiếm theo mó khỏch hàng
Màn hỡnh tỡm kiếm theo mó tài khoản
Chuyờn đề thực tập tốt nghiệp
Màn hỡnh cập nhật danh mục lói suất
Màn hỡnh cập nhật danh mục tài khoản
Chuyờn đề thực tập tốt nghiệp Màn hành giấy gửi tiền
Màn hỡnh phiếu rỳt tiền
Chuyờn đề thực tập tốt nghiệp
CHƯƠNG 4
CÀI ĐẶT VÀ ĐÁNH GIÁ SẢN PHẨM
4.1 Yờu cầu chung
4.1.1 Yờu cầu về phần cứng:
Phần mềm tương lai cú thể cài chạy độc lập, tuy nhiờn nú thớch hợp với mụi trường mạng LAN với mụ hỡnh mỏy chủ/mỏy khỏch ( Client/Server). Cỏc yờu cầu cho hệ thống mạng chạy phần mềm:
- Mỏy chủ: 2 CPU 900-MHz Pentium-based server, 512 MB RAM, RAID-5 I/O, 40GB trống. Hệ điều hành Window2000 Advanced Server hoặc cao hơn.
- Mỏy khỏch: Pentium IV-1.5 MHz , 256MB RAM, 10GB Hard disk. Hệ điều hành WindowXP hoặc Window2000 Professional.
- Giao thức mạng: TCP/IP.
4.1.2 Yờu cầu về phần mềm
Yờu cầu cài đặt phần mềm:
Chạy trờn mụi trường: Window 9x, ME, NT, 2003, XP
4.1.2 Hướng phỏt triển
Sau khi nghiờn cứu xong cú thể phỏt triển chương trỡnh trờn mạng. Đú là một chương trỡnh cú thể nõng cấp và mở rộng trong tương lai.
4.2 Đỏnh giỏ sản phẩm
Hệ thống quan lý tiền gửi ngõn hàng này sẽ mang đến hiệu quả về mặt quản lý tiền gửi trong ngõn hàng, đặc biệt là ngõn hàng nụng nghiệp và phỏt triển nụng thụn Bắc Ninh. Gúp phần giải quyết những vướng mắc trong quỏ trỡnh quản lý tiền gửi ở đõy.
Những ưu điểm của sản phẩm:
- Theo dừi chớnh xỏc tỡnh hỡnh tiền gửi, khỏch hàng…
Chuyờn đề thực tập tốt nghiệp
- Đưa ra những thụng tin nhanh chúng chớnh xỏc cho quỏ trỡnh lờn bỏo cỏo
+ Giao diện bằng tiếng Việt theo chuẩn Unicode
+ Màn hỡnh chớnh thiết kế thõn thiện, cú hướng dẫn tổng thể cũng như chi tiết từng chức năng con của hệ thống.
+ Cỏc màn hỡnh cập nhật dữ liệu về cơ bản phải thống nhất về cỏc nỳt lệnh cũng như về màu sắc, fonts chữ, ...
Chuyờn đề thực tập tốt nghiệp
KẾT LUẬN
Trong quỏ trỡnh thực tập tại cơ sở em đó được tỡm hiểu, nghiờn cứu và thực hiện cỏc cụng việc:
Một là, tỡm hiểu quy trỡnh làm một phần mềm cụng nghiệp: được cỏn bộ phần mềm của cụng ty giảng về cỏc giai đoạn làm phần mềm cụng nghiệp.
Hai là, tham khảo một số tài liệu về thiết kế, lập trỡnh
Ba là, được cụng ty đề xuất và thiết kế thử phần mềm “Quản lý tiền gửi ngõn hàng” trờn cơ sở cỏc nghiệp vụ do cụng ty cung cấp cũng như quỏ trỡnh nghiờn cứu để hoàn thiện đề tài, em đó thực hiện được những cụng việc cụ thể sau:
- Tỡm hiểu vềt thực trạng của cụng ty, ngõn hàng nụng nghiệp và phỏt triển nụng thụn Bắc Ninh và cỏc vấn đề tồn tại trong cỏc tổ chức này.
- Mụ hỡnh hoỏ bài toỏn “ Xõy dựng HTTT quản lý tiền gửi trong ngõn hàng” dưới dạng cỏc sơ đồ chức năng kinh doanh (BFD), luồng dữ liệu (DFD), luồng thụng tin (IFD).
- Chọn hệ quản trị CSDL và thiết kế dữ liệu cho chương trỡnh - Thiết kế giải thuật, giao diện, bỏo cỏo cho chương trỡnh. - Cuối cựng, là quỏ trỡnh viết code cho chương trỡnh.
Chương trỡnh “ quản lý tiền gửi ngõn hàng” sau một thời gian phõn tớch, thiết kế đó đạt được kết quả sau đõy:
o Quản lý được cỏc danh mục từ điển
o Cung cấp cỏc cụng cụ tỡm kiếm nhanh và hiệu quả o Lờn được cỏc bỏo cỏo
o Việc xử lý dữ liệu diễn ra nhanh chúng và hiệu quả o Giao diện dễ nhỡn, dễ sử dụng
Chuyờn đề thực tập tốt nghiệp
o Ngoài ra, hệ thống cú thể được mở rộng hơn (nếu cần thiết). Vớ dụ, nếu ngõn hàng muốn mở rộng quy mụ, số lượng nhõn viờn tăng lờn, số lượng khỏch hàng tăng lờn, ngõn hàng muốn thắt chặt mối quan hệ hơn với khỏch hàng. Hệ thống cú thể được mở rộng bằng việc thờm một số bảng quản lý về thụng tin nhõn viờn và thụng tin khỏch hàng.
Khi thực hiờn đề tài này, em đó cố gắng để đưa ra một sản phẩm hoàn thiện va sản phẩm đó cú những tớnh năng cơ bản như trong phõn tớch thiết kế. Tuy nhiờn do hạn chế về mặt thời gian và kiến thức, đề tài vẫn cũn một số thiếu sút nhất định (hai chức năng là phõn quyền và lờn bỏo cỏo doanh thu chưa hoàn thiện). Em rất mong ý kiến đúng gúp của thầy cụ để cho đề tài hoàn thiện hơn.
Em xin chõn thành cỏm ơn thầy giỏo – ThS. Nguyễn Văn Thư đó đưa ra những ý kiến đúng gúp bổ ớch để giỳp đỡ em thực hiện đề tài này. Tụi cũng xin gửi lời cảm ơn chõn thành tới cỏc anh chị trong cụng ty TSTC và Agribank Bắc Ninh và cỏc bạn cựng lớp để tụi hoàn thành đề tài này!
Hà Nội, Thỏng 4 năm 2008
Sinh viờn
Nguyễn Thị Kim Giang
Chuyờn đề thực tập tốt nghiệp
DANH MỤC TÀI LIỆU THAM KHẢO
1. Giỏo trỡnh Cấu trỳc dữ liệu và Giải thuật, PGS. TS Hàn Viết Thuận, NXB Thống Kờ, Hà Nội 2005.
Bài giảng vế cụng nghệ phần mềm
2. Giỏo trỡnh Hệ thống thụng tin quản lý, TS. Trương Văn Tỳ – TS. Trần Thị
Song Minh, NXB Hà Nội 2000.
3. Tài liệu nội bộ và cụng khai của cụng ty TSTC
4. Những bài thực hành cơ sở dữ liệu Visual Basic cơ bản, KS. Đinh Xuõn Lõm, nhà xuất bản thống kờ 2006
5. Crystal Report 10.0 HelpFile 6. Visual Basic 6.0 HelpFile
Chuyờn đề thực tập tốt nghiệp
PHỤ LỤC CHƯƠNG TRèNH ( MỘT SỐ CODE CHÍNH)
1. Modul truy nhập chương trỡnh (mật khẩu)
Dim rs As ADODB.Recordset Dim rs1 As ADODB.Recordset Dim rsLs As ADODB.Recordset Dim addingLs As Boolean
Dim Tg As String Dim t As String Dim s As String
Private Sub cmdCancel_Click() End
End Sub
Private Sub cmdOK_Click() Dim s As String
Dim Tg As String
If txtUsername = "" Then
MsgBox "Ban hay nhap ten su dung ", vbOKOnly + vbInformation, "Thong bao"
txtUsername.SetFocus Exit Sub
End If
If txtPassword.Text = "" Then
MsgBox "Ban hay nhap mat khau ", vbOKOnly + vbInformation, "Thong bao"
txtPassword.SetFocus Exit Sub
End If
s = "SELECT * FROM danhmucnguoisudung WHERE user='" &
Trim(txtUsername.Text) & "' AND password='" & Trim(txtPassword.Text) & "'"
Set rs1 = New ADODB.Recordset
rs1.Open s, Conn, adOpenStatic, adLockOptimistic If rs1.EOF And rs1.BOF Then
MsgBox "Bạn hãy nhập lại tên truy cập và mật khẩu", vbInformation, "Thong bao"
Chuyờn đề thực tập tốt nghiệp txtUsername.Text = "" txtUsername.SetFocus txtPassword.Text = "" ' frmmain.mnuBaocao.Enabled = False Exit Sub
ElseIf rs1.Fields("Type") = "Administrator" Then 'frmmain.mnuBaocao.Enabled = True 'frmmain.mnuBaocao1.Enabled = True
MsgBox "ban that gioi;dang nhap thanh cong"
End If
Tg = CStr(Now) With rsLs
If addingLs = True Then .AddNew '!makh = txtMakhach.Text !tennguoisudung = txtUsername.Text !thoidiem = Tg End If .Update End With tennguoisudung = txtUsername.Text thoigian = Tg Unload frmlogin frmmain.Show End Sub
Private Sub Form_Load()
Set Conn = New ADODB.Connection
gConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source = " & App.Path & "\data.mdb;" & _
"Persist Security Info = False"
';Jet OLEDB:Database Password=hoanglinh" Conn.CursorLocation = adUseClient
Conn.Open gConnectionString Call CenterMyForm(Me)
Set rs = New ADODB.Recordset
rs.Open "Select * from danhmucnguoisudung", Conn, adOpenStatic, adLockOptimistic
Chuyờn đề thực tập tốt nghiệp
Set rsLs = New ADODB.Recordset
rsLs.Open "select * from slDangnhap", Conn, adOpenStatic, adLockOptimistic
addingLs = True End Sub
Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End If Call CheckString(KeyAscii) End Sub
Private Sub txtUsername_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii)
End Sub
Private Sub Form_Unload(Cancel As Integer) ' End Sub
2. Modul cập nhật danh mục Bộ phận ( Cỏc modul cập nhật danh mục khỏc tương tự)
Option Explicit
Dim AddingBophan As Boolean Dim rsBophan As ADODB.Recordset Private Sub cmdBoqua_Click()
AddingBophan = False ResetValues cmdboqua.Enabled = False cmdthem.Enabled = True cmdxoa.Enabled = True cmdluu.Enabled = False cmdsua.Enabled = True txtMabophan.Enabled = False txtTenbophan.Enabled = False End Sub 95
Chuyờn đề thực tập tốt nghiệp Private Sub cmdthoat_Click() If AddingBophan Then
If MsgBox(" Ban muon luu lai ban ghi vua nhap khong? ", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
Call cmdluu_Click Exit Sub End If End If AddingBophan = False Unload Me End Sub
Private Sub cmdSua_Click() AddingBophan = False cmdthem.Enabled = False txtTenbophan.Enabled = True cmdluu.Enabled = True
End Sub
Private Sub cmdluu_Click() Dim s As String
If Len(Trim(txtMabophan.Text)) = 0 Then
MsgBox "Ban phai nhap ma bo phan truoc ", vbOKOnly + vbInformation, "Thong bao"
txtMabophan.Enabled = True txtMabophan.SetFocus
Exit Sub End If
'Kiem tra khoa xem da co chua neu chua co thi cho phep ghi vao If rsBophan.RecordCount <> 0 Then
s = "select MaBP from danhmucbophan where MaBP='" & Trim(txtMabophan.Text) & "'"
If CheckKey(s) And AddingBophan Then
MsgBox "Ma bo phan nay trung ban phai nhap ma khac ", vbOKOnly + vbInformation, "Thong bao"
txtMabophan.SetFocus txtMabophan.Text = "" Exit Sub End If End If If rsBophan.RecordCount <> 0 Then 96
Chuyờn đề thực tập tốt nghiệp
s = "select TenBP from danhmucbophan where TenBP ='" & Trim(txtTenbophan.Text) & "'"
If CheckKey(s) And AddingBophan Then
MsgBox "lai suat này đã có, bạn phải nhập lai suat khác. ", vbOKOnly + vbInformation, "Thong bao"
txtTenbophan.SetFocus txtTenbophan.Text = "" Exit Sub End If End If If Len(Trim(txtTenbophan.Text)) = 0 Then
MsgBox "Bạn phải nhập tên lãi suất ", vbOKOnly + vbInformation, "Thong bao"
txtTenbophan.SetFocus Exit Sub
End If
If rsBophan.RecordCount <> 0 Then
s = "select TruongBP from danhmucbophan where TruongBP='" & Trim(txtTruongbophan.Text) & "'"
If CheckKey(s) And AddingBophan Then
MsgBox "Ban co chac co bo phan nay khong ", vbOKOnly + vbInformation, "Thong bao"
txtTruongbophan.SetFocus txtTenbophan.Text = "" Exit Sub End If End If If Len(Trim(txtTruongbophan.Text)) = 0 Then
MsgBox "Ban phai nhap truong bo phan ", vbOKOnly + vbInformation, "Thong bao"
txtTruongbophan.SetFocus Exit Sub End If With rsBophan If AddingBophan Then .AddNew !MaBP = txtMabophan !TenBP = txtTenbophan !TruongBP = txtTruongbophan Else 97
Chuyờn đề thực tập tốt nghiệp !TenBP = txtTenbophan End If .Update End With AddingBophan = False cmdxoa.Enabled = True cmdthem.Enabled = True cmdboqua.Enabled = False cmdsua.Enabled = True txtMabophan.Enabled = False cmdluu.Enabled = False txtTenbophan.Enabled = False Call Display_ListView End Sub
Private Sub cmdthem_Click() cmdxoa.Enabled = False txtTenbophan.Enabled = True cmdboqua.Enabled = True cmdluu.Enabled = True cmdthem.Enabled = False cmdsua.Enabled = False AddingBophan = True ResetValues txtMabophan.Enabled = True txtMabophan.SetFocus End Sub
Private Sub Cmdxoa_Click() Dim str As String
cmdluu.Enabled = False With rsBophan
If .RecordCount > 0 Then
If MsgBox("Ban co muon xoa ban ghi nay khong? ", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
str = "Delete from danhmucbophan where MaBP ='" & Trim(txtMabophan) & "'"
Conn.Execute (str) Call ResetValues Call Display_ListView
Chuyờn đề thực tập tốt nghiệp End If
Else
MsgBox "Khong can ban ghi nay. ", vbInformation, "Thong bao"
Exit Sub End If End With End Sub
Private Sub Form_Load()
Set Conn = New ADODB.Connection
gConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source = " & App.Path & "\data1.mdb;" & _
"Persist Security Info = False"
';Jet OLEDB:Database Password=hoanglinh" Conn.CursorLocation = adUseClient
Conn.Open gConnectionString
Set rsBophan = New ADODB.Recordset
rsBophan.Open "Select * from danhmucbophan order by MaBP", Conn, adOpenStatic, adLockOptimistic CenterMyForm Me Call Display_ListView AddingBophan = False txtMabophan.Enabled = False txtTenbophan.Enabled = False cmdluu.Enabled = False cmdboqua.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) If AddingBophan Then
If MsgBox("Bạn có muốn ghi lại bản ghi vừa nhập không? ", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
Call cmdluu_Click Cancel = True Exit Sub End If End If 99
Chuyờn đề thực tập tốt nghiệp Cancel = False End Sub Sub ResetValues() txtMabophan.Text = "" txtTenbophan.Text = "" txtTruongbophan.Text = "" End Sub
Private Sub Display_ListView()
Dim rs As New ADODB.Recordset Dim str As String
Dim mitem As ListItem Lsvitem.ListItems.Clear
str = "Select * from danhmucbophan order by MaBP asc" rs.Open str, Conn, adOpenKeyset, adLockOptimistic If rs.EOF = False Then
While Not rs.EOF
Set mitem = Lsvitem.ListItems.Add(, , rs!MaBP) mitem.SubItems(1) = rs!TenBP mitem.SubItems(2) = rs!TruongBP rs.MoveNext Wend End If End Sub
Private Sub lsvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) txtMabophan.Text = Item.Text
txtTebophan.Text = Item.SubItems(1) txtTruongbophan.Text = Item.SubItems(2) End Sub
Private Sub txtMabophan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{TAB}" End If End Sub 100
Chuyờn đề thực tập tốt nghiệp
Private Sub txtTenbophan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Call cmdluu_Click End If
End Sub
Option Explicit
Dim addingNguoidung As Boolean
Dim rsNguoidung As ADODB.Recordset
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyCode
End Sub
3. Modul chương trỡnh quản lý người dựng
Private Sub Form_Load()
Set rsNguoidung = New ADODB.Recordset
rsNguoidung.Open "Select * from danhmucnguoisudung", Conn, adOpenStatic, adLockOptimistic
Set Grid1.DataSource = rsNguoidung Call CenterMyForm(Me) addingNguoidung = False lblSua.Visible = False txtTendangnhap.Enabled = False cmdGhilai.Enabled = False cmdBoqua.Enabled = False cmdKetiep.Enabled = True cmdQuaylui.Enabled = True 'indowsXPC1.InitSubClassing End Sub
Private Sub cboloainguoidung_Change() Call Scroll_Combo(cboLoainguoidung) End Sub
Chuyờn đề thực tập tốt nghiệp Private Sub cmdBoqua_Click() addingNguoidung = False Call ResetValues cmdBoqua.Enabled = False cmdThemmoi.Enabled = True cmdGhilai.Enabled = False cmdXoa.Enabled = True cmdQuaylui.Enabled = True cmdKetiep.Enabled = True Call DisplayData txtTendangnhap.Enabled = False End Sub
Private Sub Cmddong_Click() If addingNguoidung Then
If MsgBox("Bạn muốn ghi bản ghi vừa nhập khụng? ", vbYesNo + vbInformation, "Thong bao") = vbYes Then
Call Cmdghilai_Click Exit Sub End If End If addingNguoidung = False Unload Me End Sub
Private Sub Cmdghilai_Click() On Error Resume Next
Dim s As String
If Len(Trim(txtTendangnhap.Text)) = 0 Then
MsgBox "Bạn hóy nhập tờn đăng nhập ", vbInformation, "Thong bao"
txtTendangnhap.SetFocus Exit Sub
End If
'Kiem tra khoa xem da co chua neu chua co thi cho phep ghi vao If rsNguoidung.RecordCount <> 0 Then
s = "Select user from danhmucnguoisudung where user='" & Trim(txtTendangnhap.Text) & "'"
If CheckKey(s) And addingNguoidung Then
Chuyờn đề thực tập tốt nghiệp
MsgBox "Tên đăng nhập này đã có. Bạn hãy chọn tên khác ", vbOKOnly, "Thong bao"
txtTendangnhap.SetFocus txtTendangnhap.Text = "" Exit Sub End If End If If Len(Trim(cboLoainguoidung.Text)) = 0 Then
MsgBox "Bạn hãy nhập loại ngời dùng ", vbInformation, "Thong bao"
cboLoainguoidung.SetFocus Exit Sub
End If
If txtMatkhau.Text = "" Then
MsgBox "Bạn hãy nhập mật khẩu ", vbInformation, "Thong bao" txtMatkhau.SetFocus
Exit Sub End If
If Len(txtMatkhau.Text) < 5 Then
MsgBox "Mật khẩu phải có ít nhất 5 ký tự. Bạn hãy nhập lại mật khẩu. ", vbInformation, "Thong bao"
txtMatkhau.Text = "" txtMatkhau.SetFocus Exit Sub
End If
If txtTennguoidung.Text = "" Then
MsgBox "Bạn hãy nhập tên của ngời dùng ", vbInformation, "Thong bao" txtTennguoidung.SetFocus Exit Sub End If With rsNguoidung If addingNguoidung Then .AddNew !User = txtTendangnhap.Text !Password = txtMatkhau.Text !Name = txtTennguoidung.Text !Type = cboLoainguoidung.Text Else !Password = txtMatkhau.Text 103
Chuyờn đề thực tập tốt nghiệp !Name = txtTennguoidung.Text !Type = cboLoainguoidung.Text End If .Update End With addingNguoidung = False cmdXoa.Enabled = True cmdThemmoi.Enabled = True cmdBoqua.Enabled = False cmdKetiep.Enabled = False cmdQuaylui.Enabled = True cmdGhilai.Enabled = False txtTendangnhap.Enabled = False End Sub
Private Sub Cmdketiep_Click() On Error GoTo errsNguoidung