設備管理系統(tǒng)課程設計報告

設施管理系統(tǒng)課程設計報告設施管理系統(tǒng)課程設計報告PAGEPAGE9設施管理系統(tǒng)課程設計報告PAGE

數(shù)據(jù)庫

課程設計報告

題目：設施管理系統(tǒng)

班級：

姓名：

學號：

完成日期：2008-1-15

指導老師：目錄

一、系統(tǒng)規(guī)劃···············································3二、系統(tǒng)剖析···············································4三、系統(tǒng)設計···············································5四、系統(tǒng)推行···············································8五、系統(tǒng)測試···············································8六、收獲和領悟············································8

七、附錄··················································9

八、參照文件·············································9

2

一、系統(tǒng)規(guī)劃

1、該系統(tǒng)可分為輸入、修正、盤問、匯總、輸出五個子系統(tǒng).

設施管理系統(tǒng)功能模塊圖：

設施管理系統(tǒng)

部設設折門備備舊檔使設案用備部部設設設金部設序日折金門門備備備額門備號期舊額號名編名型號編率號號號輸修查匯輸

入改詢總出

1.3日程安排

需要剖析見解結構設計1.9邏輯結構設計1.9物理結構設計1.9系統(tǒng)推行系統(tǒng)測試1.11設計報告1.123

二、系統(tǒng)剖析

2.1需要判斷

2.11見解模型E-R圖

部部

門門

號名

部門初步日期

使用

逗留日期

設施檔案隸屬折舊設施

設設金序日型金折號備備額期號額舊名編率號4

2.2需要剖析

數(shù)據(jù)字典

數(shù)據(jù)項

部門號〔整型，3，0-999〕

部門名〔字符型，10〕

設施編號〔整型，3，0-999〕

設施名〔字符型，10〕

型號〔字符型，10〕

金額〔整型，3，0-999〕

序號〔整型，3，0-999〕

日期〔日期種類〕

折舊率〔字符型，10〕

初步日期〔日期種類〕

逗留日期〔日期種類〕

數(shù)據(jù)結構

部門〔部門號，部門名〕

設施檔案〔設施號，設施名，型號，金額〕

設施使用〔部門號，設施號，初步日期，逗留日期〕

折舊設施〔序號，日期，折舊率，金額〕

三、系統(tǒng)設計

3.4數(shù)據(jù)庫設計

邏輯設計

部門〔部門號，部門名〕

設施檔案〔設施號，設施名，型號，金額〕

設施使用〔部門號，設施號，初步日期，逗留日期〕

折舊設施〔序號，日期，折舊率，金額〕

物理設計

createtable部門

(

部門號int(10)primarykey,

部門名char(20)notnull

)

CreateView部門視圖As

SELECT部門號，部門名

FROM部門

createtable設施檔案

(

設施號int(10)primarykey,

設施名char(20)notnull,

型號char(20)notnull，

金額int(10)notnull

)

5

CreateView設施檔案視圖As

SELECT設施號，設施名，型號，金額

FROM設施檔案

createtable設施使用

(

部門號int(10)primarykey,

設施號int(10)notnull,

初步日期int(10)notnull，

逗留日期int(10)notnull

)

CreateView設施使用視圖As

SELECT部門號，設施號，初步日期，逗留日期

FROM折舊設施

createtable折舊設施(int(10),序號日期int(10)notnull,折舊率char(20)notnull，金額int(10)notnull)CreateView折舊設施視圖As

SELECT序號，日期，折舊率，金額

FROM折舊設施

3.1代碼設計

主要的VB語句：

1、輸入代碼

DimmydbAsDatabase,str1，str2AsString

str1=text1.text，str2=text2.text

Setmydb=OpenDatabase("d:\使用部門表.mdb")

SQL="insertinto使用部門表(部門號,部門名)values('str1','str2')"

mydb.ExecuteSQL

Data1.Refresh

2、修正代碼

DimmydbAsDatabase,str1，str2AsString

str1=text1.text，str2=text2.text

Setmydb=OpenDatabase("d:\使用部門表.mdb")

SQL="update使用部門表set部門號=str1,部門名=str2"

6

mydb.ExecuteSQL

Data1.Refresh

3、盤問代碼

DimmydbAsDatabase，str1，str2AsString

str1=text1.text，str2=text2.text

Setmydb=OpenDatabase("d:\使用部門表.mdb")

SQL="slect*from使用部門表where部門號=str1，部門名=str2"

mydb.ExecuteSQL

Data1.Refresh

4、匯總代碼

Dimmydb1，mydb2，mydb3AsDatabase

Setmydb1=OpenDatabase("d:\使用部門表.mdb")

Setmydb2=OpenDatabase("d:\折舊表.mdb")

Setmydb3=OpenDatabase("d:\設施檔案表.mdb")

Data1.Refresh

5、輸出代碼

Dimmydb1，mydb2，mydb3AsDatabase

Setmydb1=OpenDatabase("d:\使用部門表.mdb")

Setmydb2=OpenDatabase("d:\折舊表.mdb")

Setmydb3=OpenDatabase("d:\設施檔案表.mdb")

Data1.Refresh7

四、系統(tǒng)推行

五、系統(tǒng)測試

系統(tǒng)測試時，匯總子系統(tǒng)和輸出子系統(tǒng)發(fā)生一些小過失，還沒有解決。

輸入、修正、盤問子系統(tǒng)運行正常。

六、收獲和領悟

經(jīng)過此次課程設計，我完成了第一個自己開發(fā)的系統(tǒng)，學習了基于數(shù)據(jù)庫的VB程序開發(fā)，其中的過程充滿了曲折，但結果仍是能夠令我自己滿意的。

我設計開發(fā)了匯總子系統(tǒng)，該子系統(tǒng)主要功能是知足客戶對某些信息的整體情況認識，比方某個型號的電腦的使用情況，某個型號的打印機的數(shù)量等等。該子系統(tǒng)的功能比較少，需要更多的時間和努力去完滿，以達到客戶日益增添的需要。

最令我感想的是此次設計中系統(tǒng)程序完滿的過程，由于經(jīng)驗不足、設計不周祥，看

8

似完成的系統(tǒng)總有這樣或那樣的問題，而維修這些問題讓我感覺很煩雜，錯亂。

此次設計我獲得更多的是開發(fā)程序的經(jīng)驗，這令我受益非淺

系統(tǒng)的各個子系統(tǒng)功能太簡單，無法知足現(xiàn)代社會的需要，需要多增添一些功能使系統(tǒng)更加完滿。

七、附錄

窗體：

Form1.f