【正文】 Try () Catch ex As Exception MsgBox() End Try () ElseIf mm = 2 Then Dim sql As String = update 項(xiàng)目負(fù)責(zé)人表 set 姓名 =39。,39。,39。,39。,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 = = = = = mm = 1 = True End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles If mm = 1 Then Dim sql As String = insert into 項(xiàng)目負(fù)責(zé)人表 values(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。) 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。 39。 Dim mycmd As New (sql, myconn) () Try () Catch ex As Exception MsgBox() End Try () Else End If 39。 where 客戶 id= 39。,附注 =39。,城市 =39。,省份 =39。,公司地址 =39。,公司名稱 =39。,傳真 =39。,電話 =39。,聯(lián)系人職務(wù) =39。,聯(lián)系人姓名 =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。,39。,39。,39。,39。,39。,39。,39。,39。,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。 adapter = New (sqlstr2, 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) = (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。根據(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。滾動字幕制作 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)目管理 。加入圖片，并使之循環(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。