📄 查询内容.frm
字号:
VERSION 5.00
Object = "{82351433-9094-11D1-A24B-00A0C932C7DF}#1.5#0"; "ANIGIF.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form FormNr
ClientHeight = 6315
ClientLeft = 930
ClientTop = 1350
ClientWidth = 7830
ControlBox = 0 'False
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 6315
ScaleWidth = 7830
Begin VB.PictureBox Picture2
BackColor = &H80000015&
ForeColor = &H8000000B&
Height = 8505
Left = 10095
Picture = "查询内容.frx":0000
ScaleHeight = 8445
ScaleWidth = 11850
TabIndex = 0
Top = 6210
Visible = 0 'False
Width = 11910
Begin AniGIFCtrl.AniGIF AniGIF2
Height = 1440
Left = 7695
TabIndex = 91
Top = 7305
Width = 4320
BackColor = 12632256
PLaying = -1 'True
Transparent = -1 'True
Speed = 1
Stretch = 0
AutoSize = -1 'True
SequenceString = ""
Sequence = 0
HTTPProxy = ""
HTTPUserName = ""
HTTPPassword = ""
MousePointer = 0
GIF = "查询内容.frx":4DDE6
ExtendWidth = 7620
ExtendHeight = 2540
Loop = 0
AutoRewind = 0 'False
Synchronized = -1 'True
End
Begin AniGIFCtrl.AniGIF Arrow
Height = 480
Left = 1995
TabIndex = 92
TabStop = 0 'False
Top = 1590
Visible = 0 'False
Width = 480
BackColor = 12632256
PLaying = -1 'True
Transparent = -1 'True
Speed = 1
Stretch = 0
AutoSize = -1 'True
SequenceString = ""
Sequence = 0
HTTPProxy = ""
HTTPUserName = ""
HTTPPassword = ""
MousePointer = 0
GIF = "查询内容.frx":534B6
ExtendWidth = 847
ExtendHeight = 847
Loop = 0
AutoRewind = 0 'False
Synchronized = -1 'True
End
Begin VB.Label lblHz
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
Index = 1
Left = 2700
TabIndex = 93
Top = 1590
Width = 6915
End
Begin VB.Label Label6
BorderStyle = 1 'Fixed Single
Caption = " 沈阳东星电子公司承制 联系电话-024 86219857 祝广大患者早日康复"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 345
Left = 60
TabIndex = 90
Top = 8145
Width = 11760
End
Begin VB.Label Label5
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "上下箭头-选择患者 F1-预交金查询 F2-费用明细 F3-费用汇总 F5-药品明细 "
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 90
TabIndex = 89
Top = 15
Width = 11670
End
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 1 'ODBCCursor
DefaultType = 1 'UseODBC
Exclusive = 0 'False
Height = 285
Left = 45
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 105
Visible = 0 'False
Width = 1860
End
Begin VB.PictureBox Picture3
BackColor = &H00C0E0FF&
Height = 750
Left = 870
ScaleHeight = 690
ScaleWidth = 9060
TabIndex = 61
Top = 7215
Width = 9120
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "9=向上翻页 4=向左翻页"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 405
Index = 0
Left = 150
TabIndex = 62
Top = 30
Width = 3570
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "F3=费用汇总 F5=药品明细"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 405
Index = 3
Left = 3765
TabIndex = 65
Top = 360
Width = 5820
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "F1=押金明细查询 F2=费用明细查询"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 405
Index = 2
Left = 3765
TabIndex = 64
Top = 45
Width = 5820
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "3=向下翻页 6=向右翻页"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 405
Index = 1
Left = 150
TabIndex = 63
Top = 390
Width = 3525
End
End
Begin VB.PictureBox picName
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 330
ScaleHeight = 465
ScaleWidth = 11220
TabIndex = 87
Top = 270
Width = 11220
Begin VB.Label lblName
Alignment = 2 'Center
BackColor = &H80000004&
BackStyle = 0 'Transparent
Caption = "GSDA"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 435
Left = -330
TabIndex = 88
Top = 15
Width = 11760
End
End
Begin VB.Frame hzfymx
BorderStyle = 0 'None
Height = 7080
Left = -495
TabIndex = 59
Top = 3675
Width = 11955
Begin MSDBGrid.DBGrid hzfymx1
Bindings = "查询内容.frx":56E4E
Height = 5955
Left = 30
OleObjectBlob = "查询内容.frx":56E5E
TabIndex = 60
Top = 1050
Width = 11865
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 1995
Top = 2355
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "C:\Mz207new.mdb"
DefaultCursorType= 1 'ODBCCursor
DefaultType = 1 'UseODBC
Exclusive = 0 'False
Height = 480
Left = 1500
Options = 0
ReadOnly = 0 'False
RecordsetType = 2 'Snapshot
RecordSource = ""
Top = 990
Visible = 0 'False
Width = 2490
End
Begin VB.PictureBox picCF
Height = 6975
Left = 1740
ScaleHeight = 6915
ScaleWidth = 11325
TabIndex = 9
Top = 2535
Width = 11385
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 1 'UseODBC
Exclusive = 0 'False
Height = 345
Left = -285
Options = 0
ReadOnly = 0 'False
RecordsetType = 2 'Snapshot
RecordSource = ""
Top = 4980
Visible = 0 'False
Width = 2385
End
Begin VB.Label Label4
Caption = "Label4"
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404080&
Height = 360
Index = 9
Left = 5685
TabIndex = 86
Top = 4620
Visible = 0 'False
Width = 1065
End
Begin VB.Label Label4
Caption = "Label4"
BeginProperty Font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -