数据库技术及应用课程设计项目设计报告说明书之工程项目管理

数据库技术及应用课程设计项目设计报告说明书之工程项目管理内容摘要：

(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。 ,联系人姓名 =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。 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到下个界面 () 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 项目负责人表 Inherits Dim myconn As New (initial catalog=工程项目管理。 data source=SH\A。 integrated security=SSPI。 ) Public mybind As BindingManagerBase Dim mm As Integer Dim nn As String Private Sub 项目负责人表 _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。 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 项目负责人表 where 项目负责人 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 = = =。