檔案管理系統的設計與開發

摘 要: 城市建設與城市管理是一對密不可分的關系，忽略任何一個方面都將對城市造成很大損失。如何最大限度地揮發城市管理的水平，這是廣大城市管理者關心的問題，同時也是廣大工程技術人員關心的問題。只要開發出較好的管理程序，計算機就可以幫助提高城市管理水平，并做到管理資料和各種數據準確無誤，它不但能滿足城市管理的要求，而且能進一步規范城市建設與施工行為，能做好政府的幫手。

關鍵詞: 建設工程 城建檔案 管理系統 數據庫查詢

一、設計概況

1.系統的重要性

建設城市必須真正做到了解城市，了解城市必須熟悉城市的“神經系統”。建國以來，我國的城市管理與建設資料，以人工操作與手工記錄為主，因此在城市建設中經常發生不明情況的斷水、斷電、斷通訊的事件。

隨著信息化時代的到來，計算機的發展，如何使計算機在城市建設中發揮作用，這是計算機應用領域中工程技術人員關心的問題，同時也是本文的重點。

各工程單位在施工前必須到城建檔案部門查閱相關建設資料，掌握已驗收工程、相鄰工程、在建工程和待建工程的各種關系。同時，在有關政策和規定的支持下，各級城建檔案部門必須定期向社會提供出現斷水、斷電、斷通訊事故單位的名單。

2.相關建設資料管理流程簡圖

施工中形成的建設資料工程完成后上交

和工程設計資料 相關建設資料

城建檔案部門檔案管理并為下一建設周期

上門指導 提供準確、可靠的相關資料

經調查得知，一個省會城市在一年中收集到的各種城市建設相關資料不少于10000卷，每卷最少也有500頁以上，最大的施工圖頁面有0號圖紙大。面對這樣龐大的數據，為完成資料的收集、整理、保管等工作，首先要有政府的支持和與之配套的政策，另一個就是要有計算機的支持，再一個是城建檔案部門要有一批不怕困難、敢于吃苦的管理人員。

3.計算機管理的特點

所有工程建設資料的目錄由“數據庫”進行收集，這個數據庫中不許作刪除操作，要充分保證資料的原始性，為了保證資料的準確性和可靠性，并達到建設部和實際情況的要求，在數據庫中設置了滿足需要的字段，當然也有記錄不常出現事故的能力。另外，該數據庫可根據相關權限進行相應訪問，操作的結果可輸出相對應的報表。

數據庫不在網上運行也不進行任何共享操作，這個數據庫中設置多張表，城建檔案部門的各相關職能部門按規定操作自己的表并更新自己的表。

操作人員根據計算機提供的程序界面進行操作，界面的設計原則是操作盡量簡單，不要或少要操作人員輸入字符，界面的字符全部為中文字符。

計算機程序的運行環境為Windows 9X、Windows XP，計算機程序可用Visual C++或Visual Basic編制，數據庫可用PowerBuilder、SQL Serven或Access等工具進行設計。

本文應用程序使用Visual Basic編制，數據庫使用Access進行設計。

二、軟件設計

1.開發模型

數據庫模型:在模型中有一個數據庫名稱為Manager，在數據庫中有五張表，各表的作用與操作對象如模型所示。

Manager庫Position表作用:查詢所要資料在檔案庫中的位置，

操作:由檔案收集部門管理。Borrow表作用:向有關部門提供原始檔案資料，

操作:由檔案收集部門管理Password表作用:提供數據庫訪問所需的密碼，

操作:需要向數據庫進行添加操作的有關部門。Report表作用:工程報建時取得檔案收集部門的認可，

操作:業務指導部門。Other表作用:記錄不常出現的事件，

操作:各有關職能部門。

系統應用程序模型:為多窗體程序;

使用DataGrid控件顯示和操作數據;

各種操作由菜單完成;

使用SQL語句對數據庫進行查詢;

在數據環境中設置、完成報表的打印。

2.軟件的實現

①程序由多窗體組成

Begin.frm:本程序的歡迎界面;Frist.frm:程序的操作主窗體;MyOutput.frm:檔案外調要事記錄窗體;Password.frm:進入數據庫操作時必須輸入的密碼窗體;Second.frm:第一次申報窗體;DataEnvironment:數據環境;DataFind:查詢報表;DataMemer數據庫瀏覽報表。

②查詢工作的主要流程

Private Sub Form_Load()Set_agree.Enabled=False不能打印Set_data.Enabled=False不能瀏覽Set_outwrok.Enabled=False不能調閱打開程序主窗體first.frm

End Sub

數據庫查詢(菜單)按單位名稱查詢(Set_name)激活Label1和inputname按工程地點查詢(Set_position)激活Label4和Text1激話按鍵Command7.Enabled=True

檔案調閱(菜單)

調閱次數操作(Set_outwrok)

激活Set_outwrok.Enabled=True

打印(菜單)

按查詢結果預覽(Set_data)

激活Set_data.Enabled=True

按查詢結果打印(Set_agree)

激活Set_agree.Enabled=True

③程序主操作界面

④程序查詢的實現

Private Sub Command7_Click()查詢

Dim MyUse As String

MyInput1=\"\"+Text1.Text+\"\" 構造查詢條件

MyInput2=\" \"+inputname.Text+\"\"構造查詢條件

If Myquery Then 按單位名稱“或”工程地點查詢

MySQL=\"SELECT序號，單位名稱，項目類型，項目地點，檔案存放地點，工程建設時間，類型中的分項，檔案調閱次數\"_

\"FROM Myposition\"_

\"WHERE單位名稱\"\"=\" MyInput2

Adodc1.RecordSource=MySQL 設置數據源

Adodc1.Refresh刷新

DataGrid1.Caption=\"數據庫按單位查詢表\"

DataGrid1.Refresh 刷新

Else

MySQL=\"SELECT序號，單位名稱，項目類型，項目地點，檔案存放地點，工程建設時間，類型中的分項，檔案調閱次數\"_

\"FROM Myposition\"_

\"WHERE 項目地點\"\"=\" MyInput1

Adodc1.RecordSource=MySQL

Adodc1.Refresh

DataGrid1.Caption=\"數據庫按工程地點查詢表\"

DataGrid1.Refresh

End If

Set_agree.Enabled=True能打印

Set_data.Enabled=True 能瀏覽

Set_outwrok.Enabled=True 能調閱

EndSub

⑤密碼確定

Private Sub Command2_Click()密碼輸入

Dim MyStr As String

If old.Text=Data1.Recordset.Fields(\"newpass\") Then

Unload password

second.Show

Else

MsgBox\"密碼錯，請重新輸入，您只能輸入三次!\"，vbOKOnly，\"密碼校驗\"

old.Text=\"\"

old.SetFocus

MyInt=MyInt+1

MyStr=Str(MyInt)

MsgBox\"您已經輸入\"+MyStr+\"次!\"，vbOKOnly，\"提示信息\"

End If

If MyInt=3 Then恢復變量

MyInt=0

End

End If

End Sub

⑥跟蹤數據庫記錄條數

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum，ByVal pError As ADODB.Error，adStatus As ADODB.EventStatusEnum，ByVal pRecordset As ADODB.Recordset)

Text1.Text=\"第\" Adodc1.Recordset.AbsolutePosition \"條。\"

End Sub

⑦查詢結果的瀏覽

Private Sub Set_data_Click()按查詢結果瀏覽

DataEnvironment1.rsmyprint.Source=MySQL

DataEnvironment1.rsmyprint.Open

DataFind.Refresh 報表刷新

DataFind.Show報表瀏覽

DataEnvironment1.rsmyprint.Close

End Sub

高校計算機軟件專業一般設置了數據庫開發與應用、SQL Servien、VC、VB、軟件工程等專業課程，如何將這些課程的核心思想與現實生活中的實際工程結合，讓學生充分發揮自己的能力與才能，在實踐中提高自己的動手能力，是每個教授計算機軟件的教師所關心的問題。通過簡單、實用的工程設計與開發可以促進師生相動。

參考文獻:

[1]柳青等.Visual Basic程序設計教程.北京:高等教育出版社，2002.

[3]郝蘊等.Visual C++ 6.0開發與實例.北京:電子工業出版社，1999.

[4]張君等.InstallShield 6.X.北京:北京希望電子出版社.