form1.vb

来自「是一个工资的管理系统 利用的是VB.NET和sql2000来完成的」· VB 代码 · 共 708 行 · 第 1/3 页

        Me.TextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.性别"))
        Me.TextBox3.Location = New System.Drawing.Point(72, 104)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.TabIndex = 13
        Me.TextBox3.Text = ""
        '
        'TextBox4
        '
        Me.TextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.基本工资"))
        Me.TextBox4.Location = New System.Drawing.Point(72, 152)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.TabIndex = 14
        Me.TextBox4.Text = ""
        '
        'TextBox5
        '
        Me.TextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.加班费"))
        Me.TextBox5.Location = New System.Drawing.Point(256, 24)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(96, 21)
        Me.TextBox5.TabIndex = 15
        Me.TextBox5.Text = ""
        '
        'TextBox6
        '
        Me.TextBox6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.奖金"))
        Me.TextBox6.Location = New System.Drawing.Point(256, 64)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(96, 21)
        Me.TextBox6.TabIndex = 16
        Me.TextBox6.Text = ""
        '
        'TextBox7
        '
        Me.TextBox7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.津贴"))
        Me.TextBox7.Location = New System.Drawing.Point(256, 104)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(96, 21)
        Me.TextBox7.TabIndex = 17
        Me.TextBox7.Text = ""
        '
        'TextBox8
        '
        Me.TextBox8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.总额"))
        Me.TextBox8.Location = New System.Drawing.Point(256, 152)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.ReadOnly = True
        Me.TextBox8.Size = New System.Drawing.Size(96, 21)
        Me.TextBox8.TabIndex = 18
        Me.TextBox8.Text = ""
        '
        'TextBox9
        '
        Me.TextBox9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "工资表.备注"))
        Me.TextBox9.Location = New System.Drawing.Point(72, 184)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(280, 21)
        Me.TextBox9.TabIndex = 19
        Me.TextBox9.Text = ""
        '
        'Txtfind
        '
        Me.Txtfind.Location = New System.Drawing.Point(480, 80)
        Me.Txtfind.Name = "Txtfind"
        Me.Txtfind.TabIndex = 20
        Me.Txtfind.Text = ""
        '
        'Txtlocation
        '
        Me.Txtlocation.Location = New System.Drawing.Point(472, 32)
        Me.Txtlocation.Name = "Txtlocation"
        Me.Txtlocation.ReadOnly = True
        Me.Txtlocation.TabIndex = 21
        Me.Txtlocation.Text = ""
        '
        'BtTop
        '
        Me.BtTop.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.BtTop.Location = New System.Drawing.Point(368, 32)
        Me.BtTop.Name = "BtTop"
        Me.BtTop.Size = New System.Drawing.Size(40, 24)
        Me.BtTop.TabIndex = 22
        Me.BtTop.Text = "|<"
        '
        'Btprev
        '
        Me.Btprev.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Btprev.Location = New System.Drawing.Point(424, 32)
        Me.Btprev.Name = "Btprev"
        Me.Btprev.Size = New System.Drawing.Size(32, 24)
        Me.Btprev.TabIndex = 23
        Me.Btprev.Text = "<<"
        '
        'Btnext
        '
        Me.Btnext.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Btnext.Location = New System.Drawing.Point(592, 32)
        Me.Btnext.Name = "Btnext"
        Me.Btnext.Size = New System.Drawing.Size(32, 24)
        Me.Btnext.TabIndex = 24
        Me.Btnext.Text = ">>"
        '
        'Btlast
        '
        Me.Btlast.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Btlast.Location = New System.Drawing.Point(632, 32)
        Me.Btlast.Name = "Btlast"
        Me.Btlast.Size = New System.Drawing.Size(40, 24)
        Me.Btlast.TabIndex = 25
        Me.Btlast.Text = ">|"
        '
        'BtView
        '
        Me.BtView.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.BtView.Location = New System.Drawing.Point(496, 136)
        Me.BtView.Name = "BtView"
        Me.BtView.TabIndex = 26
        Me.BtView.Text = "加载数据"
        '
        'Btdelete
        '
        Me.Btdelete.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Btdelete.Location = New System.Drawing.Point(600, 136)
        Me.Btdelete.Name = "Btdelete"
        Me.Btdelete.Size = New System.Drawing.Size(72, 24)
        Me.Btdelete.TabIndex = 27
        Me.Btdelete.Text = "删除"
        '
        'Btadd
        '
        Me.Btadd.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Btadd.Location = New System.Drawing.Point(384, 136)
        Me.Btadd.Name = "Btadd"
        Me.Btadd.Size = New System.Drawing.Size(72, 24)
        Me.Btadd.TabIndex = 28
        Me.Btadd.Text = "添加"
        '
        'Btcanel
        '
        Me.Btcanel.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Btcanel.Location = New System.Drawing.Point(496, 176)
        Me.Btcanel.Name = "Btcanel"
        Me.Btcanel.Size = New System.Drawing.Size(80, 24)
        Me.Btcanel.TabIndex = 29
        Me.Btcanel.Text = "取消"
        '
        'BtExit
        '
        Me.BtExit.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.BtExit.Location = New System.Drawing.Point(600, 176)
        Me.BtExit.Name = "BtExit"
        Me.BtExit.TabIndex = 30
        Me.BtExit.Text = "退出"
        '
        'Btfind
        '
        Me.Btfind.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Btfind.Location = New System.Drawing.Point(592, 80)
        Me.Btfind.Name = "Btfind"
        Me.Btfind.Size = New System.Drawing.Size(72, 24)
        Me.Btfind.TabIndex = 31
        Me.Btfind.Text = "查找"
        '
        'BtUpdate
        '
        Me.BtUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.BtUpdate.Location = New System.Drawing.Point(384, 176)
        Me.BtUpdate.Name = "BtUpdate"
        Me.BtUpdate.TabIndex = 32
        Me.BtUpdate.Text = "更新"
        '
        '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("加班费", "加班费"), 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 @Original_加" & _
        "班费 IS NULL AND 加班费 IS NULL) AND (基本工资 = @Original_基本工资) AND (备注 = @Original_备注 O" & _
        "R @Original_备注 IS NULL AND 备注 IS NULL) AND (奖金 = @Original_奖金 OR @Original_奖金 IS" & _
        " NULL AND 奖金 IS NULL) AND (姓名 = @Original_姓名 OR @Original_姓名 IS NULL AND 姓名 IS N" & _
        "ULL) AND (性别 = @Original_性别 OR @Original_性别 IS NULL AND 性别 IS NULL) AND (总额 = @O" & _
        "riginal_总额 OR @Original_总额 IS NULL AND 总额 IS NULL) AND (津贴 = @Original_津贴 OR @Or" & _
        "iginal_津贴 IS NULL AND 津贴 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_共号", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(0, Byte), "共号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_加班费", System.Data.SqlDbType.Float, 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.Float, 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.Float, 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, 16, 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, 4, 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.Float, 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.Float, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "津贴", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=LYQAWM;packet size=4096;integrated security=SSPI;data source=LYQAW" & _
        "M;persist security info=False;initial catalog=工资管理系统"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 工资表(共号, 姓名, 性别, 基本工资, 加班费, 奖金, 津贴, 备注) VALUES (@共号, @姓名, @性别, @基本工资, " & _
        "@加班费, @奖金, @津贴, @备注); SELECT 共号, 姓名, 性别, 基本工资, 加班费, 奖金, 津贴, 总额, 备注 FROM 工资表 WHER" & _
        "E (共号 = @共号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@共号", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(0, Byte), "共号", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 16, "姓名"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性别", System.Data.SqlDbType.VarChar, 4, "性别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@基本工资", System.Data.SqlDbType.Float, 8, "基本工资"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@加班费", System.Data.SqlDbType.Float, 8, "加班费"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@奖金", System.Data.SqlDbType.Float, 8, "奖金"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@津贴", System.Data.SqlDbType.Float, 8, "津贴"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 共号, 姓名, 性别, 基本工资, 加班费, 奖金, 津贴, 总额, 备注 FROM 工资表"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 工资表 SET 共号 = @共号, 姓名 = @姓名, 性别 = @性别, 基本工资 = @基本工资, 加班费 = @加班费, 奖金 = @奖金, " & _
        "津贴 = @津贴, 备注 = @备注 WHERE (共号 = @Original_共号) AND (加班费 = @Original_加班费 OR @Origin" & _
        "al_加班费 IS NULL AND 加班费 IS NULL) AND (基本工资 = @Original_基本工资) AND (备注 = @Original_" & _
        "备注 OR @Original_备注 IS NULL AND 备注 IS NULL) AND (奖金 = @Original_奖金 OR @Original_奖" & _
        "金 IS NULL AND 奖金 IS NULL) AND (姓名 = @Original_姓名 OR @Original_姓名 IS NULL AND 姓名 " & _
        "IS NULL) AND (性别 = @Original_性别 OR @Original_性别 IS NULL AND 性别 IS NULL) AND (津贴 " & _
        "= @Original_津贴 OR @Original_津贴 IS NULL AND 津贴 IS NULL); SELECT 共号, 姓名, 性别, 基本工资," & _
        " 加班费, 奖金, 津贴, 总额, 备注 FROM 工资表 WHERE (共号 = @共号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@共号", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(0, Byte), "共号", System.Data.DataRowVersion.Current, Nothing))