【文章內(nèi)容簡介】 (table1) = (0).Item(1) = (0).Item(0) = (0).Item(2) = (0).Item(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。 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 Button4_Click(ByVal sender As , ByVal e As ) Handles If mm = 1 Then 29 Dim sql As String = insert into 客戶表 values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,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 客戶表 set 客戶 id=39。 amp。 amp。 39。,聯(lián)系人姓名 =39。 amp。 amp。 39。,聯(lián)系人職務(wù) =39。 amp。 amp。 39。,電話 =39。 amp。 amp。 39。,傳真 =39。 amp。 amp。 39。,公司名稱 =39。 amp。 amp。 39。,公司地址 =39。 amp。 amp。 39。,省份 =39。 amp。 amp。 39。,城市 =39。 amp。 amp。 39。,附注 =39。 amp。 amp。 39。 where 客戶 id= 39。 amp。 nn amp。 39。 Dim mycmd As New (sql, myconn) () Try () Catch ex As Exception MsgBox() End Try () Else End If 39。nn為全局變量，傳遞客戶 id到下個(gè)界面 () Dim sql4 As String = select distinct 客戶 id from 客戶表 Dim cmd As New (sql4, myconn) Dim reader As () reader = () Do While ((0)) Loop () () = False End Sub 30 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = = = = = = = = mm = 1 = True End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles nn = mm = 2 = True End Sub Private Sub 客戶表 _Activated(ByVal sender As Object, ByVal e As ) Handles Dim sql1 As String Dim table1 As New DataTable Dim adapter As If kh = 1 Then sql1 = select * from 客戶 表 Else sql1 = select * from 客戶表 where 客戶 id like39。 amp。 khid amp。 39。 End If adapter = New (sql1, myconn) (table1) = (0).Item(1) = (0).Item(0) = (0).Item(2) = (0).Item(3) = (0).Item(4) = (0).Item(5) = (0).Item(6) = (0).Item(7) = (0).Item(8) 31 = (0).Item(9) End Sub End Class ： Public Class 項(xiàng)目負(fù)責(zé)人表 Inherits Dim myconn As New (initial catalog=工程項(xiàng)目管理 。data source=SH\A。integrated security=SSPI。) Public mybind As BindingManagerBase Dim mm As Integer Dim nn As String Private Sub 項(xiàng)目負(fù)責(zé)人表 _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)目負(fù)責(zé)人 id from 項(xiàng)目負(fù)責(zé)人表 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)目負(fù)責(zé)人表 where 項(xiàng)目負(fù)責(zé)人 id like 39。 amp。 32 Trim() amp。 39。 adapter = New (sqlstr2, myconn) (table1) = (0).Item(0) = (0).Item(1) = (0).Item(2) = (0).Item(3) = (0).Item(4) End Sub Private Sub MenuItem1_Click(ByVal sender As , ByVal e As ) Handles fzid1 = () () 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 項(xiàng)目負(fù)責(zé)人表 where 項(xiàng)目負(fù)責(zé)人 id like 39。 amp。 Trim() amp。 39。 Dim mycmd As New (sql, myconn) () Try () Catch ex As Exception MsgBox() End Try () = = = 33 = = () = True mm = 0 End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = =