📄 frmfriends.vb
字号:
"Workstation ID=GEFEN-LAPTOP;Use Encryption for Data=False;Tag with column collat" & _
"ion when possible=False"
'
'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", "Friends", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Friend ID", "Friend ID"), New System.Data.Common.DataColumnMapping("First Name", "First Name"), New System.Data.Common.DataColumnMapping("Last Name", "Last Name"), New System.Data.Common.DataColumnMapping("Date of Birth", "Date of Birth"), New System.Data.Common.DataColumnMapping("Spouse ID", "Spouse ID"), New System.Data.Common.DataColumnMapping("Street", "Street"), New System.Data.Common.DataColumnMapping("City", "City"), New System.Data.Common.DataColumnMapping("State", "State"), New System.Data.Common.DataColumnMapping("Telephone", "Telephone"), New System.Data.Common.DataColumnMapping("ZIP Code", "ZIP Code")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'btnLoad
'
Me.btnLoad.Location = New System.Drawing.Point(10, 10)
Me.btnLoad.Name = "btnLoad"
Me.btnLoad.TabIndex = 0
Me.btnLoad.Text = "&Load"
'
'btnUpdate
'
Me.btnUpdate.Location = New System.Drawing.Point(365, 10)
Me.btnUpdate.Name = "btnUpdate"
Me.btnUpdate.TabIndex = 1
Me.btnUpdate.Text = "&Update"
'
'btnCancelAll
'
Me.btnCancelAll.Location = New System.Drawing.Point(365, 43)
Me.btnCancelAll.Name = "btnCancelAll"
Me.btnCancelAll.TabIndex = 2
Me.btnCancelAll.Text = "Ca&ncel All"
'
'lblFriend_ID
'
Me.lblFriend_ID.Location = New System.Drawing.Point(10, 76)
Me.lblFriend_ID.Name = "lblFriend_ID"
Me.lblFriend_ID.TabIndex = 3
Me.lblFriend_ID.Text = "Friend ID"
'
'lblFirst_Name
'
Me.lblFirst_Name.Location = New System.Drawing.Point(10, 109)
Me.lblFirst_Name.Name = "lblFirst_Name"
Me.lblFirst_Name.TabIndex = 4
Me.lblFirst_Name.Text = "First Name"
'
'lblLast_Name
'
Me.lblLast_Name.Location = New System.Drawing.Point(10, 142)
Me.lblLast_Name.Name = "lblLast_Name"
Me.lblLast_Name.TabIndex = 5
Me.lblLast_Name.Text = "Last Name"
'
'lblDate_of_Birth
'
Me.lblDate_of_Birth.Location = New System.Drawing.Point(10, 175)
Me.lblDate_of_Birth.Name = "lblDate_of_Birth"
Me.lblDate_of_Birth.TabIndex = 6
Me.lblDate_of_Birth.Text = "Date of Birth"
'
'lblSpouse_ID
'
Me.lblSpouse_ID.Location = New System.Drawing.Point(10, 208)
Me.lblSpouse_ID.Name = "lblSpouse_ID"
Me.lblSpouse_ID.TabIndex = 7
Me.lblSpouse_ID.Text = "Spouse ID"
'
'editFriend_ID
'
Me.editFriend_ID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.Friend ID"))
Me.editFriend_ID.Location = New System.Drawing.Point(120, 76)
Me.editFriend_ID.Name = "editFriend_ID"
Me.editFriend_ID.TabIndex = 8
Me.editFriend_ID.Text = ""
'
'editFirst_Name
'
Me.editFirst_Name.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.First Name"))
Me.editFirst_Name.Location = New System.Drawing.Point(120, 109)
Me.editFirst_Name.Name = "editFirst_Name"
Me.editFirst_Name.TabIndex = 9
Me.editFirst_Name.Text = ""
'
'editLast_Name
'
Me.editLast_Name.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.Last Name"))
Me.editLast_Name.Location = New System.Drawing.Point(120, 142)
Me.editLast_Name.Name = "editLast_Name"
Me.editLast_Name.TabIndex = 10
Me.editLast_Name.Text = ""
'
'editDate_of_Birth
'
Me.editDate_of_Birth.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.Date of Birth"))
Me.editDate_of_Birth.Location = New System.Drawing.Point(120, 175)
Me.editDate_of_Birth.Name = "editDate_of_Birth"
Me.editDate_of_Birth.TabIndex = 11
Me.editDate_of_Birth.Text = ""
'
'editSpouse_ID
'
Me.editSpouse_ID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.Spouse ID"))
Me.editSpouse_ID.Location = New System.Drawing.Point(120, 208)
Me.editSpouse_ID.Name = "editSpouse_ID"
Me.editSpouse_ID.TabIndex = 12
Me.editSpouse_ID.Text = ""
'
'lblStreet
'
Me.lblStreet.Location = New System.Drawing.Point(230, 76)
Me.lblStreet.Name = "lblStreet"
Me.lblStreet.TabIndex = 13
Me.lblStreet.Text = "Street"
'
'lblCity
'
Me.lblCity.Location = New System.Drawing.Point(230, 109)
Me.lblCity.Name = "lblCity"
Me.lblCity.TabIndex = 14
Me.lblCity.Text = "City"
'
'lblState
'
Me.lblState.Location = New System.Drawing.Point(230, 142)
Me.lblState.Name = "lblState"
Me.lblState.TabIndex = 15
Me.lblState.Text = "State"
'
'lblTelephone
'
Me.lblTelephone.Location = New System.Drawing.Point(230, 175)
Me.lblTelephone.Name = "lblTelephone"
Me.lblTelephone.TabIndex = 16
Me.lblTelephone.Text = "Telephone"
'
'lblZIP_Code
'
Me.lblZIP_Code.Location = New System.Drawing.Point(230, 208)
Me.lblZIP_Code.Name = "lblZIP_Code"
Me.lblZIP_Code.TabIndex = 17
Me.lblZIP_Code.Text = "ZIP Code"
'
'editStreet
'
Me.editStreet.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.Street"))
Me.editStreet.Location = New System.Drawing.Point(340, 76)
Me.editStreet.Name = "editStreet"
Me.editStreet.TabIndex = 18
Me.editStreet.Text = ""
'
'editCity
'
Me.editCity.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.City"))
Me.editCity.Location = New System.Drawing.Point(340, 109)
Me.editCity.Name = "editCity"
Me.editCity.TabIndex = 19
Me.editCity.Text = ""
'
'editState
'
Me.editState.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.State"))
Me.editState.Location = New System.Drawing.Point(340, 142)
Me.editState.Name = "editState"
Me.editState.TabIndex = 20
Me.editState.Text = ""
'
'editTelephone
'
Me.editTelephone.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.Telephone"))
Me.editTelephone.Location = New System.Drawing.Point(340, 175)
Me.editTelephone.Name = "editTelephone"
Me.editTelephone.TabIndex = 21
Me.editTelephone.Text = ""
'
'editZIP_Code
'
Me.editZIP_Code.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsFriends, "Friends.ZIP Code"))
Me.editZIP_Code.Location = New System.Drawing.Point(340, 208)
Me.editZIP_Code.Name = "editZIP_Code"
Me.editZIP_Code.TabIndex = 22
Me.editZIP_Code.Text = ""
'
'btnNavFirst
'
Me.btnNavFirst.Location = New System.Drawing.Point(195, 241)
Me.btnNavFirst.Name = "btnNavFirst"
Me.btnNavFirst.Size = New System.Drawing.Size(40, 23)
Me.btnNavFirst.TabIndex = 23
Me.btnNavFirst.Text = "<<"
'
'btnNavPrev
'
Me.btnNavPrev.Location = New System.Drawing.Point(235, 241)
Me.btnNavPrev.Name = "btnNavPrev"
Me.btnNavPrev.Size = New System.Drawing.Size(35, 23)
Me.btnNavPrev.TabIndex = 24
Me.btnNavPrev.Text = "<"
'
'lblNavLocation
'
Me.lblNavLocation.BackColor = System.Drawing.Color.White
Me.lblNavLocation.Location = New System.Drawing.Point(270, 241)
Me.lblNavLocation.Name = "lblNavLocation"
Me.lblNavLocation.Size = New System.Drawing.Size(95, 23)
Me.lblNavLocation.TabIndex = 25
Me.lblNavLocation.Text = "No Records"
Me.lblNavLocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btnNavNext
'
Me.btnNavNext.Location = New System.Drawing.Point(365, 241)
Me.btnNavNext.Name = "btnNavNext"
Me.btnNavNext.Size = New System.Drawing.Size(35, 23)
Me.btnNavNext.TabIndex = 26
Me.btnNavNext.Text = ">"
'
'btnLast
'
Me.btnLast.Location = New System.Drawing.Point(400, 241)
Me.btnLast.Name = "btnLast"
Me.btnLast.Size = New System.Drawing.Size(40, 23)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -