?? login.frm
字號:
VERSION 5.00
Begin VB.MDIForm 兒保管理
BackColor = &H8000000C&
Caption = "鐵東區婦幼保健院信息管理系統"
ClientHeight = 8310
ClientLeft = 165
ClientTop = 735
ClientWidth = 9495
LinkTopic = "MDIForm1"
Picture = "login.frx":0000
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.Menu v_infodj
Caption = "信息登記"
Index = 1
Begin VB.Menu v_infodj01
Caption = "兒保信息錄入"
Shortcut = ^{F1}
End
Begin VB.Menu v_infodj03
Caption = "兒保信息管理"
Shortcut = ^{F3}
Visible = 0 'False
End
End
Begin VB.Menu v_bjgl
Caption = "保健管理"
Index = 2
Begin VB.Menu v_bjgl01
Caption = "檢查信息管理"
Shortcut = ^{F4}
End
Begin VB.Menu v_bjgl02
Caption = "檢查信息錄入Ⅱ"
Enabled = 0 'False
Shortcut = ^{F5}
Visible = 0 'False
End
Begin VB.Menu v_bjgl03
Caption = "檢查信息管理"
Enabled = 0 'False
Shortcut = ^{F6}
Visible = 0 'False
End
End
Begin VB.Menu erhuajia
Caption = "兒保劃價"
Visible = 0 'False
Begin VB.Menu erhuajia1
Caption = "兒保劃價"
Shortcut = ^{F7}
End
End
Begin VB.Menu v_serchtj
Caption = "查詢統計"
Index = 3
Begin VB.Menu v_serchtj01
Caption = "按大夫查詢"
Shortcut = +{F1}
End
Begin VB.Menu v_serchtj02
Caption = "按辦事處查詢"
Shortcut = +{F2}
End
Begin VB.Menu v_serchtj03
Caption = "兒保建卡量統計"
Shortcut = +{F3}
End
Begin VB.Menu v_serchtj04
Caption = "按4:2:1查詢"
Shortcut = +{F4}
End
Begin VB.Menu v_serchtj05
Caption = "兒保體檢量查詢"
Shortcut = +{F5}
Visible = 0 'False
End
Begin VB.Menu v_serchtj06
Caption = "兒保保嘗統計"
Shortcut = +{F6}
End
Begin VB.Menu v_serchtj07
Caption = "佝僂病統計"
Shortcut = +{F7}
End
Begin VB.Menu v_serchtj08
Caption = "貧血病統計"
Visible = 0 'False
End
Begin VB.Menu v_serchtj09
Caption = "齒病查詢統計"
Shortcut = +{F8}
End
Begin VB.Menu v_serchtj10
Caption = "母乳查詢統計"
Shortcut = +{F9}
End
Begin VB.Menu v_serchtj11
Caption = "營養不良統計"
Visible = 0 'False
End
Begin VB.Menu v_serchtj12
Caption = "兒保體檢查看"
Visible = 0 'False
End
Begin VB.Menu v_serchtj13
Caption = "高危兒統計"
Shortcut = +{F11}
End
Begin VB.Menu rrrr
Caption = "用藥查詢(匯總)"
Shortcut = ^{F12}
End
Begin VB.Menu v_serchtj16
Caption = "用藥查詢(明細)"
Shortcut = +^{F12}
End
Begin VB.Menu v_serchtj17
Caption = "交款查詢"
Shortcut = +^{F3}
End
Begin VB.Menu v_tingli
Caption = "聽力查詢"
End
Begin VB.Menu ver
Caption = "母親、兒童、出生日期"
End
Begin VB.Menu ver1
Caption = "上報統計"
End
End
Begin VB.Menu v_system
Caption = "系統維護"
Index = 4
Begin VB.Menu v_system01
Caption = "密碼修改"
Shortcut = {F1}
End
Begin VB.Menu v_system03
Caption = "退出系統"
Shortcut = ^W
End
End
End
Attribute VB_Name = "兒保管理"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub chexing_Click()
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub fuzeren_Click()
frm_fzr.Show 1
End Sub
Private Sub huowu_Click()
frm_hwgl.Show 1
End Sub
Private Sub IP_Click()
kf_frm_server.Show 1
End Sub
Private Sub Command1_Click()
erbao_add.Show
End Sub
Private Sub Command4_Click()
erbao_editmima.Show
End Sub
Private Sub Command5_Click()
b1 = MsgBox("您確實要退子系統嗎?", vbOKCancel, "系統提示!")
If b1 = 1 Then
Unload Me
frm_login.Show
End If
End Sub
Private Sub shju_Click()
addshuju.Show
End Sub
Private Sub shuju_Click()
addshuju.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "a"
addshuju.Show
addshuju.ZOrder 0
Case "b"
editshuju.Show
editshuju.ZOrder 0
Case "c"
serch1.Show
serch1.ZOrder 0
Case "f"
banci.Show
banci.ZOrder 0
Case "d"
b = MsgBox("您確實要退出系統嗎?", vbOKCancel, "系統提示!")
If b = 1 Then
End
Else
End If
End Select
End Sub
Private Sub xiugai_Click()
editshuju.Show
End Sub
Private Sub zhibanren_Click()
frm_zbr.Show 1
End Sub
Private Sub weihu_Click()
editshuju.Show
editshuju.ZOrder 0
End Sub
Private Sub wew_Click()
serch1.Show
serch1.ZOrder 0
End Sub
Private Sub xitong_Click()
mima.Show
End Sub
Private Sub erhuajia1_Click()
sk_hj03.Show
End Sub
Private Sub rrrr_Click()
erbao_serch_yy.Show
End Sub
Private Sub v_bjgl01_Click()
erbao_jiancha.Show
End Sub
Private Sub v_bjgl02_Click()
erbao_jiancha2.Show
End Sub
Private Sub v_bjgl03_Click()
erbao_jcguanli.Show
End Sub
Private Sub v_infodj01_Click()
erbao_add.Show
End Sub
Private Sub v_infodj02_Click()
erbao_guanli.Show
End Sub
Private Sub v_infodj03_Click()
erbao_serch.Show
End Sub
Private Sub v_serchtj01_Click()
erbao_serch_name.Show
End Sub
Private Sub v_serchtj02_Click()
erbao_serch_bs.Show
End Sub
Private Sub v_serchtj03_Click()
erbao_serch_jk.Show
End Sub
Private Sub v_serchtj04_Click()
erbao_421.Show
End Sub
Private Sub v_serchtj06_Click()
erbao_serch_bc.Show
End Sub
Private Sub v_serchtj07_Click()
erbao_serch_gl.Show
End Sub
Private Sub v_serchtj08_Click()
erbao_serch_px.Show
End Sub
Private Sub v_serchtj09_Click()
erbao_serch_yc.Show
End Sub
Private Sub v_serchtj10_Click()
erbao_serch_ml.Show
End Sub
Private Sub v_serchtj13_Click()
erbao_serch_gw.Show
End Sub
Private Sub v_serchtj16_Click()
erbao_serch_yy1.Show
End Sub
Private Sub v_serchtj17_Click()
erbao_weijiao.Show
End Sub
Private Sub v_system01_Click()
erbao_editmima.Show
End Sub
Private Sub v_system02_Click()
End Sub
Private Sub v_system03_Click()
b1 = MsgBox("您確實要退子系統嗎?", vbOKCancel, "系統提示!")
If b1 = 1 Then
Unload Me
frm_login.Show
End If
End Sub
Private Sub v_tingli_Click()
v_tl.Show
End Sub
Private Sub ver_Click()
muqin.Show
End Sub
Private Sub ver1_Click()
linshi.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -