收款处管理.frm

小型医院管理

VERSION 5.00
Begin VB.Form 收款处管理 
   Caption         =   "齐英天肛肠外科"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   795
   ClientWidth     =   8880
   LinkTopic       =   "Form1"
   ScaleHeight     =   8310
   ScaleWidth      =   8880
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Image Image1 
      Height          =   11520
      Left            =   0
      Picture         =   "收款处管理.frx":0000
      Top             =   0
      Width           =   15360
   End
   Begin VB.Menu v_huajia 
      Caption         =   "划价收款"
      Begin VB.Menu v_huajia09 
         Caption         =   "儿保划价收款"
         Visible         =   0   'False
      End
      Begin VB.Menu v_huajia03 
         Caption         =   "划价收款"
         Shortcut        =   {F6}
      End
      Begin VB.Menu v_huajia04 
         Caption         =   "重新打印"
         Shortcut        =   {F7}
      End
      Begin VB.Menu v_huajia06 
         Caption         =   "收款退款"
         Shortcut        =   {F9}
         Visible         =   0   'False
      End
   End
   Begin VB.Menu v_count 
      Caption         =   "查询统计"
      Visible         =   0   'False
      Begin VB.Menu v_huajia07 
         Caption         =   "收款统计"
         Shortcut        =   {F8}
      End
      Begin VB.Menu v_huajia08 
         Caption         =   "退款统计"
         Shortcut        =   {F11}
         Visible         =   0   'False
      End
      Begin VB.Menu v_count02 
         Caption         =   "收款室收款上报"
         Shortcut        =   ^{F2}
         Visible         =   0   'False
      End
      Begin VB.Menu v_count03 
         Caption         =   "收款合计统计"
         Shortcut        =   ^{F3}
         Visible         =   0   'False
      End
      Begin VB.Menu v_count04 
         Caption         =   "科室门诊量统计"
         Shortcut        =   ^{F4}
         Visible         =   0   'False
      End
      Begin VB.Menu v_count05 
         Caption         =   "医生明细帐统计"
         Shortcut        =   ^{F5}
         Visible         =   0   'False
      End
   End
   Begin VB.Menu system01 
      Caption         =   "系统维护"
      Begin VB.Menu system03 
         Caption         =   "密码修改"
         Shortcut        =   ^{F8}
      End
      Begin VB.Menu system04 
         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
Public z_bianma As String
Public z_name As String
Public z_sj As String
Public z_yaofei As String
Public z_fuke As String
Public z_fujian As String
Public z_chusheng As String
Public z_erjian As String
Public z_huayan As String
Public z_jiancha As String
Public z_shoushu As String
Public z_zhaoxiang As String
Public z_bc As String
Public z_xd As String
Public z_xiaoxie As String
Public z_caozuo As String
Public z_daxie As String
Public z_chuzhi As String
Public z_fangshi As String
Private Sub system02_Click()
sk_huanban.Show
End Sub

Private Sub system03_Click()
sk_eritmima.Show
End Sub

Private Sub system04_Click()
b1 = MsgBox("您确实要退子系统吗？", vbOKCancel, "系统提示！")

If b1 = 1 Then
 
Unload Me
frm_login.Show

End If
End Sub

Private Sub v_count02_Click()
sk_serch01.Show
End Sub

Private Sub v_count03_Click()
sk_serch02.Show
End Sub

Private Sub v_count04_Click()
sk_serch03.Show
End Sub

Private Sub v_count05_Click()
sk_serch04.Show
End Sub

Private Sub v_gongzuo_Click()
sk_addmz.Show
End Sub

Private Sub v_gongzuo01_Click()
sk_gzledit.Show
End Sub

Private Sub v_huajia01_Click()
sk_hj01.Show
End Sub

Private Sub v_huajia02_Click()


sk_print02.Show




End Sub

Private Sub v_huajia03_Click()
sk_hj03.Show

End Sub

Private Sub v_huajia06_Click()
sk_tk.Show
End Sub

Private Sub v_huajia07_Click()
sk_jintian.Show
End Sub

Private Sub v_huajia08_Click()
sk_tuicount.Show
End Sub

Private Sub v_huajia09_Click()
sk_erbaoshoukuan.Show
End Sub

Private Sub v_star01_Click()
sk_erbao_print.Show
End Sub

Private Sub v_star02_Click()
sk_fubao_print.Show
End Sub

Private Sub v_star0401_Click()
sk_addfubao.Show
End Sub

Private Sub v_star0402_Click()
sk_editfubao.Show
End Sub