technologyinf.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

        Me.Button2.Size = New System.Drawing.Size(80, 24)
        Me.Button2.TabIndex = 20
        Me.Button2.Text = "添加"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(16, 192)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(80, 24)
        Me.Button3.TabIndex = 21
        Me.Button3.Text = "更新"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(16, 248)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(80, 24)
        Me.Button4.TabIndex = 22
        Me.Button4.Text = "删除"
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(600, 315)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(80, 24)
        Me.Button6.TabIndex = 24
        Me.Button6.Text = "取消"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.LinkLabel1)
        Me.GroupBox2.Controls.Add(Me.PictureBox1)
        Me.GroupBox2.Controls.Add(Me.Button3)
        Me.GroupBox2.Controls.Add(Me.Button4)
        Me.GroupBox2.Location = New System.Drawing.Point(584, 16)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(112, 344)
        Me.GroupBox2.TabIndex = 25
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "操作区"
        '
        'LinkLabel1
        '
        Me.LinkLabel1.Image = CType(resources.GetObject("LinkLabel1.Image"), System.Drawing.Image)
        Me.LinkLabel1.Location = New System.Drawing.Point(16, 32)
        Me.LinkLabel1.Name = "LinkLabel1"
        Me.LinkLabel1.Size = New System.Drawing.Size(80, 32)
        Me.LinkLabel1.TabIndex = 24
        Me.LinkLabel1.TabStop = True
        Me.LinkLabel1.Text = "工程信息查找"
        Me.LinkLabel1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.ToolTip1.SetToolTip(Me.LinkLabel1, "进去查询窗口")
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(8, 16)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(32, 24)
        Me.PictureBox1.TabIndex = 23
        Me.PictureBox1.TabStop = False
        Me.ToolTip1.SetToolTip(Me.PictureBox1, "这里是操作区")
        '
        'DataGrid1
        '
        Me.DataGrid1.CaptionText = "工程信息汇总情况表"
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderFont = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.DataGrid1.Location = New System.Drawing.Point(32, 368)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.ReadOnly = True
        Me.DataGrid1.Size = New System.Drawing.Size(664, 200)
        Me.DataGrid1.TabIndex = 26
        '
        'technologyInf
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(720, 590)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.DateTimePicker2)
        Me.Controls.Add(Me.DateTimePicker1)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.Name = "technologyInf"
        Me.Text = "工程信息管理"
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    '新建按钮，但不是新建保存到数据库
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1.ReadOnly = False
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.TextBox6.Text = ""
        Me.TextBox7.Text = ""

        Me.Button3.Enabled = False
        Me.Button4.Enabled = False
        Me.Button2.Enabled = True
        Me.Button6.Enabled = True

    End Sub

    '本窗体的load事件
    Private Sub technologyInf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Button2.Enabled = False
        technologyinf()
        loadchuangti()
    End Sub
    '得到所有工程的信息,并且加载到datagrid中
    Private Sub technologyinf()
        Dim mydataset As New DataSet
        mydataset.Clear()
        Dim str As String = "select * from technologyInf"
        mydataset = GetDataFromDB(str)
        Me.DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub
    '把表中第一个数据加载到窗体中
    Private Sub loadchuangti()
        Dim a As New DataSet
        Dim str As String = "select * from technologyInf"
        a = GetDataFromDB(str)
        Dim y As Integer
        y = a.Tables(0).Rows.Count
        If y = 0 Then
            a.Dispose()
            Exit Sub
        End If
        TextBox1.Text = Trim(a.Tables(0).Rows(0)("工程编号"))
        'Textbox2显示的是项目名称
        TextBox2.Text = Trim(a.Tables(0).Rows(0)("工程名称"))
        TextBox3.Text = Trim(a.Tables(0).Rows(0)("工程地址"))
        TextBox4.Text = Trim(a.Tables(0).Rows(0)("项目经理"))
        TextBox5.Text = Trim(a.Tables(0).Rows(0)("工程负责人"))
        TextBox6.Text = Trim(a.Tables(0).Rows(0)("设计师"))
        TextBox7.Text = Trim(a.Tables(0).Rows(0)("备注"))
        DateTimePicker1.Text = a.Tables(0).Rows(0)("施工开始时间")
        DateTimePicker2.Text = a.Tables(0).Rows(0)("施工结束时间")
        a.Dispose()
    End Sub
    '添加工程基本休息
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.TextBox1.Text.Trim = "" Then
            MsgBox("请输入工程编号！", MsgBoxStyle.Information, "提示！")
            Me.TextBox1.Text = Nothing
            Exit Sub
        End If
        Dim mystr As String
        Dim mystr1 As String = Me.TextBox1.Text.Trim
        mystr = "select * from technologyInf where 工程编号 =" + Chr(39) + mystr1 + Chr(39)
        If panduan(mystr) = True Then
            MsgBox("工程编号已经存在！", MsgBoxStyle.Information, "提示！")
            Me.TextBox1.Text = Nothing
            Exit Sub
        End If
        Dim sqlstr As String
        sqlstr = "INSERT INTO technologyInf " & _
        "(工程编号,工程名称,工程地址,施工开始时间,施工结束时间,项目经理,工程负责人,设计师,录入工程时间,备注) " & _
        "VALUES ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.DateTimePicker1.Value.Date & "','" & Me.DateTimePicker2.Value.Date & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & Now.Date & "' ,'" & Me.TextBox7.Text & "')"
        If UpdateData(sqlstr) = False Then
            MsgBox("没有成功添加了该新用户", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")
            Exit Sub
        End If
        technologyinf()
        Me.TextBox1.ReadOnly = False
        Me.Button3.Enabled = True
        Me.Button4.Enabled = True
        Me.Button1.Enabled = True
        Me.Button6.Enabled = True

        Me.Button2.Enabled = False
        MsgBox("已经成功添加了该新用户", MsgBoxStyle.OKOnly + _
        MsgBoxStyle.Exclamation, "添加成功")
    End Sub
    '当DataGrid当前单元格变化的时候响应事件
    Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
        
        'textbox1中的文本不可更改
        TextBox1.ReadOnly = True
        'Textbox1显示的是匹配码
        TextBox1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
        'Textbox2显示的是项目名称
        TextBox2.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)
        TextBox3.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2)
        TextBox4.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5)
        TextBox5.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 6)
        TextBox6.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 7)
        TextBox7.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 10)
        DateTimePicker1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3)
        DateTimePicker2.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4)
    End Sub
    '更新用户信息
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sqlstr As String
        sqlstr = "UPDATE technologyInf SET  工程名称=" + Chr(39) + Trim(TextBox2.Text) + Chr(39) + ",工程地址=" + Chr(39) + Trim(TextBox3.Text) + Chr(39) + ",施工开始时间=" + Chr(39) + DateTimePicker1.Value.Date + Chr(39) + ",施工结束时间=" + Chr(39) + DateTimePicker1.Value.Date + Chr(39) + ",项目经理=" + Chr(39) + Trim(TextBox4.Text) + Chr(39) + ",工程负责人=" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",设计师=" + Chr(39) + Trim(TextBox6.Text) + Chr(39) + ",备注=" + Chr(39) + Trim(TextBox7.Text) + Chr(39) + "where 工程编号=" + Chr(39) + Trim(TextBox1.Text) + Chr(39)
        UpdateData(sqlstr)
        MsgBox("已经成功更新了该工程资料", MsgBoxStyle.OKOnly + _
        MsgBoxStyle.Exclamation, "更新成功")
        technologyinf()
    End Sub
    '删除工程信息
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 9)) <> "0" Then
            MsgBox("该工程资料已经使用，不能进行删除，请与开发者联系？", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        Dim sqlstr As String
        sqlstr = "DELETE FROM technologyInf WHERE 工程编号='" & Trim(TextBox1.Text) & "'"
        If MsgBox("该工程信息是否已经使用？", MsgBoxStyle.YesNo, "提示！") = MsgBoxResult.Yes Then
            MsgBox("不能进行删除，请与开发者联系？", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        If UpdateData(sqlstr) = True Then

            MsgBox("已经成功删除了该用户", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "删除成功")
            technologyinf()
        End If
    End Sub
    '取消新建操作
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Button1.Enabled = False
        Me.Button2.Enabled = True
        Me.Button3.Enabled = True
        Me.Button4.Enabled = True

    End Sub
    '进去工程信息查询窗体
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim myform As New technologysearch
            myform.Show()
    End Sub

    
End Class