门诊收费系统.frm

医院收费系统初级请不足之处请大家多多指导一下,

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "门诊收费管理系统"
   ClientHeight    =   7065
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   10950
   HasDC           =   0   'False
   Icon            =   "门诊收费系统.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MouseIcon       =   "门诊收费系统.frx":030A
   NegotiateMenus  =   0   'False
   Palette         =   "门诊收费系统.frx":0614
   ScaleHeight     =   65.808
   ScaleMode       =   0  'User
   ScaleWidth      =   72.473
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Tag             =   "HUANG.MDB"
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Height          =   9735
      Left            =   120
      Picture         =   "门诊收费系统.frx":18FA
      ScaleHeight     =   6.719
      ScaleMode       =   5  'Inch
      ScaleWidth      =   10.385
      TabIndex        =   1
      Top             =   480
      Width           =   15015
   End
   Begin VB.Label Label1 
      Caption         =   "版权所有 (C)  心灵网络家园"
      BeginProperty Font 
         Name            =   "新宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   12480
      TabIndex        =   0
      Top             =   120
      Width           =   2655
   End
   Begin VB.Menu 日常业务 
      Caption         =   "日常业务(&R)"
      Index           =   13
      Begin VB.Menu 登记新卡 
         Caption         =   "登记新卡"
         Shortcut        =   ^A
      End
      Begin VB.Menu 医生开处方 
         Caption         =   "医生开处方"
         Shortcut        =   ^B
      End
      Begin VB.Menu 门诊收费 
         Caption         =   "门诊收费"
         Begin VB.Menu 划价收费 
            Caption         =   "划价收费"
            Shortcut        =   ^C
         End
         Begin VB.Menu 票据作废 
            Caption         =   "票据作废"
            Shortcut        =   ^D
         End
      End
      Begin VB.Menu 收费报表 
         Caption         =   "收费报表"
      End
   End
   Begin VB.Menu 财务统计 
      Caption         =   "财务统计(&C)"
      Begin VB.Menu 收费员缴款 
         Caption         =   "收费员缴款"
         Shortcut        =   ^E
      End
      Begin VB.Menu 缴款查询 
         Caption         =   "缴款查询"
         Shortcut        =   ^F
      End
      Begin VB.Menu 收入实时查询 
         Caption         =   "收入实时查询"
         Shortcut        =   ^G
      End
      Begin VB.Menu 日报月报 
         Caption         =   "日报月报"
         Shortcut        =   ^H
      End
      Begin VB.Menu 处方统计 
         Caption         =   "处方统计"
         Shortcut        =   ^I
      End
      Begin VB.Menu 业绩统计 
         Caption         =   "业绩统计"
         Shortcut        =   ^J
      End
      Begin VB.Menu 财务分类统计 
         Caption         =   "财务分类统计"
         Shortcut        =   ^K
      End
      Begin VB.Menu 诊疗项目收入统计 
         Caption         =   "诊疗项目收入统计"
         Shortcut        =   ^L
      End
      Begin VB.Menu 年度收入统计 
         Caption         =   "年度收入统计"
         Shortcut        =   ^M
      End
      Begin VB.Menu 缺货′有效期 
         Caption         =   "缺货′有效期"
         Shortcut        =   ^N
      End
   End
   Begin VB.Menu 库存管理 
      Caption         =   "库存管理(&K)"
      Index           =   1
      Begin VB.Menu 药品入库 
         Caption         =   "药品入库"
         Begin VB.Menu 入库单 
            Caption         =   "入库单"
         End
         Begin VB.Menu 入库冲减单 
            Caption         =   "入库冲减单"
         End
         Begin VB.Menu 入库单据查询 
            Caption         =   "入库单据查询"
            Index           =   1
         End
         Begin VB.Menu 入库日记账 
            Caption         =   "入库日记账"
         End
      End
      Begin VB.Menu 药品出库 
         Caption         =   "药品出库"
         Index           =   2
         Begin VB.Menu 出库单 
            Caption         =   "出库单"
         End
         Begin VB.Menu 出库冲减单 
            Caption         =   "出库冲减单"
         End
         Begin VB.Menu 出库单据查询 
            Caption         =   "出库单据查询"
            Index           =   3
         End
         Begin VB.Menu 出库日记账 
            Caption         =   "出库日记账"
         End
      End
      Begin VB.Menu 盘点差异单 
         Caption         =   "盘点差异单"
      End
      Begin VB.Menu 盘点差异单查询 
         Caption         =   "盘点差异单查询"
      End
      Begin VB.Menu 报损′耗用单 
         Caption         =   "报损′耗用单"
      End
      Begin VB.Menu 报损′耗用单查询 
         Caption         =   "报损′耗用单查询"
      End
      Begin VB.Menu 库存内容管理 
         Caption         =   "库存内容管理"
         Index           =   8
         Begin VB.Menu 库存量查询 
            Caption         =   "库存量查询"
         End
         Begin VB.Menu 库存修改 
            Caption         =   "库存修改"
         End
      End
   End
   Begin VB.Menu 基础资料 
      Caption         =   "基础资料(&B)"
      Index           =   1
      Begin VB.Menu 药品基础资料维护 
         Caption         =   "药品基础资料维护"
      End
      Begin VB.Menu 诊疗项目资料维护 
         Caption         =   "诊疗项目资料维护"
      End
      Begin VB.Menu 门诊医生资料维护 
         Caption         =   "门诊医生资料维护"
      End
      Begin VB.Menu 供药商资料维护 
         Caption         =   "供药商资料维护"
      End
      Begin VB.Menu 客户资料维护 
         Caption         =   "客户资料维护"
      End
      Begin VB.Menu 基础资料类别 
         Caption         =   "基础资料类别"
         Index           =   0
         Begin VB.Menu 收费类别 
            Caption         =   "收费类别"
         End
         Begin VB.Menu 财务核算类别 
            Caption         =   "财务核算类别"
         End
         Begin VB.Menu 药品类别 
            Caption         =   "药品类别"
         End
         Begin VB.Menu 门诊科室 
            Caption         =   "门诊科室"
         End
         Begin VB.Menu 磁卡优惠设置 
            Caption         =   "磁卡优惠设置"
         End
         Begin VB.Menu 累计优惠设置 
            Caption         =   "累计优惠设置"
         End
      End
      Begin VB.Menu 磁卡用户管理 
         Caption         =   "磁卡用户管理"
      End
      Begin VB.Menu 农保卡用户管理 
         Caption         =   "农保卡用户管理"
      End
      Begin VB.Menu 优惠方案设置 
         Caption         =   "优惠方案设置"
      End
   End
   Begin VB.Menu 系统设置 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu 系统参数设置 
         Caption         =   "系统参数设置"
      End
      Begin VB.Menu 系统初始化 
         Caption         =   "系统初始化"
      End
      Begin VB.Menu 系统操作员管理 
         Caption         =   "系统操作员管理"
      End
      Begin VB.Menu 换系统操作员 
         Caption         =   "换系统操作员"
      End
      Begin VB.Menu 修改密码 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助(&H)"
      Begin VB.Menu 注册系统 
         Caption         =   "注册系统"
      End
      Begin VB.Menu 帮助主题 
         Caption         =   "帮助主题"
      End
      Begin VB.Menu 关于系统 
         Caption         =   "关于系统"
      End
   End
   Begin VB.Menu 退出系统 
      Caption         =   "退出系统(&Q)"
      Index           =   1
      Begin VB.Menu 退出 
         Caption         =   "退出(ALT+F4)"
         Index           =   0
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub
Private Sub HScroll1_Change()

End Sub

Private Sub Image1_Click()

End Sub