【導(dǎo)讀】一個(gè)工程項(xiàng)目管理系統(tǒng)的想法進(jìn)入視野。投入支出金額信息、客戶付款情況等。管理這些信息，將為企業(yè)的各種統(tǒng)計(jì)結(jié)算。和員工考核提供方便。該項(xiàng)目是以“工程項(xiàng)目管理”為主題，旨在創(chuàng)建高效、人性的項(xiàng)目管理系統(tǒng)，為實(shí)現(xiàn)城建公司科學(xué)管理、系統(tǒng)管理而創(chuàng)建的電子管理系統(tǒng)。通過不同的身份的。查詢，管理員另?yè)碛刑砑?、更改、刪除的權(quán)利。表”、“匯款表”、“項(xiàng)目施工表”、“項(xiàng)目支出表”。數(shù)據(jù)庫(kù)進(jìn)行維護(hù)、查詢等處理。應(yīng)用程序用表單設(shè)計(jì)，以處理其數(shù)據(jù)。其中“項(xiàng)目”表單為整個(gè)程序設(shè)計(jì)的核心，所有查詢、更新最后都落到“項(xiàng)目”表單上。

　　

【正文】 dataset1, 項(xiàng)目表 ) = (項(xiàng)目表 ) xmid = (項(xiàng)目表 ).Rows(i).Item(1) xm = 1 () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub 客戶 to項(xiàng)目 _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 項(xiàng)目表 where 客戶 ID like 39。 amp。 khid1 amp。 39。 myadapter = New (sql, myconn) (table1) If = 0 Then MsgBox(無項(xiàng)目記錄 ) Else = table1 End If End Sub End Class ： Public Class Form1 Inherits Dim myconn As New (initial catalog=工程項(xiàng)目管理 。data source=SH\A。integrated security=SSPI。) Dim i As Integer 39 Dim nn As String Dim mm As Integer Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles If key = 0 Then = False = False = False = False Else = True = True = True = True End If Dim sql As String = select distinct 項(xiàng)目 id from 項(xiàng)目表 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 項(xiàng)目表 where 項(xiàng)目 id like 39。 amp。 Trim() amp。 39。 adapter = New (sqlstr2, myconn) (table1) = (0).Item(0) = (0).Item(1) = (0).Item(2) = (0).Item(3) = (0).Item(4) = (0).Item(5) = (0).Item(6) = (0).Item(7) = (0).Item(8) 40 End Sub Private Sub MenuItem3_Click(ByVal sender As , ByVal e As ) Handles xmid1 = () () End Sub Private Sub MenuItem4_Click(ByVal sender As , ByVal e As ) Handles xmid1 = () () End Sub Private Sub MenuItem5_Click(ByVal sender As , ByVal e As ) Handles xmid1 = () () End Sub Private Sub MenuItem6_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub MenuItem7_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub MenuItem1_Click(ByVal sender As , ByVal e As ) Handles khid = kh = 0 () () End Sub Private Sub MenuItem2_Click(ByVal sender As , ByVal e As ) Handles fzid = fz = 0 41 () () End Sub Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles Dim sql As String = delete from 項(xiàng)目表 where 項(xiàng)目 id like 39。 amp。 Trim() amp。 39。 Dim mycmd As New (sql, myconn) () Try () Catch ex As Exception MsgBox() End Try () = = = = = = = = = = True mm = 0 End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = = = = = = = = = mm = 1 = True End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As 42 ) Handles If mm = 1 Then Dim sql As String = insert into 項(xiàng)目表 values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。, amp。 amp。 ,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) Dim mycmd As New (sql, myconn) () Try () Catch ex As Exception MsgBox() End Try () ElseIf mm = 2 Then Dim sql As String = update 項(xiàng)目表 set 項(xiàng)目名稱 = 39。 amp。 amp。 39。,項(xiàng)目 id=39。 amp。 amp。 39。,所在地 =39。 amp。 amp。 39。,項(xiàng)目金額 = amp。 amp。 ,客戶 id=39。 amp。 amp。 39。,項(xiàng)目負(fù)責(zé)人 id=39。 amp。 amp。 39。,項(xiàng)目開始日期 =39。 amp。 amp。 39。,項(xiàng)目結(jié)束日期 =39。 amp。 amp。 39。,項(xiàng)目說明 =39。 amp。 amp。 39。 where 項(xiàng)目 id= 39。 amp。 nn amp。 39。 Dim mycmd As New (sql, myconn) () Try () Catch ex As Exception MsgBox() End Try () Else End If () Dim sql1 As String = select distinct 項(xiàng)目 id from 項(xiàng)目表 Dim cmd As New (sql1, myconn) Dim reader As () reader = () Do While ((0)) Loop () () = False 43 End Sub Private Sub Button5_Click_1(ByVal sender As , ByVal e As ) Handles nn = mm = 2 = True End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As ) Handles Dim sql1 As String Dim table1 As New DataTable Dim adapter As If xm = 0 Then sql1 = select * from 項(xiàng)目表 ElseIf xm = 1 Then sql1 = select * from 項(xiàng)目表 where 項(xiàng)目 id like39。 amp。 xmid amp。 39。 Else sql1 = select * from 項(xiàng)目表 where 項(xiàng)目 id like39。 amp。 xmid amp。 39。 End If adapter = New (sql1, myconn) (table1) = (0).Item(0) = (0).Item(1) = (0).Item(2) = (0).Item(3) = (0).Item(4) = (0).Item(5) = (0).Item(6