?? 宿舍衛(wèi)生.vb
字號:
Me.ComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "衛(wèi)生檢查.房號"))
Me.ComboBox2.Location = New System.Drawing.Point(240, 24)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(96, 20)
Me.ComboBox2.TabIndex = 1
'
'ComboBox1
'
Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Da1, "衛(wèi)生檢查.棟號"))
Me.ComboBox1.Location = New System.Drawing.Point(80, 24)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(96, 20)
Me.ComboBox1.TabIndex = 0
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label10.Location = New System.Drawing.Point(16, 144)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(55, 22)
Me.Label10.TabIndex = 34
Me.Label10.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(344, 104)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(39, 22)
Me.Label9.TabIndex = 33
Me.Label9.Text = "總分"
'
'Label8
'
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(184, 104)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(48, 40)
Me.Label8.TabIndex = 32
Me.Label8.Text = "整體形象"
'
'Label7
'
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(16, 96)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(56, 40)
Me.Label7.TabIndex = 31
Me.Label7.Text = "陽臺衛(wèi)生 間"
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label6.Location = New System.Drawing.Point(344, 56)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(48, 48)
Me.Label6.TabIndex = 30
Me.Label6.Text = "桌凳書架"
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label5.Location = New System.Drawing.Point(184, 64)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(48, 48)
Me.Label5.TabIndex = 29
Me.Label5.Text = "床鋪墻壁"
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label4.Location = New System.Drawing.Point(16, 56)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(64, 40)
Me.Label4.TabIndex = 28
Me.Label4.Text = "地 面門 窗"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label3.Location = New System.Drawing.Point(344, 24)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 22)
Me.Label3.TabIndex = 27
Me.Label3.Text = "日期"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label2.Location = New System.Drawing.Point(184, 24)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(39, 22)
Me.Label2.TabIndex = 26
Me.Label2.Text = "房號"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label1.Location = New System.Drawing.Point(16, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 22)
Me.Label1.TabIndex = 25
Me.Label1.Text = "棟 號"
'
'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", "衛(wèi)生檢查", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("棟號", "棟號"), New System.Data.Common.DataColumnMapping("房號", "房號"), New System.Data.Common.DataColumnMapping("日期", "日期"), New System.Data.Common.DataColumnMapping("總分", "總分"), New System.Data.Common.DataColumnMapping("地面門窗", "地面門窗"), New System.Data.Common.DataColumnMapping("床鋪墻壁", "床鋪墻壁"), New System.Data.Common.DataColumnMapping("陽臺衛(wèi)生間", "陽臺衛(wèi)生間"), New System.Data.Common.DataColumnMapping("桌凳書架", "桌凳書架"), New System.Data.Common.DataColumnMapping("整體形象", "整體形象"), New System.Data.Common.DataColumnMapping("備注", "備注")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM 衛(wèi)生檢查 WHERE (房號 = ?) AND (日期 = ?) AND (棟號 = ?) AND (地面門窗 = ?) AND (備注 " & _
"= ? OR ? IS NULL AND 備注 IS NULL) AND (床鋪墻壁 = ?) AND (總分 = ?) AND (整體形象 = ?) AND " & _
"(桌凳書架 = ?) AND (陽臺衛(wèi)生間 = ?)"
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_陽臺衛(wèi)生間", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "陽臺衛(wèi)生間", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data Source=""學(xué)生公寓管理系統(tǒng).mdb"";Jet OLEDB:Engine Type=5;Provider=""Micro" & _
"soft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist secur" & _
"ity info=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Datab" & _
"ase=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on " & _
"Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet O" & _
"LEDB:Global Bulk Transactions=1"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO 衛(wèi)生檢查(棟號, 房號, 日期, 總分, 地面門窗, 床鋪墻壁, 陽臺衛(wèi)生間, 桌凳書架, 整體形象, 備注) VALUES (?, ?," & _
" ?, ?, ?, ?, ?, ?, ?, ?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("棟號", System.Data.OleDb.OleDbType.VarWChar, 50, "棟號"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("房號", System.Data.OleDb.OleDbType.VarWChar, 50, "房號"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("日期", System.Data.OleDb.OleDbType.VarWChar, 50, "日期"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("總分", System.Data.OleDb.OleDbType.VarWChar, 50, "總分"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("地面門窗", System.Data.OleDb.OleDbType.VarWChar, 50, "地面門窗"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("床鋪墻壁", System.Data.OleDb.OleDbType.VarWChar, 50, "床鋪墻壁"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("陽臺衛(wèi)生間", System.Data.OleDb.OleDbType.VarWChar, 50, "陽臺衛(wèi)生間"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("桌凳書架", System.Data.OleDb.OleDbType.VarWChar, 50, "桌凳書架"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("整體形象", System.Data.OleDb.OleDbType.VarWChar, 50, "整體形象"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("備注", System.Data.OleDb.OleDbType.VarWChar, 50, "備注"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT 棟號, 房號, 日期, 總分, 地面門窗, 床鋪墻壁, 陽臺衛(wèi)生間, 桌凳書架, 整體形象, 備注 FROM 衛(wèi)生檢查 ORDER BY 日期, 棟" & _
"號, 房號"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE 衛(wèi)生檢查 SET 棟號 = ?, 房號 = ?, 日期 = ?, 總分 = ?, 地面門窗 = ?, 床鋪墻壁 = ?, 陽臺衛(wèi)生間 = ?, 桌凳" & _
"書架 = ?, 整體形象 = ?, 備注 = ? WHERE (房號 = ?) AND (日期 = ?) AND (棟號 = ?) AND (地面門窗 = ?)" & _
" AND (備注 = ? OR ? IS NULL AND 備注 IS NULL) AND (床鋪墻壁 = ?) AND (總分 = ?) AND (整體形象 " & _
"= ?) AND (桌凳書架 = ?) AND (陽臺衛(wèi)生間 = ?)"
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("陽臺衛(wèi)生間", System.Data.OleDb.OleDbType.VarWChar, 50, "陽臺衛(wèi)生間"))
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.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_備注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))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_陽臺衛(wèi)生間", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "陽臺衛(wèi)生間", System.Data.DataRowVersion.Original, Nothing))
'
'宿舍衛(wèi)生
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.Color.Silver
Me.ClientSize = New System.Drawing.Size(787, 441)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.DataGrid1)
Me.MaximizeBox = False
Me.Name = "宿舍衛(wèi)生"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "宿舍衛(wèi)生"
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Da1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -