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