form10.vb

VB 人事管理系统 能够为管理人员提供充足的信息和快捷的查询手段

        Me.Label5.Text = "职务补助"
        '
        'TextBox4
        '
        Me.TextBox4.AutoSize = False
        Me.TextBox4.BackColor = System.Drawing.SystemColors.ControlText
        Me.TextBox4.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.TextBox4.Location = New System.Drawing.Point(344, 296)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(96, 24)
        Me.TextBox4.TabIndex = 5
        Me.TextBox4.Text = ""
        '
        'Label4
        '
        Me.Label4.BackColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Font = New System.Drawing.Font("楷体_GB2312", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Label4.Location = New System.Drawing.Point(264, 296)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 16)
        Me.Label4.TabIndex = 4
        Me.Label4.Text = "基本工资"
        '
        'TextBox3
        '
        Me.TextBox3.AutoSize = False
        Me.TextBox3.BackColor = System.Drawing.SystemColors.ControlText
        Me.TextBox3.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.TextBox3.Location = New System.Drawing.Point(136, 296)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(96, 24)
        Me.TextBox3.TabIndex = 3
        Me.TextBox3.Text = ""
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Font = New System.Drawing.Font("楷体_GB2312", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Label3.Location = New System.Drawing.Point(48, 296)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 16)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "工资级别"
        '
        'Button2
        '
        Me.Button2.BackColor = System.Drawing.SystemColors.ControlText
        Me.Button2.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Button2.Location = New System.Drawing.Point(488, 160)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(80, 40)
        Me.Button2.TabIndex = 7
        Me.Button2.Text = "查  看"
        '
        'TabPage2
        '
        Me.TabPage2.BackgroundImage = CType(resources.GetObject("TabPage2.BackgroundImage"), System.Drawing.Image)
        Me.TabPage2.Controls.Add(Me.Button4)
        Me.TabPage2.Controls.Add(Me.TextBox8)
        Me.TabPage2.Controls.Add(Me.Label8)
        Me.TabPage2.Controls.Add(Me.TextBox7)
        Me.TabPage2.Controls.Add(Me.Label7)
        Me.TabPage2.Controls.Add(Me.Button3)
        Me.TabPage2.Controls.Add(Me.DataGrid2)
        Me.TabPage2.Location = New System.Drawing.Point(4, 21)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(568, 415)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "洗 理 费"
        '
        'Button4
        '
        Me.Button4.BackColor = System.Drawing.Color.Black
        Me.Button4.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.Button4.Location = New System.Drawing.Point(464, 336)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(64, 24)
        Me.Button4.TabIndex = 6
        Me.Button4.Text = "更  新"
        '
        'TextBox8
        '
        Me.TextBox8.AutoSize = False
        Me.TextBox8.BackColor = System.Drawing.Color.Black
        Me.TextBox8.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.TextBox8.Location = New System.Drawing.Point(128, 264)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(136, 40)
        Me.TextBox8.TabIndex = 5
        Me.TextBox8.Text = ""
        '
        'Label8
        '
        Me.Label8.BackColor = System.Drawing.Color.Black
        Me.Label8.Font = New System.Drawing.Font("楷体_GB2312", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.Label8.Location = New System.Drawing.Point(40, 272)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 24)
        Me.Label8.TabIndex = 4
        Me.Label8.Text = "洗 理 费"
        '
        'TextBox7
        '
        Me.TextBox7.AutoSize = False
        Me.TextBox7.BackColor = System.Drawing.Color.Black
        Me.TextBox7.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.TextBox7.Location = New System.Drawing.Point(128, 200)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(136, 32)
        Me.TextBox7.TabIndex = 3
        Me.TextBox7.Text = ""
        '
        'Label7
        '
        Me.Label7.BackColor = System.Drawing.Color.Black
        Me.Label7.Font = New System.Drawing.Font("楷体_GB2312", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label7.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.Label7.Location = New System.Drawing.Point(40, 200)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(432, 40)
        Me.Label7.TabIndex = 2
        Me.Label7.Text = "对性别为                      的职工进行洗理费更新"
        '
        'Button3
        '
        Me.Button3.BackColor = System.Drawing.Color.Black
        Me.Button3.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.Button3.Location = New System.Drawing.Point(464, 152)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(64, 24)
        Me.Button3.TabIndex = 1
        Me.Button3.Text = "查  看"
        '
        'DataGrid2
        '
        Me.DataGrid2.BackgroundColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid2.CaptionBackColor = System.Drawing.SystemColors.ControlDarkDark
        Me.DataGrid2.DataMember = ""
        Me.DataGrid2.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid2.Location = New System.Drawing.Point(16, 24)
        Me.DataGrid2.Name = "DataGrid2"
        Me.DataGrid2.Size = New System.Drawing.Size(544, 112)
        Me.DataGrid2.TabIndex = 0
        '
        'TabPage3
        '
        Me.TabPage3.BackgroundImage = CType(resources.GetObject("TabPage3.BackgroundImage"), System.Drawing.Image)
        Me.TabPage3.Controls.Add(Me.Button6)
        Me.TabPage3.Controls.Add(Me.TextBox11)
        Me.TabPage3.Controls.Add(Me.Label11)
        Me.TabPage3.Controls.Add(Me.TextBox9)
        Me.TabPage3.Controls.Add(Me.Label9)
        Me.TabPage3.Controls.Add(Me.Button5)
        Me.TabPage3.Controls.Add(Me.DataGrid3)
        Me.TabPage3.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.TabPage3.Location = New System.Drawing.Point(4, 21)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(568, 415)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "工龄情况"
        '
        'Button6
        '
        Me.Button6.BackColor = System.Drawing.Color.Black
        Me.Button6.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Button6.Location = New System.Drawing.Point(424, 296)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(72, 32)
        Me.Button6.TabIndex = 8
        Me.Button6.Text = "更  新"
        '
        'TextBox11
        '
        Me.TextBox11.AutoSize = False
        Me.TextBox11.BackColor = System.Drawing.Color.Black
        Me.TextBox11.ForeColor = System.Drawing.SystemColors.Window
        Me.TextBox11.Location = New System.Drawing.Point(160, 296)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(160, 24)
        Me.TextBox11.TabIndex = 7
        Me.TextBox11.Text = ""
        '
        'Label11
        '
        Me.Label11.BackColor = System.Drawing.Color.Black
        Me.Label11.Font = New System.Drawing.Font("楷体_GB2312", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label11.Location = New System.Drawing.Point(40, 296)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(104, 24)
        Me.Label11.TabIndex = 6
        Me.Label11.Text = "工 龄 津 贴"
        '
        'TextBox9
        '
        Me.TextBox9.AutoSize = False
        Me.TextBox9.BackColor = System.Drawing.Color.Black
        Me.TextBox9.ForeColor = System.Drawing.SystemColors.Window
        Me.TextBox9.Location = New System.Drawing.Point(160, 200)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(160, 24)
        Me.TextBox9.TabIndex = 3
        Me.TextBox9.Text = ""
        '
        'Label9
        '
        Me.Label9.BackColor = System.Drawing.Color.Black
        Me.Label9.Font = New System.Drawing.Font("楷体_GB2312", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label9.Location = New System.Drawing.Point(40, 200)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(432, 32)
        Me.Label9.TabIndex = 2
        Me.Label9.Text = "对工龄年数为                        的职工进行更新"
        '
        'Button5
        '
        Me.Button5.BackColor = System.Drawing.Color.Black
        Me.Button5.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Button5.Location = New System.Drawing.Point(424, 152)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(72, 32)
        Me.Button5.TabIndex = 1
        Me.Button5.Text = "查  看"
        '
        'DataGrid3
        '
        Me.DataGrid3.BackgroundColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.DataGrid3.CaptionBackColor = System.Drawing.SystemColors.ControlDarkDark
        Me.DataGrid3.DataMember = ""
        Me.DataGrid3.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid3.Location = New System.Drawing.Point(8, 24)
        Me.DataGrid3.Name = "DataGrid3"
        Me.DataGrid3.Size = New System.Drawing.Size(552, 120)
        Me.DataGrid3.TabIndex = 0
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "职称表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("职称名", "职称名"), New System.Data.Common.DataColumnMapping("工资级别", "工资级别"), New System.Data.Common.DataColumnMapping("基本工资", "基本工资"), New System.Data.Common.DataColumnMapping("职务补助", "职务补助"), New System.Data.Common.DataColumnMapping("房补", "房补")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 职称表 WHERE (职称名 = @Original_职称名) AND (基本工资 = @Original_基本工资 OR @Origin" & _
        "al_基本工资 IS NULL AND 基本工资 IS NULL) AND (工资级别 = @Original_工资级别 OR @Original_工资级别 I" & _
        "S NULL AND 工资级别 IS NULL) AND (房补 = @Original_房补 OR @Original_房补 IS NULL AND 房补 I" & _
        "S NULL) AND (职务补助 = @Original_职务补助 OR @Original_职务补助 IS NULL AND 职务补助 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_职称名", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "职称名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_基本工资", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "基本工资", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_工资级别", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "工资级别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_房补", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "房补", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_职务补助", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "职务补助", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=FB60FF2059274FF;packet size=4096;integrated security=SSPI;initial " & _
        "catalog=人事管理系统;persist security info=False"
        '
        'SqlInsertCommand1