目錄一.題目1
二.功能1
三.開發環境1
四.資料字典1
五.資料流圖2
六.e-r圖3
七.軟體結構設計4
八.部分模組源程式7
九.體會19
一.題目:
設計乙個實用的小型商店銷售管理系統
二.功能:
1. 登記收入支出
2. 統計每日或每週的銷售情況,按規定格式列印銷售報表
3. 允許多種方式查詢貨物情況
4. 按貨物銷售情況提前發出預報
三.開發環境
設計環境: windows xp
使用軟體: microsoft visual foxbro 6.0
四.小型商店管理系統的資料字典
五.資料流圖
六.由資料流圖和資料字典匯出e-r圖
七.軟體結構設計
a.主頁面
b.銷售管理頁面
c.每日銷售管理頁面
d.每月銷售管理系統
e.進貨入庫管理頁面
f.每月進貨管理頁面
g.商品庫管理頁面
h.倉庫管理頁面
八.部分模組源程式
主頁面procedure tfrm_main.formcreate(sender: tobject);
begin
application.createform(tdm,dm);
end;
procedure tfrm_main.n3click(sender: tobject);
var i:integer;
begin
for i:=0 to frm_main.mdichildcount-1 do
begin
if frm_main.mdichildren[i]=frm_out then
begin
frm_out.pagecontrol1.activepageindex:=1;
exit;
end;
end;
application.createform(tfrm_out,frm_out);
frm_out.pagecontrol1.activepageindex:=1;
end;
procedure tfrm_main.n4click(sender: tobject);
var i:integer;
begin
for i:=0 to frm_main.mdichildcount-1 do
begin
if frm_main.mdichildren[i]=frm_out then
begin
frm_out.pagecontrol1.activepageindex:=2;
exit;
end;
end;
application.createform(tfrm_out,frm_out);
frm_out.pagecontrol1.activepageindex:=2;
end;
procedure tfrm_main.toolbutton1click(sender: tobject);
begin
n2click(sender);
end;
procedure tfrm_main.toolbutton2click(sender: tobject);
begin
n3click(sender);
end;
procedure tfrm_main.toolbutton3click(sender: tobject);
begin
n4click(sender);
end;
procedure tfrm_main.n6click(sender: tobject);
var i:integer;
begin
for i:=0 to frm_main.mdichildcount-1 do
begin
if frm_main.mdichildren[i]=frm_in then
begin
frm_in.pagecontrol1.activepageindex:=0;
exit;
end;
end;
application.createform(tfrm_in,frm_in);
frm_in.pagecontrol1.activepageindex:=0;
end;
procedure tfrm_main.toolbutton4click(sender: tobject);
begin
n6click(sender);
end;
procedure tfrm_main.n7click(sender: tobject);
var i:integer;
begin
for i:=0 to frm_main.mdichildcount-1 do
begin
if frm_main.mdichildren[i]=frm_in then
begin
frm_in.pagecontrol1.activepageindex:=1;
exit;
end;
end;
application.createform(tfrm_in,frm_in);
frm_in.pagecontrol1.activepageindex:=1;
end;
procedure tfrm_main.toolbutton5click(sender: tobject);
begin
n7click(sender);
end;
procedure tfrm_main.n9click(sender: tobject);
var i:integer;
begin
for i:=0 to frm_main.mdichildcount-1 do
begin
if frm_main.mdichildren[i]=frm_book then
begin
frm_book.pagecontrol1.activepageindex:=0;
exit;
end;
end;
application.createform(tfrm_book,frm_book);
frm_book.pagecontrol1.activepageindex:=0;
end;
procedure tfrm_main.n10click(sender: tobject);
var i:integer;
begin
for i:=0 to frm_main.mdichildcount-1 do
begin
if frm_main.mdichildren[i]=frm_book then
begin
frm_book.pagecontrol1.activepageindex:=1;
exit;
end;
end;
application.createform(tfrm_book,frm_book);
frm_book.pagecontrol1.activepageindex:=1;
end;
procedure tfrm_main.toolbutton6click(sender: tobject);
begin
n9click(sender);
end;
procedure tfrm_main.toolbutton7click(sender: tobject);
begin
n10click(sender);
end;
end.
銷售管理模組
for i:=0 to frm_main.mdichildcount-1 do
begin
if frm_main.mdichildren[i]=frm_out then
begin
frm_out.pagecontrol1.activepageindex:=1;
exit;
end;
end;
application.createform(tfrm_out,frm_out);
frm_out.pagecontrol1.activepageindex:=1;
end;
procedure tfrm_main.n4click(sender: tobject);
var i:integer;
begin
for i:=0 to frm_main.mdichildcount-1 do
begin
if frm_main.mdichildren[i]=frm_out then
begin
frm_out.pagecontrol1.activepageindex:=2;
exit;
end;
end;
application.createform(tfrm_out,frm_out);
frm_out.pagecontrol1.activepageindex:=2;
end;
procedure tfrm_main.toolbutton1click(sender: tobject);
begin
小型商店銷售管理系統成
目錄第一章前言 1.1 摘要 1.2開發背景 第二章需求分析 2.1系統目標 2.1.1實現登記 整理資料,處理核對顧客訂貨單。2.1.2向經理提供各種業務統計報表。2.1.3提供各級查詢。2.1.4銷售 採購 會計各部門的業務資料處理實現自動化。2.2 資料流程圖 2.3 系統概況 第三章系統設計...
商店管理系統
商店管理系統.txt世上有三種人 一是良心被狗吃了的人,二是良心沒被狗吃的人,三是良心連狗都不吃的人。丶愛情是個夢,而我卻睡過了頭 include include include include include define error 0 define ok 1 define overflow 0...
光碟商店管理系統需求分析
物件導向系統分析 撰寫時間 2009年12月15日 版權所有 軟體工程實驗第四小組 免責宣告 文件 網中所有的文件資料均由文件 網會員提供,該文件資料的版權屬於提供者所有。文件 網會對會員提供的文件資料進行篩選和編輯,但是並不宣告或保證其內容的合法性和正確性。第1頁共20頁 目錄1 引言 3 1.1...