📄 frmclient.vb
字号:
'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(12, 61)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(100, 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(342, 125)
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(342, 77)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(64, 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(342, 32)
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(12, 11)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(100, 16)
Me.Label2.TabIndex = 20
Me.Label2.Text = "Name:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(342, 100)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 16)
Me.Label1.TabIndex = 38
Me.Label1.Text = "Country:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txtCountry
'
Me.txtCountry.BackColor = System.Drawing.Color.White
Me.txtCountry.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtCountry.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsClient1, "Client.Country"))
Me.txtCountry.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCountry.ForeColor = System.Drawing.Color.Black
Me.txtCountry.Location = New System.Drawing.Point(411, 98)
Me.txtCountry.Name = "txtCountry"
Me.txtCountry.ReadOnly = True
Me.txtCountry.Size = New System.Drawing.Size(304, 20)
Me.txtCountry.TabIndex = 11
Me.txtCountry.Text = ""
'
'dgClient
'
Me.dgClient.AllowDrop = True
Me.dgClient.AllowNavigation = False
Me.dgClient.AlternatingBackColor = System.Drawing.Color.LightGray
Me.dgClient.BackColor = System.Drawing.Color.Gainsboro
Me.dgClient.BackgroundColor = System.Drawing.Color.Silver
Me.dgClient.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dgClient.CaptionBackColor = System.Drawing.Color.LightSteelBlue
Me.dgClient.CaptionForeColor = System.Drawing.Color.MidnightBlue
Me.dgClient.CaptionText = "Client Details"
Me.dgClient.CaptionVisible = False
Me.dgClient.DataMember = "Client"
Me.dgClient.DataSource = Me.DsClient1
Me.dgClient.FlatMode = True
Me.dgClient.Font = New System.Drawing.Font("Tahoma", 8.0!)
Me.dgClient.ForeColor = System.Drawing.Color.Black
Me.dgClient.GridLineColor = System.Drawing.Color.DimGray
Me.dgClient.GridLineStyle = System.Windows.Forms.DataGridLineStyle.None
Me.dgClient.HeaderBackColor = System.Drawing.Color.MidnightBlue
Me.dgClient.HeaderFont = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
Me.dgClient.HeaderForeColor = System.Drawing.Color.White
Me.dgClient.LinkColor = System.Drawing.Color.MidnightBlue
Me.dgClient.Location = New System.Drawing.Point(29, 104)
Me.dgClient.Name = "dgClient"
Me.dgClient.ParentRowsBackColor = System.Drawing.Color.DarkGray
Me.dgClient.ParentRowsForeColor = System.Drawing.Color.Black
Me.dgClient.SelectionBackColor = System.Drawing.Color.CadetBlue
Me.dgClient.SelectionForeColor = System.Drawing.Color.White
Me.dgClient.Size = New System.Drawing.Size(749, 184)
Me.dgClient.TabIndex = 1
Me.dgClient.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.DataGridTableStyle1})
'
'DataGridTableStyle1
'
Me.DataGridTableStyle1.AlternatingBackColor = System.Drawing.Color.White
Me.DataGridTableStyle1.BackColor = System.Drawing.Color.White
Me.DataGridTableStyle1.DataGrid = Me.dgClient
Me.DataGridTableStyle1.ForeColor = System.Drawing.Color.Blue
Me.DataGridTableStyle1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.ID, Me.CName, Me.Address, Me.Country, Me.ContactPerson, Me.City, Me.Pincode, Me.Phone, Me.Mobile, Me.Fax, Me.Email})
Me.DataGridTableStyle1.GridLineColor = System.Drawing.Color.FromArgb(CType(84, Byte), CType(81, Byte), CType(223, Byte))
Me.DataGridTableStyle1.HeaderBackColor = System.Drawing.Color.FromArgb(CType(84, Byte), CType(81, Byte), CType(223, Byte))
Me.DataGridTableStyle1.HeaderForeColor = System.Drawing.Color.Yellow
Me.DataGridTableStyle1.MappingName = "Client"
Me.DataGridTableStyle1.PreferredRowHeight = 30
Me.DataGridTableStyle1.ReadOnly = True
Me.DataGridTableStyle1.RowHeadersVisible = False
'
'ID
'
Me.ID.Format = ""
Me.ID.FormatInfo = Nothing
Me.ID.HeaderText = "ID"
Me.ID.MappingName = "ID"
Me.ID.NullText = ""
Me.ID.ReadOnly = True
Me.ID.Width = 25
'
'CName
'
Me.CName.Format = ""
Me.CName.FormatInfo = Nothing
Me.CName.HeaderText = "Client Name"
Me.CName.MappingName = "Name"
Me.CName.NullText = ""
Me.CName.ReadOnly = True
Me.CName.Width = 150
'
'Address
'
Me.Address.Format = ""
Me.Address.FormatInfo = Nothing
Me.Address.HeaderText = "Address"
Me.Address.MappingName = "Address"
Me.Address.NullText = ""
Me.Address.ReadOnly = True
Me.Address.Width = 0
'
'Country
'
Me.Country.Format = ""
Me.Country.FormatInfo = Nothing
Me.Country.HeaderText = "Country"
Me.Country.MappingName = "Country"
Me.Country.NullText = ""
Me.Country.ReadOnly = True
Me.Country.Width = 115
'
'ContactPerson
'
Me.ContactPerson.Format = ""
Me.ContactPerson.FormatInfo = Nothing
Me.ContactPerson.HeaderText = "Contact Person"
Me.ContactPerson.MappingName = "Contact"
Me.ContactPerson.NullText = ""
Me.ContactPerson.ReadOnly = True
Me.ContactPerson.Width = 150
'
'City
'
Me.City.Format = ""
Me.City.FormatInfo = Nothing
Me.City.HeaderText = "City"
Me.City.MappingName = "City"
Me.City.NullText = ""
Me.City.ReadOnly = True
Me.City.Width = 75
'
'Pincode
'
Me.Pincode.Format = ""
Me.Pincode.FormatInfo = Nothing
Me.Pincode.MappingName = "Pincode"
Me.Pincode.ReadOnly = True
Me.Pincode.Width = 0
'
'Phone
'
Me.Phone.Format = ""
Me.Phone.FormatInfo = Nothing
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -