form2.vb

一个工资管理系统

        Me.Label3.Size = New System.Drawing.Size(60, 20)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "性别"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 72)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(60, 20)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "姓名"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 32)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(60, 20)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "工号"
        '
        'TextBox2
        '
        Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.姓名"))
        Me.TextBox2.Location = New System.Drawing.Point(80, 72)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(60, 21)
        Me.TextBox2.TabIndex = 8
        Me.TextBox2.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 168)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(60, 20)
        Me.Label5.TabIndex = 3
        Me.Label5.Text = "备注"
        '
        'TextBox5
        '
        Me.TextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.备注"))
        Me.TextBox5.Location = New System.Drawing.Point(80, 168)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(192, 21)
        Me.TextBox5.TabIndex = 4
        Me.TextBox5.Text = ""
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.txtlocation)
        Me.GroupBox2.Controls.Add(Me.btlast)
        Me.GroupBox2.Controls.Add(Me.btnext)
        Me.GroupBox2.Controls.Add(Me.btprev)
        Me.GroupBox2.Controls.Add(Me.bttop)
        Me.GroupBox2.Controls.Add(Me.btexit)
        Me.GroupBox2.Controls.Add(Me.btcancel)
        Me.GroupBox2.Controls.Add(Me.btupdate)
        Me.GroupBox2.Controls.Add(Me.btdelete)
        Me.GroupBox2.Controls.Add(Me.btadd)
        Me.GroupBox2.Controls.Add(Me.btview)
        Me.GroupBox2.Controls.Add(Me.btfind)
        Me.GroupBox2.Controls.Add(Me.txtfind)
        Me.GroupBox2.Controls.Add(Me.Label10)
        Me.GroupBox2.Location = New System.Drawing.Point(304, 224)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(248, 200)
        Me.GroupBox2.TabIndex = 2
        Me.GroupBox2.TabStop = False
        '
        'txtlocation
        '
        Me.txtlocation.Location = New System.Drawing.Point(88, 32)
        Me.txtlocation.Name = "txtlocation"
        Me.txtlocation.Size = New System.Drawing.Size(56, 24)
        Me.txtlocation.TabIndex = 13
        '
        'btlast
        '
        Me.btlast.Location = New System.Drawing.Point(184, 31)
        Me.btlast.Name = "btlast"
        Me.btlast.Size = New System.Drawing.Size(32, 24)
        Me.btlast.TabIndex = 12
        Me.btlast.Text = ">|"
        '
        'btnext
        '
        Me.btnext.Location = New System.Drawing.Point(152, 32)
        Me.btnext.Name = "btnext"
        Me.btnext.Size = New System.Drawing.Size(32, 24)
        Me.btnext.TabIndex = 11
        Me.btnext.Text = ">>"
        '
        'btprev
        '
        Me.btprev.Location = New System.Drawing.Point(48, 32)
        Me.btprev.Name = "btprev"
        Me.btprev.Size = New System.Drawing.Size(32, 24)
        Me.btprev.TabIndex = 10
        Me.btprev.Text = "<<"
        '
        'bttop
        '
        Me.bttop.Location = New System.Drawing.Point(16, 32)
        Me.bttop.Name = "bttop"
        Me.bttop.Size = New System.Drawing.Size(32, 24)
        Me.bttop.TabIndex = 9
        Me.bttop.Text = "|<"
        '
        'btexit
        '
        Me.btexit.Location = New System.Drawing.Point(168, 160)
        Me.btexit.Name = "btexit"
        Me.btexit.Size = New System.Drawing.Size(60, 20)
        Me.btexit.TabIndex = 8
        Me.btexit.Text = "退出"
        '
        'btcancel
        '
        Me.btcancel.Location = New System.Drawing.Point(88, 160)
        Me.btcancel.Name = "btcancel"
        Me.btcancel.Size = New System.Drawing.Size(60, 20)
        Me.btcancel.TabIndex = 7
        Me.btcancel.Text = "取消"
        '
        'btupdate
        '
        Me.btupdate.Location = New System.Drawing.Point(8, 160)
        Me.btupdate.Name = "btupdate"
        Me.btupdate.Size = New System.Drawing.Size(60, 20)
        Me.btupdate.TabIndex = 6
        Me.btupdate.Text = "更新"
        '
        'btdelete
        '
        Me.btdelete.Location = New System.Drawing.Point(168, 128)
        Me.btdelete.Name = "btdelete"
        Me.btdelete.Size = New System.Drawing.Size(60, 20)
        Me.btdelete.TabIndex = 5
        Me.btdelete.Text = "删除"
        '
        'btadd
        '
        Me.btadd.Location = New System.Drawing.Point(88, 128)
        Me.btadd.Name = "btadd"
        Me.btadd.Size = New System.Drawing.Size(60, 20)
        Me.btadd.TabIndex = 4
        Me.btadd.Text = "添加"
        '
        'btview
        '
        Me.btview.Location = New System.Drawing.Point(8, 128)
        Me.btview.Name = "btview"
        Me.btview.Size = New System.Drawing.Size(60, 20)
        Me.btview.TabIndex = 3
        Me.btview.Text = "加载数据"
        '
        'btfind
        '
        Me.btfind.Location = New System.Drawing.Point(168, 96)
        Me.btfind.Name = "btfind"
        Me.btfind.Size = New System.Drawing.Size(60, 20)
        Me.btfind.TabIndex = 2
        Me.btfind.Text = "查找"
        '
        'txtfind
        '
        Me.txtfind.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.工号"))
        Me.txtfind.Location = New System.Drawing.Point(48, 96)
        Me.txtfind.Name = "txtfind"
        Me.txtfind.Size = New System.Drawing.Size(80, 21)
        Me.txtfind.TabIndex = 1
        Me.txtfind.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(18, 75)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(116, 19)
        Me.Label10.TabIndex = 0
        Me.Label10.Text = "请输入员工工号"
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = "工资表"
        Me.DataGrid1.DataSource = Me.Ds1
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(0, 0)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(552, 224)
        Me.DataGrid1.TabIndex = 3
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.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("加班费", "加班费"), New System.Data.Common.DataColumnMapping("奖金", "奖金"), New System.Data.Common.DataColumnMapping("津贴", "津贴"), New System.Data.Common.DataColumnMapping("总额", "总额"), New System.Data.Common.DataColumnMapping("备注", "备注")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT 工号, 姓名, 性别, 基本工资, 加班费, 奖金, 津贴, 总额, 备注 FROM 工资表"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO 工资表(工号, 姓名, 性别, 基本工资, 加班费, 奖金, 津贴, 总额, 备注) VALUES (?, ?, ?, ?, ?, ?, " & _
        "?, ?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("工号", System.Data.OleDb.OleDbType.SmallInt, 0, "工号"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("姓名", System.Data.OleDb.OleDbType.VarWChar, 12, "姓名"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("性别", System.Data.OleDb.OleDbType.VarWChar, 2, "性别"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("基本工资", System.Data.OleDb.OleDbType.Single, 0, "基本工资"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("加班费", System.Data.OleDb.OleDbType.Single, 0, "加班费"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("奖金", System.Data.OleDb.OleDbType.Single, 0, "奖金"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("津贴", System.Data.OleDb.OleDbType.Single, 0, "津贴"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("总额", System.Data.OleDb.OleDbType.Single, 0, "总额"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("备注", System.Data.OleDb.OleDbType.VarWChar, 50, "备注"))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE 工资表 SET 工号 = ?, 姓名 = ?, 性别 = ?, 基本工资 = ?, 加班费 = ?, 奖金 = ?, 津贴 = ?, 总额 = ?," & _
        " 备注 = ? WHERE (工号 = ?) AND (加班费 = ? OR ? IS NULL AND 加班费 IS NULL) AND (基本工资 = ? " & _
        "OR ? IS NULL AND 基本工资 IS NULL) AND (备注 = ? OR ? IS NULL AND 备注 IS NULL) AND (奖金 " & _
        "= ? OR ? IS NULL AND 奖金 IS NULL) AND (姓名 = ? OR ? IS NULL AND 姓名 IS NULL) AND (性" & _
        "别 = ? OR ? IS NULL AND 性别 IS NULL) AND (总额 = ? OR ? IS NULL AND 总额 IS NULL) AND " & _
        "(津贴 = ? OR ? IS NULL AND 津贴 IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("工号", System.Data.OleDb.OleDbType.SmallInt, 0, "工号"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("姓名", System.Data.OleDb.OleDbType.VarWChar, 12, "姓名"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("性别", System.Data.OleDb.OleDbType.VarWChar, 2, "性别"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("基本工资", System.Data.OleDb.OleDbType.Single, 0, "基本工资"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("加班费", System.Data.OleDb.OleDbType.Single, 0, "加班费"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("奖金", System.Data.OleDb.OleDbType.Single, 0, "奖金"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("津贴", System.Data.OleDb.OleDbType.Single, 0, "津贴"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("总额", System.Data.OleDb.OleDbType.Single, 0, "总额"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("备注", System.Data.OleDb.OleDbType.VarWChar, 50, "备注"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_工号", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "工号", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_加班费", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "加班费", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_加班费1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "加班费", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_基本工资", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "基本工资", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_基本工资1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "基本工资", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_备注", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_备注1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_奖金", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "奖金", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_奖金1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "奖金", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名", System.Data.OleDb.OleDbType.VarWChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名1", System.Data.OleDb.OleDbType.VarWChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_性别", System.Data.OleDb.OleDbType.VarWChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_性别1", System.Data.OleDb.OleDbType.VarWChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_总额", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "总额", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_总额1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "总额", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_津贴", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "津贴", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_津贴1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "津贴", System.Data.DataRowVersion.Original, Nothing))
        '