?? dataform3.vb
字號:
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))
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -