technologymaterjalinf.vb

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

        '
        Me.GroupBox1.Location = New System.Drawing.Point(16, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(752, 224)
        Me.GroupBox1.TabIndex = 28
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "工程材料录入"
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(560, 40)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(80, 24)
        Me.Button6.TabIndex = 31
        Me.Button6.Text = "关闭"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(232, 40)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(80, 24)
        Me.Button2.TabIndex = 30
        Me.Button2.Text = "添加"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Label13)
        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.Controls.Add(Me.Button6)
        Me.GroupBox2.Controls.Add(Me.Button2)
        Me.GroupBox2.Location = New System.Drawing.Point(16, 232)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(752, 80)
        Me.GroupBox2.TabIndex = 32
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "操作区"
        '
        'Label13
        '
        Me.Label13.ForeColor = System.Drawing.Color.MediumBlue
        Me.Label13.Location = New System.Drawing.Point(192, 17)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(168, 15)
        Me.Label13.TabIndex = 32
        Me.Label13.Text = "操作前，请选择要录入的项"
        '
        'LinkLabel1
        '
        Me.LinkLabel1.Image = CType(resources.GetObject("LinkLabel1.Image"), System.Drawing.Image)
        Me.LinkLabel1.Location = New System.Drawing.Point(32, 32)
        Me.LinkLabel1.Name = "LinkLabel1"
        Me.LinkLabel1.Size = New System.Drawing.Size(112, 32)
        Me.LinkLabel1.TabIndex = 24
        Me.LinkLabel1.TabStop = True
        Me.LinkLabel1.Text = "工程材料信息查找"
        Me.LinkLabel1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(24, 16)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(32, 24)
        Me.PictureBox1.TabIndex = 23
        Me.PictureBox1.TabStop = False
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(336, 40)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(80, 24)
        Me.Button3.TabIndex = 21
        Me.Button3.Text = "更新"
        '
        'Button4
        '
        Me.Button4.Enabled = False
        Me.Button4.Location = New System.Drawing.Point(448, 40)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(80, 24)
        Me.Button4.TabIndex = 22
        Me.Button4.Text = "删除"
        '
        'DataGrid1
        '
        Me.DataGrid1.CaptionText = "信息显示区域"
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(16, 320)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.ReadOnly = True
        Me.DataGrid1.Size = New System.Drawing.Size(752, 248)
        Me.DataGrid1.TabIndex = 33
        '
        'technologyMaterjalInf
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(784, 582)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.RadioButton4)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.ComboBox2)
        Me.Controls.Add(Me.RadioButton3)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "technologyMaterjalInf"
        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)
        If Me.RadioButton1.Checked = True Then

        End If
        If Me.RadioButton2.Checked = True Then

        End If
        If Me.RadioButton3.Checked = True Then

        End If
        If Me.RadioButton4.Checked = True Then

        End If
    End Sub
    '本窗体的load事件
    Private Sub technologyMaterjalInf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.ReadOnly = True
        Me.TextBox2.ReadOnly = True
        Me.TextBox3.ReadOnly = True
        Me.TextBox4.ReadOnly = True
        Me.TextBox5.ReadOnly = True
        Me.TextBox6.ReadOnly = True
        Me.TextBox7.ReadOnly = True
        Me.TextBox8.ReadOnly = True
        Me.TextBox9.ReadOnly = True
        Me.ComboBox1.Enabled = False
        Me.ComboBox2.Enabled = False
        Me.ComboBox3.Enabled = False
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Button4.Enabled = False
        If Me.RadioButton1.Checked = True Then
            Me.TextBox1.ReadOnly = False
            Me.TextBox2.ReadOnly = False
            Me.TextBox3.ReadOnly = False

            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""

            cailiao100()
        Else
            Me.TextBox1.ReadOnly = True
            Me.TextBox2.ReadOnly = True
            Me.TextBox3.ReadOnly = True
        End If

    End Sub
    '显示象100（材料费用）等的已经录入的内容,并且加入到ComboBox1中
    Private Sub cailiao100()
        Dim mystr As String
        Dim mydataset As New DataSet
        mystr = "select * from material_zongbiao "
        mydataset = GetDataFromDB(mystr)
        Dim myint As Integer = mydataset.Tables(0).Rows.Count
        Dim i As Integer = 0
        Dim itemsstr As String
        Me.ComboBox1.Items.Clear()
        For i = 0 To (myint - 1)
            itemsstr = mydataset.Tables(0).Rows(i)("费用名称")
            itemsstr = itemsstr.Trim
            Me.ComboBox1.Items.Add(itemsstr)
        Next

        Me.ComboBox1.SelectedIndex = 0
        Me.DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub


    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        Button4.Enabled = False
        If Me.RadioButton2.Checked = True Then
            Me.TextBox4.ReadOnly = False
            Me.TextBox5.ReadOnly = False
            Me.ComboBox1.Enabled = True

            Me.TextBox4.Text = ""
            Me.TextBox5.Text = ""

            cailiao112()

            Dim mystr As String
            Dim mydataset As New DataSet
            mystr = "select * from material_zongbiao "
            mydataset = GetDataFromDB(mystr)
            Dim myint As Integer = mydataset.Tables(0).Rows.Count
            Dim i As Integer = 0
            Dim itemsstr As String
            Me.ComboBox1.Items.Clear()
            For i = 0 To (myint - 1)
                itemsstr = mydataset.Tables(0).Rows(i)("费用名称")
                itemsstr = itemsstr.Trim
                Me.ComboBox1.Items.Add(itemsstr)
            Next
            mydataset.Dispose()
            Me.ComboBox1.SelectedIndex = 0
        Else
            Me.TextBox4.ReadOnly = True
            Me.TextBox5.ReadOnly = True
            Me.ComboBox1.Enabled = False
        End If
    End Sub
    '显示象100后的项目（材料费用）等的已经录入的内容
    Private Sub cailiao112()
        Dim mystr As String
        Dim mydataset As New DataSet
        mystr = "select * from material_cd12 "
        mydataset = GetDataFromDB(mystr)
        Dim myint As Integer = mydataset.Tables(0).Rows.Count
        Dim i As Integer = 0
        Dim itemsstr As String
        Me.ComboBox2.Items.Clear()
        For i = 0 To (myint - 1)
            itemsstr = mydataset.Tables(0).Rows(i)("CD1+2名称")
            itemsstr = itemsstr.Trim
            Me.ComboBox2.Items.Add(itemsstr)
        Next

        Me.ComboBox2.SelectedIndex = 0
        Me.DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub




    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Button4.Enabled = False
        If Me.RadioButton3.Checked = True Then
            Me.TextBox6.ReadOnly = False
            Me.TextBox7.ReadOnly = False
            Me.ComboBox2.Enabled = True
            Me.TextBox6.Text = ""
            Me.TextBox7.Text = ""
            cailiaocd34()


            Dim mystr As String
            Dim mydataset As New DataSet
            mystr = "select * from material_cd12 "
            mydataset = GetDataFromDB(mystr)
            Dim myint As Integer = mydataset.Tables(0).Rows.Count
            Dim i As Integer = 0
            Dim itemsstr As String
            Me.ComboBox2.Items.Clear()
            For i = 0 To (myint - 1)
                itemsstr = mydataset.Tables(0).Rows(i)("CD1+2名称")
                itemsstr = itemsstr.Trim
                Me.ComboBox2.Items.Add(itemsstr)
            Next
            mydataset.Dispose()
            Me.ComboBox2.SelectedIndex = 0
        Else
            Me.TextBox6.ReadOnly = True
            Me.TextBox7.ReadOnly = True
            Me.ComboBox2.Enabled = False
        End If

    End Sub
    '显示象具体小项（材料费用）等的已经录入的内容
    Private Sub cailiaocd34()
        Dim mystr As String
        Dim mydataset As New DataSet
        mystr = "select * from material_cd34 "
        mydataset = GetDataFromDB(mystr)
        Dim myint As Integer = mydataset.Tables(0).Rows.Count
        Dim i As Integer = 0
        Dim itemsstr As String
        Me.ComboBox3.Items.Clear()
        For i = 0 To (myint - 1)
            itemsstr = mydataset.Tables(0).Rows(i)("CD3+4名称")
            itemsstr = itemsstr.Trim
            Me.ComboBox3.Items.Add(itemsstr)
        Next

        Me.ComboBox3.SelectedIndex = 0
        Me.DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        Button4.Enabled = False
        Me.TextBox9.ReadOnly = False
        If Me.RadioButton4.Checked = True Then
            Me.TextBox8.ReadOnly = False