form1.vb

来自「Visual Basic .NET程序设计教程源代码」· VB 代码 · 共 859 行 · 第 1/4 页

        Me.btnmodify.Name = "btnmodify"
        Me.btnmodify.Size = New System.Drawing.Size(56, 23)
        Me.btnmodify.TabIndex = 3
        Me.btnmodify.Text = "修改"
        '
        'btnsearch
        '
        Me.btnsearch.Location = New System.Drawing.Point(96, 56)
        Me.btnsearch.Name = "btnsearch"
        Me.btnsearch.Size = New System.Drawing.Size(88, 23)
        Me.btnsearch.TabIndex = 2
        Me.btnsearch.Text = "按姓名查找"
        '
        'btnall
        '
        Me.btnall.Location = New System.Drawing.Point(96, 88)
        Me.btnall.Name = "btnall"
        Me.btnall.Size = New System.Drawing.Size(88, 23)
        Me.btnall.TabIndex = 1
        Me.btnall.Text = "浏览全部记录"
        '
        'btnadd
        '
        Me.btnadd.Location = New System.Drawing.Point(16, 24)
        Me.btnadd.Name = "btnadd"
        Me.btnadd.Size = New System.Drawing.Size(56, 23)
        Me.btnadd.TabIndex = 0
        Me.btnadd.Text = "添加"
        '
        'txtsname
        '
        Me.txtsname.Location = New System.Drawing.Point(96, 24)
        Me.txtsname.Name = "txtsname"
        Me.txtsname.Size = New System.Drawing.Size(88, 21)
        Me.txtsname.TabIndex = 15
        Me.txtsname.Text = ""
        '
        'txtmobile
        '
        Me.txtmobile.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.mobile"))
        Me.txtmobile.Location = New System.Drawing.Point(232, 72)
        Me.txtmobile.Name = "txtmobile"
        Me.txtmobile.ReadOnly = True
        Me.txtmobile.TabIndex = 0
        Me.txtmobile.Text = ""
        '
        'Addressdetail11
        '
        Me.Addressdetail11.DataSetName = "addressdetail1"
        Me.Addressdetail11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'txtbirth
        '
        Me.txtbirth.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.birth"))
        Me.txtbirth.Location = New System.Drawing.Point(232, 32)
        Me.txtbirth.Name = "txtbirth"
        Me.txtbirth.ReadOnly = True
        Me.txtbirth.TabIndex = 1
        Me.txtbirth.Text = ""
        '
        'txtphone
        '
        Me.txtphone.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.phone"))
        Me.txtphone.Location = New System.Drawing.Point(56, 72)
        Me.txtphone.Name = "txtphone"
        Me.txtphone.ReadOnly = True
        Me.txtphone.TabIndex = 2
        Me.txtphone.Text = ""
        '
        'txtname
        '
        Me.txtname.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.name"))
        Me.txtname.Location = New System.Drawing.Point(56, 32)
        Me.txtname.Name = "txtname"
        Me.txtname.ReadOnly = True
        Me.txtname.TabIndex = 3
        Me.txtname.Text = ""
        '
        'txtaddress
        '
        Me.txtaddress.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.address"))
        Me.txtaddress.Location = New System.Drawing.Point(56, 112)
        Me.txtaddress.Name = "txtaddress"
        Me.txtaddress.ReadOnly = True
        Me.txtaddress.Size = New System.Drawing.Size(272, 21)
        Me.txtaddress.TabIndex = 4
        Me.txtaddress.Text = ""
        '
        'txtbp
        '
        Me.txtbp.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.bp"))
        Me.txtbp.Location = New System.Drawing.Point(408, 72)
        Me.txtbp.Name = "txtbp"
        Me.txtbp.ReadOnly = True
        Me.txtbp.TabIndex = 5
        Me.txtbp.Text = ""
        '
        'txtemail
        '
        Me.txtemail.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.email"))
        Me.txtemail.Location = New System.Drawing.Point(408, 32)
        Me.txtemail.Name = "txtemail"
        Me.txtemail.ReadOnly = True
        Me.txtemail.TabIndex = 6
        Me.txtemail.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 120)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(32, 23)
        Me.Label1.TabIndex = 7
        Me.Label1.Text = "地址"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(40, 23)
        Me.Label2.TabIndex = 8
        Me.Label2.Text = "姓名"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 80)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 23)
        Me.Label3.TabIndex = 9
        Me.Label3.Text = "电话"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(168, 40)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 23)
        Me.Label4.TabIndex = 10
        Me.Label4.Text = "出生日期"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(168, 80)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 23)
        Me.Label5.TabIndex = 11
        Me.Label5.Text = "手机号码"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(344, 40)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 23)
        Me.Label6.TabIndex = 12
        Me.Label6.Text = "电子邮箱"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(344, 80)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 23)
        Me.Label7.TabIndex = 0
        Me.Label7.Text = "寻呼号码"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(344, 120)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(64, 23)
        Me.Label8.TabIndex = 13
        Me.Label8.Text = "邮政编码"
        '
        'txtpc
        '
        Me.txtpc.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.pc"))
        Me.txtpc.Location = New System.Drawing.Point(408, 112)
        Me.txtpc.Name = "txtpc"
        Me.txtpc.ReadOnly = True
        Me.txtpc.TabIndex = 14
        Me.txtpc.Text = ""
        '
        'txtid
        '
        Me.txtid.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtid.Location = New System.Drawing.Point(240, 224)
        Me.txtid.Name = "txtid"
        Me.txtid.ReadOnly = True
        Me.txtid.Size = New System.Drawing.Size(40, 21)
        Me.txtid.TabIndex = 16
        Me.txtid.Text = "ID"
        '
        'lblposition
        '
        Me.lblposition.Location = New System.Drawing.Point(8, 224)
        Me.lblposition.Name = "lblposition"
        Me.lblposition.Size = New System.Drawing.Size(200, 23)
        Me.lblposition.TabIndex = 17
        Me.lblposition.Text = "记录信息"
        '
        'txtdemo
        '
        Me.txtdemo.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Addressdetail11, "detail.demo"))
        Me.txtdemo.Location = New System.Drawing.Point(56, 152)
        Me.txtdemo.Multiline = True
        Me.txtdemo.Name = "txtdemo"
        Me.txtdemo.ReadOnly = True
        Me.txtdemo.Size = New System.Drawing.Size(224, 56)
        Me.txtdemo.TabIndex = 18
        Me.txtdemo.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(8, 152)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(32, 23)
        Me.Label9.TabIndex = 19
        Me.Label9.Text = "备注"