外来人员记录.vb
来自「一个功能强大的学生公寓管理系统 界面非常友好 十分强大」· VB 代码 · 共 898 行 · 第 1/4 页
VB
898 行
'
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 + =
减小字号Ctrl + -
显示快捷键?