📄 main.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form3
BackColor = &H00C0C0C0&
Caption = "东星医用网络系列-领导决策查询系统"
ClientHeight = 2490
ClientLeft = 945
ClientTop = 1980
ClientWidth = 10890
Icon = "MAIN.frx":0000
LinkTopic = "Form3"
MaxButton = 0 'False
Moveable = 0 'False
ScaleHeight = 2490
ScaleWidth = 10890
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 0
Top = 0
Width = 10890
_ExtentX = 19209
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList2"
_Version = 327682
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
AutoRedraw = -1 'True
BackColor = &H00FFC0C0&
Height = 7260
Left = 0
ScaleHeight = 7200
ScaleWidth = 10830
TabIndex = 1
Top = 660
Width = 10890
Begin ComctlLib.ImageList ImageList2
Left = 4680
Top = -420
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 18
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":0624
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":093E
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":0C58
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":0F72
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":128C
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":15A6
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":18C0
Key = ""
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":1BDA
Key = ""
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":1EF4
Key = ""
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":220E
Key = ""
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":2528
Key = ""
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":2842
Key = ""
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":2B5C
Key = ""
EndProperty
BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":2E76
Key = ""
EndProperty
BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":3190
Key = ""
EndProperty
BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":34AA
Key = ""
EndProperty
BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MAIN.frx":37C4
Key = ""
EndProperty
EndProperty
End
Begin VB.Image Image2
Height = 13605
Left = -495
Picture = "MAIN.frx":3ADE
Top = -570
Width = 13605
End
End
Begin ComctlLib.StatusBar sbar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 2
Top = 2115
Width = 10890
_ExtentX = 19209
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 13406
MinWidth = 13406
Text = "沈阳东星电子公司承制 联系电话：024-86219857"
TextSave = "沈阳东星电子公司承制 联系电话：024-86219857"
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
TextSave = "2000-09-18"
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Alignment = 1
TextSave = "19:41"
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu 患者查询
Caption = "患者查询（&H）"
Begin VB.Menu 在院患者查询
Caption = "在院患者查询"
End
Begin VB.Menu 出院患者查询
Caption = "出院患者查询"
End
Begin VB.Menu 全院患者查询
Caption = "全院患者查询"
End
End
Begin VB.Menu 门诊查询
Caption = "门诊查询（&M）"
Begin VB.Menu 门诊收入日报表
Caption = "门诊收入日查询"
End
Begin VB.Menu 门诊收入月报表
Caption = "门诊收入月查询"
End
Begin VB.Menu 门诊收入年报表
Caption = "门诊收入年查询"
End
Begin VB.Menu HH
Caption = "-"
End
Begin VB.Menu 门诊收入日对比查询
Caption = "门诊收入日对比查询"
End
Begin VB.Menu 门诊月收入对比查询
Caption = "门诊月收入对比查询"
End
Begin VB.Menu HJ
Caption = "-"
End
Begin VB.Menu 门诊项目收入对比查询
Caption = "门诊项目收入对比查询"
End
End
Begin VB.Menu 住院查询
Caption = "住院查询（&Z）"
Begin VB.Menu 住院收入日查询
Caption = "住院收入日查询"
End
Begin VB.Menu 住院收入月查询
Caption = "住院收入月查询"
End
Begin VB.Menu 住院收入年查询
Caption = "住院收入年查询"
End
Begin VB.Menu 阿
Caption = "-"
End
Begin VB.Menu 住院月收入对比查询
Caption = "住院月收入对比查询"
End
Begin VB.Menu Q3
Caption = "-"
End
Begin VB.Menu 住院收入项目对比查询
Caption = "住院收入项目对比查询"
End
Begin VB.Menu 科室收入明细查询入
Caption = "科室收入明细查询入"
End
Begin VB.Menu Q2
Caption = "-"
End
Begin VB.Menu 全院月收入对比查询
Caption = "全院月收入对比查询"
End
Begin VB.Menu Q1
Caption = "-"
End
Begin VB.Menu M23
Caption = "操作员密码更改"
End
End
Begin VB.Menu TJBA
Caption = "病案查询（&B）"
Begin VB.Menu BAXXTJCX
Caption = "病案信息条件查询"
End
Begin VB.Menu FF34
Caption = "-"
End
Begin VB.Menu SSBFZCX
Caption = "手术并发症查询"
End
Begin VB.Menu FSSBFZ
Caption = "非手术并发症查询"
End
Begin VB.Menu YNGRCX
Caption = "院内感染患者查询"
End
Begin VB.Menu SWHZTJCX
Caption = "死亡患者统计查询"
End
Begin VB.Menu ZWQJHZCX
Caption = "重危抢救患者查询"
End
Begin VB.Menu BJBLCX
Caption = "丙级病历统计查询"
End
Begin VB.Menu qw12
Caption = "-"
End
Begin VB.Menu JBZDSY
Caption = "病历索引:疾病诊断索引"
End
Begin VB.Menu SSZDSY
Caption = "病历索引:手术诊断索引"
End
Begin VB.Menu BLSYS
Caption = "病历索引:病理诊断索引"
End
End
Begin VB.Menu BFRB
Caption = "病房工作日报表"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu BFNYB
Caption = "病房工作周,月,季,年报表"
End
Begin VB.Menu BCLY
Caption = "病床利用情况统计表"
End
End
Begin VB.Menu 药局
Caption = "药局查询（&Y）"
Begin VB.Menu 门诊药局
Caption = "门诊药局（&A）"
Begin VB.Menu yj1_xstj
Caption = "药品销售统计表"
End
Begin VB.Menu mxyj1pdb
Caption = "药品盘点统计表"
End
End
Begin VB.Menu 门诊草药局
Caption = "门诊草药局（&B）"
Begin VB.Menu yj2_xstj
Caption = "药品销售统计表"
End
Begin VB.Menu mxyj2pdb
Caption = "药品盘点统计表"
End
End
Begin VB.Menu 住院药局
Caption = "住院药局（&C）"
Begin VB.Menu mxyj3pdb
Caption = "药品盘点统计表"
End
End
End
Begin VB.Menu 药库
Caption = "药库查询（&K）"
Begin VB.Menu ghslsz
Caption = "供货商流水账"
End
Begin VB.Menu Q4
Caption = "-"
End
Begin VB.Menu yk_rkhzb
Caption = "入库汇总表"
End
Begin VB.Menu yk_ckhzb
Caption = "出库汇总表"
End
Begin VB.Menu Q5
Caption = "-"
End
Begin VB.Menu hchsb
Caption = "库存核算表"
End
Begin VB.Menu yk_rkhs
Caption = "入库核算表"
End
Begin VB.Menu yk_ckhsb
Caption = "出库核算表"
End
Begin VB.Menu Q6
Caption = "-"
End
Begin VB.Menu yk_pdb
Caption = "药品盘点统计表"
End
End
Begin VB.Menu cggl
Caption = "物质管理（&C）"
Begin VB.Menu rklsz
Caption = "入库流水帐"
End
Begin VB.Menu cklsz
Caption = "出库流水帐"
End
Begin VB.Menu s01
Caption = "-"
End
Begin VB.Menu kccx
Caption = "库存查询"
End
Begin VB.Menu s02
Caption = "-"
End
Begin VB.Menu ckhzb
Caption = "出库汇总表"
End
Begin VB.Menu clpdb
Caption = "材料盘点表"
End
End
Begin VB.Menu KSTJBB
Caption = "诊断查询（&D）"
Begin VB.Menu MCCX
Caption = "门诊诊断与出院诊断不符查询"
End
Begin VB.Menu RCCX
Caption = "入院诊断与出院诊断不符查询"
End
Begin VB.Menu LBCX
Caption = "临床诊断与病理诊断不符查询"
End
Begin VB.Menu SSCX
Caption = "手前诊断与术后诊断不符查询"
End
Begin VB.Menu KSFD1
Caption = "-"
End
Begin VB.Menu ZDZLRY
Caption = "科室-诊断质量统计表(入院)"
End
Begin VB.Menu KSZDCY
Caption = "科室-诊断质量统计表(出院)"
End
Begin VB.Menu ZLZLFWLB
Caption = "科室-治疗质量,治疗服务量统计表"
End
Begin VB.Menu HLZLTJB
Caption = "科室-抢救,院内感染,护理质量统计表"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu KSSQKTJB
Caption = "科室-手术情况统计表"
End
Begin VB.Menu HG7
Caption = "-"
End
Begin VB.Menu YYZD1
Caption = "医院诊断质量综合指标统计表"
End
Begin VB.Menu GZTJ1
Caption = "医院工作效率综合指标统计表"
End
Begin VB.Menu GLTJ2
Caption = "医院医疗与管理质量综合统计表"
End
Begin VB.Menu MZZHQK2
Caption = "门诊部工作情况统计表"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu ZHTJ
Caption = "医院综合护理指标统计表"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu GLZLTJB
Caption = "医院管理质量统计表"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu JJH
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu JDT
Caption = "季度医院工作报表(国卫统)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu NDZBTJB
Caption = "年度医院各项指标完成情况表(四卫统)"
Enabled = 0 'False
Visible = 0 'False
End
End
Begin VB.Menu SJDF
Caption = "疾病分类索引（&J）"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu ZLZLTJ
Caption = "疾病统计:治疗质量统计"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu ZDTJ
Caption = "疾病统计:诊断质量统计"
End
Begin VB.Menu SSQK
Caption = "疾病统计:手术情况统计"
End
Begin VB.Menu HLTJ
Caption = "疾病统计:抢救,院内感染,护理工作量统计"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu HJSDJF
Caption = "-"
End
Begin VB.Menu WSBNBB
Caption = "卫生部门医院住院病人疾病分类年报表"
End
Begin VB.Menu KD
Caption = "-"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -