salary.vb

这是一个基于.NET平台

        Me.Button1.Location = New System.Drawing.Point(8, 16)
        Me.Button1.Name = "Button1"
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "第一条记录"
        '
        'Button5
        '
        Me.Button5.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button5.Location = New System.Drawing.Point(80, 128)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(72, 23)
        Me.Button5.TabIndex = 17
        Me.Button5.Text = "查询"
        '
        'Button6
        '
        Me.Button6.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button6.Location = New System.Drawing.Point(512, 384)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(72, 23)
        Me.Button6.TabIndex = 18
        Me.Button6.Text = "返回"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.TextBox14)
        Me.GroupBox2.Controls.Add(Me.Label14)
        Me.GroupBox2.Controls.Add(Me.Label13)
        Me.GroupBox2.Controls.Add(Me.TextBox13)
        Me.GroupBox2.Controls.Add(Me.TextBox12)
        Me.GroupBox2.Controls.Add(Me.TextBox11)
        Me.GroupBox2.Controls.Add(Me.Label12)
        Me.GroupBox2.Controls.Add(Me.Label11)
        Me.GroupBox2.Controls.Add(Me.TextBox10)
        Me.GroupBox2.Controls.Add(Me.Label10)
        Me.GroupBox2.Location = New System.Drawing.Point(0, 248)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(488, 112)
        Me.GroupBox2.TabIndex = 22
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "考勤情况"
        '
        'TextBox14
        '
        Me.TextBox14.Location = New System.Drawing.Point(360, 64)
        Me.TextBox14.Name = "TextBox14"
        Me.TextBox14.Size = New System.Drawing.Size(56, 21)
        Me.TextBox14.TabIndex = 9
        Me.TextBox14.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(288, 64)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(64, 16)
        Me.Label14.TabIndex = 8
        Me.Label14.Text = "事假天数"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(152, 64)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 16)
        Me.Label13.TabIndex = 7
        Me.Label13.Text = "病假天数"
        '
        'TextBox13
        '
        Me.TextBox13.Location = New System.Drawing.Point(224, 64)
        Me.TextBox13.Name = "TextBox13"
        Me.TextBox13.Size = New System.Drawing.Size(48, 21)
        Me.TextBox13.TabIndex = 6
        Me.TextBox13.Text = ""
        '
        'TextBox12
        '
        Me.TextBox12.Location = New System.Drawing.Point(80, 64)
        Me.TextBox12.Name = "TextBox12"
        Me.TextBox12.Size = New System.Drawing.Size(48, 21)
        Me.TextBox12.TabIndex = 5
        Me.TextBox12.Text = ""
        '
        'TextBox11
        '
        Me.TextBox11.Location = New System.Drawing.Point(312, 24)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(104, 21)
        Me.TextBox11.TabIndex = 4
        Me.TextBox11.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(16, 64)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(56, 16)
        Me.Label12.TabIndex = 3
        Me.Label12.Text = "出席天数"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(232, 24)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(72, 24)
        Me.Label11.TabIndex = 2
        Me.Label11.Text = "旷工天数"
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(120, 24)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(104, 21)
        Me.TextBox10.TabIndex = 1
        Me.TextBox10.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(16, 24)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(88, 16)
        Me.Label10.TabIndex = 0
        Me.Label10.Text = "罚金（元/天）"
        '
        'Button7
        '
        Me.Button7.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button7.Location = New System.Drawing.Point(512, 336)
        Me.Button7.Name = "Button7"
        Me.Button7.TabIndex = 23
        Me.Button7.Text = "刷新"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.TextBox7)
        Me.GroupBox3.Controls.Add(Me.Label15)
        Me.GroupBox3.Controls.Add(Me.ComboBox1)
        Me.GroupBox3.Controls.Add(Me.Button5)
        Me.GroupBox3.Location = New System.Drawing.Point(432, 16)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(160, 160)
        Me.GroupBox3.TabIndex = 24
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "查询信息"
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(32, 56)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.TabIndex = 20
        Me.TextBox7.Text = ""
        '
        'Label15
        '
        Me.Label15.ForeColor = System.Drawing.Color.Blue
        Me.Label15.Location = New System.Drawing.Point(32, 96)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(104, 16)
        Me.Label15.TabIndex = 19
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"按员工编号", "按银行账号"})
        Me.ComboBox1.Location = New System.Drawing.Point(24, 24)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(121, 20)
        Me.ComboBox1.TabIndex = 18
        Me.ComboBox1.Text = "请选择查询方式"
        '
        'Button8
        '
        Me.Button8.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button8.Location = New System.Drawing.Point(512, 200)
        Me.Button8.Name = "Button8"
        Me.Button8.TabIndex = 25
        Me.Button8.Text = "添加"
        '
        'Button9
        '
        Me.Button9.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button9.Location = New System.Drawing.Point(512, 248)
        Me.Button9.Name = "Button9"
        Me.Button9.TabIndex = 26
        Me.Button9.Text = "修改"
        '
        'Button10
        '
        Me.Button10.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button10.Location = New System.Drawing.Point(512, 296)
        Me.Button10.Name = "Button10"
        Me.Button10.TabIndex = 27
        Me.Button10.Text = "删除"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(0, 88)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(72, 16)
        Me.Label7.TabIndex = 28
        Me.Label7.Text = "奖金、津贴"
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(88, 56)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.TabIndex = 29
        Me.TextBox9.Text = ""
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(0, 368)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(496, 104)
        Me.DataGrid1.TabIndex = 30
        '
        'Form6
        '
        Me.AcceptButton = Me.Button5
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.SystemColors.Info
        Me.ClientSize = New System.Drawing.Size(616, 477)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Button10)
        Me.Controls.Add(Me.Button9)
        Me.Controls.Add(Me.Button8)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form6"
        Me.Text = "工资信息"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Dispose()
    End Sub

    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        str()