📄 frmsee.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form frmsee
BackColor = &H00404040&
BorderStyle = 3 'Fixed Dialog
Caption = "住院病人及费查询"
ClientHeight = 5850
ClientLeft = 45
ClientTop = 330
ClientWidth = 6615
Icon = "frmsee.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Picture = "frmsee.frx":030A
ScaleHeight = 5850
ScaleWidth = 6615
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture2
Height = 2175
Left = 120
Picture = "frmsee.frx":59F9
ScaleHeight = 2115
ScaleWidth = 6315
TabIndex = 59
Top = 120
Width = 6375
Begin VB.TextBox Text13
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 4680
Locked = -1 'True
MaxLength = 2
TabIndex = 73
Top = 1680
Width = 400
End
Begin VB.TextBox Text12
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 3960
Locked = -1 'True
MaxLength = 2
TabIndex = 72
Top = 1680
Width = 400
End
Begin VB.TextBox Text11
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 3000
Locked = -1 'True
MaxLength = 4
TabIndex = 71
Top = 1680
Width = 600
End
Begin VB.TextBox Text10
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 960
Locked = -1 'True
MaxLength = 10
TabIndex = 70
Top = 1680
Width = 1000
End
Begin VB.TextBox Text9
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 5160
Locked = -1 'True
MaxLength = 2
TabIndex = 69
Top = 1320
Width = 1000
End
Begin VB.TextBox Text8
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 3000
Locked = -1 'True
MaxLength = 3
TabIndex = 68
Top = 1320
Width = 1000
End
Begin VB.TextBox Text7
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 960
Locked = -1 'True
MaxLength = 12
TabIndex = 67
Top = 1320
Width = 1000
End
Begin VB.TextBox Text6
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 960
Locked = -1 'True
MaxLength = 50
TabIndex = 66
Top = 960
Width = 3045
End
Begin VB.TextBox Text5
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BeginProperty DataFormat
Type = 0
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
ForeColor = &H000000FF&
Height = 300
Left = 5160
Locked = -1 'True
TabIndex = 65
Top = 960
Width = 1000
End
Begin VB.TextBox Text4
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 3000
Locked = -1 'True
MaxLength = 20
TabIndex = 64
Top = 600
Width = 1000
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 960
Locked = -1 'True
MaxLength = 2
TabIndex = 63
Top = 600
Width = 1000
End
Begin VB.TextBox Text2
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 3000
MaxLength = 10
TabIndex = 62
Top = 240
Width = 1000
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 960
MaxLength = 10
TabIndex = 0
Top = 240
Width = 1000
End
Begin VB.TextBox Text14
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
BeginProperty DataFormat
Type = 0
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
ForeColor = &H000000FF&
Height = 300
Left = 5160
Locked = -1 'True
TabIndex = 61
Top = 600
Width = 1000
End
Begin VB.TextBox Text15
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
ForeColor = &H000000FF&
Height = 300
Left = 5160
Locked = -1 'True
TabIndex = 60
Top = 240
Width = 1000
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "日"
ForeColor = &H00000000&
Height = 180
Left = 5130
TabIndex = 89
Top = 1755
Width = 180
End
Begin VB.Label Label14
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "月"
ForeColor = &H00000000&
Height = 180
Left = 4440
TabIndex = 88
Top = 1755
Width = 180
End
Begin VB.Label Label13
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "年"
ForeColor = &H00000000&
Height = 180
Left = 3690
TabIndex = 87
Top = 1755
Width = 180
End
Begin VB.Label Label12
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "地 址"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 86
Top = 1005
Width = 720
End
Begin VB.Label Label11
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "住院日期"
ForeColor = &H00000000&
Height = 180
Left = 2175
TabIndex = 85
Top = 1755
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "主治医生"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 84
Top = 1755
Width = 720
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "床 位 号"
ForeColor = &H00000000&
Height = 180
Left = 4320
TabIndex = 83
Top = 1380
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "病 房 号"
ForeColor = &H00000000&
Height = 180
Left = 2175
TabIndex = 82
Top = 1380
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "科室类别"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 81
Top = 1380
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "预交费用"
ForeColor = &H000000FF&
Height = 180
Left = 4320
TabIndex = 80
Top = 660
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "病 种"
ForeColor = &H00000000&
Height = 180
Left = 2175
TabIndex = 79
Top = 660
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "年 龄"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 78
Top = 660
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "性 别"
ForeColor = &H00000000&
Height = 180
Left = 4320
TabIndex = 77
Top = 285
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "患者姓名"
ForeColor = &H00000000&
Height = 180
Left = 2175
TabIndex = 76
Top = 285
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "住院证号"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 75
Top = 285
Width = 720
End
Begin VB.Label Label16
BackColor = &H00404040&
BackStyle = 0 'Transparent
Caption = "剩余费用"
ForeColor = &H000000FF&
Height = 255
Left = 4320
TabIndex = 74
Top = 1005
Width = 735
End
End
Begin VB.PictureBox Picture1
Height = 2775
Left = 120
Picture = "frmsee.frx":B0E8
ScaleHeight = 2715
ScaleWidth = 6315
TabIndex = 4
Top = 2950
Width = 6375
Begin VB.TextBox Text16
Alignment = 1 'Right Justify
ForeColor = &H000000FF&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -