Một số màn hình giao diện:
• Giao diện đăng nhập hệ thống
Hình 19: Giao diện form đăng nhập hệ thống
Bắt đầu chạy chương trình, người dùng phải đăng nhập vào hệ thống qua form đăng nhập. Nếu đăng nhập đúng thì sẽ vào màn hình chính của chương trình để điều khiển thông qua hệ thống Menu. Còn nếu đăng nhập sai thì có thể thoát và đăng nhập lại.
• Giao diện chính của chương trình:
Hình 20: Giao diện chính của chương trình
• Giao diện quản trị người dùng
Chỉ có quản trị viên (toàn quyền) mới được thực hiện chức năng này. Quản trị viên có thể thêm, sửa hay xóa người dùng và cấp cho họ quyền hạn nhất định.
Hình 21: Giao diện form quản trị người dùng
• Giao diện form đổi mật khẩu
Hình 22: Giao diện form đổi mật khẩu
• Giao diện form danh mục tài khoản kế toán”
Hình 23: Giao diện form danh mục tài khoản kế toán sử dụng
Ở mỗi form của một danh mục, người dùng có thể thực hiện các thao tác thêm, sửa, xóa một bản ghi lựa chọn.
• Giao diện form danh mục loại hàng
Hình 24: Giao diện form danh mục loại hàng
• Giao diện form danh mục khách hàng
Hình 26: Giao diện form danh mục khách hàng
• Giao diện form danh mục tài khoản ngân hàng
Hình 27: Giao diện form danh mục tài khoản ngân hàng
• Giao diện form danh mục tài khoản kết chuyển
Hình 28: Giao diện form danh mục tài khoản kết chuyển
Hình 29: Giao diện form hóa đơn bán hàng
• Giao diện form danh sách hóa đơn bán hàng
Hình 30: Giao diện form danh sách hóa đơn bán hàng
• Giao diện form cập nhật hóa đơn của hàng bán bị trả lại
Hình 31: Giao diện form hóa đơn hàng bán bị trả lại
• Giao diện form danh sách hóa đơn hàng bán bị trả lại
Hình 32: Giao diện form danh sách hóa đơn hàng bán bị trả lại
Hình 33: Giao diện form nhập phiếu thu chi
• Giao diện form danh sách phiếu thu chi (adsbygoogle = window.adsbygoogle || []).push({});
Hình 34: Giao diện form danh sách phiếu thu chi
• Giao diện form nhập thông tin ủy nhiệm chi của khách hàng
Hình 35: Giao diện form ủy nhiệm chi của khách hàng
Hình 36(a): Giao diện form gọi các danh mục từ điển
Khi chọn “Xem”, danh mục tương ứng sẽ được in ra như sau:
Hình 36(b): Kết quả gọi danh mục hàng bán
• Giao diện form thực hiện kết chuyển các khoản giảm trừ doanh thu bán hàng cuối kỳ
Hình 37: Giao diện form thực hiện kết chuyển các khoản giảm trừ doanh thu bán hàng cuối kỳ
• Giao diện form gọi bảng kê hóa đơn
Hình 38: Giao diện form gọi bảng kê hóa đơn
• Giao diện form gọi sổ nhật ký bán hàng
Kết quả khi chọn “Xem” ta được sổ nhật ký bán hàng có mẫu như sau:
• Giao diện form báo cáo bán hàng chi tiết theo mặt hàng
Hình 40: Giao diện form gọi báo cáo bán hàng chi tiết theo mặt hàng
Kết quả khi chọn “Xem”:
Hình 41: Kết quả gọi báo cáo bán hàng chi tiết theo mặt hàng
Kết quả chọn “Xem” báo cáo tổng hợp doanh thu bán hàng theo khách hàng, mặt hàng ở form này cho ra báo cáo có mẫu biểu như sau:
3.3. GIỚI THIỆU CÁC CHỨC NĂNG (MODULE) CỦA CHƯƠNG TRÌNH
• Chương trình được thiết kế nhằm thực hiện các chức năng sau:
Chức năng quản lý người dùng
Với bất kì người dùng nào của hệ thống đều có thể đăng nhập và thay đổi thông tin đăng nhập của mình.
Ngoài ra, với người dùng quản trị có thể thêm, xóa, cập nhật thông tin của người dùng.
Hệ thống đã phân quyền ở một mức độ nhất định thông qua hệ thống thực đơn.
Quản lý các danh mục (chỉ cho phép với người dùng toàn quyền):
Có thể thêm mới, sửa đổi thông tin, xóa một bản ghi trong cơ sở dữ liệu.
Người dùng có thể tra cứu nhanh theo yêu cầu của mình liên quan đến.
Có thể xem thông tin theo loại.
Quản lý việc cập nhật các chứng từ: Cập nhật các hóa đơn, nhập thông tin các chứng từ thanh toán liên quan.
Hạch toán chi tiết doanh thu bán hàng:
Có thể tạo sổ nhật ký bán hàng. (adsbygoogle = window.adsbygoogle || []).push({});
Tổng hợp doanh thu bán hàng của từng mặt hàng, nhóm hàng, và của từng khách hàng.
Lập các báo cáo: có thể lập các báo cáo một cách nhanh nhất ngay khi có yêu cầu.
• Trong điều kiện thời gian không cho phép, đồ án đã thực hiện được một số module sau:
Xử lý cập nhật các danh mục, bao gồm thêm, mới, sửa, xóa.
Xử lý nhập phiếu thu, phiếu chi, ủy nhiệm chi.
Xử lý cập nhật các hóa đơn: hóa đơn bán hàng, hóa đơn hàng bán bị trả lại, hóa đơn giảm giá.
KẾT LUẬN
Có thể nói công tác hạch toán kế toán là hết sức quan trọng đối với tất cả các loại hình doanh nghiệp trong nền kinh tế thị trường hiện nay. Trong đó công tác kế toán doanh thu bán hàng và các khoản giảm trừ doanh thu bán hàng là bộ phận không thể thiếu được trong toàn bộ công tác kế toán, nó góp phần cung cấp số liệu kịp thời cho việc phân tích tình hình hoạt động và kết quả của quá trình bán hàng, cung cấp các thông tin cần thiết cho Ban giám đốc để hoạch định những chiến lược kinh doanh mới. Trong đề tài “Xây dựng phân hệ kế toán doanh thu bán hàng và các khoản giảm trừ donah thu bán hàng ở Công ty cổ phần công nghệ Việt Nhật”, em đã nêu lên thực trạng và dựa trên thực trạng tìm hiểu được em đã tiến hành thiết kế ứng dụng cho bài toán thực trạng của mình. Trong điều kiện nhất định em đã thực hiện một số module chương trình, sử dụng hệ quản trị cơ sở dữ liệu và ngôn ngữ lập trình Visual FoxPro (ở đây là 9.0).
Dù đã cố gắng song do nhận thức còn có hạn, đồ án không tránh khỏi những hạn chế và thiếu sót. Em kính mong nhận được ý kiến đóng góp của các thầy giáo cô giáo, các cô chú, anh chị phòng kế toán trong phòng kế toán công ty, để em có thể có nhiều kinh nghiệm quý giá hơn.
Một lần nữa em xin chân thành cảm ơn chị Vân Anh_kế toán trưởng và các anh chị kế toán viên khác tại Công ty cổ phần công nghệ Việt Nhật; các thầy giáo, cô giáo, đặc biệt là cô giáo – Thạc sĩ Hoàng Phương Thảo đã tạo điều kiện để em hoàn thành đồ án.
Hà Nội, ngày 03 tháng 05 năm 2009 Sinh viên: Phạm Thị Thủy
Lớp K43/41.02
TÀI LIỆU THAM KHẢO
[1] Nguyễn Ngọc Minh. Sử dụng và khai thác Visual FoxPro 6.0. Nhà xuất bản Giáo dục, 2000.
[2] Ngô Thế Chi – 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, 2007.
[3] 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, 2006.
[4] Nguyễn Văn Vỵ. Giáo trình phân tích thiết kế hệ thống thông tin. Đại học Quốc gia TP.HCM, 2004.
[5] Vũ Bá Anh. Giáo trình Cơ sở dữ liệu. Học viện Tài chính, 2006.
[6] Chuẩn mực số 14 – Doanh thu và thu nhập khác. (Ban hành và công bố theo Quyết định số 149/2001/QĐ-BTC ngày 31 tháng 12 năm 2001 của Bộ trưởng Bộ Tài chính).
[7] Thông tư 32/2007/TT-BTC ngày 09/04/2007 của Bộ Tài chính hướng dẫn thi hành Nghị định số 158/2003/NĐ-CP ngày 10/12/2003, Nghị định số 148/2004/NĐ-CP ngày 23/7/2004 và Nghị định số 156/2005/NĐ-CP ngày 15/12/2005 của Chính phủ quy định chi tiết về thi hành Luật thuế giá trị gia tăng và Luật sửa đổi, bổ sung một số điều của Luật thuế giá trị gia tăng.
[8] Các trang web:
- http://webketoan.com/forum
- http://webketoantruong.com.vn/forum - http://mof.gov.vn
PHỤ LỤC
(Một số đoạn code chương trình) 1. Chương trình chính: main_prg.prg
CLOSE ALL SET SYSMENU OFF
SET DEFAULT TO SYS(5)+ CURDIR() SET CLOCK ON STATUS
SET DATE FRENCH SET CENTURY ON SET TALK OFF SET DELETED ON SET SAFETY OFF SET STATUS BAR ON
*************************************************************** *************************************************************** PUBLIC _user,_pass,_right,dem,chay STORE '' TO _user STORE '' TO _pass STORE 0 TO _right STORE 0 TO dem STORE .f. TO chay *************************************************************** SET PROCEDURE TO prg\dmhang.prg, prg\phieuthu.prg,;
prg\bkehdbh.prg, prg\phieuchi.prg,; prg\snkbh.prg, prg\unccty.prg,; (adsbygoogle = window.adsbygoogle || []).push({});
prg\unckh.prg, prg\bcbhcttmh.prg, prg\bcthhbbtl.prg *************************************************************** OPEN DATABASE FULLPATH("")+"data\ktdthu.dbc"
USE data\nguoidung IN 0 EXCLUSIVE USE data\dmkh IN 0 EXCLUSIVE USE data\dmtk IN 0 EXCLUSIVE USE data\dmtknh IN 0 EXCLUSIVE USE data\donghd IN 0 EXCLUSIVE USE data\donvi IN 0 EXCLUSIVE USE data\hangban IN 0 EXCLUSIVE USE data\hoadon IN 0 EXCLUSIVE USE data\loaihang IN 0 EXCLUSIVE USE data\loaihd IN 0 EXCLUSIVE USE data\ngoaite IN 0 EXCLUSIVE USE data\phieu IN 0 EXCLUSIVE USE data\phieu_tk IN 0 EXCLUSIVE USE data\unc IN 0 EXCLUSIVE USE data\capnhattg IN 0 EXCLUSIVE USE data\dmtkkc IN 0 EXCLUSIVE
USE FULLPATH("")+"temp\ketchuyen" IN 0 EXCLUSIVE DO FORM FULLPATH("")+"form\dangnhap"
READ EVENTS CLear ALL
RELEASE ALL
CLOSE DATABASES ALL QUIT
2. Form “dangnhap”
Sự kiện Click của nút “Đăng nhập”:
x=ALLTRIM(thisform.text2.value)
SELECT nguoidung
LOCATE FOR
UPPER(nguoidung.user)=ALLTRIM(UPPER(thisform.text1.Value)).AND.pass=x
IF FOUND()
PUBLIC _user,_mk,_right _user=user
_mk=pass _right=right
= MESSAGEBOX([Xin chao]+" "+UPPER(thisform.text1.Value)+"!",4096,"HELLO") DO FORM form\chinh
thisform.Release ELSE
MESSAGEBOX("Dang nhap chua dung! Ban hay nhap lai!",0+16,"Thong bao") dem=dem+1
IF dem<=3
thisform.text1.value='' thisform.text2.value='' thisform.text1.setfocus ELSE
MESSAGEBOX("Ban bi Out!!",0+48,"Xin loi")
CLOSE ALL QUIT
endif ENDIF
3. Form “dmtk”
Sự kiện Init của form:
chay=.t.
PUBLIC b
SELECT dmtk
SET ORDER TO matk ASCENDING thisform.text1.Enabled = .f.
thisform.text2.Enabled = .f. (adsbygoogle = window.adsbygoogle || []).push({});
thisform.command2.Enabled = .f.
Sự kiện Destroy của form:
chay=.f.
RELEASE b
Sự kiện Click của nút “Thêm”:
PUBLIC tt,_recno tt="T"
thisform.command1.Enabled = .F.
thisform.command2.Enabled = .T.
thisform.refresh RELEASE _recno
Sự kiện Click của nút “Lưu”:
PUBLIC _recno,tt
SELECT dmtk
DELETE FOR EMPTY(matk)
PACK
thisform.grid1.Refresh
IF EMPTY(thisform.text1.value)
MESSAGEBOX("Phai nhap ma tai khoan!",16,"Thong bao")
thisform.text1.SETFOCUS ENDIF
DO CASE CASE tt="S"
LOCATE FOR ALLTRIM(UPPER(thisform.text1.Value))==ALLTRIM(UPPER(matk))
IF FOUND().AND.recno()<>_recno
MESSAGEBOX("Ma tai khoan nay da ton tai!",16,"Thong bao")
thisform.text1.SetFocus ELSE
GO _recno
REPLACE matk WITH UPPER(thisform.text1.Value)
REPLACE tentk WITH thisform.text2.Value ENDIF
CASE tt="T"
LOCATE FOR ALLTRIM(UPPER(thisform.text1.Value))==ALLTRIM(UPPER(matk)) IF FOUND()
MESSAGEBOX("Ma tai khoan nay da ton tai!",16, "Thong bao")
thisform.text1.SetFocus ELSE (adsbygoogle = window.adsbygoogle || []).push({});
APPEND BLANK
REPLACE matk WITH UPPER(thisform.text1.Value)
REPLACE tentk WITH thisform.text2.Value ENDIF
ENDCASE SELECT dmtk
SET ORDER TO matk ASCENDING thisform.Refresh
thisform.grid1.refresh
thisform.command2.enabled= .F.
thisform.command4.Enabled = .T.
thisform.command1.Enabled = .T.
Sự kiện Click của nút “Xóa”:
x = MESSAGEBOX(" BAN CO MUON XOA KHONG?",4 + 32,'XAC NHAN')
IF x == 6 SELECT dmtk IF EOF() RETURN ELSE n= RECNO() GO RECORD n DELETE PACK ENDIF SV: Phạm Thị Thủy 82 Lớp: K43/41.02
thisform.text1.Enabled = .f.
thisform.text2.Enabled = .f.
thisform.text1.SetFocus thisform.grid1.refresh
ENDIF
Sự kiện Click của nút “Sửa”:
SELECT dmtk
IF EOF()
thisform.grid1.SetFocus thisform.Refresh return ENDIF PUBLIC _recno _recno=RECNO() PUBLIC _matk,_tentk,tt tt="S" _matk=matk _tentk=tentk
thisform.text1.Enabled =.t.
thisform.text2.Enabled =.t.
thisform.text1.Value=_matk
thisform.text2.Value=_tentk
thisform.text1.SetFocus
thisform.command4.Enabled=.F.
thisform.command2.Enabled=.t.
thisform.command1.Enabled=.F.
thisform.Refresh
thisform.grid1.refresh GO _recno (adsbygoogle = window.adsbygoogle || []).push({});
RELEASE _matk,_tentk
Sự kiện Click của nút “Thoát”:
thisform.Release
Refresh của grid1:
this.RecordSourceType= 1
this.RecordSource="dmtk"
this.ColumnCount=2
this.FontName="VK Sans Serif"
this.AllowAddNew= .F. this.DeleteMark = .F. this.GridLines= 3 this.HighlightStyle = 1 this.ReadOnly = .T. this.RecordMark = .T.
this.Column1.header1.Caption="M· tµi kho¶n"
this.column1.FontName="VK Sans Serif"
this.column1.Fontbold= .T.
this.column2.header1.Fontbold= .T.
this.column2.header1.alignment=2
this.column2.Width=346
this.column2.ControlSource="dmtk.tentk"
Init của text3 (tìm kiếm theo mã TK):
PUBLIC b
SELECT dmtk
IF EMPTY(this.value)
SET FILTER TO ELSE
SET FILTER TO LEFT(matk,LEN(ALLTRIM(this.value)))==ALLTRIM(this.value)
ENDIF
InteractiveChange của text3:
DO CASE
CASE EMPTY(ALLTRIM(this.Value))
SET FILTER TO OTHERWISE
b=ALLTRIM(this.Value)
SET FILTER TO UPPER(ALLTRIM(matk))=UPPER(b)
ENDCASE GO top (adsbygoogle = window.adsbygoogle || []).push({});
thisform.Refresh
thisform.grid1.Refresh
4. Form “hdbh”
Sự kiện Init của form:
chay=.t.
SELECT hoadon
SET FILTER TO
SET FILTER TO loaihd='1'
SELECT donghd
SET FILTER TO
SET FILTER TO loaihd='1'
SELECT donghd
INDEX on sohd TO idx\m
SELECT hoadon
INDEX on sohd TO idx\n
SET RELATION TO sohd INTO donghd
Sự kiện Destroy của form:
chay=.f.
Sự kiện Click của nút “Thêm”:
DO FORM form\hdbhang
thisform.Release
Sự kiện Click của nút “Hủy”:
PUBLIC sohoadon
x = MESSAGEBOX("BAN CO MUON XOA KHONG?",4 + 32,"XAC NHAN")
IF x == 6
SELECT hoadon
IF EOF()
RETURN ELSE GO RECNO()
sohoadon=ALLTRIM(sohd)
DELETE PACK (adsbygoogle = window.adsbygoogle || []).push({});
SELECT donghd
DELETE FOR ALLTRIM(sohd)=sohoadon
PACK ENDIF ENDIF
SELECT donghd
INDEX on sohd TO idx\m
SELECT hoadon
INDEX on sohd TO idx\n
SET RELATION TO sohd INTO donghd
thisform.grid1.SetFocus thisform.grid1.refresh thisform.grid2.refresh
Sự kiện Click của nút “Sửa”:
thisform.grid1.column1.SetFocus thisform.grid1.refresh
thisform.grid2.refresh
5. Form “hdbhang”
Sự kiện Init của form:
chay=.t.
PUBLIC a ,so_hd,so_seri
SELECT hoadon
SET FILTER TO
SET FILTER TO loaihd='1'
SELECT donghd
SET FILTER TO
SET FILTER TO loaihd='1'
GO BOTTOM
thisform.text2.Enabled = .f.
thisform.text1.Enabled = .f.
thisform.text12.Enabled = .f.
thisform.text3.Enabled = .f.
thisform.text8.Enabled = .f.
thisform.text11.Enabled = .f.
thisform.text5.Enabled = .f. (adsbygoogle = window.adsbygoogle || []).push({});
thisform.text6.Enabled = .f.
thisform.text4.Enabled = .f.
thisform.text7.Enabled = .f.
chay=.f.
RELEASE a,so_seri,so_hd
Sự kiện KeyPress của form:
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
CASE nkeycode=-3
thisform.themdong
thisform.grid1.column1.setfocus CASE nkeycode=27
thisform.Release ENDCASE
LostFocus của text1 (kiểm tra số hóa đơn):
PUBLIC so_hd
IF EMPTY(thisform.text1.value)
MESSAGEBOX("Phai nhap so hoa don!",16,"Thong bao")
thisform.text1.SETFOCUS RETURN 0
ELSE
so_hd=ALLTRIM(this.value)
ENDIF
LostFocus của text8 (kiểm tra số seri):
PUBLIC soseri
IF EMPTY(thisform.text1.value)
MESSAGEBOX("Phai nhap so seri!",16,"Thong bao")
thisform.text1.SETFOCUS RETURN 0
ELSE
soseri=ALLTRIM(this.value)
ENDIF
Themdong của form:
INSERT INTO donghd(sohd,seri,mahang,loaihd,solg,dgia) ; (adsbygoogle = window.adsbygoogle || []).push({});
VALUES (UPPER(ALLTRIM(so_hd)),UPPER(ALLTRIM(soseri)),"",'1',0,0)
thisform.grid1.refresh
GotFocus của text4 (tính tiền hàng):
PUBLIC shd,th
shd=thisform.text1.Value
th=0
SELECT donghd
SET FILTER TO UPPER(ALLTRIM(sohd))==UPPER(ALLTRIM(shd)).and.loaihd='1'
GO TOP SCAN th=th+donghd.solg*donghd.dgia ENDSCAN this.Value=th SELECT donghd
SET FILTER TO loaihd='1'
GotFocus của text7 (tính tiền chiết khấu)
PUBLIC so_hd,ck ck=0
SELECT donghd
SET FILTER TO
SET FILTER TO UPPER(ALLTRIM(sohd))==UPPER(ALLTRIM(so_hd)).and.loaihd='1'
GO TOP SCAN
ck=ck+donghd.solg*donghd.dgia*donghd.tyleck
ENDSCAN
this.Value=INT(ck)
SELECT donghd
SET FILTER TO loaihd='1'
GotFocus của text14 (tính tiền thuế):
PUBLIC shd,tax tax=0
SELECT donghd
LOCATE FOR ALLTRIM(sohd)=ALLTRIM(shd)
IF FOUND()
SELECT hangban
LOCATE FOR ALLTRIM(UPPER(mahang))=ALLTRIM(UPPER(donghd.mahang))
IF FOUND()
tax=tax+hangban.tsgtgt*0.01*thisform.text13.Value ENDIF (adsbygoogle = window.adsbygoogle || []).push({});
ENDIF CONTINUE
this.Value=INT(tax)
Sự kiện Click của nút “Nhập”:
SELECT donghd
DELETE FOR EMPTY(sohd)
PACK
thisform.text2.Enabled = .t.
thisform.text1.Enabled = .t.
thisform.text8.Enabled = .t.
thisform.text12.Enabled = .t.
thisform.text3.Enabled = .t.
thisform.text11.Enabled = .t.
thisform.text5.Enabled = .t.
thisform.text6.Enabled = .t.
thisform.text4.Enabled = .t.
thisform.text7.Enabled = .t.
thisform.text13.Enabled = .t.
thisform.text14.Enabled = .t.
thisform.text15.Enabled = .t.
thisform.combo1.Enabled = .t.
thisform.combo2.Enabled = .t.
thisform.text2.Value= CTOD("")
thisform.text1.Value= ''
thisform.text8.Value= ''
thisform.combo1.ListIndex = 0
thisform.combo2.ListIndex = 0
thisform.text3.Value= ''
thisform.text14.Value= 0
thisform.text15.Value= 0
thisform.text1.SetFocus thisform.refresh (adsbygoogle = window.adsbygoogle || []).push({});
thisform.grid1.Refresh
thisform.command1.Enabled = .F.
thisform.command2.Enabled = .t.
Sự kiện Click của nút “Lưu”:
SELECT hoadon
DELETE FOR EMPTY(sohd)
PACK
thisform.grid1.Refresh
IF EMPTY(thisform.text1.value)
MESSAGEBOX("Phai nhap so hoa don!")
thisform.text1.SETFOCUS
thisform.command1.Enabled = .F.
ELSE
LOCATE FOR ALLTRIM(UPPER(thisform.text1.Value))==ALLTRIM(UPPER(sohd)) IF FOUND()
MESSAGEBOX("So hoa don nay da ton tai!",16,"Thong bao")
thisform.text1.SetFocus
thisform.command1.Enabled = .F.
ELSE
APPEND BLANK
REPLACE sohd WITH ALLTRIM(UPPER(thisform.text1.Value))
REPLACE seri WITH ALLTRIM(UPPER(thisform.text8.Value))
REPLACE loaihd WITH '1'
REPLACE ngaylap WITH thisform.text2.Value
REPLACE makh WITH ALLTRIM(UPPER(thisform.combo1.value))
REPLACE httt WITH ALLTRIM(UPPER(thisform.text6.Value))
REPLACE diengiai WITH thisform.text5.Value REPLACE tkno WITH thisform.combo2.Value REPLACE tienhang WITH thisform.text4.Value REPLACE tck WITH thisform.text7.Value REPLACE tthue WITH thisform.text14.Value thisform.command2.Enabled = .F.
thisform.command1.Enabled = .T.
ENDIF ENDIF
SELECT hoadon
SET ORDER TO sohd ASCENDING SELECT donghd (adsbygoogle = window.adsbygoogle || []).push({});
SET ORDER TO sohd ASCENDING thisform.Refresh
thisform.grid1.refresh
Sự kiện Click của nút “Thoát”:
DO FORM form\hdbh
thisform.Release
6. Form “bcbhcttmh”
Sự kiện Refresh của form:
this.Height=235
this.Width=490
this.AlwaysOnTop= .T.
this.AutoCenter= .T.
Sự kiện Click của nút “Xem”:
IF thisform.text1.Value>thisform.text2.Value
MESSAGEBOX("Ngay bat dau > ngay ket thuc!",0+16,"Thong bao")
thisform.text1.SetFocus RETURN
ENDIF
IF EMPTY(thisform.text1.value)
MESSAGEBOX("Chua nhap ngay bat dau!")
ENDIF
IF EMPTY(thisform.text2.value)
MESSAGEBOX("Chua nhap ngay ket thuc!")
ENDIF
******************************
ngay1=thisform.text1.Value
ngay2=thisform.text2.Value
******************************** DO prg\bcbhcttmh
SELECT bcbhcttmh
SET FILTER TO ngaylap>=ngay1 .and. ngaylap<=ngay2
REPORT FORM report\bcbhcttmh PREVIEW this.Refresh
REMOVE TABLE bcbhcttmh (adsbygoogle = window.adsbygoogle || []).push({});
Bcbhcttmh.prg
SELECT donghd
SELECT 0
CREATE TABLE data\bcbhcttmh (sohd char(8),seri char(8),mahang
char(10),solg numb(8),dgia numb(9),loaihd char(1),;
ngaylap DATE(8),tienthue numb(12),tienhang numb(15),maloai
char(8),tenloai char(40),;
tenhang char(50),dvt char(10),tsgtgt numb(2))
APPEND FROM donghd FOR loaihd='1'
REPLACE ALL tienhang WITH dgia*solg
SELECT hangban
INDEX on UPPER(ALLTRIM(mahang)) TO idx\1
SELECT bcbhcttmh
INDEX on UPPER(ALLTRIM(mahang)) TO idx\2
SET RELATION TO UPPER(ALLTRIM(mahang)) INTO hangban
REPLACE ALL bcbhcttmh.tenhang WITH hangban.tenhang,bcbhcttmh.tsgtgt WITH
hangban.tsgtgt,;
bcbhcttmh.dvt WITH hangban.dvt,bcbhcttmh.maloai WITH hangban.maloai
REPLACE ALL tienthue WITH 0.01*tienhang*tsgtgt
SELECT hoadon
INDEX on maloai TO idx\5
SELECT bcbhcttmh
INDEX on maloai TO idx\6
SET RELATION TO maloai INTO loaihang
REPLACE ALL bcbhcttmh.tenloai WITH loaihang.tenloai
NHẬN XÉT CỦA NGƯỜI HƯỚNG DẪN ĐỒ ÁN
Họ và tên người hướng dẫn: Nhận xét đồ án tốt nghiệp Sinh viên: Phạm Thị Thủy
Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế
Tên đề tài:
“Xây dựng phân hệ kế toán doanh thu bán hàng và các khoản giảm trừ doanh thu bán hàng ở công ty CP công nghệ Việt Nhật” (adsbygoogle = window.adsbygoogle || []).push({});
Nội dung nhận xét: ... ... ... ... ... ... ... ... ... ... ... ... ... Điểm: - Bằng số:... - Bằng chữ:... Người nhận xét
NHẬN XÉT CỦA NGƯỜI PHẢN BIỆN
Họ và tên người hướng dẫn: Nhận xét đồ án tốt nghiệp Sinh viên: Phạm Thị Thủy
Lớp: K43/41.02 Khoa: Hệ thống thông tin kinh tế
Tên đề tài:
“Xây dựng phân hệ kế toán doanh thu bán hàng và các khoản giảm trừ doanh thu bán hàng ở công ty CP công nghệ Việt Nhật”
Nội dung nhận xét: ... ... ... ... ... ... ... ... ... ... ... ... ... Điểm: - Bằng số:... - Bằng chữ:... Người nhận xét (Ký và ghi rõ họ tên) SV: Phạm Thị Thủy 92 Lớp: K43/41.02