Một số form giao diện và một số báo cáo được in ra

Một phần của tài liệu Phát triển hệ thống thông tin kế toán vốn bằng tiền tại chi nhánh Hà Nội công ty cổ phần sản xuất, xuất nhập khẩu lâm sản và hàng tiểu thủ công nghiệp – Trung tâm thương mại UPEXIM.doc (Trang 75 - 103)

* 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; (adsbygoogle = window.adsbygoogle || []).push({});

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 (adsbygoogle = window.adsbygoogle || []).push({});

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

Một phần của tài liệu Phát triển hệ thống thông tin kế toán vốn bằng tiền tại chi nhánh Hà Nội công ty cổ phần sản xuất, xuất nhập khẩu lâm sản và hàng tiểu thủ công nghiệp – Trung tâm thương mại UPEXIM.doc (Trang 75 - 103)