Báo cáoBáo cáo
Thông tin hàng hoá
Thông tin
hàng hoá khách hàngThông tin Thông tin khách hàng
Thông tin kho Thông tin
kho Thông tin nhân viên
Thông tin nhân viên
Theo dõi thanh toán với khách hàng Theo dõi thanh toán
với khách hàng Bảng kê hoá đơn Bảng kê hoá đơn nhập hàngnhập hàng Bảng kê hoá đơn Bảng kê hoá đơn bán hàngbán hàng
Tìm kiếmTìm kiếm TK về khách hàng TK về khách hàng TK về hàng hoáTK về hàng hoá TK theo hoá đơn bán hàng TK theo hoá
đơn bán hàng TK về TK về khokho nhân viênnhân viênTK về TK về TK theo chứng từ chuyển khoTK theo chứng từ chuyển kho
Hệ thốngHệ thống
Phân quyền sử dụng Phân quyền
sử dụng PasswordThay đổi Thay đổi
Password Trợ giúp
+ Form login hệ thống : Yêu cầu ngời dùng nhập tên và mật khầu
Tên ngời dùng: Dong
Xuan Hau
Mật khẩu: abc
+ Màn hình cập nhật và xem thông tin nhân viên trong công ty
+ Form xuất hàng bán.
+ Form thanh toán với khách trả ngay.
+ Form cập nhật kho hàng.
+ form nhập dữ liệu khách hàng trả nợ.
+ Form cho xem thông tin nhanh + Form lọc báo cáo.
+ Form tìm kiếm thông tin
+ Quá trình mua hàng của khách
+ Báo cáo thanh toán với khách hàng.
+ Báo cáo hàng trong kho
Kết luận
Sau thời gian thực tập tại công ty phần mềm quản lý doanh nghiệp Fast nhờ sự hớng dẫn tận tình của thầy giáo Trịnh Phú Cờng và sự hớng dẫn trực tiếp của anh Phan Thế Chiến và một số anh chị trong công ty phần mềm cùng với sự cố gắng của bản thân, em đã hoàn thành chuyên đề thực tập tôt nghiệp “ Phân tích và thiết kế hệ thống thông tin quản lý bán hàng”
Đề tài hoàn thành giải quyết đợc một số vấn đề bất cập của hệ thống thủ công trớc đây nh: Nâng cao tốc độ xử lý dữ liệu, thiết lập các báo cáo nhanh, mức độ chính xác cao, lu trữ dữ liệu đồng bộ, giảm thiểu sự trùng lập dữ liệu
Tuy nhiên, do thời hạn và kiến thức có hạn nên chơng trình ứng dụng vẫn còn nhiều thiếu xót và hạn chế nh: Chơng trình mới chỉ chạy đợc trên máy đơn, cha bẫy hết các lỗi khi chạy chơng trình, cơ sở dữ liệu còn nhiều thiếu xót.
Phát triển ứng dụng để có thể chạy trên mạng công ty Thiết kế cơ sở dữ liệu có thể truy cập từ xa.
Đa ra các báo cáo có thể trợ giúp cho các quyết định. Hoàn thiện các module xử lý.
Để giải quyết đợc những vớng mắc trên đòi hỏi phải có thời gian và kinh nghiệm. Hy vọng một ngày gần đây em sẽ hoàn thiện chơng trình một cách tôt nhất.
Một lần nữa em xin chân thành cảm ơn thầy giáo Trịnh pHú Cờng và anh Phan thế Chiến cùng các thầy cô giáo trong khoa Tin học kinh tế trờng Đại học KTQD và các anh chị trong công ty phần mềm kế toán fast đã giúp đỡ em hoàn thành chuyên đề thực tập tốt nghiệp này.
Tài liệu tham khảo
1.TS Hàn Viết Thuận.
Giáo trình cấu trúc dữ liệu, Trờng đại học Kinh Tế Quốc Dân, NXB thống kê - 1999
2.TS Trơng Văn Tú – TS Trần Thị Song Minh
Giáo trình hệ thống thông tin quản lý, Trờng Đại học Kinh Tế Quốc Dân, Hà Nội – 2000
3. Th S Trần Công Uẩn
Giáo trình cơ sở dữ liệu, Trờng Đại học Kinh Tế Quốc Dân , nhà xuất bản Thống Kê - 2000
4. Nguyễn Ngọc Minh – Nguyễn Đình Tê
Sử dụng và khai thác Visual FoxPro 6.0 nhà xuất bản lao động xã hội 5. KS Hoàng Hồng
Thực hành lập trình FOXPRO FOR WINDOWS nhà xuất bản giao thông vận tải 6. VN-Guide
Những bài thực hành Visual Foxpro NXB thống kê
Phục lục
*************************************************************** * Chuong trinh quan ly ban hang QLBH 1.0
*
*************************************************************** SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1530kqdap OF _MSYSMENU PROMPT "Hệ thống" COLOR SCHEME 3
DEFINE PAD _1530kqdaq OF _MSYSMENU PROMPT "Cập nhật" COLOR SCHEME 3
DEFINE PAD _1530kqdar OF _MSYSMENU PROMPT "chung tu" COLOR SCHEME 3
DEFINE PAD _1530kqdas OF _MSYSMENU PROMPT "Báo cáo" COLOR SCHEME 3
DEFINE PAD _1530kqdat OF _MSYSMENU PROMPT "Tìm kiếm" COLOR SCHEME 3
*DEFINE PAD _1530kqdau OF _MSYSMENU PROMPT "Trợ giúp" COLOR ON PAD _1530kqdap OF _MSYSMENU ACTIVATE POPUP hethong
ON PAD _1530kqdaq OF _MSYSMENU ACTIVATE POPUP capnhat ON PAD _1530kqdar OF _MSYSMENU ACTIVATE POPUP chungtu ON PAD _1530kqdas OF _MSYSMENU ACTIVATE POPUP baocao ON PAD _1530kqdat OF _MSYSMENU ACTIVATE POPUP timkiem *ON PAD _1530kqdau OF _MSYSMENU ACTIVATE POPUP trogiup
DEFINE POPUP hethong MARGIN RELATIVE SHADOW COLOR SCHEME 2
DEFINE BAR 1 OF hethong PROMPT "\<gioi thieu" FONT M_Font_Name, M_font_Size
DEFINE BAR 2 OF hethong PROMPT "\<Thoát" FONT M_Font_Name, M_font_Size
*!* ON SELECTION BAR 1 OF hethong DO Option IN (K_Fxp + [Main]) &&FORM (K_Scx + 'frmMenu') NAME _fMain
ON SELECTION BAR 1 OF hethong DO Smabout
ON SELECTION BAR 2 OF hethong DO QuitProc IN Main
DEFINE POPUP capnhat MARGIN RELATIVE SHADOW COLOR SCHEME 3 FONT M_Font_Name, M_font_Size
DEFINE BAR 1 OF capnhat PROMPT "Danh mục nhà cung cấp" FONT M_Font_Name, M_font_Size
DEFINE BAR 2 OF capnhat PROMPT "Danh mục hàng hoá" FONT M_Font_Name, M_font_Size
DEFINE BAR 3 OF capnhat PROMPT "Danh mục khách hàng" FONT M_Font_Name, M_font_Size
ON SELECTION BAR 1 OF capnhat DO FORM (K_Scx + [frmncc]) ON SELECTION BAR 2 OF capnhat DO FORM (K_Scx + [frmhh]) ON SELECTION BAR 3 OF capnhat DO FORM (K_Scx + [frmkh])
DEFINE POPUP qlgiaodich MARGIN RELATIVE SHADOW COLOR SCHEME 2 FONT M_Font_Name, M_font_Size
DEFINE BAR 1 OF qlgiaodich PROMPT "Hoá đơn bán hàng" FONT M_Font_Name, M_font_Size
DEFINE BAR 2 OF qlgiaodich PROMPT "Phiếu nhập hàng" FONT M_Font_Name, M_font_Size
ON SELECTION BAR 1 OF qlgiaodich DO FORM (K_Scx + [frmbh]) ON SELECTION BAR 2 OF qlgiaodich DO FORM (K_Scx + [frmpnh])
DEFINE POPUP baocao MARGIN RELATIVE SHADOW COLOR SCHEME 6 FONT M_Font_Name, M_font_Size
DEFINE BAR 1 OF baocao PROMPT "Sổ theo dõi thanh toán với khách hàng" FONT M_Font_Name, M_font_Size
DEFINE BAR 2 OF baocao PROMPT "Sổ theo dõi thanh toán với nhà cung cấp" FONT M_Font_Name, M_font_Size
DEFINE BAR 3 OF baocao PROMPT "Bảng kê hoá đơn bán hàng" FONT M_Font_Name, M_font_Size
DEFINE BAR 4 OF baocao PROMPT "Bảng kê hoá đơn nhập hàng" FONT M_Font_Name, M_font_Size
DEFINE BAR 5 OF baocao PROMPT "Danh mục khách hàng" FONT M_Font_Name, M_font_Size
DEFINE BAR 6 OF baocao PROMPT "Danh mục hàng hoá" FONT M_Font_Name, M_font_Size
DEFINE BAR 7 OF baocao PROMPT "Danh mục nhà cung cấp" FONT M_Font_Name, M_font_Size
ON SELECTION BAR 1 OF baocao DO FORM(K_Scx + [frmttvkh]) ON SELECTION BAR 2 OF baocao DO FORM(K_Scx + [frmttvncc])
ON SELECTION BAR 3 OF baocao Report form (K_Frx + 'bkhdbh') preview ON SELECTION BAR 4 OF baocao Report form (K_Frx + 'wbkhdnh') preview
ON SELECTION BAR 5 OF baocao Report form (K_Frx + 'dskh') preview ON SELECTION BAR 6 OF baocao Report form (K_Frx + 'dshh') preview ON SELECTION BAR 7 OF baocao Report form (K_Frx + 'dsncc') preview
DEFINE POPUP timkiem MARGIN RELATIVE SHADOW COLOR SCHEME 3 FONT M_Font_Name, M_font_Size
DEFINE BAR 1 OF timkiem PROMPT "Tìm kiếm thông tin về nhà cung cấp" FONT M_Font_Name, M_font_Size
DEFINE BAR 2 OF timkiem PROMPT "Tìm kiếm thông tin về khách hàng" FONT M_Font_Name, M_font_Size
DEFINE BAR 3 OF timkiem PROMPT "Tìm kiếm thông tin về hàng hoá" FONT M_Font_Name, M_font_Size
DEFINE BAR 4 OF timkiem PROMPT "Tìm kiếm thông tin theo hoá đơn bán hàng " FONT M_Font_Name, M_font_Size
DEFINE BAR 5 OF timkiem PROMPT "Tìm kiếm thông tin theo hoá đơn nhập hàng" FONT M_Font_Name, M_font_Size
ON SELECTION BAR 1 OF timkiem DO FORM(K_Scx + [frmtkncc]) ON SELECTION BAR 2 OF timkiem DO FORM(K_Scx + [frmtkkh]) ON SELECTION BAR 3 OF timkiem DO FORM(K_Scx + [frmtkhh]) ON SELECTION BAR 4 OF timkiem DO FORM(K_Scx + [frmtkthdbh]) ON SELECTION BAR 5 OF timkiem DO FORM(K_Scx + [frmtkthdnh])
DEFINE POPUP trogiup MARGIN RELATIVE SHADOW COLOR SCHEME 2 FONT M_Font_Name, M_font_Size
DEFINE BAR 1 OF trogiup PROMPT "Giới thiệu về tác giả" FONT M_Font_Name, M_font_Size
DEFINE BAR 2 OF trogiup PROMPT "Th giãn một chút" FONT M_Font_Name, M_font_Size
ON SELECTION BAR 1 OF trogiup DO (K_Fxp + [Smabout]) ON SELECTION BAR 2 OF trogiup DO (K_Fxp + [Smfunny])
* ********************************************************* PROCEDURE _1530kqdav DO QuitProc IN Main Nhóm các nút Về đầu go top thisform.refresh Về trớc skip-1 if bof() go top
=messagebox(" Đây là bản ghi đầu tiên !",0+48+0,"THông báo") endif
Kế tiếp skip if eof() go bottom
= messagebox(" Đây là bản ghi cuối cùng !",0+48+0,"THông báo") endif thisform.refresh Về cuối go bottom thisform.refresh Thêm = dodefault() if this.parent.them.caption="\<Thêm" then begin transaction this.parent.them.caption="\<Lu" this.parent.sua.caption="\<Hủy" this.parent.xoa.enabled=.f. this.parent.thoat.enabled=.f. append blank else this.parent.them.caption="\<Thêm" this.parent.sua.caption="\<Sửa"
this.parent.xoa.enabled=.t. this.parent.thoat.enabled=.t. end transaction endif thisform.refresh Sửa if this.parent.sua.caption="\<Sửa" then begin transaction this.parent.them.caption="\<Lu" this.parent.sua.caption="\<Hủy" this.parent.xoa.enabled=.f. this.parent.thoat.enabled=.f. else this.parent.them.caption="\<Thêm" this.parent.sua.caption="\<Sửa" this.parent.xoa.enabled=.t. this.parent.thoat.enabled=.t. rollback if eof() skip-1 endif endif
thisform.refresh Xoá
if messagebox(" Xoa record nay khong?",36,"Chu y")=6 delete set deleted on *pack close all if !eof() skip endif
if eof() and !bof() skip -1
endif endif
thisform.refresh Thoát
if messagebox("Co thoat khong(Y/N)" ,36,"thong bao")=6 then thisform.release
*close all endif
CLEAR ALL Init_SysVar() DO MainMenu
m_ScrRow = SROW() m_ScrCol = SCOL()
SET PROCEDURE TO PrgLib
_SCREEN.Caption = ConvertToVN(M_Ten_cty) + ' - ' + ALLTRIM(M_Version)
_SCREEN.Icon = "Qlbh.Ico"
CreateTmpDir() && tao thu muc tam cho chuong trinh RELEASE PAD _MTable OF _MSYSMENU
RELEASE PAD _MEdit OF _MSYSMENU RELEASE PAD _MFile OF _MSYSMENU RELEASE PAD _MView OF _MSYSMENU
RELEASE PAD _MSm_WINDO OF _MSYSMENU RELEASE PAD _MSm_FORMAT OF _MSYSMENU RELEASE PAD _MSm_TOOLS OF _MSYSMENU RELEASE PAD _MSm_PROG OF _MSYSMENU RELEASE PAD _MSm_SYSTM OF _MSYSMENU RELEASE PAD _MSm_TEXT OF _MSYSMENU HideToolBar()
DO FORM fLogin
OPEN DATABASE Data1 IF LASTKEY() = 27
QUIT ENDIF
RETURN
* thu tuc khoi tao bien he thong PROCEDURE Init_SysVar
SELECT 0
USE Sysvar ALIAS SysVar SCAN FOR !EMPTY(NAME)
M.Value = ALLTRIM(VALUE) M.Name = ALLTRIM(NAME) PUBLIC (M.Name)
DO CASE
CASE TYPE = 'C'
STORE ALLTRIM(M.Value) TO (M.Name) CASE TYPE = 'N'
STORE VAL(M.Value) TO (M.Name) CASE TYPE = 'D'
STORE CTOD(M.Value) TO (M.Name) CASE TYPE = 'S'
_Str = ALLT(M.Value) STORE &_Str TO (M.Name) ENDCASE
ENDSCAN USE IN SysVar RETURN
* thu tuc thiet lap moi truong lam viec PROCEDURE Set_Env
ON ERROR NUMLOCK(.T.) SET AUTO OFF SET BELL ON SET CARRY OFF SET CENT ON
SET CLOCK STATUS SET CONFIRM ON SET DATE FRENCH SET DECI TO 4 SET DELETED ON SET DEVELO ON
SET ESCAPE OFF SET EXACT OFF SET EXCLUSIVE OFF SET HELP ON
SET HOUR TO 24 SET NEAR ON
SET REFRESH TO 1,1 SET STATUS BAR ON SET SAFE OFF
SET TALK OFF SET SYSMENU OFF
SET UDFPARMS TO REFERENCE ENDPROC
*- Tao ra thu muc tam cho chuong trinh PROCEDURE CreateTmpDir() IF EMPTY(K_Tmp) K_Tmp = "C:\qlbhTMP\" ENDIF IF !DIRECTORY(K_Tmp) MD &K_Tmp ENDIF
ENDPROC
*- Xoa bo thu muc tam khi thoat PROCEDURE DeleteTmpDir(pDir)
pDir = IIF(PARAMETERS() < 1, K_Tmp, ALLTRIM(pDir)) DELETE FILE (pDir + '*.*')
RD &pDir ENDPROC
*Ham an cac thanh cong cu FUNCTION HideToolBar LOCAL i
TB_FORMDESIGNER_LOC = "Form Designer" TB_STANDARD_LOC = "Standard"
TB_LAYOUT_LOC = "Layout"
TB_QUERY_LOC = "Query Designer" TB_VIEWDESIGNER_LOC = "View Designer" TB_COLORPALETTE_LOC = "Color Palette" TB_FORMCONTROLS_LOC = "Form Controls" TB_DATADESIGNER_LOC = "Database Designer" TB_REPODESIGNER_LOC = "Report Designer" TB_REPOCONTROLS_LOC = "Report Controls" TB_PRINTPREVIEW_LOC = "Print Preview" WIN_COMMAND_LOC = "Command"
WIN_PROJECT_MAN = "Project Manager" DIMENSION aToolBars (13,2) aToolBars(1,1) = TB_FORMDESIGNER_LOC aToolBars(2,1) = TB_STANDARD_LOC aToolBars(3,1) = TB_LAYOUT_LOC aToolBars(4,1) = TB_QUERY_LOC aToolBars(5,1) = TB_VIEWDESIGNER_LOC aToolBars(6,1) = TB_COLORPALETTE_LOC aToolBars(7,1) = TB_FORMCONTROLS_LOC aToolBars(8,1) = TB_DATADESIGNER_LOC aToolBars(9,1) = TB_REPODESIGNER_LOC aToolBars(10,1) = TB_REPOCONTROLS_LOC aToolBars(11,1) = TB_PRINTPREVIEW_LOC aToolBars(12,1) = WIN_COMMAND_LOC aToolBars(13,1) = WIN_PROJECT_MAN FOR i = 1 TO ALEN(aToolBars, 1) aToolBars(i,2) = WVISIBLE(aToolBars(i,1)) IF aToolBars(i,2)
HIDE WINDOW (aToolBars(i,1)) ENDIF
ENDFOR ENDPROC