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

1、數(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八、參考文獻910、系統(tǒng)規(guī)劃1、該系統(tǒng)可分為輸入、修改、查詢、匯總、輸出五個子系統(tǒng)設備管理系統(tǒng)功能模塊圖：1.3日程安排需求分析1.5-1.8概念結構設計1.9邏輯結構設計1.9物理結構設計1.9系統(tǒng)實施1.9-1.10系統(tǒng)測試1.11設計報告1.12系統(tǒng)分析2.1需求確定2.11概念模型E-R圖2.2 需求分析2.2.2 數(shù)據(jù)字典2.2.2.1 數(shù)據(jù)項 部門號（整型， 3，0-999 ）

2、 部門名（字符型， 10） 設備編號（整型， 3， 0-999 ） 設備名（字符型， 10） 型號（字符型， 10） 金額（整型， 3，0-999 ） 序號（整型， 3，0-999 ） 日期（日期類型） 折舊率（字符型， 10） 起始日期（日期類型） 截止日期（日期類型）2.2.2.2 數(shù)據(jù)結構 部門（部門號，部門名） 設備檔案（設備號，設備名，型號，金額） 設備使用（部門號，設備號，起始日期，截止日期） 折舊設備（序號，日期，折舊率，金額）三、系統(tǒng)設計3.4 數(shù)據(jù)庫設計3.4.1 邏輯設計 部門（部門號，部門名） 設備檔案（設備號，設備名，型號，金額） 設備使用（部門號，設備號，起始日期，截

3、止日期） 折舊設備（序號，日期，折舊率，金額）3.4.2 物理設計 create table 部門 （部門號 int（10） primary key,部門名 char（20） not null）Create View 部門視圖 AsSELEC部門號，部門名FROM部門 create table 設備檔案(設備號 int(10) primary key, 設備名 char(20)not null,型號 char(20)not null金額 int(10) not nullCreate View 設備檔案視圖 AsSELEC設備號，設備名，型號，金額FROM設備檔案 create table 設備

4、使用(部門號 int(10) primary key, 設備號 int(10) not null, 起始日期 int(10) not null，截止日期 int(10) not null)Create View 設備使用視圖 AsSELEC部門號，設備號，起始日期，截止日期FROM折舊設備 create table 折舊設備(序號 int(10) , 日期 int(10) not null, 折舊率 char(20) not null 金額 int(10) not null )Create View 折舊設備視圖 AsSELECT序號，日期，折舊率，金額FROM折舊設備3.1 代碼設計主要的V

5、B語句:1、輸入代碼Dim mydb As Database, str1 ， str2 As String str1=text1.text ， str2=text2.textSet mydb = OpenDatabase("d: 使用部門表 .mdb")SQL = "insert into 使用部門表 (部門號,部門名) values('str1','str2')" mydb.Execute SQLData1.Refresh2、修改代碼Dim mydb As Database, str1 ， str2 As String

6、str1=text1.text ， str2=text2.textSet mydb = OpenDatabase("d: 使用部門表 .mdb")SQL = "update 使用部門表 set 部門號= str1, 部門名= str2mydb.Execute SQLData1.Refresh3、查詢代碼Dim mydb As Database ， str1 ， str2 As String str1=text1.text ，str2=text2.textSet mydb = OpenDatabase("d: 使用部門表 .mdb")SQL =

7、"slect * from 使用部門表 where 部門號 =str1 ，部門名 =str2" mydb.Execute SQLData1.Refresh 4、匯總代碼Dim mydb1，mydb2，mydb3 As Database使用部門表 .mdb") 折舊表 .mdb") 設備檔案表 .mdb")Set mydb1 = OpenDatabase("d:Set mydb2 = OpenDatabase("d:Set mydb3 = OpenDatabase("d:Data1.Refresh 5、輸出代碼使用部

8、門表 .mdb") 折舊表 .mdb") 設備檔案表 .mdb")Dim mydb1，mydb2，mydb3 As DatabaseSet mydb1 = OpenDatabase("d:Set mydb2 = OpenDatabase("d:Set mydb3 = OpenDatabase("d:Data1.Refresh四、系統(tǒng)實施五、系統(tǒng)測試系統(tǒng)測試時，匯總子系統(tǒng)和輸出子系統(tǒng)發(fā)生一些小錯誤，尚未解決 輸入、修改、查詢子系統(tǒng)運行正常。六、收獲和體會通過這次課程設計，我完成了第一個自己開發(fā)的系統(tǒng)，學習了基于數(shù)據(jù)庫的VB程序開發(fā)，其中

9、的過程充滿了曲折，但結果還是能夠令我自己滿意的。我設計開發(fā)了匯總子系統(tǒng)，該子系統(tǒng)主要功能是滿足客戶對某些信息的整體情況了 解，比如某個型號的電腦的使用情況，某個型號的打印機的數(shù)量等等。該子系統(tǒng)的功能 比較少，需要更多的時間和努力去完善，以達到客戶日益增長的需求。最令我感觸的是這次設計中系統(tǒng)程序完善的過程，因為經(jīng)驗不足、設計不周全，看似完成的系統(tǒng)總有這樣或那樣的問題，而修補這些問題讓我感覺很煩瑣，復雜這次設計我獲得更多的是開發(fā)程序的經(jīng)驗，這令我受益非淺系統(tǒng)的各個子系統(tǒng)功能太簡單，無法滿足現(xiàn)代社會的需求，需要多添加一些功能 使系統(tǒng)更加完善。七、附錄窗體：Form1.frm 部門Form2.frm 設備使用Form3.frm 設備檔