frm_emp.vb
来自「application file which contains the note」· VB 代码 · 共 800 行 · 第 1/3 页
VB
800 行
'
'TextBox3
'
Me.TextBox3.BackColor = System.Drawing.SystemColors.Info
Me.TextBox3.Location = New System.Drawing.Point(264, 24)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(160, 20)
Me.TextBox3.TabIndex = 16
Me.TextBox3.Text = ""
'
'TextBox4
'
Me.TextBox4.BackColor = System.Drawing.SystemColors.Info
Me.TextBox4.Location = New System.Drawing.Point(160, 56)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(248, 20)
Me.TextBox4.TabIndex = 17
Me.TextBox4.Text = ""
'
'TextBox5
'
Me.TextBox5.BackColor = System.Drawing.SystemColors.Info
Me.TextBox5.Location = New System.Drawing.Point(160, 88)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(224, 20)
Me.TextBox5.TabIndex = 18
Me.TextBox5.Text = ""
'
'TextBox6
'
Me.TextBox6.BackColor = System.Drawing.SystemColors.Info
Me.TextBox6.Location = New System.Drawing.Point(160, 120)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New System.Drawing.Size(72, 20)
Me.TextBox6.TabIndex = 19
Me.TextBox6.Text = ""
'
'TextBox7
'
Me.TextBox7.BackColor = System.Drawing.SystemColors.Info
Me.TextBox7.Location = New System.Drawing.Point(104, 48)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.TabIndex = 20
Me.TextBox7.Text = ""
'
'TextBox8
'
Me.TextBox8.BackColor = System.Drawing.SystemColors.Info
Me.TextBox8.Location = New System.Drawing.Point(104, 16)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.TabIndex = 21
Me.TextBox8.Text = ""
'
'TextBox9
'
Me.TextBox9.BackColor = System.Drawing.SystemColors.Info
Me.TextBox9.Location = New System.Drawing.Point(160, 184)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.TabIndex = 22
Me.TextBox9.Text = ""
'
'TextBox10
'
Me.TextBox10.BackColor = System.Drawing.SystemColors.Info
Me.TextBox10.Location = New System.Drawing.Point(160, 152)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.TabIndex = 23
Me.TextBox10.Text = ""
'
'TextBox11
'
Me.TextBox11.BackColor = System.Drawing.SystemColors.Info
Me.TextBox11.Location = New System.Drawing.Point(104, 80)
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.TabIndex = 24
Me.TextBox11.Text = ""
'
'ComboBox1
'
Me.ComboBox1.BackColor = System.Drawing.SystemColors.Info
Me.ComboBox1.Location = New System.Drawing.Point(320, 16)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(88, 21)
Me.ComboBox1.TabIndex = 25
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.TextBox9)
Me.GroupBox1.Controls.Add(Me.TextBox3)
Me.GroupBox1.Controls.Add(Me.TextBox6)
Me.GroupBox1.Controls.Add(Me.TextBox5)
Me.GroupBox1.Controls.Add(Me.TextBox4)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.TextBox2)
Me.GroupBox1.Controls.Add(Me.TextBox10)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label10)
Me.GroupBox1.Controls.Add(Me.Label11)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Location = New System.Drawing.Point(16, 88)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(432, 216)
Me.GroupBox1.TabIndex = 26
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Personel Information"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.TextBox14)
Me.GroupBox2.Controls.Add(Me.Label16)
Me.GroupBox2.Controls.Add(Me.TextBox13)
Me.GroupBox2.Controls.Add(Me.Label15)
Me.GroupBox2.Controls.Add(Me.Label14)
Me.GroupBox2.Controls.Add(Me.TextBox12)
Me.GroupBox2.Controls.Add(Me.Label13)
Me.GroupBox2.Controls.Add(Me.Label8)
Me.GroupBox2.Controls.Add(Me.Label9)
Me.GroupBox2.Controls.Add(Me.TextBox11)
Me.GroupBox2.Controls.Add(Me.TextBox8)
Me.GroupBox2.Controls.Add(Me.TextBox7)
Me.GroupBox2.Controls.Add(Me.Label12)
Me.GroupBox2.Controls.Add(Me.ComboBox1)
Me.GroupBox2.Location = New System.Drawing.Point(16, 312)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(432, 144)
Me.GroupBox2.TabIndex = 27
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Hospital Information"
'
'TextBox14
'
Me.TextBox14.BackColor = System.Drawing.SystemColors.Info
Me.TextBox14.Location = New System.Drawing.Point(104, 112)
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.PasswordChar = Microsoft.VisualBasic.ChrW(42)
Me.TextBox14.TabIndex = 32
Me.TextBox14.Text = ""
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(8, 120)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(88, 16)
Me.Label16.TabIndex = 31
Me.Label16.Text = "Login Password"
'
'TextBox13
'
Me.TextBox13.BackColor = System.Drawing.SystemColors.Info
Me.TextBox13.Location = New System.Drawing.Point(304, 80)
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.TabIndex = 30
Me.TextBox13.Text = ""
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(232, 80)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(48, 16)
Me.Label15.TabIndex = 29
Me.Label15.Text = "Salary"
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(224, 48)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(72, 16)
Me.Label14.TabIndex = 28
Me.Label14.Text = "Hospital INS"
'
'TextBox12
'
Me.TextBox12.BackColor = System.Drawing.SystemColors.Info
Me.TextBox12.Location = New System.Drawing.Point(304, 48)
Me.TextBox12.MaxLength = 16
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.TabIndex = 27
Me.TextBox12.Text = ""
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button1.Location = New System.Drawing.Point(80, 472)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 23)
Me.Button1.TabIndex = 28
Me.Button1.Text = "Add New"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button2.Location = New System.Drawing.Point(176, 472)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(88, 23)
Me.Button2.TabIndex = 29
Me.Button2.Text = "Edit"
'
'Button3
'
Me.Button3.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button3.Location = New System.Drawing.Point(272, 472)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(88, 23)
Me.Button3.TabIndex = 30
Me.Button3.Text = "Find"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button4.Location = New System.Drawing.Point(120, 504)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(88, 23)
Me.Button4.TabIndex = 31
Me.Button4.Text = "Delete"
'
'Button6
'
Me.Button6.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button6.Location = New System.Drawing.Point(216, 504)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(88, 23)
Me.Button6.TabIndex = 33
Me.Button6.Text = "Cancel"
'
'Button7
'
Me.Button7.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button7.Location = New System.Drawing.Point(80, 472)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(88, 24)
Me.Button7.TabIndex = 34
Me.Button7.Text = "Add"
Me.Button7.Visible = False
'
'TextBox15
'
Me.TextBox15.Location = New System.Drawing.Point(160, 552)
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.TabIndex = 35
Me.TextBox15.Text = ""
Me.TextBox15.Visible = False
'
'frm_emp
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.InactiveCaptionText
Me.ClientSize = New System.Drawing.Size(458, 536)
Me.Controls.Add(Me.TextBox15)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label3)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frm_emp"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?