frmcustomer.vb

这是一个关于图书仓库管理系统的程序源代码。是我的毕业设计的作品

        Me.txtBankName.Size = New System.Drawing.Size(208, 21)
        Me.txtBankName.TabIndex = 7
        Me.txtBankName.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(32, 136)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 16)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "开户银行:*"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(208, 56)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(66, 17)
        Me.Label3.TabIndex = 4
        Me.Label3.Text = "客户类型:*"
        '
        'txtCustomerName
        '
        Me.txtCustomerName.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.txtCustomerName.Location = New System.Drawing.Point(96, 96)
        Me.txtCustomerName.MaxLength = 50
        Me.txtCustomerName.Name = "txtCustomerName"
        Me.txtCustomerName.Size = New System.Drawing.Size(208, 21)
        Me.txtCustomerName.TabIndex = 3
        Me.txtCustomerName.Text = ""
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(32, 96)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(66, 17)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "客户名称:*"
        '
        'txtCustomerID
        '
        Me.txtCustomerID.BackColor = System.Drawing.SystemColors.ScrollBar
        Me.txtCustomerID.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtCustomerID.Location = New System.Drawing.Point(96, 56)
        Me.txtCustomerID.Name = "txtCustomerID"
        Me.txtCustomerID.ReadOnly = True
        Me.txtCustomerID.Size = New System.Drawing.Size(96, 21)
        Me.txtCustomerID.TabIndex = 1
        Me.txtCustomerID.Text = ""
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(32, 56)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(54, 17)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "客户ID:*"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.btnSearch)
        Me.GroupBox1.Controls.Add(Me.txtOrderbyName)
        Me.GroupBox1.Controls.Add(Me.Label13)
        Me.GroupBox1.Controls.Add(Me.Label12)
        Me.GroupBox1.Controls.Add(Me.cboOrderbyType)
        Me.GroupBox1.Controls.Add(Me.dgCustomer)
        Me.GroupBox1.Location = New System.Drawing.Point(8, 0)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(488, 520)
        Me.GroupBox1.TabIndex = 0
        Me.GroupBox1.TabStop = False
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(416, 488)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(56, 24)
        Me.btnSearch.TabIndex = 66
        Me.btnSearch.Text = "查询"
        '
        'txtOrderbyName
        '
        Me.txtOrderbyName.Location = New System.Drawing.Point(256, 488)
        Me.txtOrderbyName.Name = "txtOrderbyName"
        Me.txtOrderbyName.Size = New System.Drawing.Size(144, 21)
        Me.txtOrderbyName.TabIndex = 65
        Me.txtOrderbyName.Text = ""
        '
        'Label13
        '
        Me.Label13.AutoSize = True
        Me.Label13.Location = New System.Drawing.Point(192, 488)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(60, 17)
        Me.Label13.TabIndex = 64
        Me.Label13.Text = "客户名称:"
        '
        'Label12
        '
        Me.Label12.AutoSize = True
        Me.Label12.Location = New System.Drawing.Point(8, 488)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(60, 17)
        Me.Label12.TabIndex = 63
        Me.Label12.Text = "客户类型:"
        '
        'cboOrderbyType
        '
        Me.cboOrderbyType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboOrderbyType.Items.AddRange(New Object() {"所有", "供货商", "购货商"})
        Me.cboOrderbyType.Location = New System.Drawing.Point(72, 488)
        Me.cboOrderbyType.Name = "cboOrderbyType"
        Me.cboOrderbyType.Size = New System.Drawing.Size(88, 20)
        Me.cboOrderbyType.TabIndex = 62
        '
        'dgCustomer
        '
        Me.dgCustomer.DataMember = ""
        Me.dgCustomer.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgCustomer.Location = New System.Drawing.Point(8, 16)
        Me.dgCustomer.Name = "dgCustomer"
        Me.dgCustomer.ReadOnly = True
        Me.dgCustomer.Size = New System.Drawing.Size(472, 464)
        Me.dgCustomer.TabIndex = 34
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(496, 528)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(64, 24)
        Me.btnAdd.TabIndex = 60
        Me.btnAdd.Text = "添加"
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(576, 528)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(64, 24)
        Me.btnUpdate.TabIndex = 61
        Me.btnUpdate.Text = "修改"
        '
        'btnDel
        '
        Me.btnDel.Location = New System.Drawing.Point(656, 528)
        Me.btnDel.Name = "btnDel"
        Me.btnDel.Size = New System.Drawing.Size(64, 24)
        Me.btnDel.TabIndex = 62
        Me.btnDel.Text = "删除"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(816, 528)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(64, 24)
        Me.btnCancel.TabIndex = 64
        Me.btnCancel.Text = "取消"
        '
        'btnOK
        '
        Me.btnOK.Location = New System.Drawing.Point(736, 528)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(64, 24)
        Me.btnOK.TabIndex = 63
        Me.btnOK.Text = "确定"
        '
        'frmCustomer
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(898, 567)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.btnOK)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.btnUpdate)
        Me.Controls.Add(Me.btnDel)
        Me.Controls.Add(Me.btnCancel)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.Name = "frmCustomer"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "客户信息管理"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.dgCustomer, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmCustomer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        strSQL = "SELECT * FROM Customer"
        freshData()
    End Sub


    Private Sub freshData()
        On Error Resume Next

        Dim dsCustomer As New DataSet()
        dsCustomer.Clear()                  '先清除原有记录
        myDataObj.ExecuteSQL(strSQL, dsCustomer)

        With dgCustomer
            .TableStyles.Clear()
            .DataSource = dsCustomer
            .DataMember = "table"           '连接到单个表
        End With

        Dim ts As New DataGridTableStyle()
        Dim ac As New DataGridTextBoxColumn()
        Dim HeaderValues(10) As String      '列标题值
        Dim WidthValues(10) As Integer      '列宽
        Dim i As Integer

        HeaderValues(0) = "客户ID"
        HeaderValues(1) = "客户名称"
        HeaderValues(2) = "客户类型"
        HeaderValues(3) = "银行名称"
        HeaderValues(4) = "银行账号"
        HeaderValues(5) = "联系人"
        HeaderValues(6) = "联系地址"
        HeaderValues(7) = "邮政编码"
        HeaderValues(8) = "联系电话"
        HeaderValues(9) = "传真号码"
        HeaderValues(10) = "描述"


        WidthValues(0) = 50
        WidthValues(1) = 100
        WidthValues(2) = 70
        WidthValues(3) = 100
        WidthValues(4) = 100
        WidthValues(5) = 70
        WidthValues(6) = 100
        WidthValues(7) = 70
        WidthValues(8) = 70
        WidthValues(9) = 70
        WidthValues(10) = 100

        ts.MappingName = dsCustomer.Tables(0).TableName

        For i = 0 To 10
            ac = New DataGridTextBoxColumn()
            ac.HeaderText = HeaderValues(i)                 '列名  
            ac.MappingName = dsCustomer.Tables("table").Columns(i).ColumnName   '关联的数据表列值
            ac.TextBox.AutoSize = True                      'datagrid内的文本框宽度自适应调整  
            ac.NullText = String.Empty                      '值为空时隐去null
            ts.AlternatingBackColor = Color.LightGray       '设定交替行的背景色
            ts.PreferredColumnWidth = WidthValues(i)        '列宽  
            ts.GridColumnStyles.Add(ac)
        Next i

        dgCustomer.TableStyles.Add(ts)
        showData()
    End Sub

    Private Sub showData()

        'cboCustomerType.Enabled = True

        
        With dgCustomer
            txtCustomerID.Text = .Item(.CurrentRowIndex, 0)
            txtCustomerName.Text = .Item(.CurrentRowIndex, 1)
            cboCustomerType.Text = .Item(.CurrentRowIndex, 2)
            txtBankName.Text = .Item(.CurrentRowIndex, 3)
            txtBankAccount.Text = .Item(.CurrentRowIndex, 4)
            txtContactName.Text = .Item(.CurrentRowIndex, 5)
            txtAddress.Text = .Item(.CurrentRowIndex, 6)
            txtZipCode.Text = .Item(.CurrentRowIndex, 7)
            txtPhone.Text = .Item(.CurrentRowIndex, 8)
            txtFax.Text = .Item(.CurrentRowIndex, 9)
            txtDescr.Text = .Item(.CurrentRowIndex, 10)
           
        End With
    End Sub


    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        GroupBox2.Enabled = True
        txtCustomerID.Text = ""
        txtCustomerName.Text = ""
        cboCustomerType.SelectedIndex = 0
        txtBankName.Text = ""
        txtBankAccount.Text = ""
        txtContactName.Text = ""
        txtZipCode.Text = ""
        txtAddress.Text = ""