dataform3.vb

Visual Basic .NET程序设计教程源代码

        Me.editdemo.Location = New System.Drawing.Point(120, 142)
        Me.editdemo.Name = "editdemo"
        Me.editdemo.TabIndex = 9
        Me.editdemo.Text = ""
        '
        'editemail
        '
        Me.editemail.Location = New System.Drawing.Point(120, 175)
        Me.editemail.Name = "editemail"
        Me.editemail.TabIndex = 10
        Me.editemail.Text = ""
        '
        'lblid
        '
        Me.lblid.Location = New System.Drawing.Point(230, 43)
        Me.lblid.Name = "lblid"
        Me.lblid.TabIndex = 11
        Me.lblid.Text = "id"
        '
        'lblmobile
        '
        Me.lblmobile.Location = New System.Drawing.Point(230, 76)
        Me.lblmobile.Name = "lblmobile"
        Me.lblmobile.TabIndex = 12
        Me.lblmobile.Text = "mobile"
        '
        'lblname
        '
        Me.lblname.Location = New System.Drawing.Point(230, 109)
        Me.lblname.Name = "lblname"
        Me.lblname.TabIndex = 13
        Me.lblname.Text = "name"
        '
        'lblpc
        '
        Me.lblpc.Location = New System.Drawing.Point(230, 142)
        Me.lblpc.Name = "lblpc"
        Me.lblpc.TabIndex = 14
        Me.lblpc.Text = "pc"
        '
        'lblphone
        '
        Me.lblphone.Location = New System.Drawing.Point(230, 175)
        Me.lblphone.Name = "lblphone"
        Me.lblphone.TabIndex = 15
        Me.lblphone.Text = "phone"
        '
        'editid
        '
        Me.editid.Location = New System.Drawing.Point(340, 43)
        Me.editid.Name = "editid"
        Me.editid.TabIndex = 16
        Me.editid.Text = ""
        '
        'editmobile
        '
        Me.editmobile.Location = New System.Drawing.Point(340, 76)
        Me.editmobile.Name = "editmobile"
        Me.editmobile.TabIndex = 17
        Me.editmobile.Text = ""
        '
        'editname
        '
        Me.editname.Location = New System.Drawing.Point(340, 109)
        Me.editname.Name = "editname"
        Me.editname.TabIndex = 18
        Me.editname.Text = ""
        '
        'editpc
        '
        Me.editpc.Location = New System.Drawing.Point(340, 142)
        Me.editpc.Name = "editpc"
        Me.editpc.TabIndex = 19
        Me.editpc.Text = ""
        '
        'editphone
        '
        Me.editphone.Location = New System.Drawing.Point(340, 175)
        Me.editphone.Name = "editphone"
        Me.editphone.TabIndex = 20
        Me.editphone.Text = ""
        '
        'btnNavFirst
        '
        Me.btnNavFirst.Location = New System.Drawing.Point(195, 208)
        Me.btnNavFirst.Name = "btnNavFirst"
        Me.btnNavFirst.Size = New System.Drawing.Size(40, 23)
        Me.btnNavFirst.TabIndex = 21
        Me.btnNavFirst.Text = "<<"
        '
        'btnNavPrev
        '
        Me.btnNavPrev.Location = New System.Drawing.Point(235, 208)
        Me.btnNavPrev.Name = "btnNavPrev"
        Me.btnNavPrev.Size = New System.Drawing.Size(35, 23)
        Me.btnNavPrev.TabIndex = 22
        Me.btnNavPrev.Text = "<"
        '
        'lblNavLocation
        '
        Me.lblNavLocation.BackColor = System.Drawing.Color.White
        Me.lblNavLocation.Location = New System.Drawing.Point(270, 208)
        Me.lblNavLocation.Name = "lblNavLocation"
        Me.lblNavLocation.Size = New System.Drawing.Size(95, 23)
        Me.lblNavLocation.TabIndex = 23
        Me.lblNavLocation.Text = "无记录"
        Me.lblNavLocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnNavNext
        '
        Me.btnNavNext.Location = New System.Drawing.Point(365, 208)
        Me.btnNavNext.Name = "btnNavNext"
        Me.btnNavNext.Size = New System.Drawing.Size(35, 23)
        Me.btnNavNext.TabIndex = 24
        Me.btnNavNext.Text = ">"
        '
        'btnLast
        '
        Me.btnLast.Location = New System.Drawing.Point(400, 208)
        Me.btnLast.Name = "btnLast"
        Me.btnLast.Size = New System.Drawing.Size(40, 23)
        Me.btnLast.TabIndex = 25
        Me.btnLast.Text = ">>"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(195, 241)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.TabIndex = 26
        Me.btnAdd.Text = "添加(&A)"
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(280, 241)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.TabIndex = 27
        Me.btnDelete.Text = "删除(&D)"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(365, 241)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.TabIndex = 28
        Me.btnCancel.Text = "取消(&C)"
        '
        '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", "detail", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("address", "address"), New System.Data.Common.DataColumnMapping("birth", "birth"), New System.Data.Common.DataColumnMapping("bp", "bp"), New System.Data.Common.DataColumnMapping("demo", "demo"), New System.Data.Common.DataColumnMapping("email", "email"), New System.Data.Common.DataColumnMapping("id", "id"), New System.Data.Common.DataColumnMapping("mobile", "mobile"), New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("pc", "pc"), New System.Data.Common.DataColumnMapping("phone", "phone")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM detail WHERE (id = ?) AND (address = ? OR ? IS NULL AND address IS NU" & _
        "LL) AND (birth = ? OR ? IS NULL AND birth IS NULL) AND (bp = ? OR ? IS NULL AND " & _
        "bp IS NULL) AND (email = ? OR ? IS NULL AND email IS NULL) AND (mobile = ? OR ? " & _
        "IS NULL AND mobile IS NULL) AND (name = ? OR ? IS NULL AND name IS NULL) AND (pc" & _
        " = ? OR ? IS NULL AND pc IS NULL) AND (phone = ? OR ? IS NULL AND phone IS NULL)" & _
        ""
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_id", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "id", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_address", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_address1", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_birth", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "birth", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_birth1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "birth", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_bp", System.Data.OleDb.OleDbType.VarWChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bp", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_bp1", System.Data.OleDb.OleDbType.VarWChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bp", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_email", System.Data.OleDb.OleDbType.VarWChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))