📄 frmmain
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain
AutoShowChildren= 0 'False
BackColor = &H8000000C&
ClientHeight = 3195
ClientLeft = 1470
ClientTop = 2160
ClientWidth = 7050
Icon = "frmMain.frx":0000
Picture = "frmMain.frx":0442
WindowState = 2 'Maximized
Begin VB.PictureBox PicMain
Align = 2 'Align Bottom
BackColor = &H8000000B&
Height = 360
Left = 0
ScaleHeight = 300
ScaleWidth = 6990
TabIndex = 0
Top = 2835
Width = 7050
Begin VB.Frame Frame2
Caption = "Frame1"
Height = 465
Left = 6870
TabIndex = 2
Top = -120
Width = 30
End
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 465
Left = 4980
TabIndex = 1
Top = -120
Width = 30
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "提示:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 90
TabIndex = 7
Top = 30
Width = 585
End
Begin VB.Label LblNote
AutoSize = -1 'True
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "LblNote"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 210
Left = 690
TabIndex = 6
Top = 30
Width = 855
End
Begin VB.Label lblDate
AutoSize = -1 'True
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "LblDate"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 7035
TabIndex = 5
Top = 15
Width = 855
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "操作员:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 5070
TabIndex = 4
Top = 30
Width = 810
End
Begin VB.Label lblOperID
AutoSize = -1 'True
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "LblOperID"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 5925
TabIndex = 3
Top = 30
Width = 945
End
End
Begin VB.Timer Timer1
Interval = 100
Left = 3810
Top = 1080
End
Begin MSComctlLib.ImageList ImageList1
Left = 2760
Top = 1050
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":23B924
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":23BD78
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":23C09C
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":23C3C0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":23C6E4
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":23CA08
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":23CD2C
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 8
Top = 0
Width = 7050
_ExtentX = 12435
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "摆药"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "记账"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "划价"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "入库"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
ImageIndex = 5
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取药"
ImageIndex = 6
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
ImageIndex = 7
EndProperty
EndProperty
End
Begin VB.Menu mnuA
Caption = "门诊病人业务"
Begin VB.Menu mnuA_Figure
Caption = "划价"
End
Begin VB.Menu mnuA_Fetch
Caption = "取药"
End
Begin VB.Menu mnuA_Back
Caption = "退药"
End
End
Begin VB.Menu mnuB
Caption = "住院病人业务"
Begin VB.Menu mnuB_GetDrugByDepart
Caption = "病区摆药"
End
Begin VB.Menu mnuB_OpMark
Caption = "手术室摆药"
End
Begin VB.Menu mnuB_OutDrugMark
Caption = "药品记帐"
End
Begin VB.Menu mnuB_OutDrugGet
Caption = "住院病人取药"
End
Begin VB.Menu mnuB_BackDrug
Caption = "住院病人退药"
End
Begin VB.Menu mnuSepB
Caption = "-"
End
Begin VB.Menu mnuB_FairQuery
Caption = "病人费用查询"
Begin VB.Menu mnuB_PrePayBySick
Caption = "预交金"
End
Begin VB.Menu mnuB_CatiFairBySick
Caption = "病人分类费用"
End
Begin VB.Menu mnuB_DetailFairBySick
Caption = "病人明细费用"
End
Begin VB.Menu mnuB_SerialFairBySick
Caption = "病人流水费用"
End
End
Begin VB.Menu mnuSepB1
Caption = "-"
End
Begin VB.Menu mnuB_SickInfo
Caption = "病人信息查询"
End
Begin VB.Menu mnuB_GetDrugQuery
Caption = "摆药、取药、退药查询"
End
End
Begin VB.Menu mnuC
Caption = "药房业务"
Begin VB.Menu mnuC_AskForStore
Caption = "请领入库"
End
Begin VB.Menu mnuSepC1
Caption = "-"
End
Begin VB.Menu mnuC_GetDrugDepart
Caption = "科室领药"
End
Begin VB.Menu mnuC_BackByDepart
Caption = "科室退药"
End
Begin VB.Menu mnuSepC2
Caption = "-"
End
Begin VB.Menu mnuC_TranIn
Caption = "调拨入库"
End
Begin VB.Menu mnuC_TranOut
Caption = "调拨出库"
End
Begin VB.Menu mnuSepC3
Caption = "-"
End
Begin VB.Menu mnuC_Check
Caption = "盘点"
End
Begin VB.Menu mnuC_Drump
Caption = "报损"
End
End
Begin VB.Menu mnuD
Caption = "药房管理"
Begin VB.Menu mnuD_Limit
Caption = "药品限值维护"
End
Begin VB.Menu linek
Caption = "-"
End
Begin VB.Menu FirstAcc
Caption = "初始库存"
End
Begin VB.Menu mnuD_MonthFoot
Caption = "月结帐"
End
End
Begin VB.Menu mnuE
Caption = "查询"
Begin VB.Menu mnuE_Standand
Caption = "标准查询"
End
Begin VB.Menu mnuSepE1
Caption = "-"
End
Begin VB.Menu mnuE_Transact
Caption = "药品流向查询"
End
Begin VB.Menu mnuE_Drug
Caption = "当前库存"
End
Begin VB.Menu mnuE_DrugAmountAlert
Caption = "药品数量报警"
End
End
Begin VB.Menu mnuM
Caption = "系统管理"
Begin VB.Menu mnuM_Relogin
Caption = "重新登录"
End
Begin VB.Menu mnuM_WSFig
Caption = "工作站配置"
End
Begin VB.Menu mnuM_ChangeWS
Caption = "更新工作站"
End
Begin VB.Menu mnuM_ChangePasswd
Caption = "更改操作员密码"
End
Begin VB.Menu mnuM_SmRefresh
Caption = "更新本系统子模块"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -