📄 bahzcx.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form BACX
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "病历首页查询"
ClientHeight = 4035
ClientLeft = 600
ClientTop = 2685
ClientWidth = 7410
Icon = "BAhzcx.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 4035
ScaleWidth = 7410
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture3
Enabled = 0 'False
Height = 5775
Left = -30
ScaleHeight = 5715
ScaleWidth = 12015
TabIndex = 177
Top = 1200
Visible = 0 'False
Width = 12075
Begin VB.TextBox ZY
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 5970
MaxLength = 8
TabIndex = 214
Text = " "
Top = 120
Width = 2415
End
Begin VB.TextBox HYZK
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4680
TabIndex = 213
Text = " "
Top = 120
Width = 735
End
Begin VB.TextBox HZXB
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 630
TabIndex = 212
TabStop = 0 'False
Text = " "
Top = 120
Width = 705
End
Begin VB.TextBox JG2
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 10560
TabIndex = 211
TabStop = 0 'False
Text = " "
Top = 120
Width = 1035
End
Begin VB.TextBox JG1
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 8970
TabIndex = 210
TabStop = 0 'False
Text = " "
Top = 120
Width = 1035
End
Begin VB.TextBox MZ
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 600
TabIndex = 209
TabStop = 0 'False
Text = " "
Top = 540
Width = 1215
End
Begin VB.TextBox GJ
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 2370
TabIndex = 208
TabStop = 0 'False
Text = " "
Top = 540
Width = 1215
End
Begin VB.TextBox SFZH
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 4620
TabIndex = 207
TabStop = 0 'False
Text = " "
Top = 540
Width = 6975
End
Begin VB.TextBox GZDW
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 1080
TabIndex = 206
TabStop = 0 'False
Text = " "
Top = 960
Width = 10515
End
Begin VB.TextBox DWDH
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 1080
TabIndex = 205
TabStop = 0 'False
Text = " "
Top = 1380
Width = 3105
End
Begin VB.TextBox DWYB
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 5310
TabIndex = 204
TabStop = 0 'False
Text = " "
Top = 1380
Width = 6285
End
Begin VB.TextBox HKDZ
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 1080
TabIndex = 203
TabStop = 0 'False
Text = " "
Top = 1800
Width = 10515
End
Begin VB.TextBox HKDH
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 1080
TabIndex = 202
TabStop = 0 'False
Text = " "
Top = 2220
Width = 3105
End
Begin VB.TextBox HKYB
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 5310
TabIndex = 201
TabStop = 0 'False
Text = " "
Top = 2220
Width = 6285
End
Begin VB.TextBox LXRDZ
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 1350
TabIndex = 200
TabStop = 0 'False
Text = " "
Top = 3060
Width = 10245
End
Begin VB.TextBox LXR
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 1350
TabIndex = 199
TabStop = 0 'False
Text = " "
Top = 2640
Width = 1665
End
Begin VB.TextBox GX
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 3570
TabIndex = 198
TabStop = 0 'False
Text = " "
Top = 2640
Width = 1545
End
Begin VB.TextBox LXRDH
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -