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 nhân viênTK về
TK về nhân viên TK về
kho TK về
kho TK theo chứng từ chuyển kho TK 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 Thay đổi Password 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
+ Tỡm kiếm kho hàng & hàng hoỏ trong kho
+ Bỏo cỏo thanh toỏn với khỏch hàng.
+ Bỏo cỏo cũn phải thu đối với từng khỏch hàng
+ Bỏo cỏo hàng chuỷen 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, lưu 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, chưa 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.
Trong thời gian tới, em dự định phỏt triển chương trỡnh ở một số điểm su: 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
PHỤC LỤC
*************************************************************** *Chuong trinh quan ly ban hang QLBH 1.0* 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 + [ ON SELECTION BAR 1 OF hethong DO Option IN (K_Fxp + [Main])&&FORM (K_Scx + 'frmMenu') NAME _fMain &&FORM (K_Scx + 'frmMenu') NAME _fMain
ON SELECTION BAR 1 OF hethong DO Smabout
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 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
thisform.refresh 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="\<Lưu" 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="\<Lưu" 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 CLOSE ALL 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
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 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()
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" = "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" = "Command"
WIN_PROJECT_MAN = "Project Manager" = "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