📄 mainform.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "crystl32.ocx"
Begin VB.MDIForm mainform
BackColor = &H8000000C&
Caption = "医务收费系统"
ClientHeight = 8085
ClientLeft = 165
ClientTop = 450
ClientWidth = 9210
Icon = "mainform.frx":0000
LinkTopic = "MDIForm1"
Picture = "mainform.frx":0442
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin Crystal.CrystalReport CrystalReport1
Left = 570
Top = 4440
_ExtentX = 741
_ExtentY = 741
_Version = 262150
End
Begin MSComctlLib.ImageList ImageList1
Left = 2130
Top = 2880
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mainform.frx":1A3F1
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mainform.frx":1A843
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mainform.frx":1AC95
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mainform.frx":1B0E7
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mainform.frx":1B539
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mainform.frx":1B98B
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 435
Left = 0
TabIndex = 1
Top = 7650
Width = 9210
_ExtentX = 16245
_ExtentY = 767
SimpleText = "."
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 6174
MinWidth = 6174
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4410
MinWidth = 4410
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2005-6-15"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
TextSave = "NUM"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Enabled = 0 'False
TextSave = "CAPS"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 0
Top = 0
Width = 9210
_ExtentX = 16245
_ExtentY = 1058
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
Style = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "q"
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "query"
Object.ToolTipText = "查询人员"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "input"
Object.ToolTipText = "输入"
ImageIndex = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "ee"
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "drdc"
Object.ToolTipText = "数据导入导出"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "book"
Object.ToolTipText = "查询报表"
ImageIndex = 2
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "HH"
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "exit"
Object.ToolTipText = "退出"
ImageIndex = 6
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "cc"
Style = 3
EndProperty
EndProperty
End
Begin VB.Menu file
Caption = "操作人员管理(&F)"
Begin VB.Menu qq
Caption = "-"
End
Begin VB.Menu new
Caption = "新建帐套(&N)"
Visible = 0 'False
End
Begin VB.Menu caywh
Caption = "操作员维护(&C)"
End
Begin VB.Menu xgkl
Caption = "修改口令(&K)"
End
Begin VB.Menu open
Caption = "-"
End
Begin VB.Menu close
Caption = "关闭帐套(&C)"
Visible = 0 'False
End
Begin VB.Menu l
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu changeczy
Caption = "更换操作员(&G)"
End
Begin VB.Menu kk
Caption = "-"
End
Begin VB.Menu exit
Caption = "退 出(&E)"
End
End
Begin VB.Menu ryxx
Caption = "基本人员管理(&R)"
Begin VB.Menu bjry
Caption = "编辑查询人员(&E)"
End
Begin VB.Menu m
Caption = "-"
End
Begin VB.Menu pclxx
Caption = "批处理人员信息(&P)"
End
Begin VB.Menu dataimport
Caption = "学生数据导入(&I)"
End
Begin VB.Menu a
Caption = "-"
End
Begin VB.Menu ysxxwh
Caption = "医生信息维护(&Y)"
End
Begin VB.Menu ylfytz
Caption = "医疗费用调整(&C)"
End
End
Begin VB.Menu sfgl
Caption = "收费管理(&S)"
Begin VB.Menu sjlr
Caption = "药费输入(&L)"
End
Begin VB.Menu scbb
Caption = "-"
End
Begin VB.Menu rmxb
Caption = "打印日明细表(&M)"
End
Begin VB.Menu mrbb
Caption = "打印当日报表(&D)"
End
Begin VB.Menu aa
Caption = "-"
End
Begin VB.Menu ymxb
Caption = "打印月明细表(&X)"
End
Begin VB.Menu mybb
Caption = "打印当月报表(&M)"
End
Begin VB.Menu bb
Caption = "-"
End
Begin VB.Menu nbb
Caption = "打印当年报表(&Y)"
End
Begin VB.Menu q
Caption = "-"
End
Begin VB.Menu countgraph
Caption = "统计图表(&C)"
Visible = 0 'False
End
Begin VB.Menu querycheck
Caption = "查询帐单(&Z)"
Index = 1
End
Begin VB.Menu querybook
Caption = "查询报表(&Q)"
End
End
Begin VB.Menu xtwh
Caption = "系统维护(&W)"
Begin VB.Menu sjbf
Caption = "数据备份(&B)"
End
Begin VB.Menu sjhf
Caption = "数据恢复(&H)"
End
Begin VB.Menu P
Caption = "-"
End
Begin VB.Menu dcdata
Caption = "导出每月数据(&D)"
End
Begin VB.Menu sysjsq
Caption = "系统计算器(&C)"
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
Begin VB.Menu bzzt
Caption = "帮助主题(&Z)"
End
Begin VB.Menu x
Caption = "-"
End
Begin VB.Menu bbxx
Caption = "版本信息(&X)"
End
End
End
Attribute VB_Name = "mainform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public rsisprint As ADODB.Recordset
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Sub bbxx_Click()
mainform.StatusBar1.Panels(1).Text = "状态： 版本信息"
frmAbout.Show vbModal
End Sub
Private Sub bjry_Click()
t = check_qx(czry_flag, 1)
If t = True Then
mainform.StatusBar1.Panels(1).Text = "状态： 查询编辑人员"
frmqueryperson.Show
End If
End Sub
Private Sub bzzt_Click()
mainform.StatusBar1.Panels(1).Text = "状态： 帮助主题"
frmBrowser.Show
End Sub
Private Sub caywh_Click()
'调用函数进行判断是否拥有权限使用各种功能
t = check_qx(czry_flag, 16)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -