【正文】 加入音頻 Dim data() As Byte 25 For i = 0 To 4 myfilestream = New ( amp。驗證碼錯誤時 = = Int(Rnd() * 9000 + 1000) End Select Case Else MsgBox(密碼錯誤！請重新輸入！ ) 39。未輸入帳號時 23 Else Select Case Case MsgBox(密碼不能為空，請輸入！ ) 39。 + + 39。打開連接，到數(shù)據(jù)庫讀取該帳號的密碼 Dim myconnstr As String = initial catalog=工程項目管理 。 在項目表中可以進行客戶查詢、項目負責人查詢、回款、項目施工、項目 18 支出等功能。 （ 5） 客戶投資所有項目信息窗體： 窗體上有現(xiàn)實該客戶投資項目的總金額和最大、最小金額。 為此，我們 建立了“管理員”、“項目”、“客戶”、“項目負責人”、“項目支出”、“回款”、“項目施工”等 7 個表單。 二、功能介紹： “工程項目管理系統(tǒng)”的項目信息管理可以分為：客戶信息管理、與該客戶有關的項目管理、項目的相關負責人信息管理及指定項目相關的施工、支出、回款情況管理。 一個工程項目可能要經(jīng)過幾年才能夠完成，在這幾年中，有許多信息是需要管理的，如：客戶信息、項目負責人信息、項目具體情況、項目施工信息、項目投入支出金額信息、客戶付款情況等。 一個工程項目管理系統(tǒng)的想法進入視野。通過不同的身份 的登錄，系統(tǒng)根據(jù)不同的命令參數(shù)，賦予訪問者不同的權限：普通用戶只限于瀏覽、查詢，管理員另擁有添加、更改、刪除的權利。 應用程序用表單設計，以處理其數(shù)據(jù)。 用戶可以通過客戶 ID旁邊的 bolbox 選擇想要查詢的客戶。 （ 6） 項目表 窗體 :整個系統(tǒng)的核心窗體，有三種方法可以到達此窗體， 分別是從客戶表跟蹤查詢、從項目負責人表跟蹤查詢、直接進入項目查詢?？刂茙ぬ栞斎霝閿?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。 Dim myconn As New (myconnstr) Dim mySelectQuery1 As String = select 密碼 from 管理員 where 管理員 id = 39。帳號不存在時 Else If = Then MsgBox(請輸入學號！ ) 39。密碼、驗證碼都正確時，進入下一界面 () glyname = Case Else MsgBox(驗證碼輸入錯誤！ ) 39。 \ () = True () Dim i As Integer Dim myfilestream As Dim filename As String 39。 .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。 管理員 End If = 30 If 0 Then = End If End Sub 39。) Dim mm As Integer Dim nn As String Private Sub 客戶表 _Load(ByVal sender As , ByVal e As ) Handles If key = 0 Then = False = False 27 = False = False Else = True = True = True = True End If 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 khid amp。integrated security=SSPI。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 fzid amp。integrated security=SSPI。 39。) myadapter = New (sql, myconn) Dim mydataset1 As New DataSet (mydataset1, 項目表 ) = (項目表 ) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles i = Dim sql As String 36 Dim table1 As New sql = select * from 項目表 where 項目負責人 ID like 39。 Dim myconn As New (initial catalog =工程項目管理 。 amp。此處使用 activated功能，代替 paint或 load，實現(xiàn)時時更新，并解 決了添加背景圖片后的錯誤。) Dim myadapter As Dim mydataset As New DataSet Dim i As Integer 37 Private Sub 客戶 to項目 _Load(ByVal sender As , ByVal e As ) Handles Dim sql2 As String sql2 = select distinct 客戶 ID from 項目表 Dim mycmd As New (sql2, myconn) Dim reader As () reader = () Do While ((0)) Loop () () End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles Dim sql As String Dim table1 As New sql = select * from 項目表 where 客戶 ID like 39。 Dim myconn As New (initial catalog =工程項目管理 。1, myconn) = Dim para_sum As = (_客戶 id, , 3) = myadapter = New (mycmd) (table1) () = (0).Item(0) () = (0).Item(2) () = (0).Item(1) End Sub 39。 39。) myadapter = New (sql, myconn) Dim mydataset1 As New DataSet (mydataset1, 項目表 ) = (項目表 ) xmid = (項目表 ).Rows(i).Item(1) xm = 1 () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub 客戶 to項目 _Activated(ByVal sender As Object, ByVal e As ) Handles Dim sql As String Dim myadapter As Dim table1 As New DataTable = khid1 sql = select * from 項目表 where 客戶 ID like 39。 myadapter = New (sql, myconn) (table1) If = 0 Then MsgBox(無項目記錄 ) Else = table1 End If End Sub End Class ： Public Class Form1 Inherits Dim myconn As New (initial catalog=工程項目管理 。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp