frmadduser.vb

来自「应急系统(Emergency System, ES)主要是针对自然灾害,安全事故」· VB 代码 · 共 466 行 · 第 1/3 页

        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.DataSet11.Namespace = "http://www.tempuri.org/DataSet1.xsd"
        '
        'Txtuserpassword
        '
        Me.Txtuserpassword.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "用户信息表.密码"))
        Me.Txtuserpassword.Enabled = False
        Me.Txtuserpassword.Location = New System.Drawing.Point(128, 88)
        Me.Txtuserpassword.Name = "Txtuserpassword"
        Me.Txtuserpassword.TabIndex = 4
        Me.Txtuserpassword.Text = ""
        '
        'Txtconfirmpassword
        '
        Me.Txtconfirmpassword.Enabled = False
        Me.Txtconfirmpassword.Location = New System.Drawing.Point(128, 136)
        Me.Txtconfirmpassword.Name = "Txtconfirmpassword"
        Me.Txtconfirmpassword.TabIndex = 5
        Me.Txtconfirmpassword.Text = ""
        '
        'Btok
        '
        Me.Btok.Location = New System.Drawing.Point(128, 288)
        Me.Btok.Name = "Btok"
        Me.Btok.Size = New System.Drawing.Size(88, 32)
        Me.Btok.TabIndex = 6
        Me.Btok.Text = "添加"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(32, 184)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 23)
        Me.Label4.TabIndex = 8
        Me.Label4.Text = "用户类别："
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(248, 40)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 23)
        Me.Label5.TabIndex = 9
        Me.Label5.Text = "用户等级："
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(248, 88)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(72, 23)
        Me.Label6.TabIndex = 10
        Me.Label6.Text = "隶属部门："
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(248, 136)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(72, 23)
        Me.Label7.TabIndex = 11
        Me.Label7.Text = "所属单位："
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(248, 184)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 23)
        Me.Label8.TabIndex = 12
        Me.Label8.Text = "联系电话："
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(32, 224)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(72, 23)
        Me.Label9.TabIndex = 18
        Me.Label9.Text = "单位地址："
        '
        'Cbdengji
        '
        Me.Cbdengji.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "用户信息表.用户等级"))
        Me.Cbdengji.Enabled = False
        Me.Cbdengji.Items.AddRange(New Object() {"1", "2", "3", "4"})
        Me.Cbdengji.Location = New System.Drawing.Point(336, 40)
        Me.Cbdengji.Name = "Cbdengji"
        Me.Cbdengji.Size = New System.Drawing.Size(112, 20)
        Me.Cbdengji.TabIndex = 20
        '
        'Cbbumen
        '
        Me.Cbbumen.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "用户信息表.隶属部门"))
        Me.Cbbumen.Enabled = False
        Me.Cbbumen.Items.AddRange(New Object() {"医疗部门", "公安部门", "教育部门", "城管部门", "消防部门", "林业部门", "水利部门", "环卫部门", "气象部门", "化学品监管及处理部门", "交通部门", "地质灾害防预部门"})
        Me.Cbbumen.Location = New System.Drawing.Point(336, 88)
        Me.Cbbumen.Name = "Cbbumen"
        Me.Cbbumen.Size = New System.Drawing.Size(160, 20)
        Me.Cbbumen.TabIndex = 21
        '
        'Cbusertype
        '
        Me.Cbusertype.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "用户信息表.用户类别"))
        Me.Cbusertype.Enabled = False
        Me.Cbusertype.Items.AddRange(New Object() {"决策者", "应急部门", "应急联动中心", "系统管理员", "一般用户"})
        Me.Cbusertype.Location = New System.Drawing.Point(128, 184)
        Me.Cbusertype.Name = "Cbusertype"
        Me.Cbusertype.Size = New System.Drawing.Size(104, 20)
        Me.Cbusertype.TabIndex = 22
        '
        'Txtcompanyaddr
        '
        Me.Txtcompanyaddr.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "用户信息表.单位地址"))
        Me.Txtcompanyaddr.Enabled = False
        Me.Txtcompanyaddr.Location = New System.Drawing.Point(128, 224)
        Me.Txtcompanyaddr.Name = "Txtcompanyaddr"
        Me.Txtcompanyaddr.Size = New System.Drawing.Size(312, 21)
        Me.Txtcompanyaddr.TabIndex = 23
        Me.Txtcompanyaddr.Text = ""
        '
        'Txtcompany
        '
        Me.Txtcompany.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "用户信息表.所属单位"))
        Me.Txtcompany.Enabled = False
        Me.Txtcompany.Location = New System.Drawing.Point(336, 136)
        Me.Txtcompany.Name = "Txtcompany"
        Me.Txtcompany.Size = New System.Drawing.Size(160, 21)
        Me.Txtcompany.TabIndex = 24
        Me.Txtcompany.Text = ""
        '
        'Txtphone
        '
        Me.Txtphone.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "用户信息表.联系电话"))
        Me.Txtphone.Enabled = False
        Me.Txtphone.Location = New System.Drawing.Point(336, 184)
        Me.Txtphone.Name = "Txtphone"
        Me.Txtphone.Size = New System.Drawing.Size(160, 21)
        Me.Txtphone.TabIndex = 25
        Me.Txtphone.Text = ""
        '
        'Btexitadduser
        '
        Me.Btexitadduser.Location = New System.Drawing.Point(312, 288)
        Me.Btexitadduser.Name = "Btexitadduser"
        Me.Btexitadduser.Size = New System.Drawing.Size(96, 32)
        Me.Btexitadduser.TabIndex = 26
        Me.Btexitadduser.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
        '