Giải thuật đăng nhọ̃p

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