Phần 1:
Phần mở đầu.
Hiện nay cả thế giới đang dần chuyển sang nền kinh tế tri thức và ngành
công nghệ thông tin cũng dần dần đợc ứng dụng vào hầu hết các hoạt động trong
nền kinh tế của các quốc gia trên toàn thế giới. Việt Nam cũng đang trên con đờng
hội nhập và phát triển cùng với khu vực và thế giới, chính vì vậy việc ứng dụng tin
học trong các lĩnh vực của cuộc sống rất đợc quan tâm. Một trong những ứng dụng
đó là sử dụng tin học để quản lý tiền gửi trong một ngân hàng. Đất n ớc càng phát
triển, nhận thức của ngời dân càng mở rộng thì công việc của ngành ngân hàng
càng trở nên quan trọng, chính vì vậy việc sử dụng những thành tựu của tin học để
quản lý tiền gửi trong ngân hàng là không thể thiếu.
Trong đề án này em xin đợc sử dụng những kiến thức của mình để thiết kế
phần mềm quản lý tiền gửi trong một ngân hàng. Bởi lý do thời gian và khả năng
của bản thân còn hạn chế vì thế chắc chắn chơng trình không thể đợc hoàn thiện,
em rất mong nhận đợc sự đóng góp ý kiến và sự chỉ bảo tận tình của thầy giáo h-
ớng dẫn và của tất cả các thầy cô giáo trong khoa Tin học kinh tế.
Em xin chân thành cảm ơn!
Phần 2:
Nội Dung.
Ch ơng1 :
Mô tả hoạt động của ngành ngân hàng ngân
hàng và lý lựa chọn đề tài.
I. Mô tả hoạt động của tổ chức ngân hàng.
1. Sơ đồ tổ chức ngân hàng.

Gi¸m ®èc
Chi nh¸nh 2
Héi ®ång qu¶n trÞ
Ban tæng gi¸m ®èc
Phã tæng gi¸m ®èc Phã tæng gi¸m ®èc
Gi¸m ®èc

vay là khoản nợ đối với ngời vay, nhng là một tài sản đối với ngân hàng thơng mại
và nó mang lại thu nhập cho ngân hàng. Nói chung tiền cho vay là kém lỏng so với
các tài sản khác bởi vì chúng không thể chuyển thành tiền mặt trớc khi các khoản
cho vay đó mãn hạn. Các khoản tiền cho vay cũng có xác suất vỡ nợ cao hơn so với
các tài sản khác. Do thiếu tính lỏng và có rủi ro vỡ nợ cao nên ngân hàng thơng
mại thờng thu đợc nhiều lợi nhuận nhờ vào các món tiền cho vay.
3. Thực trạng ứng dụng tin học trong ngân hàng
Hiện nay do sự phát triển của khoa học công nghệ và ngời dân có những
nhận thức tiến bộ về việc gửi tiền trong ngân hàng cho nên trong khoảng vài năm
trở lại đây ngành ngân hàng đã có những bớc phát triển đáng kể, đặc biệt là việc áp
dụng công nghệ thông tin vào xử lý tài chính. Trong một số ngân hàng lớn hiện
nay nh các ngân hàng ở Hà Nội hay thành phố Hồ Chí Minh thì việc áp dụng tin
học vào xử tài chính là một việc đang rất đợc quan tâm . Mặc dù đã có những bớc
phát triển nh vậy nhng hiện nay việc áp dụng tin học trong hoạt động của hầu hết
các ngân hàng ở Việt Nam vẫn cha đạt hiệu quả cao, máy tính chỉ đợc sử dụng để
thực hiện những công việc đơn giản, cha khai thác hết những khả năng và giá trị
đích thực của máy tính.
II. Lý do lựa chọn đề tài.
1. Tên đề tài .
Thiết kế phần mềm quản lý tiền gửi trong một ngân hàng với các chức năng:
Nạp, Thêm, Bớt, Sửa, In. Dùng cấu trúc dữ liệu danh sách liên kết của PASCAL.
2. Lý do lựa chọn.
Đề tài giúp cho em có thể hiểu rõ hơn về hoạt động của ngành ngân hàng
đồng thời qua đó cũng giúp em hiểu biết hơn tình hình ứng dụng tin học trong
ngành ngân hàng ở nớc ta hiện nay. Qua việc thực hiện đề tài này em cũng nắm
chắc hơn những kiến thức về cấu trúc dữ liệu danh sách liên kết của PASCAL và
cách ứng dụng tin học để xử lý các công việc của ngành ngân hàng.
3. Mục đích của đề tài .
Mục đích của đề tài nhằm giúp cho sinh viên hiểu rõ hoạt động của ngành
ngân hàng, bên cạnh đó giúp cho sinh viên nắm vững hơn những kiến thức cơ bản

toán yêu cầu, bao quát đợc toàn bộ bài toán. Sau đó phân chia nhiệm vụ cần giải
quyết thành các nhiệm vụ cụ thể hơn, tức là chuyển dần từ module chính xuống
các module con từ trên xuống dới, do vậy phơng pháp có gọi là thiết kế từ đỉnh
xuống (Top down design).
3. Thiết kế các module.
Chương trình quản lý tiền gửi NH
Gửi tiền
Mở TK mới
Gửi thêm tiền
Vào TK đã có
Rút tiền
Rút tiền lãi
Rút tiền gốc
Tất toán
Huỷ tài khoản
Tìm kiếm thông
tin về KH
Báo cáo
Danh sách KH
Thông tin về KH
Thông tin về TK
Tổng tiền gửi
trong ngân hàng
4. Lý do lựa chọn phơng pháp thiết kế trên.
Chơng trình đợc thiết kế nhằm mục đích quản lý tiền gửi trong một ngân
hàng vì thế khi lựa chọn phơng pháp thiết kế trên ta có thể bao quát đợc toàn bộ
công việc. Với phơng pháp thiết kế này ta có thể nắm bắt đợc những yêu cầu
chính của công việc từ đó chia ra các module chính. Sau khi thiết kế đợc các
module chính ta có thể đi vào giải quyết từng yêu cầu trong mỗi module một
cách riêng rẽ qua việc thiết kế các module con. Nh vậy việc lựa chọn phơng

{ chuong trinh tu dong tao ra trong thu muc C:\DEANPAS cac tep KH.dat,
TK.dat, GDgui.dat, GDrut.dat va THDL.dat neu trong thu muc khong co
cac tep do hoac khi chay chuong trinh lan dau tien. Neu trong thu muc
da ton tai cac tep neu tren thi chuong trinh se lay du lieu tu cac tep do.
CHUONG TRINH QUAN LY TIEN GUI TRONG MOT NGAN
HANG
*************************************************
}
{$N+}
uses crt;
const ls=0.2;
type
khPointer=^khachhang;
khachhang=record
SoHSKH:string[7];
hoten:string[30];
diachi:string[50];
soCMT:string[9];
Ngaycap:string[10];
Next:khPointer;
end;
tkPointer=^taikhoan;
taikhoan=record
SoTaiKhoan:string[7];
SoHSKH:string[7];
SoTienTrongTK:double;
laisuat:real;
Next:tkPointer;
end;
guiPointer=^GDgui;

lsuat:real;
THDL:TongHopDL;
motKH:khachhang;
motTK:taikhoan;
motGDgui:GDgui;
motGDrut:GDrut;
FirstKH,LastKH,pKH,qKH:khPointer;
FirstTK,LastTK,pTK,qTK:tkPointer;
FirstGui,LastGui,pGui,qGui:guiPointer;
FirstRut,LastRut,pRut,qRut:rutPointer;
{ CAC PROCEDURE }
procedure Main_Menu(var chon:byte);
begin
clrscr;
window(18,7,80,25);
textcolor(2);
writeln('****************************************');
write('*');textcolor(7);
write(' MAIN MENU ');
textcolor(2);writeln('*');
write('*');textcolor(7);
write(' 1.Mo tai khoan moi ');
textcolor(2);writeln('*');
write('*');textcolor(7);
write(' 2.Gui tien vao tai khoan ');
textcolor(2);writeln('*');
write('*');textcolor(7);
write(' 3.Rut tien tu tai khoan ');
textcolor(2);writeln('*');
write('*');textcolor(7);

writeln(' 4. Bao cao tong tien gui trong NH.');
writeln(' 5. Quay ve Main menu.');
write(' ** Chon so: ');
readln(chon);
window(1,1,80,25);
end;
procedure Nap_KH;
begin
FirstKH:=nil;
end;
procedure Nap_TK;
begin
FirstTK:=nil;
end;
procedure Nap_GDgui;
begin
FirstGui:=nil;
end;
procedure Nap_GDrut;
begin
FirstRut:=nil;
end;
procedure DuyetKH;
var ptr:khPointer;
i:longint;
begin
i:=0;
ptr:=FirstKH;
while ptr<>nil do
begin

else
LastKH^.next:=ptrKH;
LastKH:=ptrKH;
end;
procedure ThemTK;
var ptrTK:tkPointer;
begin
new(ptrTK);
ptrTK^.SoTaiKhoan:=motTK.SoTaiKhoan;
ptrTK^.SoHSKH:=motTK.SoHSKH;
ptrTK^.SotientrongTK:=motTK.SotientrongTK;
ptrTK^.laisuat:=motTK.laisuat;
ptrTK^.next:=nil;
if FirstTK=nil then
FirstTK:=ptrTK
else
LastTK^.next:=ptrTK;
LastTK:=ptrTK;
end;
procedure ThemGDgui;
var ptr:guiPointer;
begin
new(ptr);
ptr^.Ngaygui:=motGDgui.Ngaygui;
ptr^.Sotaikhoan:=motGDgui.Sotaikhoan;
ptr^.tiengui:=motGDgui.tiengui;
ptr^.next:=nil;
if FirstGui=nil then
FirstGui:=ptr
else

end;
if (100<=so) and (so<1000) then
begin
str(so,s);
s:='000'+s;
end;
if (1000<=so) and (so<10000) then
begin
str(so,s);
s:='00'+s;
end;
if (10000<=so) and (so<100000) then
begin
str(so,s);
s:='0'+s;
end;
if so>=1000000 then
str(so,s);
XulySo:=s;
end;
procedure Menu_MoTK;
begin
window(5,2,80,25);
textcolor(2);
gotoxy(25,2);writeln('MO TAI KHOAN MOI');
gotoxy(25,3);writeln('----------------');writeln;
textcolor(7);
writeln('Ngay (dd/mm/yyyy): ');
write('So ho so KH: ');
gotoxy(45,6);writeln('Ky han: Thang.');

if kh=9 then
begin
k:=true;lsuat:=0.58;
end;
if kh=12 then
begin
k:=true;lsuat:=0.6;
end;
if kh=24 then
begin
k:=true;lsuat:=0.64;
end;
if kh=18 then
begin
k:=true;lsuat:=0.62;
end;
if kh=36 then
begin
k:=true;lsuat:=0.66
end;
KTraKyHan:=k;
end;
procedure MoTK;
var kt,ktra:boolean;
ptrTK:tkPointer;
ptrKH:khPointer;
sotk:longint;
c:integer;
st:string[7];
begin

motGDgui.tiengui:=motTK.SotientrongTK;
motTK.laisuat:=lsuat;
ptrTK:=FirstTK;
while ptrTK<>nil do
begin
qTK:=ptrTK;
ptrTK:=ptrTK^.next;
end;
st:=qTK^.sotaikhoan;
val(st,sotk,c);
sotk:=sotk+1;
motTK.SoTaiKhoan:=XulySo(sotk);
motGDgui.Sotaikhoan:=motTK.SoTaiKhoan;
gotoxy(1,12);writeln('So tai khoan: ',motTK.SoTaikhoan);
if ktra=false then ThemKH;
ThemTK;
ThemGDgui;
window(1,1,80,25);
end;
procedure InDSKH;
var ptrKH:khPointer;
i:integer;
begin
clrscr;
textcolor(7);
writeln(' DANH SACH KHACH HANG');
writeln('--------------------------------------------------------------------------');
writeln(' STT So HSKH Ho va ten Dia chi So CMT Ngay
cap ');
writeln('--------------------------------------------------------------------------');