【正文】 ”等 7 個表單。 為了維護和使用的方便，還需要更加人性化，界面更加友好的應用程序，對數(shù)據(jù)庫進行維護、查詢等處理。 二、功能介紹： “工程項目管理系統(tǒng)”的項目信息管理可以分為：客戶信息管理、與該客戶有關(guān)的項目管理、項目的相關(guān)負責人信息管理及指定項目相關(guān)的施工、支出、回款情況管理。 該項目是以“工程項目管理”為主題，旨在創(chuàng)建高效、人性的項 目管理系統(tǒng)，為實現(xiàn)城建公司科學管理、系統(tǒng)管理而創(chuàng)建的電子管理系統(tǒng)。 一個工程項目可能要經(jīng)過幾年才能夠完成，在這幾年中，有許多信息是需要管理的，如：客戶信息、項目負責人信息、項目具體情況、項目施工信息、項目投入支出金額信息、客戶付款情況等。 1 同濟 大學 《數(shù)據(jù)庫技術(shù)及應用》 項目 報告 項目 報告題目： 工程項目管理 班級： 數(shù)據(jù)庫（ 1 ）班 組長： 王 進 學號： 050933 成員 ： 史 亮 學號： 043598 2 年級： 大 三 專業(yè)： 土木工程 指導教師： 袁科萍 日期： 2020 年 1 月 1 日 目錄 概述 ??????????????? 1 介紹 ??????????????? 1 圖 ??????????????? 4 （ 1）表設(shè)計 ????????????? 5 （ 2）存儲過程設(shè)計 ………………………… 7 （ 3）觸發(fā)器設(shè)計 ??????????? 7 （ 4）窗體設(shè)計 ??????????? … 15 1 ……………………………… 20 ????????????? … 69 ????? ????????? 72 2 一、工程 概述 ： 作為土木工程學院大三的學生，在接觸了數(shù)據(jù)庫一年之后，拿到數(shù)據(jù)庫項目編程作業(yè)的時候，我們自然而然的將平時所學和與己相關(guān)的城建工程管理 與其聯(lián)系在 了 一起。 一個工程項目管理系統(tǒng)的想法進入視野。管理這些信息，將為企業(yè)的各種統(tǒng)計結(jié)算和員工考核提供方便。通過不同的身份 的登錄，系統(tǒng)根據(jù)不同的命令參數(shù)，賦予訪問者不同的權(quán)限：普通用戶只限于瀏覽、查詢，管理員另擁有添加、更改、刪除的權(quán)利。 在客戶信息管理部分，功能要求如下： （ 1） 查詢客戶信息 （ 2） 更新、維護客戶信息 （ 3） 根據(jù)客戶的 ID 查找該客戶與公司簽訂的所有項目情況，并由此查詢和編輯各個項目的 有關(guān)信息 客戶信息包含以下內(nèi)容： （ 1） 客戶 ID （ 2） 客戶公司名稱 （ 3） 客戶公司地址 （ 4） 客戶所在省份 （ 5） 客戶所在城市 （ 6） 聯(lián)系人姓名 3 （ 7） 聯(lián)系人職務(wù) （ 8） 聯(lián)系電話與傳真 （ 9） 附注信息 在公司員工信息管理部分，功能要求如下： （ 1） 查詢員工信息 （ 2） 更新、維護員工信息 （ 3） 根據(jù)員工的 ID 查找該員工負責的所有項目情況，并由此查詢和編輯各個項目的有關(guān)信息 公司員工人事信息管理部分，要求如下： （ 1） 員工（項目負責人） ID （ 2） 員工姓名 （ 3） 員工職務(wù) （ 4） 員工聯(lián)系電話 （ 5） 員工家庭住址 在項目管理部分，功能要求如下： （ 1） 查詢項目信息 （ 2） 更新、維護項目信息 （ 3） 根據(jù)項目的 ID 查找該項目的客 戶情況和項目負責人情況，并由此查詢和編輯有關(guān)信息 （ 4） 查詢、更新和維護項目的施工、支出、回款信息 項目管理部分的基本信息如下： （ 1） 項目 ID （ 2） 項目名稱 （ 3） 項目所屬客戶 （ 4） 本公司的該項目負責人 （ 5） 項目所在地 （ 6） 項目金額 4 （ 7） 項目開始及結(jié)束日期 （ 8） 項目說明 公司對項目的支出，需要以下信息： （ 1） 開支 ID （ 2） 項目 ID （ 3） 開支類型 （ 4） 開支金額 （ 5） 開支日期 項目施工信息管理，需要以下信息： （ 1） 項目施工 ID （ 2） 項目 ID （ 3） 項目負責人 ID （ 4） 工作類型 （ 5） 工作開始日期及結(jié)束日期 （ 6） 工作天數(shù) 項目回款信息管理，需要以下信息： （ 1） 項目回款 ID （ 2） 項目 ID （ 3） 回款方式 （ 4） 回款金額 （ 5） 回款日期 （ 6） 經(jīng)辦人 根據(jù)以上功能要求，現(xiàn)在數(shù)據(jù)庫中建立“項目表”、“客戶表”、“項目負責人表”、“ 匯款表 ” 、 “ 項目施工表 ” 、“項目支出表”。 應用程序用表單設(shè)計，以處理其數(shù)據(jù)。其中“項目”表單為整個程序設(shè)計的核心，所有查詢、更新最后都落到“項目”表單上。 用戶可以通過客戶 ID旁邊的 bolbox 選擇想要查詢的客戶。 右下角的計算器是輔助功能，以備不時之需。 （ 6） 項目表 窗體 :整個系統(tǒng)的核心窗體，有三種方法可以到達此窗體， 分別是從客戶表跟蹤查詢、從項目負責人表跟蹤查詢、直接進入項目查詢。下方的“更改”、“添加”、“刪除”等功能由 trigger 進行約束?？刂茙ぬ栞斎霝閿?shù)字 End If End Sub Private Sub 登陸 _Load(ByVal sender As , ByVal e As ) Handles Randomize() = Int(Rnd() * 9000 + 1000) 22 = = = () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim id, code As String Dim checkcode As String id = code = 39。data source=SH\A。 Dim myconn As New (myconnstr) Dim mySelectQuery1 As String = select 密碼 from 管理員 where 管理員 id = 39。 Dim myCommand1 As New (mySelectQuery1, myconn) () Dim myReader1 As = () While () checkcode = (0) End While () 39。帳號不存在時 Else If = Then MsgBox(請輸入學號！ ) 39。密碼為空時 Case checkcode Select Case Case MsgBox(請輸入驗證碼！ ) 39。密碼、驗證碼都正確時，進入下一界面 () glyname = Case Else MsgBox(驗證碼輸入錯誤！ ) 39。密碼錯時 = = = Int(Rnd() * 9000 + 1000) End Select End If End If End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles = = = Randomize() = Int(Rnd() * 9000 + 1000) () End Sub Private Sub TextBox2_TextChanged(ByVal sender As , ByVal e As ) Handles code = End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As ) Handles Randomize() 24 = Int(Rnd() * 9000 + 1000) = = = () id = code = End Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) Handles End Sub End Class ： Public Class Form2 Inherits Dim i As Integer Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = True Then key = 0 () () Else key = 1 () () End If End Sub 39。 \ () = True () Dim i As Integer Dim myfilestream As Dim filename As String 39。 \pictures\ amp。 .jpg, ) ReDim data( 1) (data, 0, ) () (picture_1).Rows(i).Item(0) = data Next End Sub Private Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles Dim Data() As Byte Dim myfilestream As Data = (i).Item(0) myfilestream = New (Data) = (myfilestream) i = i + 1 If i 4 Then i = 0 End If End Sub 39。設(shè)計返回值參數(shù)，進入不同界面 Private Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles = Now If key =