📄 main.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{91820D15-A778-4ABC-9731-A5204D3E0971}#1.0#0"; "VsMenu64.ocx"
Begin VB.Form Main
Caption = "医疗点数据管理系统"
ClientHeight = 8760
ClientLeft = 165
ClientTop = 645
ClientWidth = 12330
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MouseIcon = "main.frx":7B42
ScaleHeight = 8760
ScaleWidth = 12330
StartUpPosition = 2 '屏幕中心
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 3
Top = 8385
Width = 12330
_ExtentX = 21749
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 16087
TextSave = ""
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
TextSave = "2007-07-19"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
TextSave = "9:01"
Key = ""
Object.Tag = ""
EndProperty
EndProperty
End
Begin VBVsNetMenu.VsToolBar VsToolBar1
Height = 375
Left = 0
Top = 0
Width = 12375
_ExtentX = 21828
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ButtonCount = 17
ButtonStyle1 = 3
ButtonKey2 = "Menu_ManageAdd1"
ButtonPicture2 = "main.frx":7C94
ButtonToolTipText2= "增加用户"
ButtonKey3 = "Menu_Managechange1"
ButtonPicture3 = "main.frx":7FE6
ButtonToolTipText3= "修改密码"
ButtonKey4 = "Sep1"
ButtonStyle4 = 2
ButtonKey5 = "Menu_Editinto1"
ButtonPicture5 = "main.frx":8338
ButtonToolTipText5= "名单录入"
ButtonKey6 = "Menu_Editmedicchange1"
ButtonPicture6 = "main.frx":868A
ButtonToolTipText6= "名单修改"
ButtonKey7 = "Menu_EditDelete1"
ButtonPicture7 = "main.frx":89DC
ButtonToolTipText7= "名单删除"
ButtonStyle8 = 2
ButtonChecked9 = -1 'True
ButtonCaption9 = "名单查询"
ButtonKey9 = "Menu_Findname1"
ButtonPicture9 = "main.frx":8D2E
ButtonStyle9 = 1
ButtonToolTipText9= "名单查询"
ButtonStyle10 = 2
ButtonKey11 = "accessbf1"
ButtonPicture11 = "main.frx":9080
ButtonToolTipText11= "数据库备份"
ButtonKey12 = "accesshf1"
ButtonPicture12 = "main.frx":93D2
ButtonToolTipText12= "数据库恢复"
ButtonStyle13 = 2
ButtonKey14 = "MenuHelp_Help1"
ButtonPicture14 = "main.frx":9724
ButtonToolTipText14= "帮助信息"
ButtonKey15 = "MenuHelp_about1 "
ButtonPicture15 = "main.frx":9A76
ButtonToolTipText15= "关于医疗点数据管理系统"
ButtonStyle16 = 2
ButtonKey17 = "Exit11"
ButtonPicture17 = "main.frx":9DC8
ButtonToolTipText17= "退出系统"
End
Begin VBVsNetMenu.VsNetMenu VsNetMenu1
Left = 600
Top = 7800
_ExtentX = 926
_ExtentY = 926
SideBarBkStar = 16777215
SideBarBkEnd = 15383449
MenuBack = 13752539
DisabledMenuBack= 15264749
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BmpCount = 6
Bmp:1 = "main.frx":A11A
Key:1 = "#Menu_ManageAdd"
Bmp:2 = "main.frx":A542
Key:2 = "#Menu_Managechange"
Bmp:3 = "main.frx":A96A
Key:3 = "#Exit1"
Bmp:4 = "main.frx":AD92
Key:4 = "#Menu_Editinto"
Bmp:5 = "main.frx":B1BA
Key:5 = "#Menu_Editmedicchange"
Bmp:6 = "main.frx":B5E2
Key:6 = "#Menu_EditDelete"
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 7800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Labdog
BackStyle = 0 'Transparent
Height = 1215
Left = 5040
MouseIcon = "main.frx":BA0A
MousePointer = 99 'Custom
TabIndex = 2
ToolTipText = "~~ hi！ 我是管理系统小助手！"
Top = 7080
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "医疗点数据管理系统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 720
Left = 3240
TabIndex = 1
Top = 2400
Width = 6480
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "欢迎使用"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 4680
TabIndex = 0
Top = 1080
Width = 3495
End
Begin VB.Image Image1
Height = 9570
Left = 0
Picture = "main.frx":BD14
Top = 0
Width = 12750
End
Begin VB.Menu Menu_Manage
Caption = "系统管理(&M)"
Begin VB.Menu Menu_ManageAdd
Caption = "增加用户(&A)"
Shortcut = ^A
End
Begin VB.Menu Menu_Managechange
Caption = "修改密码(&C)"
Shortcut = ^C
End
Begin VB.Menu line
Caption = "-"
End
Begin VB.Menu Exit1
Caption = "退出(&X)"
Shortcut = ^Q
End
End
Begin VB.Menu Menu_Edit
Caption = "名单管理(&E)"
Begin VB.Menu Menu_Editinto
Caption = "名单录入(&I)"
Shortcut = ^I
End
Begin VB.Menu Menu_Editmedicchange
Caption = "名单修改(&C)"
End
Begin VB.Menu line1
Caption = "-"
End
Begin VB.Menu Menu_EditDelete
Caption = "名单删除(&D)"
Shortcut = ^D
End
End
Begin VB.Menu Menu_Find
Caption = "名单查询(&U)"
Begin VB.Menu Menu_Findname
Caption = "按姓名(&N)"
End
Begin VB.Menu Menu_Findtype
Caption = "按初诊时间(&T)"
End
Begin VB.Menu Menu_add
Caption = "按地址"
End
Begin VB.Menu Menu_tel
Caption = "按电话"
End
End
Begin VB.Menu assessmg
Caption = "数据库管理(&G)"
Begin VB.Menu accessbf
Caption = "数据库备份(&B)"
End
Begin VB.Menu accesshf
Caption = "数据库恢复(&U)"
End
End
Begin VB.Menu mnuStyle
Caption = "界面设置(&W)"
Begin VB.Menu mnuXP_Blue
Caption = "蓝色XP"
Checked = -1 'True
End
Begin VB.Menu mnuXP_OliveGreen
Caption = "橄榄绿"
End
Begin VB.Menu mnuXP_Silver
Caption = "银白色"
End
Begin VB.Menu mnuOfficeXp
Caption = "OfficeXP"
End
Begin VB.Menu mnuSep1
Caption = "-"
End
Begin VB.Menu mnuHorizontal
Caption = "水平渐变"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -