- Giao diện đăng nhập:
3.2. Giới thiệu các chức năng (Mođule) 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: - Các chức năng Hệ thống:
Quản lý người dùng : Cho phép đăng ký người dùng, đăng nhập và đổi mật khẩu.
Sao lưu dữ liệu: Cho phép sao lưu dữ liệu.
Khai báo ban đầu: Khai báo về năm hạch toán và khai báo số dư đầu kỳ.
Thông tin về công ty: Cho phép sửa thông tin công ty, và xem thông tin công ty.
Phục hồi dữ liệu.
- Quản lý các từ điển dữ liệu và việc cập nhật dữ liệu:
Quản lí các danh mục: Có thể thêm mới, sửa đổi thông tin, xoá một bản ghi trong cơ sở dữ liệu; và có thể xem thông tin bản ghi.
Quản lý và cập nhật phiếu nhập, phiếu xuất. - Lập các sổ, báo cáo:
Bảng kê phiếu nhập Bảng kê phiếu xuất Sổ chi tiết
Thẻ kho
Báo cáo Nhập - Xuất - Tồn Sổ cái
- Truy vấn:
Cho phép kiểm tra hàng tồn kho - Trợ giúp:
Cung cấp cho người dùng các thông tin: Hướng dẫn sử dụng
Thông tin về các phím tắt Thông tin về chương trình
* Trong điều kiện thời gian không cho phép, cơ bản đồ án đã thực hiện được các chức năng kể trên, nhưng còn có chức năng chưa hoàn thiện.
- Hệ thống báo cáo mới chỉ phục vụ được những yêu cầu căn bản của công tác Kế toán vật tư. Do đó cần hoàn thiện hơn nữa để có thể phục vụ được tốt hơn các yêu cầu.
- Phần sao lưu, phục hồi dữ liệu chưa phân cấp theo từng phần dữ liệu, từng người sử dụng nên cần hoàn thiện thêm chức năng này để tăng cường chế độ bảo mật thông tin và dữ liệu.
Trong thời gian tới, đồ án sẽ tiếp tục được phát triển thành một ứng dụng hoàn thiện, phục vụ nhu cầu của đơn vị thực tập.
KẾT PHẦN LUẬN
Tác động mạnh mẽ của Công nghệ thông tin đã tạo ra thay đổi trong mọi lĩnh vực của đời sống kinh tế và xã hội. Đặc biệt đối với nền kinh tế thị trường, khi cạnh tranh là vấn đề quyết định đến sự sống còn của mỗi doanh nghiệp thì ứng dụng tin học vào công tác kế toán trở thành một tất yếu, trong đó công tác kế toán Vật tư là vô cùng quan trọng. Đề tài: “Tin học hoá công tác kế toán Vật tư tại công ty Cổ phần Xây dựng và phát triển Nông thôn 6” được thực hiện dựa trên nhu cầu thực tế với mong muốn giảm bớt vất vả khó khăn trong công tác kế toán Vật tư.
Trong điều kiện nhất định, đề tài đã đáp ứng được một số mục tiêu cơ bản trong công tác Kế toán Vật tư như:
- Xây dựng hoàn chỉnh cơ sở dữ liệu về công tác Kế toán tại Công ty. - Xây dựng được một số module cơ bản của công tác Kế toán Vật tư tại Công ty.
- Xây dựng hoàn chỉnh những thuật toán điển hình của phần mềm. Dù đã cố gắng song do nhận thức còn có hạn, đồ án không thể tránh khỏi những hạn chế và thiếu sót. Em kính mong sẽ 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ị 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 các cán bộ của phòng kế toán Công ty Cổ phần Xây dựng và phát triển Nông thôn 6; các thầy cô giáo, đặc biệt là thầy giáo Th.S.Vũ Bá Anh đã tạo điều kiện để em hoàn thành đồ án.
Hà Nội , ngày 20 tháng 4 năm 2010 Sinh viên: Trần Thị Thu Hiền
DANH MỤC TÀI LIỆU THAM KHẢO
[1] Thạc sĩ.Vũ Bá Anh. Giáo trình cơ sở dữ liệu - Trường Học Viện Tài
chính.
[2] KS. Đinh Xuân Lâm. Những bài thực hành Visual Foxpro. NXB thống kê [3] TS. Trương Văn Tú và TS Nguyễn Thị Song Minh. Giáo trình hệ thống
thông tin quản lý.
[4] Nguyễn Văn Vỵ. Giáo trình phân tích thiết kế hệ thống thông tin. NXB
thống kê. Hà Nội, 2002.
[5] Một số tài liệu của Công Ty Cổ Phần Xây dựng và phát triển nông thôn 6 . [6] Kế toán doanh nghiệp với Visual Foxpro. Nhà xuất bản Thống Kê.
[7] Chế độ kế toán doanh nghiệp ban hành theo quyết định số 15/ 2006/ QĐ-
1. Chương trình chính: Clear Memo Clear Menu Clear Program Clear Resources Clear Window Close Databases All Close All
Clear All Set Date french Set Status Bar Off Set Sysmenu On Set Deleted On Set Exclusive Off Set Escape Off Set Talk Off Set Safety Off Set Hours To 24 Set Century On
SET STATUS bar ON Set Sysmenu Off Set date FRENCH
Set Notify Off Set Null Off
Set Nulldisplay To '' SET CLOCK ON
SET udfparms to reference SET MULTILOCKS ON
SET DEFAULT TO SYS(5) + CURDIR() SET PATH TO C:\;D:\;E:\;F:\;G:\;H:\
*_SCREEN.WindowState = 2 *_screen.Closable= .F. PUBLIC quyen1 PUBLIC ten1 STORE '' TO quyen1 STORE '' TO ten1
DO FORM FULLPATH("")+"form\login.scx" READ events
Code cho sự liện click của command “Đăng nhập”: CLOSE all
SELECT 0
USE data\nguoidung
LOCATE FOR ALLTRIM(tendn)= ALLTRIM(thisform.txt_tendn.Value) .and. ALLTRIM(matkhau)=ALLTRIM(thisform.txt_mk.Value)
IF FOUND()
MESSAGEBOX(“Bạn nhập thành công”,0) ten1=tendn
quyen1=quyen thisform.release
DO FORM d:\hien\form\main.scx ELSE
MESSAGEBOX(“NHập sai, xin mời nhập lại”,0) thisform.txt_tendn.Value=''
thisform.txt_mk.Value='' ENDIF
USE
3. Form “Đăng ký người dùng ” :
Code sự kiện Load cho form: CLOSE TABLES ALL OPEN DATABASE data\ktvt USE data\nguoidung IN 1 exclusive SELECT nguoidung
Code sự kiện click của command “Mới ” : thisform.text1.Enabled = .t.
thisform.text2.Enabled = .t. thisform.text3.Enabled = .t. thisform.text4.Enabled = .t. thisform.combo1.Enabled = .t. thisform.cmdmoi.Enabled=.f. thisform.cmdsua.Enabled=.f. thisform.cmdxoa.caption="Ghi" thisform.cmdthoat.caption="Huỷ" thisform.text1.setfocus
thisform.cmdsua.Enabled=.f. thisform.cmdxoa.caption="Lưu" thisform.cmdthoat.caption="Huỷ" thisform.text1.value=tendn
thisform.text2.value='' thisform.text3.value='' thisform.text4.value=hoten thisform.combo1.value=2 thisform.text1.setfocus
Code cho sự kiện click của cmmand “Xóa”: IF this.Caption="\<Xoá"
x=MESSAGEBOX("Bạn có chắc muốn xóa người dùng này không?",1 + 32,"Chú ý")
IF x==1
SET DELETED ON DELETE
thisform.grid1.refresh ENDIF
ENDIF
IF this.Caption="\<Lưu" y=RECNO()
IF EMPTY(thisform.text1.Value) or EMPTY(thisform.text2.Value) or EMPTY(thisform.text4.Value)
=MESSAGEBOX("Hãy điền đầy đủ thông tin cho người dùng!",0+16,"Chú ý")
else
IF EMPTY(thisform.combo1.Value)
=MESSAGEBOX("Hãy chọn quyền truy nhập cho người dùng!",0+16,"Chú ý")
ELSE
IF ALLTRIM(thisform.text2.value)!=ALLTRIM(thisform.text3.value) MESSAGEBOX("Xác nhận lại mật khẩu cho đúng",32,"Chú ý") thisform.text2.setfocus
else
IF alltrim(thisform.text1.value)<>tendn
LOCATE FOR ALLTRIM(tendn)==ALLTRIM(thisform.text1.value) IF FOUND()
MESSAGEBOX("Tên đăng nhập này đã tồn tại",32,"Chú ý") thisform.text1.SetFocus
ELSE GO y
replace tendn WITH ALLTRIM(thisform.text1.value)
IF thisform.combo1.listindex=2 replace quyen WITH 'toanquyen'
ELSE
replace quyen WITH 'gioihan' ENDIF
MESSAGEBOX("Đã sửa thành công",32,"Thông báo") thisform.text1.Enabled = .f.
thisform.text2.Enabled = .f. thisform.text3.Enabled = .f. thisform.text4.Enabled = .f. thisform.combo1.Enabled = .f. thisform.cmdmoi.Enabled=.t. thisform.cmdsua.Enabled=.t. thisform.cmdxoa.caption="\<Xoá" thisform.cmdthoat.caption="\<Thoát" thisform.Refresh
endif ELSE
replace tendn WITH ALLTRIM(thisform.text1.value)
replace matkhau WITH ALLTRIM(thisform.text2.value) replace hoten WITH ALLTRIM(thisform.text4.value) IF thisform.combo1.listindex=2
replace quyen WITH 'toanquyen' ELSE
replace quyen WITH 'gioihan' ENDIF
MESSAGEBOX("Đã sửa thành công",32,"Thông báo") thisform.text1.Enabled = .f.
thisform.text2.Enabled = .f. thisform.text3.Enabled = .f. thisform.text4.Enabled = .f. thisform.combo1.Enabled = .f. thisform.cmdmoi.Enabled=.t. thisform.cmdsua.Enabled=.t. thisform.cmdxoa.caption="\<Xoá" thisform.cmdthoat.caption="\<Thoát" thisform.Refresh
EMPTY(thisform.text4.Value)
=MESSAGEBOX("Hãy điền đầy đủ thông tin cho người dùng!",0+16,"Chú ý")
else
IF EMPTY(thisform.combo1.Value)
=MESSAGEBOX("Hãy chọn quyền truy nhập cho người dùng!",0+16,"Chú ý")
ELSE
IF ALLTRIM(thisform.text2.value)!=ALLTRIM(thisform.text3.value) MESSAGEBOX("Xác nhận lại mật khẩu cho đúng",32,"Chú ý") thisform.text2.setfocus
else
SELECT nguoidung
LOCATE FOR tendn=ALLTRIM(thisform.text1.value) IF FOUND()
MESSAGEBOX("Tên đăng nhập này đã tồn tại",0+16,"Chú ý") thisform.text1.setfocus
else
APPEND BLANK
replace tendn WITH ALLTRIM(thisform.text1.value) replace matkhau WITH ALLTRIM(thisform.text2.value) replace hoten WITH ALLTRIM(thisform.text4.value) IF thisform.combo1.listindex=2
replace quyen WITH 'toanquyen' ELSE
replace quyen WITH 'gioihan' ENDIF
MESSAGEBOX("Đã thêm vào danh sách người dùng",32,"Thông báo") thisform.text1.value=''
thisform.text2.value='' thisform.text3.value='' thisform.text4.value='' thisform.combo1.Value='' thisform.text1.Enabled = .f. thisform.text2.Enabled = .f. thisform.text3.Enabled = .f. thisform.text4.Enabled = .f. thisform.combo1.Enabled = .f. thisform.cmdmoi.Enabled=.t. thisform.cmdsua.Enabled=.t. thisform.cmdxoa.caption="\<Xoá" thisform.cmdthoat.caption="\<Thoát" thisform.Refresh
ENDIF ENDIF ENDIF ENDIF
4. Form “Khai báo tài khoản”:
Code sự kiện click của command “Thêm”: flag1 = ''
IF thisform.Txt_shtk.value == '' then
MESSAGEBOX(“Bạn phải nhập số hiệu tài khoản”,0) flag1 = 'X'
ENDIF
IF thisform.Txt_tentk.value == '' then
MESSAGEBOX(“Bạn phải nhập tên tài khoản”,0) flag1 = 'X'
ENDIF
IF thisform.txt_loaitk.Value == ''then
MESSAGEBOX(“Bạn phải nhập loại tài khoản”, 0) flag1 = 'X'
ENDIF
IF flag1 <> 'X' then SELECT dmtaikhoan
LOCATE FOR ALLTRIM(sohieutk)=ALLTRIM(thisform.Txt_shtk.Value) IF FOUND()
MESSAGEBOX(“Không tồn tại tài khoản này! Mời nhập lại”,0) DELETE FOR EMPTY(sohieutk)
else
APPEND BLANK
replace sohieutk WITH ALLTRIM(thisform.txt_shtk.Value),tentk WITH ALLTRIM(thisform.txt_tentk.Value),loaitk WITH
ALLTRIM(thisform.txt_loaitk.Value)
d = 'Tai khoan ' + ALLTRIM(thisform.Txt_shtk.Value) + ' Da duoc tao' MESSAGEBOX(d,0)
ENDIF ENDIF
5. Form “Phiếu nhập”:
Code sự kiện Init của form: SELECT dongphieun
CREATE TABLE temp_pn FREE (sophieu character(10),mavt
character(8),tenvt character(20),dvt character(10),soluong float(10,2),dongia float(10,2),thanhtien float(15,2))
SELECT temp_pn
thisform.grid1.RecordSource="temp_pn" thisform.grid1.ColumnCount=6
thisform.grid1.column1.ControlSource="temp_pn.mavt" thisform.grid1.column2.ControlSource="temp_pn.tenvt" thisform.grid1.column3.ControlSource="temp_pn.dvt" thisform.grid1.column4.ControlSource="temp_pn.soluong" thisform.grid1.column5.ControlSource="temp_pn.dongia" thisform.grid1.column6.ControlSource="temp_pn.thanhtien"
*---Header trong Grid1---*
thisform.grid1.column1.header1.caption="Mã vật tư" thisform.grid1.column2.header1.caption="Tên vật tư" thisform.grid1.column3.header1.caption="Đơn vị tính" thisform.grid1.column4.header1.caption="Số lượng" thisform.grid1.column5.header1.caption="Đơn giá" thisform.grid1.column6.header1.caption="Số tiền" code sự kiện Load của Form:
CLOSE TABLES ALL OPEN DATABASE data\ktvt SET safety off
USE data\dmvt IN 1
USE data\dongphieun IN 2 USE data\dmnhacc IN 3 USE data\dmkho IN 4 USE data\dmtaikhoan IN 5 USE temp_pn IN 6
USE data\phieun IN 7
Code sự kiện click của command “Nhập” : SELECT temp_pn
APPEND BLANK thisform.grid1.Refresh
Code sự kiện click của command “Lưu” : SELECT 7
IF FOUND()
MESSAGEBOX("Số phiếu này đã tồn tại! Mời nhập lại”,0) ELSE
DELETE FOR EMPTY(sophieu) SET DELETED on
delete
APPEND BLANK
replace manhacc WITH ALLTRIM(thisform.combo3.Value) replace lido WITH ALLTRIM(thisform.txt_diengiai.Value) replace makho WITH ALLTRIM(thisform.combo1.Value) replace tkno WITH ALLTRIM(thisform.txt_tkno.value) replace tkco WITH ALLTRIM(thisform.txt_tkco.Value) replace ngayphieu WITH thisform.txt_ngayp.value
replace sophieu WITH ALLTRIM(thisform.txt_sophieu.Value) replace sotien WITH thisform.txt_tongtien.value
SELECT 6 GO top
DO WHILE NOT EOF()
STORE "" TO _mavt,_tenvt,_dvt,_soluong,_dongia _mavt=mavt _tenvt=tenvt _dvt=dvt _soluong=soluong _dongia=dongia INSERT INTO data\dongphieun(sophieu,mavt,tenvt,dvt,soluong,dongia); VALUES
(thisform.txt_sophieu.value,_mavt,_tenvt,_dvt,_soluong,_dongia) SKIP
ENDDO ENDIF
SELECT 2
DELETE FOR EMPTY(mavt) SET DELETED on
thisform.combo1.value="" thisform.txt_tenkho.Value="" thisform.txt_sophieu.Value="" thisform.txt_tkno.Value="" thisform.txt_tkco.Value="" thisform.txt_tentkno.Value="" thisform.txt_tentkco.Value="" thisform.txt_ngayp.Value="" thisform.combo2.Value="" thisform.txt_tongtien.Value="" thisform.txt_thue.Value="" thisform.txt_thanhtoan.Value="" thisform.combo3.SetFocus
Code sự kiện click của command “In” của Form: SET PROCEDURE TO prg\tienchu.prg
REPORT FORM report\phieunhap PREVIEW FOR dongphieun.sophieu=thisform.txt_sophieu.value
6. Báo cáo Nhập – Xuất – Tồn:
Code sự kiện Init của Form :
CREATE TABLE nxtpn FREE (mavt character (8),tenvt character (30),dvt character (10),makho character (5), soluong float(10,2), thanhtien float (15,2)) CREATE TABLE nxtpx FREE (mavt character (8),tenvt character (30),dvt character (10),makho character (5), soluong float(10,2), thanhtien float (15,2)) CREATE TABLE nxt FREE (mavt character (8),tenvt character (30),dvt character (10),makho character (5), sltondau float(10,2), tttondau float (15,2), sln float(10,2),ttn float(15,2),slx float(10,2),ttx float(15,2))
Code sự kiện Load của Form: CLOSE TABLES ALL USE data\dmkho IN 0 USE data\phieun IN 1 USE data\dongphieun IN 2 USE data\phieux IN 3 USE data\dongphieux IN 4 USE data\tondauki IN 5 USE data\dmvt IN 6 USE data\ttcty IN 7 USE a3 IN 8
Code sự kiện click cho commad “In”: x1=thisform.txt_tungay.Value
MESSAGEBOX("Bạn chưa nhập thông tin ngày!",0+32) RETURN
ELSE if(x1>x2)
MESSAGEBOX("Chọn ngày không hợp lệ!",0+32) thisform.txt_tungay.Value=''
thisform.txt_denngay.Value='' thisform.txt_tungay.SetFocus ENDIF
ENDIF
x3=thisform.combo1.Value IF x3="KHOC"
x4="Kho vật tư chính, số 36, ngõ 120 Trường Chinh" ENDIF
IF x3="KHOP"
x4="Kho nhiên liệu, phụ tùng thay thế, số 36, ngõ 120 Trường Chinh" ENDIF IF x3="Toàn bộ" x4="Toàn bộ" ENDIF IF x3="KHOC" OR x3="KHOP" SELECT phieun.makho,dongphieun.mavt,dongphieun.tenvt,dongphieun.dvt,dongphieun. soluong,dongphieun.dongia FROM phieun,dongphieun;
where alltrim(phieun.sophieu)==alltrim(dongphieun.sophieu) AND alltrim(phieun.makho)==x3 AND phieun.ngayphieu>=x1 AND phieun.ngayphieu<=x2 INTO TABLE nxt_pn.dbf
SELECT nxt_pn GO top
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt
_tenvt=tenvt _dvt=dvt
SKIP ENDDO SELECT nxtpn
INDEX on mavt TO p1
TOTAL TO a1 ON mavt FIELDS soluong,thanhtien USE a1 IN 0
SELECT a1 GO TOP
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=thanhtien
INSERT INTO nxt (mavt,tenvt,dvt,makho,sln,ttn) VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP ENDDO SELECT a1 USE a1 SELECT phieux.makho,dongphieux.mavt,dongphieux.tenvt,dongphieux.dvt,dongphieux. soluong,dongphieux.dongia FROM phieux,dongphieux;
where alltrim(phieux.sophieu)==alltrim(dongphieux.sophieu) AND alltrim(phieux.makho)==x3 AND phieux.ngayphieu>=x1 AND phieux.ngayphieu<=x2 INTO TABLE nxt_px.dbf
SELECT nxt_px GO top
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=soluong*dongia
INSERT INTO nxtpx (mavt,tenvt,dvt,makho,soluong,thanhtien); VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP ENDDO SELECT nxtpx INDEX on mavt TO p2
TOTAL TO a2 ON mavt FIELDS soluong,thanhtien USE a2 IN 0
SELECT a2 GO TOP
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=thanhtien
INSERT INTO nxt (mavt,tenvt,dvt,makho,slx,ttx) VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP ENDDO SELECT a2 USE a2 SELECT nxt INDEX on mavt TO p7
TOTAL TO a4 ON mavt FIELDS sln,ttn,slx,ttx USE a4 IN 0
SELECT a4
REPORT FORM report\baocao_nxt PREVIEW
SELECT a4 USE a4 ELSE
SELECT nxt_pn GO top
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=soluong*dongia
INSERT INTO nxtpn (mavt,tenvt,dvt,makho,soluong,thanhtien); VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP
ENDDO SELECT nxtpn
INDEX on mavt TO p1
TOTAL TO a1 ON mavt FIELDS soluong,thanhtien USE a1 IN 0
SELECT a1 GO TOP
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=thanhtien
INSERT INTO nxt (mavt,tenvt,dvt,makho,sln,ttn) VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP ENDDO SELECT a1 USE a1 SELECT phieux.makho,dongphieux.mavt,dongphieux.tenvt,dongphieux.dvt,dongphieux. soluong,dongphieux.dongia FROM phieux,dongphieux;
where alltrim(phieux.sophieu)==alltrim(dongphieux.sophieu) AND
GO top
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=soluong*dongia
INSERT INTO nxtpx (mavt,tenvt,dvt,makho,soluong,thanhtien); VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP
ENDDO SELECT nxtpx
INDEX on mavt TO p2
TOTAL TO a2 ON mavt FIELDS soluong,thanhtien USE a2 IN 0
SELECT a2 GO TOP
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=thanhtien
INSERT INTO nxt (mavt,tenvt,dvt,makho,slx,ttx) VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien)
SKIP ENDDO SELECT a2 USE a2
SELECT a4
REPORT FORM report\baocao_nxt PREVIEW SELECT a4
USE a4 ENDIF
NHẬN XÉT ĐƠN VỊ THỰC TẬP
Phòng Kế Toán – Tài Chính Công ty Cổ phần Xây dựng và Phát triển Nông thôn 6. Họ tên người nhận xét: ………. Nhận xét đồ án thực tập : ………. ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… Sinh viên: ……….………... Lớp: ………Khóa: ……….. Tên đề tài:………... ………
Hà nội, ngày … tháng … năm 2010 Người nhận xét
NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN Họ và tên giảng viên hướng dẫn: Th.S. Vũ Bá Anh
Nhận xét đồ án thực tập : ……….. ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… Sinh viên: ……….. Lớp:………Khóa: ……… Tên đề tài: ………. ……… Điểm: - Bằng số:……….. - Bằng chữ:………
Hà nội, ngày … tháng … năm 2010 Người nhận xét
NHẬN XÉT CỦA NGƯỜI PHẢN BIỆN
Họ và tên người phản biện đồ án: ………
Nhận xét đồ án:……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… Sinh viên:……….. Lớp:………Khóa:……… Tên đề tài đồ án:……… ……… Điểm: - Bằng số:……… - Bằng chữ:……….
Hà nội, ngày … tháng … năm 2010 Người nhận xét