📄 frmagent.vb
字号:
'
Me.Ds1.DataSetName = "DS"
Me.Ds1.Locale = New System.Globalization.CultureInfo("en-US")
'
'txtEmail
'
Me.txtEmail.BackColor = System.Drawing.Color.White
Me.txtEmail.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtEmail.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "Agent.Email"))
Me.txtEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(104, 128)
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.ReadOnly = True
Me.txtEmail.Size = New System.Drawing.Size(216, 20)
Me.txtEmail.TabIndex = 7
Me.txtEmail.Text = ""
'
'txtFax
'
Me.txtFax.BackColor = System.Drawing.Color.White
Me.txtFax.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtFax.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "Agent.Fax"))
Me.txtFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFax.ForeColor = System.Drawing.Color.Black
Me.txtFax.Location = New System.Drawing.Point(104, 104)
Me.txtFax.Name = "txtFax"
Me.txtFax.ReadOnly = True
Me.txtFax.Size = New System.Drawing.Size(216, 20)
Me.txtFax.TabIndex = 6
Me.txtFax.Text = ""
'
'txtMobile
'
Me.txtMobile.BackColor = System.Drawing.Color.White
Me.txtMobile.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtMobile.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "Agent.Mobile"))
Me.txtMobile.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMobile.ForeColor = System.Drawing.Color.Black
Me.txtMobile.Location = New System.Drawing.Point(104, 80)
Me.txtMobile.Name = "txtMobile"
Me.txtMobile.ReadOnly = True
Me.txtMobile.Size = New System.Drawing.Size(216, 20)
Me.txtMobile.TabIndex = 5
Me.txtMobile.Text = ""
'
'txtPhone
'
Me.txtPhone.BackColor = System.Drawing.Color.White
Me.txtPhone.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtPhone.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "Agent.Phone"))
Me.txtPhone.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPhone.ForeColor = System.Drawing.Color.Black
Me.txtPhone.Location = New System.Drawing.Point(104, 56)
Me.txtPhone.Name = "txtPhone"
Me.txtPhone.ReadOnly = True
Me.txtPhone.Size = New System.Drawing.Size(216, 20)
Me.txtPhone.TabIndex = 4
Me.txtPhone.Text = ""
'
'txtPincode
'
Me.txtPincode.BackColor = System.Drawing.Color.White
Me.txtPincode.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtPincode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "Agent.Pincode"))
Me.txtPincode.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPincode.ForeColor = System.Drawing.Color.Black
Me.txtPincode.Location = New System.Drawing.Point(400, 128)
Me.txtPincode.Name = "txtPincode"
Me.txtPincode.ReadOnly = True
Me.txtPincode.Size = New System.Drawing.Size(312, 20)
Me.txtPincode.TabIndex = 10
Me.txtPincode.Text = ""
'
'txtCity
'
Me.txtCity.BackColor = System.Drawing.Color.White
Me.txtCity.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtCity.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "Agent.City"))
Me.txtCity.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCity.ForeColor = System.Drawing.Color.Black
Me.txtCity.Location = New System.Drawing.Point(400, 104)
Me.txtCity.Name = "txtCity"
Me.txtCity.ReadOnly = True
Me.txtCity.Size = New System.Drawing.Size(312, 20)
Me.txtCity.TabIndex = 9
Me.txtCity.Text = ""
'
'txtAddress
'
Me.txtAddress.BackColor = System.Drawing.Color.White
Me.txtAddress.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtAddress.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "Agent.Address"))
Me.txtAddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAddress.ForeColor = System.Drawing.Color.Black
Me.txtAddress.Location = New System.Drawing.Point(400, 6)
Me.txtAddress.Multiline = True
Me.txtAddress.Name = "txtAddress"
Me.txtAddress.ReadOnly = True
Me.txtAddress.Size = New System.Drawing.Size(312, 90)
Me.txtAddress.TabIndex = 8
Me.txtAddress.Text = ""
'
'txtName
'
Me.txtName.BackColor = System.Drawing.Color.White
Me.txtName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Ds1, "Agent.Name"))
Me.txtName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtName.ForeColor = System.Drawing.Color.Black
Me.txtName.Location = New System.Drawing.Point(104, 6)
Me.txtName.Name = "txtName"
Me.txtName.ReadOnly = True
Me.txtName.Size = New System.Drawing.Size(216, 20)
Me.txtName.TabIndex = 2
Me.txtName.Text = ""
'
'Label10
'
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.ForeColor = System.Drawing.Color.Black
Me.Label10.Location = New System.Drawing.Point(0, 34)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(104, 16)
Me.Label10.TabIndex = 28
Me.Label10.Text = "Contact Person:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label9
'
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor = System.Drawing.Color.Black
Me.Label9.Location = New System.Drawing.Point(0, 130)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(104, 16)
Me.Label9.TabIndex = 27
Me.Label9.Text = "eMail:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label8
'
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.Black
Me.Label8.Location = New System.Drawing.Point(0, 106)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(104, 16)
Me.Label8.TabIndex = 26
Me.Label8.Text = "Fax:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.Black
Me.Label7.Location = New System.Drawing.Point(0, 82)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(104, 16)
Me.Label7.TabIndex = 25
Me.Label7.Text = "Hand Phone:"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.Color.Black
Me.Label6.Location = New System.Drawing.Point(0, 58)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(104, 16)
Me.Label6.TabIndex = 24
Me.Label6.Text = "Phone:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.Black
Me.Label5.Location = New System.Drawing.Point(336, 130)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(64, 16)
Me.Label5.TabIndex = 23
Me.Label5.Text = "Pin Code:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Black
Me.Label4.Location = New System.Drawing.Point(360, 106)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(40, 16)
Me.Label4.TabIndex = 22
Me.Label4.Text = "City:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(336, 43)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(64, 16)
Me.Label3.TabIndex = 21
Me.Label3.Text = "Address:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(48, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(56, 16)
Me.Label2.TabIndex = 20
Me.Label2.Text = "Name:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'dgAgent
'
Me.dgAgent.AlternatingBackColor = System.Drawing.Color.Lavender
Me.dgAgent.BackColor = System.Drawing.Color.WhiteSmoke
Me.dgAgent.BackgroundColor = System.Drawing.Color.LightGray
Me.dgAgent.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dgAgent.CaptionBackColor = System.Drawing.Color.LightSteelBlue
Me.dgAgent.CaptionForeColor = System.Drawing.Color.MidnightBlue
Me.dgAgent.CaptionText = "Agent Details"
Me.dgAgent.CaptionVisible = False
Me.dgAgent.DataMember = "Agent"
Me.dgAgent.DataSource = Me.Ds1
Me.dgAgent.FlatMode = True
Me.dgAgent.Font = New System.Drawing.Font("Tahoma", 8.0!)
Me.dgAgent.ForeColor = System.Drawing.Color.MidnightBlue
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -