* 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