【正文】 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)。 xmid amp。 Else sql1 = select * from 項目表 where 項目 id like39。 xmid amp。 Dim mycmd As New (sql, myconn) () Try () Catch ex As Exception MsgBox() End Try () Else End If () Dim sql1 As String = select distinct 項目 id from 項目表 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 項目表 ElseIf xm = 1 Then sql1 = select * from 項目表 where 項目 id like39。 nn amp。 where 項目 id= 39。 amp。,項目說明 =39。 amp。,項目結(jié)束日期 =39。 amp。,項目開始日期 =39。 amp。,項目負責(zé)人 id=39。 amp。 ,客戶 id=39。,項目金額 = amp。 amp。,所在地 =39。 amp。,項目 id=39。 amp。) Dim mycmd As New (sql, myconn) () Try () Catch ex As Exception MsgBox() End Try () ElseIf mm = 2 Then Dim sql As String = update 項目表 set 項目名稱 = 39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。 ,39。, amp。 amp。,39。 amp。,39。 amp。 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 項目表 values(39。 Trim() amp。 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 項目表 where 項目 id like 39。 Trim() amp。) 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 項目 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。data source=SH\A。 39。 amp。integrated security=SSPI。 Dim myconn As New (initial catalog =工程項目管理 。 () amp。存儲過程的使用 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles i = Dim sql As String Dim table1 As New 38 sql = select * from 項目表 where 客戶 ID like 39。) myadapter = New (sql, myconn) Dim mydataset1 As New DataSet (mydataset1, 項目表 ) = (項目表 ) Dim mycmd As = New (kh_proc。data source =SH\A。 39。 amp。integrated security=SSPI。 TO 項目表： Public Class 客戶 to項目 Inherits Dim myconn As New (initial catalog =工程項目管理 。 myadapter = New (sql, myconn) (mytable) If = 0 Then MsgBox(無項目記錄 ) Else = mytable End If End Sub End Class 39。 fzid1 amp。) myadapter = New (sql, myconn) Dim mydataset1 As New DataSet (mydataset1, 項目表 ) = (項目 表 ) xmid = (項目表 ).Rows(i