【正文】 tem(3) = (0).Item(4) = (0).Item(5) = (0).Item(6) = (0).Item(7) = (0).Item(8) = (0).Item(9) End Sub Private Sub MenuItem1_Click(ByVal sender As , ByVal e As ) Handles khid1 = 28 () () End Sub Private Sub MenuItem2_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub MenuItem3_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim sql As String = delete from 客戶表 where 客戶 id like 39。 Trim() amp。根據(jù)不同的返回參數(shù)布置界面，實(shí)現(xiàn)不同權(quán)限下的功能 Dim sql As String = select distinct 客戶 id from 客戶表 Dim cmd As New (sql, myconn) Dim reader As () reader = () Do While ((0)) Loop () () End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles Dim table1 As New DataTable Dim sqlstr2 As String Dim adapter As sqlstr2 = select * from 客戶表 where 客戶 id like 39。integrated security=SSPI。滾動(dòng)字幕制作 Private Sub 總界面 _Load(ByVal sender As , ByVal e As ) Handles = True = End Sub End Class ： Public Class 客戶表 Inherits Dim myconn As New (initial catalog=工程項(xiàng)目管理 。 glyname amp。加入圖片，并使之循環(huán)播放 Private Sub MenuItem2_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub MenuItem3_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class ： Public Class 總界面 Inherits Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = True Then kh = 1 () () ElseIf = True Then 26 fz = 1 () () ElseIf = True Then xm = 0 () () End If End Sub 39。 i amp。加入音頻 Dim data() As Byte 25 For i = 0 To 4 myfilestream = New ( amp。身份選擇時(shí)設(shè)計(jì)返回參數(shù) Private Sub Form2_Load(ByVal sender As , ByVal e As ) Handles = amp。驗(yàn)證碼錯(cuò)誤時(shí) = = Int(Rnd() * 9000 + 1000) End Select Case Else MsgBox(密碼錯(cuò)誤！請(qǐng)重新輸入！ ) 39。驗(yàn)證碼為空時(shí) Case () 39。未輸入帳號(hào)時(shí) 23 Else Select Case Case MsgBox(密碼不能為空，請(qǐng)輸入！ ) 39。連接關(guān)閉 If checkcode = And Then MsgBox(您輸入的帳號(hào)不存在！ ) Randomize() = Int(Rnd() * 9000 + 1000) = = = () 39。 + + 39。integrated security=SSPI。打開連接，到數(shù)據(jù)庫讀取該帳號(hào)的密碼 Dim myconnstr As String = initial catalog=工程項(xiàng)目管理 。 （ 7） 項(xiàng)目負(fù)責(zé)人選擇 窗體 ：功能和項(xiàng)目表類似 （ 8） 項(xiàng)目負(fù)責(zé)人窗體： 19 （ 9） 回款表窗體： （ 10）回款曲線繪制窗體： （ 11）項(xiàng)目支出窗體： 20 （ 12）項(xiàng)目施工窗體： （ 13）退出窗體： 21 五、詳細(xì)代碼： 公共模塊： Module Module1 Public f1 = New Form1 Public f2 = New Form2 Public f3 = New Form3 Public f4 = New 回款 Public f5 = New 回款曲線圖 Public f6 = New 項(xiàng)目支出表 Public f7 = New 登陸 Public f8 = New 客戶表 Public f9 = New 項(xiàng)目負(fù)責(zé)人表 Public f10 As New 總界面 Public f11 As New 感謝您的使用 Public f12 As New 客戶 to項(xiàng)目 Public f13 As New 負(fù)責(zé)人 to項(xiàng)目 Public f14 As New 計(jì)算器 Public xmid1, khid, fzid, khid1, xmid, fzid1 As String Public key As Integer Public kh, fz, xm As Integer Public glyname As String End Module Public Class 登陸 Inherits Dim id, code As String Dim checkcode As String Private Sub TextBox1_TextChanged(ByVal sender As , ByVal e As ) Handles id = If Not IsNumeric(id) And id Then MsgBox(輸入錯(cuò)誤： id均為數(shù)字，請(qǐng)輸入數(shù)字 ) 39。 在項(xiàng)目表中可以進(jìn)行客戶查詢、項(xiàng)目負(fù)責(zé)人查詢、回款、項(xiàng)目施工、項(xiàng)目 18 支出等功能。 用戶可以在客戶旁邊的 bolbox 選擇想要查詢的客戶，并可以點(diǎn)擊datagri 中選擇想要了解的項(xiàng)目，再點(diǎn)擊右下角的“查詢選擇項(xiàng)目詳情”，轉(zhuǎn)至項(xiàng)目表中查看詳情。 （ 5） 客戶投資所有項(xiàng)目信息窗體： 窗體上有現(xiàn)實(shí)該客戶投資項(xiàng)目的總金額和最大、最小金額。 5 三、 ER 圖設(shè)計(jì)： 為了更清除的表達(dá)各個(gè)主體之間的關(guān) 系，先建立 ER圖關(guān)系如下： 項(xiàng)目 說明 開支類型 開支日期 開支金額 工作類型 項(xiàng) 目 回 款 項(xiàng)目支出 項(xiàng)目施工 客 戶 項(xiàng)目負(fù)責(zé)人 負(fù)責(zé) 回款 合同 施工 支出 客戶 ID 聯(lián)系人姓名 聯(lián)系人職 務(wù) 公司名稱 公司地址 省份 城市 電話 傳真 姓名 職務(wù) 電話 地址 項(xiàng)目負(fù)責(zé)人 ID 項(xiàng)目 ID 項(xiàng)目名稱 所在地 項(xiàng)目金額 開始日期 結(jié)束日期 回款 ID 經(jīng)辦人 回款金額 回款日期 付款方式 支出 ID 開始日期 結(jié)束日期 施工 ID 6 四、相關(guān)設(shè)計(jì)： （ 1）項(xiàng)目表 （ 2）客戶表 （ 3）項(xiàng)目負(fù)責(zé)人表 7 （ 4）回款表 （ 5）項(xiàng)目施工表 （ 6）項(xiàng)目支出表 8 ： 求最大值、最小值、總額的存儲(chǔ)過程 ： （ 1） 項(xiàng)目表觸發(fā)器： 刪除項(xiàng)目支出表相關(guān) 信息觸發(fā)器： 9 刪除回款表中相關(guān) 信息觸發(fā)器 ： 刪除項(xiàng)目施工表中相關(guān) 信息觸發(fā)器 ： 填加項(xiàng)目 表中相關(guān) 信息觸發(fā)器 ： 10 更新項(xiàng)目表中相關(guān) 信息觸發(fā)器 ： 11 （ 2） 客戶表觸發(fā)器： 刪除客戶表中相關(guān)信息觸發(fā)器： 更改項(xiàng)目表中相關(guān)信息觸發(fā)器： 12 （ 3） 項(xiàng)目負(fù)責(zé)人表觸發(fā)器： 刪除項(xiàng)目負(fù)責(zé)人表相關(guān)信息觸發(fā)器： 修改項(xiàng)目負(fù)責(zé)人表相關(guān)信息觸發(fā)器： 13 （ 4） 項(xiàng)目支出表觸發(fā)器： 項(xiàng)目支出表填加相關(guān)信息觸發(fā)器： 更新項(xiàng)目支出表相關(guān)信息觸發(fā)器： 14 （ 5） 回款表觸發(fā)器： 更新回款表相關(guān)信息觸發(fā)器： 填加回款表相關(guān)信息觸發(fā)器： 15 （ 6） 項(xiàng)目施工表觸發(fā)器： 填加項(xiàng)目施工表相關(guān)信息觸發(fā)器 ： 更新項(xiàng)目施工表相關(guān)信息觸發(fā)器： 16 ： （ 1） 登錄身份選擇窗體： （ 2） 管理員登錄窗體： （ 3） 查詢方式選擇窗體： 17 （ 4） 客戶表信息查詢窗體： 如以普通用戶身份進(jìn)入，則下方“添加”、“刪除”、“更改”、“保存”等button 控件為不可見。 為此，我們 建立了“管理員”、“項(xiàng)目”、“客戶”、“項(xiàng)目負(fù)責(zé)人”、“項(xiàng)目支出”、“回款”、“項(xiàng)目施工