bankinf.vb

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

        Me.TextBox6.TabIndex = 41
        Me.TextBox6.Text = "TextBox6"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(40, 302)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(88, 16)
        Me.Label8.TabIndex = 34
        Me.Label8.Text = "备    注"
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        '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(568, 8)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(112, 344)
        Me.GroupBox2.TabIndex = 65
        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
        '
        '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
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(16, 184)
        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, 240)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(80, 24)
        Me.Button4.TabIndex = 22
        Me.Button4.Text = "删除"
        '
        'bankInf
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(696, 574)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        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.Label7)
        Me.Controls.Add(Me.Label6)
        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.Name = "bankInf"
        Me.Text = "银行信息管理模块"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        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.TextBox2.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.TextBox6.Text = ""


        Me.Button3.Enabled = False
        Me.Button4.Enabled = False
        Me.Button2.Enabled = True
        Me.Button6.Enabled = True
        Button1.Enabled = False
    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 bankInf"
        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 bankInf"
        a = GetDataFromDB(str)
        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)("备注"))
        a.Dispose()
    End Sub
    '添加工程基本休息
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        
        Dim sqlstr As String
        sqlstr = "INSERT INTO bankInf " & _
        "(银行名称,银行帐号,银行地址,联系电话,备注) " & _
        "VALUES ('" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.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
        Button1.Enabled = True
        Button4.Enabled = True
        'textbox1中的文本不可更改
        TextBox1.ReadOnly = True
        Button3.Enabled = True
        Button2.Enabled = False
        TextBox1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)

        TextBox2.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)
        TextBox3.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2)
        TextBox4.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3)
        TextBox5.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4)
        TextBox6.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5)

    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 bankInf SET  银行名称=" + Chr(39) + Trim(TextBox2.Text) + Chr(39) + ",银行帐号=" + Chr(39) + Trim(TextBox3.Text) + Chr(39) + ",银行地址=" + Chr(39) + Trim(TextBox4.Text) + Chr(39) + ",联系电话=" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",备注=" + Chr(39) + Trim(TextBox6.Text) + Chr(39) + "where 编号=" + Chr(39) + Trim(TextBox1.Text) + Chr(39)
        If UpdateData(sqlstr) Then
            MsgBox("已经成功更新了该银行资料", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新成功")
            technologyinf()
        End If
    End Sub
    '删除工程信息
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim sqlstr As String
        sqlstr = "DELETE FROM bankInf 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 = True
        Me.Button2.Enabled = False
        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 ownersearch
        myform.Show()
    End Sub

   
End Class