?? frmidentify.vb
字號:
Public Class Frmidentify
Inherits System.Windows.Forms.Form
#Region " Windows 窗體設計器生成的代碼 "
Public Sub New()
MyBase.New()
'該調用是 Windows 窗體設計器所必需的。
InitializeComponent()
'在 InitializeComponent() 調用之后添加任何初始化
End Sub
'窗體重寫處置以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗體設計器所必需的
Private components As System.ComponentModel.IContainer
'注意:以下過程是 Windows 窗體設計器所必需的
'可以使用 Windows 窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Txtusername As System.Windows.Forms.TextBox
Friend WithEvents Txtuserpassword As System.Windows.Forms.TextBox
Friend WithEvents Btok As System.Windows.Forms.Button
Friend WithEvents Btcancel As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Btexit As System.Windows.Forms.Button
Friend WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
Friend WithEvents DataSet11 As 應急信息管理系統界面.DataSet1
Friend WithEvents DataSet31 As 應急信息管理系統界面.DataSet3
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Txtusername = New System.Windows.Forms.TextBox()
Me.Txtuserpassword = New System.Windows.Forms.TextBox()
Me.Btok = New System.Windows.Forms.Button()
Me.Btcancel = New System.Windows.Forms.Button()
Me.Btexit = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter()
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand()
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection()
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand()
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand()
Me.DataSet11 = New 應急信息管理系統界面.DataSet1()
Me.DataSet31 = New 應急信息管理系統界面.DataSet3()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataSet31, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(72, 112)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "用戶名:"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(72, 168)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 23)
Me.Label2.TabIndex = 1
Me.Label2.Text = "密碼:"
'
'Txtusername
'
Me.Txtusername.Font = New System.Drawing.Font("宋體", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Txtusername.Location = New System.Drawing.Point(144, 112)
Me.Txtusername.Name = "Txtusername"
Me.Txtusername.Size = New System.Drawing.Size(120, 23)
Me.Txtusername.TabIndex = 2
Me.Txtusername.Text = ""
'
'Txtuserpassword
'
Me.Txtuserpassword.Font = New System.Drawing.Font("宋體", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Txtuserpassword.Location = New System.Drawing.Point(144, 168)
Me.Txtuserpassword.Name = "Txtuserpassword"
Me.Txtuserpassword.Size = New System.Drawing.Size(120, 23)
Me.Txtuserpassword.TabIndex = 3
Me.Txtuserpassword.Text = ""
'
'Btok
'
Me.Btok.Location = New System.Drawing.Point(56, 240)
Me.Btok.Name = "Btok"
Me.Btok.Size = New System.Drawing.Size(80, 32)
Me.Btok.TabIndex = 4
Me.Btok.Text = "確定"
'
'Btcancel
'
Me.Btcancel.BackColor = System.Drawing.SystemColors.Control
Me.Btcancel.Location = New System.Drawing.Point(152, 240)
Me.Btcancel.Name = "Btcancel"
Me.Btcancel.Size = New System.Drawing.Size(80, 32)
Me.Btcancel.TabIndex = 5
Me.Btcancel.Text = "取消"
'
'Btexit
'
Me.Btexit.Location = New System.Drawing.Point(248, 240)
Me.Btexit.Name = "Btexit"
Me.Btexit.Size = New System.Drawing.Size(80, 32)
Me.Btexit.TabIndex = 6
Me.Btexit.Text = "退出"
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("華文彩云", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label3.Location = New System.Drawing.Point(48, 24)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(312, 56)
Me.Label3.TabIndex = 7
Me.Label3.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", "用戶信息表", 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("隸屬部門", "隸屬部門"), New System.Data.Common.DataColumnMapping("聯系電話", "聯系電話")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM 用戶信息表 WHERE (用戶名 = ?) AND (單位地址 = ? OR ? IS NULL AND 單位地址 IS NULL) AN" & _
"D (密碼 = ? OR ? IS NULL AND 密碼 IS NULL) AND (所屬單位 = ? OR ? IS NULL AND 所屬單位 IS NU" & _
"LL) AND (用戶等級 = ? OR ? IS NULL AND 用戶等級 IS NULL) AND (用戶類別 = ? OR ? IS NULL AND " & _
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -