departmentform.designer.vb

来自「这是一个人事工资管理系统」· VB 代码 · 共 431 行 · 第 1/2 页

VB
431 行
字号
12
        Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
        Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
        Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22)
        Me.BindingNavigatorMoveLastItem.Text = "移到最后一条记录"
        '
        'BindingNavigatorSeparator2
        '
        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
        '
        '公司部门BindingNavigatorSaveItem
        '
        Me.公司部门BindingNavigatorSaveItem.Image = CType(resources.GetObject("公司部门BindingNavigatorSaveItem.Image"), System.Drawing.Image)
        Me.公司部门BindingNavigatorSaveItem.Name = "公司部门BindingNavigatorSaveItem"
        Me.公司部门BindingNavigatorSaveItem.Size = New System.Drawing.Size(49, 22)
        Me.公司部门BindingNavigatorSaveItem.Text = "保存"
        '
        '部门名称TextBox
        '
        Me.部门名称TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.公司部门BindingSource, "部门名称", True))
        Me.部门名称TextBox.Location = New System.Drawing.Point(81, 28)
        Me.部门名称TextBox.Name = "部门名称TextBox"
        Me.部门名称TextBox.Size = New System.Drawing.Size(180, 21)
        Me.部门名称TextBox.TabIndex = 16
        '
        '部门负责人TextBox
        '
        Me.部门负责人TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.公司部门BindingSource, "部门负责人", True))
        Me.部门负责人TextBox.Location = New System.Drawing.Point(81, 55)
        Me.部门负责人TextBox.Name = "部门负责人TextBox"
        Me.部门负责人TextBox.Size = New System.Drawing.Size(180, 21)
        Me.部门负责人TextBox.TabIndex = 18
        '
        '人事文员TextBox
        '
        Me.人事文员TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.公司部门BindingSource, "人事文员", True))
        Me.人事文员TextBox.Location = New System.Drawing.Point(81, 82)
        Me.人事文员TextBox.Name = "人事文员TextBox"
        Me.人事文员TextBox.Size = New System.Drawing.Size(180, 21)
        Me.人事文员TextBox.TabIndex = 20
        '
        '联系电话TextBox
        '
        Me.联系电话TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.公司部门BindingSource, "联系电话", True))
        Me.联系电话TextBox.Location = New System.Drawing.Point(347, 28)
        Me.联系电话TextBox.Name = "联系电话TextBox"
        Me.联系电话TextBox.Size = New System.Drawing.Size(191, 21)
        Me.联系电话TextBox.TabIndex = 22
        '
        '额定人数TextBox
        '
        Me.额定人数TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.公司部门BindingSource, "额定人数", True))
        Me.额定人数TextBox.Location = New System.Drawing.Point(347, 55)
        Me.额定人数TextBox.Name = "额定人数TextBox"
        Me.额定人数TextBox.Size = New System.Drawing.Size(191, 21)
        Me.额定人数TextBox.TabIndex = 24
        '
        '说明TextBox
        '
        Me.说明TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.公司部门BindingSource, "说明", True))
        Me.说明TextBox.Location = New System.Drawing.Point(347, 82)
        Me.说明TextBox.Name = "说明TextBox"
        Me.说明TextBox.Size = New System.Drawing.Size(191, 21)
        Me.说明TextBox.TabIndex = 26
        '
        '公司部门DataGridView
        '
        Me.公司部门DataGridView.AllowUserToAddRows = False
        Me.公司部门DataGridView.AllowUserToDeleteRows = False
        Me.公司部门DataGridView.AllowUserToResizeRows = False
        Me.公司部门DataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.公司部门DataGridView.AutoGenerateColumns = False
        Me.公司部门DataGridView.BackgroundColor = System.Drawing.SystemColors.ActiveCaption
        Me.公司部门DataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.dataGridViewTextBoxColumn1, Me.dataGridViewTextBoxColumn2, Me.dataGridViewTextBoxColumn3, Me.dataGridViewTextBoxColumn4, Me.dataGridViewTextBoxColumn5, Me.dataGridViewTextBoxColumn6})
        Me.公司部门DataGridView.DataSource = Me.公司部门BindingSource
        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Green
        DataGridViewCellStyle1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        DataGridViewCellStyle1.ForeColor = System.Drawing.Color.Yellow
        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
        Me.公司部门DataGridView.DefaultCellStyle = DataGridViewCellStyle1
        Me.公司部门DataGridView.Location = New System.Drawing.Point(3, 109)
        Me.公司部门DataGridView.Name = "公司部门DataGridView"
        Me.公司部门DataGridView.ReadOnly = True
        Me.公司部门DataGridView.RowHeadersVisible = False
        Me.公司部门DataGridView.RowTemplate.Height = 23
        Me.公司部门DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.公司部门DataGridView.Size = New System.Drawing.Size(535, 302)
        Me.公司部门DataGridView.TabIndex = 14
        '
        '公司部门BindingSource
        '
        Me.公司部门BindingSource.DataMember = "公司部门"
        Me.公司部门BindingSource.DataSource = Me.MyPersonnelDataSet
        '
        'MyPersonnelDataSet
        '
        Me.MyPersonnelDataSet.DataSetName = "MyPersonnelDataSet"
        Me.MyPersonnelDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'dataGridViewTextBoxColumn1
        '
        Me.dataGridViewTextBoxColumn1.DataPropertyName = "部门名称"
        Me.dataGridViewTextBoxColumn1.HeaderText = "部门名称"
        Me.dataGridViewTextBoxColumn1.Name = "dataGridViewTextBoxColumn1"
        Me.dataGridViewTextBoxColumn1.ReadOnly = True
        '
        'dataGridViewTextBoxColumn2
        '
        Me.dataGridViewTextBoxColumn2.DataPropertyName = "部门负责人"
        Me.dataGridViewTextBoxColumn2.HeaderText = "部门负责人"
        Me.dataGridViewTextBoxColumn2.Name = "dataGridViewTextBoxColumn2"
        Me.dataGridViewTextBoxColumn2.ReadOnly = True
        '
        'dataGridViewTextBoxColumn3
        '
        Me.dataGridViewTextBoxColumn3.DataPropertyName = "人事文员"
        Me.dataGridViewTextBoxColumn3.HeaderText = "人事文员"
        Me.dataGridViewTextBoxColumn3.Name = "dataGridViewTextBoxColumn3"
        Me.dataGridViewTextBoxColumn3.ReadOnly = True
        '
        'dataGridViewTextBoxColumn4
        '
        Me.dataGridViewTextBoxColumn4.DataPropertyName = "联系电话"
        Me.dataGridViewTextBoxColumn4.HeaderText = "联系电话"
        Me.dataGridViewTextBoxColumn4.Name = "dataGridViewTextBoxColumn4"
        Me.dataGridViewTextBoxColumn4.ReadOnly = True
        '
        'dataGridViewTextBoxColumn5
        '
        Me.dataGridViewTextBoxColumn5.DataPropertyName = "额定人数"
        Me.dataGridViewTextBoxColumn5.HeaderText = "额定人数"
        Me.dataGridViewTextBoxColumn5.Name = "dataGridViewTextBoxColumn5"
        Me.dataGridViewTextBoxColumn5.ReadOnly = True
        '
        'dataGridViewTextBoxColumn6
        '
        Me.dataGridViewTextBoxColumn6.DataPropertyName = "说明"
        Me.dataGridViewTextBoxColumn6.HeaderText = "说明"
        Me.dataGridViewTextBoxColumn6.Name = "dataGridViewTextBoxColumn6"
        Me.dataGridViewTextBoxColumn6.ReadOnly = True
        '
        '公司部门TableAdapter
        '
        Me.公司部门TableAdapter.ClearBeforeFill = True
        '
        'DepartmentForm
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.ClientSize = New System.Drawing.Size(540, 414)
        Me.Controls.Add(部门名称Label)
        Me.Controls.Add(Me.部门名称TextBox)
        Me.Controls.Add(部门负责人Label)
        Me.Controls.Add(Me.部门负责人TextBox)
        Me.Controls.Add(人事文员Label)
        Me.Controls.Add(Me.人事文员TextBox)
        Me.Controls.Add(联系电话Label)
        Me.Controls.Add(Me.联系电话TextBox)
        Me.Controls.Add(额定人数Label)
        Me.Controls.Add(Me.额定人数TextBox)
        Me.Controls.Add(说明Label)
        Me.Controls.Add(Me.说明TextBox)
        Me.Controls.Add(Me.公司部门DataGridView)
        Me.Controls.Add(Me.公司部门BindingNavigator)
        Me.Name = "DepartmentForm"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "登记公司部门信息"
        CType(Me.公司部门BindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
        Me.公司部门BindingNavigator.ResumeLayout(False)
        Me.公司部门BindingNavigator.PerformLayout()
        CType(Me.公司部门DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.公司部门BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.MyPersonnelDataSet, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents MyPersonnelDataSet As 人事工资管理系统.MyPersonnelDataSet
    Friend WithEvents 公司部门BindingSource As System.Windows.Forms.BindingSource
    Friend WithEvents 公司部门TableAdapter As 人事工资管理系统.MyPersonnelDataSetTableAdapters.公司部门TableAdapter
    Friend WithEvents 公司部门BindingNavigator As System.Windows.Forms.BindingNavigator
    Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
    Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
    Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
    Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents 公司部门BindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton
    Private WithEvents 部门名称TextBox As System.Windows.Forms.TextBox
    Private WithEvents 部门负责人TextBox As System.Windows.Forms.TextBox
    Private WithEvents 人事文员TextBox As System.Windows.Forms.TextBox
    Private WithEvents 联系电话TextBox As System.Windows.Forms.TextBox
    Private WithEvents 额定人数TextBox As System.Windows.Forms.TextBox
    Private WithEvents 说明TextBox As System.Windows.Forms.TextBox
    Private WithEvents 公司部门DataGridView As System.Windows.Forms.DataGridView
    Private WithEvents dataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
    Private WithEvents dataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
    Private WithEvents dataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
    Private WithEvents dataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
    Private WithEvents dataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
    Private WithEvents dataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class
12

departmentform.designer.vb - 源码说明

本页面展示了「这是一个人事工资管理系统」中的 departmentform.designer.vb 源码文件，采用 VB 编程语言编写，共 431 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?