📄 frm_bill.vb
字号:
'
Me.TextBox5.BackColor = System.Drawing.SystemColors.Info
Me.TextBox5.Location = New System.Drawing.Point(48, 152)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(104, 20)
Me.TextBox5.TabIndex = 19
Me.TextBox5.Text = ""
Me.TextBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'ComboBox1
'
Me.ComboBox1.BackColor = System.Drawing.SystemColors.Info
Me.ComboBox1.Location = New System.Drawing.Point(504, 112)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 20
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(408, 32)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(240, 24)
Me.Label15.TabIndex = 23
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button1.Location = New System.Drawing.Point(304, 416)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 24)
Me.Button1.TabIndex = 24
Me.Button1.Text = "Find Slip"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button4.Location = New System.Drawing.Point(8, 16)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(104, 24)
Me.Button4.TabIndex = 27
Me.Button4.Text = "Delete Slip"
'
'Button5
'
Me.Button5.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button5.Location = New System.Drawing.Point(528, 416)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(104, 24)
Me.Button5.TabIndex = 28
Me.Button5.Text = "Cancel"
'
'Button6
'
Me.Button6.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button6.Location = New System.Drawing.Point(8, 16)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(96, 24)
Me.Button6.TabIndex = 29
Me.Button6.Text = "Add New Slip"
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(24, 64)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(56, 16)
Me.Label16.TabIndex = 31
Me.Label16.Text = "Slip No"
'
'TextBox6
'
Me.TextBox6.BackColor = System.Drawing.SystemColors.InactiveCaptionText
Me.TextBox6.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox6.Location = New System.Drawing.Point(72, 64)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New System.Drawing.Size(80, 13)
Me.TextBox6.TabIndex = 32
Me.TextBox6.Text = ""
'
'Button7
'
Me.Button7.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button7.Location = New System.Drawing.Point(8, 16)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(104, 23)
Me.Button7.TabIndex = 33
Me.Button7.Text = "Show Bill"
'
'TextBox7
'
Me.TextBox7.Location = New System.Drawing.Point(704, 168)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.TabIndex = 34
Me.TextBox7.Text = ""
Me.TextBox7.Visible = False
'
'TextBox8
'
Me.TextBox8.Location = New System.Drawing.Point(704, 192)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.TabIndex = 35
Me.TextBox8.Text = ""
Me.TextBox8.Visible = False
'
'TextBox9
'
Me.TextBox9.Location = New System.Drawing.Point(704, 216)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.TabIndex = 36
Me.TextBox9.Text = ""
Me.TextBox9.Visible = False
'
'TextBox10
'
Me.TextBox10.Location = New System.Drawing.Point(704, 264)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Size = New System.Drawing.Size(96, 20)
Me.TextBox10.TabIndex = 37
Me.TextBox10.Text = ""
Me.TextBox10.Visible = False
'
'TextBox11
'
Me.TextBox11.Location = New System.Drawing.Point(704, 240)
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Size = New System.Drawing.Size(104, 20)
Me.TextBox11.TabIndex = 38
Me.TextBox11.Text = ""
Me.TextBox11.Visible = False
'
'Button8
'
Me.Button8.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button8.Location = New System.Drawing.Point(8, 40)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(104, 24)
Me.Button8.TabIndex = 39
Me.Button8.Text = "Get Total"
'
'TextBox12
'
Me.TextBox12.Location = New System.Drawing.Point(712, 144)
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.TabIndex = 40
Me.TextBox12.Text = ""
'
'Button9
'
Me.Button9.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button9.Location = New System.Drawing.Point(416, 416)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(104, 23)
Me.Button9.TabIndex = 41
Me.Button9.Text = "Clear Fields"
'
'Button10
'
Me.Button10.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button10.Enabled = False
Me.Button10.Location = New System.Drawing.Point(8, 40)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(96, 23)
Me.Button10.TabIndex = 42
Me.Button10.Text = "Add Slip"
'
'Button11
'
Me.Button11.BackColor = System.Drawing.SystemColors.ControlLight
Me.Button11.Enabled = False
Me.Button11.Location = New System.Drawing.Point(8, 64)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(96, 23)
Me.Button11.TabIndex = 43
Me.Button11.Text = "Cancel Add Slip"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Button4)
Me.GroupBox1.Location = New System.Drawing.Point(128, 176)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(120, 48)
Me.GroupBox1.TabIndex = 44
Me.GroupBox1.TabStop = False
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button6)
Me.GroupBox2.Controls.Add(Me.Button10)
Me.GroupBox2.Controls.Add(Me.Button11)
Me.GroupBox2.Location = New System.Drawing.Point(8, 152)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(120, 96)
Me.GroupBox2.TabIndex = 45
Me.GroupBox2.TabStop = False
'
'TextBox13
'
Me.TextBox13.BackColor = System.Drawing.SystemColors.Info
Me.TextBox13.Enabled = False
Me.TextBox13.Location = New System.Drawing.Point(104, 24)
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.TabIndex = 46
Me.TextBox13.Text = ""
'
'TextBox14
'
Me.TextBox14.BackColor = System.Drawing.SystemColors.Info
Me.TextBox14.Enabled = False
Me.TextBox14.Location = New System.Drawing.Point(104, 48)
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.TabIndex = 47
Me.TextBox14.Text = ""
'
'TextBox15
'
Me.TextBox15.BackColor = System.Drawing.SystemColors.Info
Me.TextBox15.Enabled = False
Me.TextBox15.Location = New System.Drawing.Point(104, 72)
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.TabIndex = 48
Me.TextBox15.Text = ""
'
'TextBox16
'
Me.TextBox16.BackColor = System.Drawing.SystemColors.Info
Me.TextBox16.Enabled = False
Me.TextBox16.Location = New System.Drawing.Point(104, 96)
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.TabIndex = 49
Me.TextBox16.Text = ""
'
'TextBox17
'
Me.TextBox17.BackColor = System.Drawing.SystemColors.Info
Me.TextBox17.Enabled = False
Me.TextBox17.Location = New System.Drawing.Point(104, 120)
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.TabIndex = 50
Me.TextBox17.Text = ""
'
'Label17
'
Me.Label17.Location = New System.Drawing.Point(8, 24)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(88, 16)
Me.Label17.TabIndex = 51
Me.Label17.Text = "Addmission Fee"
'
'Label18
'
Me.Label18.Location = New System.Drawing.Point(16, 48)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(72, 16)
Me.Label18.TabIndex = 52
Me.Label18.Text = "Room Rate"
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(16, 72)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(56, 16)
Me.Label19.TabIndex = 53
Me.Label19.Text = "Exam Fee"
'
'Label20
'
Me.Label20.Location = New System.Drawing.Point(16, 96)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(80, 16)
Me.Label20.TabIndex = 54
Me.Label20.Text = "Physician Fee"
'
'Label21
'
Me.Label21.Location = New System.Drawing.Point(16, 120)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(64, 16)
Me.Label21.TabIndex = 55
Me.Label21.Text = "Drug Cost"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.TextBox16)
Me.GroupBox3.Controls.Add(Me.GroupBox2)
Me.GroupBox3.Controls.Add(Me.Label17)
Me.GroupBox3.Controls.Add(Me.Label21)
Me.GroupBox3.Controls.Add(Me.TextBox14)
Me.GroupBox3.Controls.Add(Me.TextBox15)
Me.GroupBox3.Controls.Add(Me.Label19)
Me.GroupBox3.Controls.Add(Me.Label20)
Me.GroupBox3.Controls.Add(Me.TextBox13)
Me.GroupBox3.Controls.Add(Me.Label18)
Me.GroupBox3.Controls.Add(Me.TextBox17)
Me.GroupBox3.Controls.Add(Me.GroupBox1)
Me.GroupBox3.Location = New System.Drawing.Point(192, 152)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(256, 256)
Me.GroupBox3.TabIndex = 56
Me.GroupBox3.TabStop = False
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Button7)
Me.GroupBox4.Controls.Add(Me.Button8)
Me.GroupBox4.Location = New System.Drawing.Point(32, 176)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(120, 72)
Me.GroupBox4.TabIndex = 57
Me.GroupBox4.TabStop = False
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.TextBox5)
Me.GroupBox5.Controls.Add(Me.Label13)
Me.GroupBox5.Controls.Add(Me.ListBox1)
Me.GroupBox5.Controls.Add(Me.Label11)
Me.GroupBox5.Controls.Add(Me.Label10)
Me.GroupBox5.Controls.Add(Me.Label9)
Me.GroupBox5.Controls.Add(Me.Label8)
Me.GroupBox5.Controls.Add(Me.Label7)
Me.GroupBox5.Controls.Add(Me.GroupBox4)
Me.GroupBox5.Location = New System.Drawing.Point(16, 152)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(176, 256)
Me.GroupBox5.TabIndex = 58
Me.GroupBox5.TabStop = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -