📄 frmmain.frm
字号:
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.ComboBox Combo1
Height = 300
Left = 960
TabIndex = 14
Text = "http://10.30.85.42"
Top = 960
Width = 6015
End
Begin MSComctlLib.StatusBar StatusBar1
Height = 375
Left = 0
TabIndex = 13
Top = 7800
Width = 6015
_ExtentX = 10610
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.CommandButton Command8
Caption = "开始"
Height = 375
Left = 3840
TabIndex = 12
Top = 360
Width = 975
End
Begin VB.CommandButton Command7
Caption = "打开文件"
Height = 375
Left = 2160
TabIndex = 11
Top = 360
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton Command6
Caption = "刷新"
Height = 375
Left = 360
TabIndex = 10
Top = 360
Width = 1215
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 495
Left = 3000
TabIndex = 28
Top = 7680
Visible = 0 'False
Width = 3495
_ExtentX = 6165
_ExtentY = 873
_Version = 393216
Appearance = 1
End
Begin VB.Label Label3
Caption = "网址："
Height = 255
Left = 360
TabIndex = 9
Top = 960
Width = 615
End
End
Begin VB.Timer Timer1
Interval = 500
Left = 5280
Top = 0
End
Begin MSWinsockLib.Winsock Winsock1
Left = 4680
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.PictureBox Picture1
Height = 11895
Left = -120
Picture = "frmMain.frx":0000
ScaleHeight = 11835
ScaleWidth = 15315
TabIndex = 29
Top = 0
Width = 15375
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "C:\Documents and Settings\a\桌面\menglin\社区医疗\1\shujuku\病例信息.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 495
Left = 480
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "病例信息"
Top = 120
Width = 1860
End
Begin VB.Timer Timer2
Left = 5880
Top = 0
End
Begin VB.Timer ctrfrmTimer
Interval = 1000
Left = 6600
Top = 0
End
Begin VB.Line Line1
X1 = 7320
X2 = 7320
Y1 = 1080
Y2 = 6720
End
End
Begin VB.Label Label9
Alignment = 2 'Center
Caption = "---医生操作区---"
Height = 255
Left = 240
TabIndex = 18
Top = 720
Width = 4935
End
Begin VB.Label Label8
Alignment = 2 'Center
Caption = "---图像显示区---"
Height = 255
Left = 5640
TabIndex = 17
Top = 720
Width = 7335
End
Begin VB.Menu sys_menu
Caption = "系统(&S)"
Begin VB.Menu login_menu
Caption = "登录(&L)"
End
Begin VB.Menu out_menu
Caption = "退出(&O)"
End
End
Begin VB.Menu sick_manage_menu
Caption = "病人监护"
Begin VB.Menu watch_sick_menu
Caption = "监控病人"
End
Begin VB.Menu blood_menu
Caption = "测量血压"
End
Begin VB.Menu temperature_menu
Caption = "测量体温"
End
End
Begin VB.Menu sick_file_menu
Caption = "病人裆案"
Begin VB.Menu estabish_file_menu
Caption = "察看病人档案"
End
Begin VB.Menu see_file_menu
Caption = "建立病人档案"
End
End
Begin VB.Menu config_menu
Caption = "设置(&C)"
Begin VB.Menu mnuSetPassWord
Caption = "设置密码(&K)"
End
End
Begin VB.Menu tool_menu
Caption = "工具(&T)"
Begin VB.Menu clock_menu
Caption = "时钟(&C)"
End
Begin VB.Menu calendar_menu
Caption = "日历(&R)"
End
Begin VB.Menu a
Caption = "-"
End
Begin VB.Menu ziliao_menu
Caption = "使用说明(&Z)"
End
Begin VB.Menu futu_menu
Caption = "附图(&F)"
End
End
Begin VB.Menu menuhelp
Caption = "帮助(&H)"
Begin VB.Menu about_menu
Caption = "关于(&A)..."
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'----------------------------------
' 初始化
'----------------------------------
Private Sub Form_Load()
'frmMain.Data1.DatabaseName = App.Path & "\shujuku\病例信息.mdb"
frmMain.Data2.DatabaseName = App.Path & "\shujuku\病例信息.mdb" '''''''''''''''''''''''''''''''''''''''''
'frmMain.Data1.Connect = ";pwd=ch" '数据库密码
frmMain.Data2.Connect = ";pwd=ch" '数据库密码 ''''''''''''''''''''''''''''''''''''''''''
Combo1.Text = "www.hao123.com"
' Combo1.Top = 0
' Combo1.Left = 0
'WebBrowser1.Top = Combo1.Top + Combo1.Height
'WebBrowser1.Left = 0
'Form_Resize
StatusBar1.Style = sbrSimple
ProgressBar1.ZOrder
Frame2.Visible = False
Frame3.Visible = False
Label9.Visible = False
Label8.Visible = False
Line1.Visible = False
frmMain.BackColor = &H8000000C
Data2.Visible = False
Call unvisiball
End Sub
'屏蔽，隐藏所有控件
Private Sub unvisiball()
watch_sick_menu.Enabled = False
blood_menu.Enabled = False
temperature_menu.Enabled = False
estabish_file_menu = False
see_file_menu = False
mnuSetPassWord = False
menuckset = False
clock_menu = False
calendar_menu = False
'hengxian
ziliao_menu = False
futu_menu = False
about_menu = False
'frmMain.BackColor = &H8000000C
End Sub
'-----------------------------------
'打开，显示所有控件
Private Sub visiball()
watch_sick_menu.Enabled = True
blood_menu.Enabled = True
temperature_menu.Enabled = True
estabish_file_menu = True
see_file_menu = True
mnuSetPassWord = True
menuckset = True
clock_menu = True
calendar_menu = True
'hengxian
ziliao_menu = True
futu_menu = True
about_menu = True
'frmMain.BackColor = &H8000000F
End Sub
'----------------------------------
' 系统菜单
'----------------------------------
Private Sub sys_menu_Click()
If bPassWordok = True Then
login_menu.Enabled = False
End If
End Sub
Private Sub login_menu_Click()
frmPassWord.Show
End Sub
Private Sub out_menu_Click()
End
End Sub
Private Sub txtIP_Change()
End Sub
Private Sub watch_sick_menu_Click()
Frame2.Visible = True
End Sub
Private Sub blood_menu_Click()
Frame3.Visible = True
NameText1.SetFocus
End Sub
'----------------------------------
' 控制界面显示，需要权限
'----------------------------------
Private Sub ctrfrmTimer_Timer()
If bPassWordok = True Then
Call visiball
ctrfrmTimer.Enabled = False
End If
End Sub
'----------------------------------
' 设置菜单
'----------------------------------
Private Sub mnuSetPassWord_Click()
frmPassWordSet.Show vbModal
End Sub
'----------------------------------
' 工具菜单
'----------------------------------
Private Sub clock_menu_Click()
frmClock.Show
End Sub
'----------------------------------
' 病理管理
'----------------------------------
Private Sub estabish_file_menu_Click()
frmfind.Show
End Sub
Private Sub calendar_menu_Click()
frmcalendar.Show
End Sub
Private Sub ziliao_menu_Click()
frmziliao.Show
End Sub
Private Sub futu_menu_Click()
frmImage.Show
End Sub
'----------------------------------
' 帮助菜单
'----------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -