3.8.1 Giới thiệu tổng quát
Phần mềm quản lý vốn bằng tiền tại chi nhánh UPEXIM Hà Nội là kết quả triển khai bản phân tích thiết kế ở trên. Phần mềm gồm các chức năng chính sau:
1. Quản trị người dùng.
2. Quản lý các thông tin chung về chi nhánh 3. Quản lý, in, tra cứu các danh mục từ điển 4. Nhập và in ra các phiếu thu, phiếu chi.
5. Cập nhật thông tin từ các chứng từ tiền gửi ngân hàng. 6. Theo dõi tức thời số tiền tại quỹ tiền mặt (thu, chi, tồn quỹ). 7. Cập nhật tỷ giá ngoại tệ.
8. In các sổ kế toán về tiền mặt và tiền gửi ngân hàng, biên bản kiểm kê quỹ và các báo cáo như: Báo cáo quỹ tiền mặt, báo cáo tiền gửi ngân hàng
9. Bảo trì dữ liệu: Sao lưu dữ liệu, phục hồi dữ liệu. 10. Trợ giúp người dùng.
3.8.2 Yêu cầu cài đặt
• Máy tính: Tương thích Intel Pentium II 450 MHz hoặc cao hơn. • Bộ nhớ: 64MB RAM trở lên (tốt nhất 128 MB).
• Ổ đĩa cứng: Còn trống trên 50 MB.
• Màn hình: 256 color SVGA video, độ phân giải 800x600 hoặc tốt hơn. • Máy in: Khổ A4.
• CD-ROM tốc độ 12X hoặc nhanh hơn.
• Hệ điều hành: Windows 9x, Windows 2000 hoặc Windows XP
• Bộ gõ tiếng Việt: Chuẩn bộ mã TCVN 5712:1993 nên dùng Unikey 3.6 hoặc Vietkey 2000 trở lên.
3.8.3 Hướng dẫn sử dụng
Để sử dụng phần mềm, người sử dụng phải đăng nhập vào hệ thống thông qua form “Đăng nhập”:
Giao diện “Đăng nhập”
Sau khi đăng nhập thành công, để nắm được chi tiết cách thức sử dụng phần mềm, người dùng có thể tìm hiểu thông qua menu “Trợ giúp”.
3.8.4 Giao diện chính của chương trình
Sau khi nhập đúng tên và mật khẩu, giao diện chính của chương trình sẽ xuất hiện và người dùng sẽ thực hiện được các thao tác trong quyền hạn của mình:
3.8.5 Hệ thống menu của chương trình
* Menu “Hệ thống”
* Menu “Sổ sách và báo cáo”
* Menu “Bảo trì dữ liệu”
3.8.6 Một số form giao diện và một số báo cáo được in ra
* Form “Tỷ giá ngoại tệ”
* Form “Sao lưu dữ liệu”
* Form in Chứng từ ghi sổ
Với mong muốn xây dựng một hệ thống thông tin quản lý vốn bằng tiền một cách toàn diện, thích ứng với nhiều đối tượng người dùng, trên cơ sở nghiên cứu về nghiệp vụ kế toán vốn bằng tiền, em đã đi phân tích một cách cụ thể về mặt chức năng cũng như dữ liệu của hệ thống. Trên cơ sở đó, em đã bắt đầu đi xây dựng chương trình khai thác và quản lý hệ cơ sở dữ liệu này. Tuy nhiên, để chương trình có thể phù hợp với các phân hệ kế toán khác là một vấn đề phức tạp. Điều đó đòi hỏi có sự tham gia của nhiều người, sự đồng tình ủng hộ của nhiều cấp lãnh đạo. Do thời gian có hạn nên em chưa thể đi sâu tìm hiểu hệ thống để thiết kế được đầy đủ và chính xác các chức năng của hệ thống. Em rất mong có được sự góp ý của thầy giáo và các bạn để sau khi thực hiện đồ án này, em có thể tiến tới triển khai đề tài này một cách cụ thể và sâu sắc hơn.
Em xin chân thành cảm ơn!
Sinh viên Đỗ Thu Thủy
[1] Vũ Bá Anh, Bài giảng Cơ sở dữ liệu học phần II
[2] VN – GUIDE và Đinh Xuân Lâm, Những bài thực hành Visual Foxpro, Nhà xuất bản thống kê
[3] Nguyễn Ngọc Minh, Lê Thanh Tùng, Hoàng Đức Hải, Nguyễn Đình Tê, Sử dụng và khai thác Visual Foxpro 6.0, Nhà xuất bản giáo dục, 2000.
[4] Nguyễn Văn Ba, Phân tích và thiết kế hệ thống thông tin, Nhà xuất bản đại học quốc gia Hà Nội, 2009
[5] GS.TS Ngô Thế Chi, TS Trương Thị Thủy, Giáo trình Kế toán tài chính,
Nhà xuất bản tài chính, 2008 [6] Một số trang web như: http//www.diendantinhoc.vn http//www.webketoan.com http//www.danketoan.com
A. Các hồ sơ dữ liệu thu thập được
1. Code trong sự kiện Click của nút “Sửa ” trong Form “Cập nhật danh mục nhân viên”
SELECT dm_nv
IF EOF()
thisform.grid1.SetFocus thisform.Refresh return ENDIF PUBLIC _recno _recno=RECNO() PUBLIC _tennv,_manv,_diachi, _sdt _tennv=tennv _manv=manv _diachi=diachi _sdt=sdt
thisform.text1.Enabled = .t.
thisform.text2.Enabled= .T.
thisform.text3.Enabled = .t.
thisform.text4.Enabled = .t.
thisform.text1.Value=_tennv
thisform.text2.Value= _manv
thisform.text3.Value= _diachi
thisform.text4.Value= _sdt
thisform.text1.SetFocus thisform.Refresh
thisform.grid1.refresh GO _recno
RELEASE _tennv,_manv,_diachi, _sdt
2. Code trong sự kiện Click của nút “Tìm” trong form “Tìm kiếm theo nhân viên”
SET SAFETY OFF
SELECT phieutc.ngay,phieutc.sp, phieutc.lydo,phieutc.tkno, phieutc.tkco, phieutc.sotien;
FROM phieutc;
WHERE ALLTRIM(phieutc.madt)==ALLTRIM(thisform.text1.Value) INTO TABLE
tg2
thisform.grid1.Refresh SELECT kq
APPEND FROM tg2
COUNT TO dem
IF dem ==0
thisform.grid1.column6.width =96
thisform.grid1.column1.header1.Caption="Ngµy"
thisform.grid1.column2.header1.Caption="S« phiÕu"
thisform.grid1.column3.header1.Caption="Lý do"
thisform.grid1.column4.header1.Caption="TK nî"
thisform.grid1.column5.header1.Caption="TK cã"
thisform.grid1.column6.header1.Caption="Sè tiÒn"
SELECT phieutc
SET FILTER TO SELECT tg2
ZAP
* Code in Sổ quỹ tiền mặt
CREATE TABLE tam1 FREE (sp c(10),spt c(10),spc c(10),lydo c(100),tkno c(10),tkco c(10),sotien N(12,0),thu N(12,0),chi N(12,0))
SELECT sp FROM phieutc WHERE phieutc.ngay== thisform.text1.Value INTO TABLE tg5
SELECT * FROM dudaungay where
dudaungay.ngayluu==(thisform.text1.Value-1) INTO TABLE tg6
SELECT tg6 GO TOP a1=tg6.thu a2=tg6.chi a3=tg6.ton SELECT phieutc INDEX on sp TO x1 SELECT tam1 APPEND FROM tg5 INDEX on sp TO x2
SET RELATION TO sp INTO phieutc
replace ALL lydo WITH phieutc.lydo
replace ALL tkno WITH phieutc.tkno
replace ALL tkco WITH phieutc.tkco
replace ALL sotien WITH phieutc.sotien
SELECT tam1
scan
IF ALLTRIM(phieutc.tkno)=="1111" replace spt WITH sp
replace spc WITH '' replace lydo WITH lydo replace thu WITH sotien replace chi WITH 0
ENDIF
IF ALLTRIM(phieutc.tkco)=="1111" replace spc WITH sp
ENDIF ENDSCAN
SUM tam1.sotien FOR ALLTRIM(tam1.tkno)=="1111" TO tongthu
SUM tam1.sotien FOR ALLTRIM(tam1.tkco)=="1111" TO tongchi
cLEAR
ton=tongthu+a3-tongchi
* cap nhat so du vao bang "dudaungay"
SELECT dudaungay
APPEND BLANK
replace ngayluu WITH thisform.text1.Value, thu WITH tongthu,chi WITH
tongchi, ton WITH (tongthu+a3-tongchi)
COUNT FOR ngayluu==thisform.text1.value TO dem
SELECT dudaungay GO bottom DO while dem>1 DELETE skip-1 dem=dem-1 ENDDO
* tao bao cao
x=DAY(thisform.text1.value) y=month(thisform.text1.value) z=Year(thisform.text1.value)
SELECT tam1
COUNT TO n
IF n==0
APPEND BLANK ENDIF