?? 外來人員記錄.vb
字號:
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE 外來人員記錄 SET 來訪者姓名 = ?, 身份證號碼 = ?, 來訪時間 = ?, 被訪者姓名 = ?, 被訪者棟號 = ?, 被訪者房號 = ?" & _
", 關系 = ?, 離開時間 = ?, 備注 = ? WHERE (來訪者姓名 = ?) AND (編號 = ?) AND (關系 = ?) AND (備注 =" & _
" ? OR ? IS NULL AND 備注 IS NULL) AND (來訪時間 = ?) AND (離開時間 = ? OR ? IS NULL AND 離開" & _
"時間 IS NULL) AND (被訪者姓名 = ?) AND (被訪者房號 = ?) AND (被訪者棟號 = ?) AND (身份證號碼 = ?)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("來訪者姓名", System.Data.OleDb.OleDbType.VarWChar, 50, "來訪者姓名"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("身份證號碼", System.Data.OleDb.OleDbType.VarWChar, 50, "身份證號碼"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("來訪時間", System.Data.OleDb.OleDbType.VarWChar, 50, "來訪時間"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("被訪者姓名", System.Data.OleDb.OleDbType.VarWChar, 50, "被訪者姓名"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("被訪者棟號", System.Data.OleDb.OleDbType.VarWChar, 50, "被訪者棟號"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("被訪者房號", System.Data.OleDb.OleDbType.VarWChar, 50, "被訪者房號"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("關系", System.Data.OleDb.OleDbType.VarWChar, 50, "關系"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("離開時間", System.Data.OleDb.OleDbType.VarWChar, 50, "離開時間"))
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.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.Integer, 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_備注", 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.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.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.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.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.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.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "身份證號碼", System.Data.DataRowVersion.Original, Nothing))
'
'Panel1
'
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Panel1.Controls.Add(Me.Button10)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.Button4)
Me.Panel1.Controls.Add(Me.Button3)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.TextBox9)
Me.Panel1.Controls.Add(Me.Label9)
Me.Panel1.Controls.Add(Me.TextBox8)
Me.Panel1.Controls.Add(Me.TextBox7)
Me.Panel1.Controls.Add(Me.TextBox6)
Me.Panel1.Controls.Add(Me.TextBox5)
Me.Panel1.Controls.Add(Me.TextBox4)
Me.Panel1.Controls.Add(Me.TextBox3)
Me.Panel1.Controls.Add(Me.TextBox2)
Me.Panel1.Controls.Add(Me.TextBox1)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.Label7)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Location = New System.Drawing.Point(8, 224)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(392, 248)
Me.Panel1.TabIndex = 1
'
'Button10
'
Me.Button10.BackColor = System.Drawing.SystemColors.Control
Me.Button10.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Button10.Location = New System.Drawing.Point(24, 200)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(64, 32)
Me.Button10.TabIndex = 9
Me.Button10.Text = "加載"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("宋體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label10.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Label10.Location = New System.Drawing.Point(120, 0)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(157, 31)
Me.Label10.TabIndex = 23
Me.Label10.Text = "外來人員登記"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.SystemColors.Control
Me.Button4.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Button4.Location = New System.Drawing.Point(280, 200)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(64, 32)
Me.Button4.TabIndex = 13
Me.Button4.Text = "取消"
'
'Button3
'
Me.Button3.BackColor = System.Drawing.SystemColors.Control
Me.Button3.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Button3.Location = New System.Drawing.Point(216, 200)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(64, 32)
Me.Button3.TabIndex = 12
Me.Button3.Text = "更新"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.SystemColors.Control
Me.Button2.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Button2.Location = New System.Drawing.Point(152, 200)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(64, 32)
Me.Button2.TabIndex = 11
Me.Button2.Text = "刪除"
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Button1.Location = New System.Drawing.Point(88, 200)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(64, 32)
Me.Button1.TabIndex = 10
Me.Button1.Text = "添加"
'
'TextBox9
'
Me.TextBox9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.備注"))
Me.TextBox9.Location = New System.Drawing.Point(88, 160)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Size = New System.Drawing.Size(286, 21)
Me.TextBox9.TabIndex = 8
Me.TextBox9.Text = ""
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label9.Location = New System.Drawing.Point(8, 168)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(80, 22)
Me.Label9.TabIndex = 16
Me.Label9.Text = "備 注:"
'
'TextBox8
'
Me.TextBox8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.關系"))
Me.TextBox8.Location = New System.Drawing.Point(272, 136)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.TabIndex = 7
Me.TextBox8.Text = ""
'
'TextBox7
'
Me.TextBox7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.離開時間"))
Me.TextBox7.Location = New System.Drawing.Point(88, 128)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.TabIndex = 6
Me.TextBox7.Text = ""
'
'TextBox6
'
Me.TextBox6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.被訪者房號"))
Me.TextBox6.Location = New System.Drawing.Point(272, 104)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.TabIndex = 5
Me.TextBox6.Text = ""
'
'TextBox5
'
Me.TextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.來訪時間"))
Me.TextBox5.Location = New System.Drawing.Point(88, 96)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.TabIndex = 4
Me.TextBox5.Text = ""
'
'TextBox4
'
Me.TextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.被訪者棟號"))
Me.TextBox4.Location = New System.Drawing.Point(272, 72)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.TabIndex = 3
Me.TextBox4.Text = ""
'
'TextBox3
'
Me.TextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.身份證號碼"))
Me.TextBox3.Location = New System.Drawing.Point(88, 72)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.TabIndex = 2
Me.TextBox3.Text = ""
'
'TextBox2
'
Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.被訪者姓名"))
Me.TextBox2.Location = New System.Drawing.Point(272, 40)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.TabIndex = 1
Me.TextBox2.Text = ""
'
'TextBox1
'
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "外來人員記錄.來訪者姓名"))
Me.TextBox1.Location = New System.Drawing.Point(88, 40)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label8.Location = New System.Drawing.Point(208, 104)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(64, 22)
Me.Label8.TabIndex = 7
Me.Label8.Text = "房 號:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label7.Location = New System.Drawing.Point(208, 72)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(64, 22)
Me.Label7.TabIndex = 6
Me.Label7.Text = "棟 號:"
'
'Label6
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -