医院挂号划价管理信息系统 第3页

 Friend WithEvents mnExit As System.Windows.Forms.MenuItem

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))

        Me.MainMenu1 = New System.Windows.Forms.MainMenu

        Me.mnDictionary = New System.Windows.Forms.MenuItem

        Me.mnMedicine = New System.Windows.Forms.MenuItem

        Me.mnCash = New System.Windows.Forms.MenuItem

        Me.mnManage = New System.Windows.Forms.MenuItem

        Me.mnGuaHao = New System.Windows.Forms.MenuItem

        Me.mnHuaJia = New System.Windows.Forms.MenuItem

        Me.mnShouFei = New System.Windows.Forms.MenuItem

        Me.mnFaYao = New System.Windows.Forms.MenuItem

        Me.mnSearch = New System.Windows.Forms.MenuItem

        Me.mnGHL = New System.Windows.Forms.MenuItem

        Me.mnKCL = New System.Windows.Forms.MenuItem

        Me.mnExit = New System.Windows.Forms.MenuItem

        '

        'MainMenu1

        '

        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnDictionary, Me.mnManage, Me.mnSearch, Me.mnExit})

        '

        'mnDictionary

        '

        Me.mnDictionary.Index = 0

        Me.mnDictionary.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnMedicine, Me.mnCash})

        Me.mnDictionary.Text = "字典文护(&W)"

        '

        'mnMedicine

        '

        Me.mnMedicine.Index = 0

        Me.mnMedicine.Text = "药品信息(&Y)"

           '

        'mnManage

        '

        Me.mnManage.Index = 1

        Me.mnManage.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnGuaHao, Me.mnHuaJia, Me.mnShouFei, Me.mnFaYao})

        Me.mnManage.Text = "门诊管理(&X)"

        '

        'mnGuaHao

        '

        Me.mnGuaHao.Index = 0

        Me.mnGuaHao.Text = "门诊挂号(&W)"

        '

        'mnHuaJia

        '

        Me.mnHuaJia.Index = 1

        Me.mnHuaJia.Text = "门诊划价(&X)"

        '

        'mnShouFei

        '

        Me.mnShouFei.Index = 2

        Me.mnShouFei.Text = "门诊收费(&Y)"

        '

        'mnFaYao

        '

        Me.mnSearch.Index = 2

        Me.mnSearch.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnGHL, Me.mnKCL})

        Me.mnSearch.Text = "院长查询(&Y)"

        '

        'mnGHL

        '

        Me.mnGHL.Index = 0

        Me.mnGHL.Text = "科室挂号量(&Y)"

        '

        'mnKCL

        '

        Me.mnKCL.Index = 1

        Me.mnKCL.Text = "药品库存量(&Z)"

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页