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

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

數(shù)據(jù)庫

課程設(shè)計報告

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

班級：

姓名：

學(xué)號：

完成日期：2008-1-15

指導(dǎo)老師：目錄

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

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

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

2

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

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

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

設(shè)施管理系統(tǒng)

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

入改詢總出

1.3日程安排

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

二、系統(tǒng)剖析

2.1需要判斷

2.11見解模型E-R圖

部部

門門

號名

部門初步日期

使用

逗留日期

設(shè)施檔案隸屬折舊設(shè)施

設(shè)設(shè)金序日型金折號備備額期號額舊名編率號4

2.2需要剖析

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

數(shù)據(jù)項

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

部門名〔字符型，10〕

設(shè)施編號〔整型，3，0-999〕

設(shè)施名〔字符型，10〕

型號〔字符型，10〕

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

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

日期〔日期種類〕

折舊率〔字符型，10〕

初步日期〔日期種類〕

逗留日期〔日期種類〕

數(shù)據(jù)結(jié)構(gòu)

部門〔部門號，部門名〕

設(shè)施檔案〔設(shè)施號，設(shè)施名，型號，金額〕

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

折舊設(shè)施〔序號，日期，折舊率，金額〕

三、系統(tǒng)設(shè)計

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

邏輯設(shè)計

部門〔部門號，部門名〕

設(shè)施檔案〔設(shè)施號，設(shè)施名，型號，金額〕

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

折舊設(shè)施〔序號，日期，折舊率，金額〕

物理設(shè)計

createtable部門

(

部門號int(10)primarykey,

部門名char(20)notnull

)

CreateView部門視圖As

SELECT部門號，部門名

FROM部門

createtable設(shè)施檔案

(

設(shè)施號int(10)primarykey,

設(shè)施名char(20)notnull,

型號char(20)notnull，

金額int(10)notnull

)

5

CreateView設(shè)施檔案視圖As

SELECT設(shè)施號，設(shè)施名，型號，金額

FROM設(shè)施檔案

createtable設(shè)施使用

(

部門號int(10)primarykey,

設(shè)施號int(10)notnull,

初步日期int(10)notnull，

逗留日期int(10)notnull

)

CreateView設(shè)施使用視圖As

SELECT部門號，設(shè)施號，初步日期，逗留日期

FROM折舊設(shè)施

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

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

FROM折舊設(shè)施

3.1代碼設(shè)計

主要的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:\設(shè)施檔案表.mdb")

Data1.Refresh

5、輸出代碼

Dimmydb1，mydb2，mydb3AsDatabase

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

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

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

Data1.Refresh7

四、系統(tǒng)推行

五、系統(tǒng)測試

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

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

六、收獲和領(lǐng)悟

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

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

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

8

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

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

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

七、附錄

窗體：

Form1.f