Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận LỜI MỞ ĐẦU Ngày nay, với phát triển lớn mạnh ngân hàng vấn đề quản lý dịch vụ gặp nhiều khó khăn số lượng khách hàng dịch vụ tăng nhanh cách tróng mặt dẫn đến ngày khó kiểm sốt Các cơng việc tính tốn sổ sách phương thức thủ cơng gặp nhiều khó khăn hạn chế làm chậm q trình giao dịch mà địi hỏi chất lượng dịch vụ cần thiết yêu cầu phải xác nhanh tróng thời hạn Chính sở đó, việc áp dụng tin học vào quản lý dịch vụ nhiều công việc khác yêu cầu cấp thiết Tin học hoá đem lại nhiều lợi ích làm giảm chi phí, nâng cao độ xác cho cơng việc, giảm thời gian hoàn thành dịch vụ đem lại chất lượng dịch vụ tốt cho khách hàng Với khả sinh viên tin học kinh tế em xin trình bầy đề tài phần mềm ứng dụng “Quản lý tiền gửi ngân hàng” sở thực tiến thông qua khảo sát ngân hàng VPBANK Trong đề tài trình bầy kiến thức cấu trúc liệu giải thuật liên quan đặc biệt cấu trúc danh sách liên kết, từ tạo điều kiện cho việc xây dựng mơ hình chương trình phần mềm với chức bản: Nạp, thêm, bớt sửa, in thơng tin, tính lượng tiền gửi khách hàng Nội dung đề án chia làm phần: Phần 1: Trình bầy lại kiến thức cần thiết để xây dựng phần mềm: Cấu trúc liệu danh sách liên kết thuật giải tương ứng Phần 2: Phân tích hệ thống thuật giải chương trình Phần 3: Xây dựng mã nguồn cho phần mềm Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận PHẦN I: CẤU TRÚC DANH SÁCH LIÊN KẾT VÀ THUẬT GIẢI Trong nghiên cứu cấu trúc liệu khác danh sách STACK QUEUE thấy nhược điểm trình bổ xung hay loại bỏ phần tử khỏi danh sách Việc sử dụng trỏ mối nối để tổ chức danh sách tuyến tính khắc phục nhược điểm Nguyên tắc lưu trữ danh sách liên kết Để lưu trữ danh sách liên kết, phần tử lưu trữ nút (Node) Mỗi nút bao gồm số từ máy liên tiếp nhau, thân nút nằm rải rác nhớ Cấu trúc nút bao gồm hai phần: Phần chứa liệu (Data) phần chứa liên kết (Link) Tại nút cuối kết thúc danh sách ký hiệu NIL DATA LINK Danh sách liên kết phù hợp cho phép toán bổ xung, loại bỏ phần tử Các phần tử danh sách liên kết chứa vùng khác không gian nhớ không kề Chúng nối với nhờ vùng liên kết Vùng liên kết thứ chứa địa nút thứ hai liên kết nút thứ hai chứa địa nút thứ ba… trỏ đến nút cuối có giá trị NIL Cài đặt danh sách liên kết sở biến trỏ Các giải thuật với danh sách liên kết Giải thuật tạo lập danh sách liên kết Procedure Create(var L:pointerType); Begin L:=Nil; End; Giải thuật kiểm tra danh sách rỗng Function EmptyL(L:PonterType):Boolean; Begin Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận EmptyL:=(L=Nil); End; Giải thuật duyệt danh sách Procedure LinkedTraverse(L:PointerType); Begin Var CurrPtr: PointerType; Begin CurrPtr:=L; While CurrPtrNil Begin CurrPtr:=CurrPtr^.Next; End; End; End; Giải thuật bổ xung phần tử vào danh sách Procedure Insert(L:PointerType); Var Moi,M:PointerType; X:ElementType; Begin New(Moi); Moi^.Data=X; If (L=Nil) then Begin L:=Moi; Moi^.Next:=Nil; End Else Begin Moi^.Next:=M^.Next; M^.Next:=Moi; End; End; Bỏ L M A B C D Mơi Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận Giải thuật loại bỏ phần tử Procedure Delete(L:PointerType); Var M,P:PointerType; Begin If L=Nil then Writeln(‘Loi’); If (M=L) then Begin L:=M^.Next; Dispose(M); End; P:=L; While P^.Next P:=P^.Next; P^.Next:=M^.Next; Dispose(M); End; Trường hợp 1: Danh sách rỗng in thông báo lỗi Trường hợp 2: L trỏ vào M L M Bỏ A C B Trường hợp 3: M danh sách L Bỏ A Khoa Tin học Kinh Tế M B Bỏ C SV thực hiện:Trần Đình Quảng Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận PHẦN II: PHÂN TÍCH HỆ THỐNG VÀ THUẬT GIẢI Chức phần mềm Phần mềm bao gồm chức năng: - Nhập danh mục khách hàng: - Thay đổi thông tin khách hàng cần - Xoá danh sách khách hàng BEGIN - In danh mục khách hàng theo lựa chọn: In toàn danh sách In thông tin theo mã khách hàng MENU CHƯƠNG TRÌNH CHÍNH - Chức thay đổi thơng số liên quan đến lại suất Cơ sở liệu Lựa chọn công Cơ sở liệu tập hợp ghi với trường, kiểu trường bảng việc sau: Xố In Kết thơng thơng thúc Giải thích chương tin tin khách khách trình Mã khách hàng hàng hàng STT Thay đổi lãi Tên biến suất Nhập Sửa thông thông tin Kiểu biến tin khách khách hàng Word hàng MKH HoTen String Họ tên khách hàng NG String Ngày gửi tiền Lựa LTG String chọn Loại tài khoản tiền gửi TG Real Số tiên gửi LS Real Lãi suất In gửi tiền toàn danh sách In theo mã khách hàng Sơ đồ khối chương trình Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng END Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận Giao diện chức Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận Giao diện MENU chính: Với menu người sử dụng dùng phím ( ) để di chuyển lựa chọn công việc muốn thực Khi công việc thay đổi lãi suất chọn ta thay dổi lãi suất: In thơng tin toàn bộ: Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận In thông tin theo mã khách hàng Giải thuật chương trình Giải thuật chèn thêm nút vào đầu danh sách: Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng Trường ĐH KTQD Hà Nội L Bỏ GVHD: PGS.TS Hàn Viết Thuận Moi procedure ThemDM; var moi:pointertype; mkh:word; hoten:string; Loai:word; TG:real; begin clrscr; gotoxy(20,1); textcolor(green); GetDate(y,m,d,dow); Writeln('Ngay giao dich - ', days[dow],': ',d:0, '/', m:0, '/', y:0,' -'); textcolor(white); new(moi); { Chuyền liệu vào nút moi} Writeln('Nhap ma khach hang:');readln(moi^.mkh); writeln('Nhap ho ten khach hang:');readln(moi^.hoten); writeln('Nhap loai tien gui');readln(loai); if (loai=1) then moi^.LTK:=ltk[0]; if (loai=2) then moi^.LTK:=ltk[1]; if (loai=3) then moi^.LTK:=ltk[2]; writeln('Nhap gui:');readln(moi^.ng); writeln('Nhap luong tien gui cua khach hang:');readln(moi^.tg); {Chèn nút vào đầu danh sách } cuoi:=l; l:=moi; moi^.next:=cuoi; end; Giải thuật loại bỏ nút bất kỳ: L Bỏ Khoa Tin học Kinh Tế Bỏ SV thực hiện:Trần Đình Quảng Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận procedure XoaDm; var MKh: word; nut: pointertype; tg:pointertype; begin clrscr; write('Nhap MKH can xoa:');readln(mkh); nut:=l; if (nut^.mkh=mkh) then l:=nut^.next; while nut^.mkhmkh begin tg:=nut; nut:=nut^.next; end; tg^.next:=nut^.next; dispose(nut); end; Giải thuật sửa đổi thông tin: procedure suaDm; var MKh: word; nut: pointertype; tg:pointertype; begin clrscr; write('Nhap MKH can sua:');readln(mkh); nut:=l; while (nut^.mkhmkh)and(nut^.nextnil) nut:=nut^.next; write('Sua ten khach hang:');readln(nut^.hoten); write('Sua loai tiet kiem:');readln(nut^.ltk); write('Sua gui:');readln(nut^.ng); write('Sua luong tien gui:');readln(nut^.tg); end; PHẦN 3: CHƯƠNG TRÌNH PHẦN MỀM QUẢN LÝ TIỀN GỬI NGÂN HÀNG: Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 10 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận writeln(' '); gotoxy(20,15); writeln('| In thong tin khach hang| |'); gotoxy(20,16); writeln(' '); gotoxy(20,17); writeln('| Thoat chuong trinh | |'); gotoxy(20,18); writeln(' '); end; { MENU3 } procedure menu3; begin clrscr; gotoxy(20,1); textcolor(green); GetDate(y,m,d,dow); Writeln('Ngay giao dich - ', days[dow],': ',d:0, '/', m:0, '/', y:0,' -'); textcolor(white); gotoxy(30,2); writeln('Chon cong viec'); gotoxy(20,4); writeln(' '); gotoxy(20,5); textcolor(12); writeln('| Cong viec | Chi so |'); textcolor(white); gotoxy(20,6); writeln(' '); gotoxy(20,7); writeln('| Nhap lai suat thay doi | |'); gotoxy(20,8); writeln(' '); gotoxy(20,9); writeln('| Nhap ds khach hang | |'); gotoxy(20,10); writeln(' '); gotoxy(20,11); textcolor(red+blink); Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 14 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận writeln('| Sua TT khach hang | |'); textcolor(white); gotoxy(20,12); writeln(' '); gotoxy(20,13); writeln('| Xoa TT khach hang | |'); gotoxy(20,14); writeln(' '); gotoxy(20,15); writeln('| In thong tin khach hang| |'); gotoxy(20,16); writeln(' '); gotoxy(20,17); writeln('| Thoat chuong trinh | |'); gotoxy(20,18); writeln(' '); end; { MENU4 } procedure menu4; begin clrscr; gotoxy(20,1); textcolor(green); GetDate(y,m,d,dow); Writeln('Ngay giao dich - ', days[dow],': ',d:0, '/', m:0, '/', y:0,' -'); textcolor(white); gotoxy(30,2); writeln('Chon cong viec'); gotoxy(20,4); writeln(' '); gotoxy(20,5); textcolor(12); writeln('| Cong viec | Chi so |'); textcolor(white); gotoxy(20,6); writeln(' '); gotoxy(20,7); writeln('| Nhap lai suat thay doi | |'); gotoxy(20,8); Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 15 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận writeln(' '); gotoxy(20,9); writeln('| Nhap ds khach hang | |'); gotoxy(20,10); writeln(' '); gotoxy(20,11); writeln('| Sua TT khach hang | |'); gotoxy(20,12); writeln(' '); gotoxy(20,13); textcolor(red+blink); writeln('| Xoa TT khach hang | |'); gotoxy(20,14); textcolor(white); writeln(' '); gotoxy(20,15); writeln('| In thong tin khach hang| |'); gotoxy(20,16); writeln(' '); gotoxy(20,17); writeln('| Thoat chuong trinh | |'); gotoxy(20,18); writeln(' '); end; { MENU5 } procedure menu5; begin clrscr; gotoxy(20,1); textcolor(green); GetDate(y,m,d,dow); Writeln('Ngay giao dich - ', days[dow],': ',d:0, '/', m:0, '/', y:0,' -'); textcolor(white); gotoxy(30,2); writeln('Chon cong viec'); gotoxy(20,4); writeln(' '); gotoxy(20,5); textcolor(12); Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 16 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận writeln('| Cong viec | Chi so |'); textcolor(white); gotoxy(20,6); writeln(' '); gotoxy(20,7); writeln('| Nhap lai suat thay doi | |'); gotoxy(20,8); writeln(' '); gotoxy(20,9); writeln('| Nhap ds khach hang | |'); gotoxy(20,10); writeln(' '); gotoxy(20,11); writeln('| Sua TT khach hang | |'); gotoxy(20,12); writeln(' '); gotoxy(20,13); writeln('| Xoa TT khach hang | |'); gotoxy(20,14); writeln(' '); gotoxy(20,15); textcolor(red+blink); writeln('| In thong tin khach hang| |'); textcolor(white); gotoxy(20,16); writeln(' '); gotoxy(20,17); writeln('| Thoat chuong trinh | |'); gotoxy(20,18); writeln(' '); end; { MENU6 } procedure menu6; begin clrscr; gotoxy(20,1); textcolor(green); GetDate(y,m,d,dow); Writeln('Ngay giao dich - ', days[dow],': ',d:0, '/', m:0, '/', y:0,' -'); Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 17 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận textcolor(white); gotoxy(30,2); writeln('Chon cong viec'); gotoxy(20,4); writeln(' '); gotoxy(20,5); textcolor(12); writeln('| Cong viec | Chi so |'); textcolor(white); gotoxy(20,6); writeln(' '); gotoxy(20,7); writeln('| Nhap lai suat thay doi | |'); gotoxy(20,8); writeln(' '); gotoxy(20,9); writeln('| Nhap ds khach hang | |'); gotoxy(20,10); writeln(' '); gotoxy(20,11); writeln('| Sua TT khach hang | |'); gotoxy(20,12); writeln(' '); gotoxy(20,13); writeln('| Xoa TT khach hang | |'); gotoxy(20,14); writeln(' '); gotoxy(20,15); writeln('| In thong tin khach hang| |'); gotoxy(20,16); writeln(' '); gotoxy(20,17); textcolor(red+blink); writeln('| Thoat chuong trinh | |'); textcolor(white); gotoxy(20,18); writeln(' '); end; { MENU CHUONG TRINH CHINH } Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 18 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận procedure Menu; begin clrscr; gotoxy(20,1); textcolor(green); GetDate(y,m,d,dow); Writeln('Ngay giao dich - ', days[dow],': ',d:0, '/', m:0, '/', y:0,' -'); textcolor(white); gotoxy(30,2); writeln('Chon cong viec'); textcolor(white); gotoxy(20,4); writeln(' '); gotoxy(20,5); textcolor(12); writeln('| Cong viec | Chi so |'); textcolor(white); gotoxy(20,6); writeln(' '); gotoxy(20,7); writeln('| Nhap lai suat thay doi | |'); gotoxy(20,8); writeln(' '); gotoxy(20,9); writeln('| Nhap ds khach hang | |'); gotoxy(20,10); writeln(' '); gotoxy(20,11); writeln('| Sua TT khach hang | |'); gotoxy(20,12); writeln(' '); gotoxy(20,13); writeln('| Xoa TT khach hang | |'); gotoxy(20,14); writeln(' '); gotoxy(20,15); writeln('| In thong tin khach hang| |'); gotoxy(20,16); writeln(' '); Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 19 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận gotoxy(20,17); writeln('| Thoat chuong trinh | |'); gotoxy(20,18); writeln(' '); c:=readkey; while ord(c)13 begin if ord(c)=0 then begin if (chieu='x') then index:=index+1; if (chieu='l') then index:=index-1; if index=6 then chieu:='l'; if index=1 then chieu:='x'; end; case index of 1: menu1; 2: menu2; 3: menu3; 4: menu4; 5: menu5; 6: menu6; end; c:=readkey; end; end; { NHAP THONG TIN KHACH HANG -} procedure ThemDM; var moi:pointertype; mkh:word; hoten:string; Loai:word; TG:real; begin clrscr; Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 20 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận gotoxy(20,1); textcolor(green); GetDate(y,m,d,dow); Writeln('Ngay giao dich - ', days[dow],': ',d:0, '/', m:0, '/', y:0,' -'); textcolor(white); new(moi); Writeln('Nhap ma khach hang:');readln(moi^.mkh); writeln('Nhap ho ten khach hang:');readln(moi^.hoten); writeln('Nhap loai tien gui');readln(loai); if (loai=1) then begin moi^.LTK:=ltk[0]; moi^.ls:=ls1; end; if (loai=2) then begin moi^.LTK:=ltk[1]; moi^.ls:=ls2; end; if (loai=3) then begin moi^.LTK:=ltk[2]; moi^.ls:=ls3 end; writeln('Nhap gui:');readln(moi^.ng); writeln('Nhap luong tien gui cua khach hang:');readln(moi^.tg); cuoi:=l; l:=moi; moi^.next:=cuoi; end; { -IN DANH SACH KHACH HANG } procedure InDM; var m:pointertype; i:integer; tong:real; begin i:=4; clrscr; m:=l; Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 21 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận writeln(' | '); writeln('| MKH | Ho ten KH | Loai TG | Ngay gui | So luong gui | Tong=tien gui+lai |'); writeln(' | '); while mnil begin gotoxy(0,i); write('| '); write(m^.mkh); gotoxy(7,i); write('| '); write(m^.hoten); gotoxy(19,i); write('| '); write(m^.ltk); gotoxy(31,i); write('| '); write(m^.ng); gotoxy(42,i); write('| '); writeln(m^.TG:0:1); if(m^.ltk='Sau thang')then tong:=m^.tg*exp(6*ln(1+ls1)); if(m^.ltk='Mot nam')then tong:=m^.tg*exp(1*ln(1+ls2)); if(m^.ltk='Nam nam')then tong:=m^.tg*exp(5*ln(1+ls3)); gotoxy(57,i); write('| '); write(tong:0:1); gotoxy(77,i); writeln('| '); writeln(' -|'); m:=m^.next; i:=i+2; end; end; { -IN DANH SACH KHACH HANG THEO MA -} procedure InKH; Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 22 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận var m:pointertype; i:integer; mkh:word; tong:real; begin i:=5; clrscr; m:=l; write('Nhap MKH can in:');readln(mkh); writeln(' |') ; writeln('| MKH | Ho ten KH | Loai TG | Ngay gui | So luong gui | Tong =gui+lai |'); writeln(' |') ; while mnil begin if(m^.mkh=mkh)then begin gotoxy(0,5); write('| '); write(m^.mkh); gotoxy(7,5); write('| '); write(m^.hoten); gotoxy(21,5); write('| '); write(m^.ltk); gotoxy(33,5); write('| '); write(m^.ng); gotoxy(44,5); write('| '); write(m^.TG:0:1); if(m^.ltk='Sau thang')then tong:=m^.tg*exp(6*ln(1+ls1)); if(m^.ltk='Mot nam')then tong:=m^.tg*exp(1*ln(1+ls2)); if(m^.ltk='Nam nam')then tong:=m^.tg*exp(5*ln(1+ls3)); gotoxy(59,5); write('| '); Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 23 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận write(tong:0:1); gotoxy(75,i); writeln('| '); writeln(' -|'); end; m:=m^.next; end; end; { XOA DANH MUC -} procedure XoaDm; var MKh: word; nut: pointertype; tg:pointertype; begin clrscr; write('Nhap MKH can xoa:');readln(mkh); nut:=l; if (nut^.mkh=mkh) then l:=nut^.next; while nut^.mkhmkh begin tg:=nut; nut:=nut^.next; end; tg^.next:=nut^.next; dispose(nut); end; { SUA DANH MUC -} procedure suaDm; var MKh: word; nut: pointertype; tg:pointertype; begin clrscr; write('Nhap MKH can sua:');readln(mkh); nut:=l; while (nut^.mkhmkh)and(nut^.nextnil) nut:=nut^.next; Khoa Tin học Kinh Tế SV thực hiện:Trần Đình Quảng 24 Trường ĐH KTQD Hà Nội GVHD: PGS.TS Hàn Viết Thuận write('Sua ten khach hang:');readln(nut^.hoten); write('Sua loai tiet kiem:');readln(nut^.ltk); write('Sua gui:');readln(nut^.ng); write('Sua luong tien gui:');readln(nut^.tg); end; { THAY DOI LAI SUAT } procedure suals; begin write('Lai suat thang:');readln(ls1); write('Lai suat nam :');readln(ls2); write('Lai suat nam :');readln(ls3); end; { CHUONG TRINH CHINH -} BEGIN clrscr; ls1:=0.2; ls2:=0.5; ls3:=0.8; new(cuoi); kt1:='c'; while kt1'k' begin index:=-1; chieu:='x'; menu; if index=1 then suals; if index=2 then begin j:=0; write('Nhap so ban ghi can:');readln(n); while j