?? 門診收費(fèi)系統(tǒng).frm
字號(hào):
VERSION 5.00
Begin VB.Form Form1
Caption = "門診收費(fèi)管理系統(tǒng)"
ClientHeight = 7065
ClientLeft = 165
ClientTop = 555
ClientWidth = 10950
HasDC = 0 'False
Icon = "門診收費(fèi)系統(tǒng).frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MouseIcon = "門診收費(fèi)系統(tǒng).frx":030A
NegotiateMenus = 0 'False
Palette = "門診收費(fèi)系統(tǒng).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 = "門診收費(fèi)系統(tǒng).frx":18FA
ScaleHeight = 6.719
ScaleMode = 5 'Inch
ScaleWidth = 10.385
TabIndex = 1
Top = 480
Width = 15015
End
Begin VB.Label Label1
Caption = "版權(quán)所有 (C) 心靈網(wǎng)絡(luò)家園"
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 日常業(yè)務(wù)
Caption = "日常業(yè)務(wù)(&R)"
Index = 13
Begin VB.Menu 登記新卡
Caption = "登記新卡"
Shortcut = ^A
End
Begin VB.Menu 醫(yī)生開處方
Caption = "醫(yī)生開處方"
Shortcut = ^B
End
Begin VB.Menu 門診收費(fèi)
Caption = "門診收費(fèi)"
Begin VB.Menu 劃價(jià)收費(fèi)
Caption = "劃價(jià)收費(fèi)"
Shortcut = ^C
End
Begin VB.Menu 票據(jù)作廢
Caption = "票據(jù)作廢"
Shortcut = ^D
End
End
Begin VB.Menu 收費(fèi)報(bào)表
Caption = "收費(fèi)報(bào)表"
End
End
Begin VB.Menu 財(cái)務(wù)統(tǒng)計(jì)
Caption = "財(cái)務(wù)統(tǒng)計(jì)(&C)"
Begin VB.Menu 收費(fèi)員繳款
Caption = "收費(fèi)員繳款"
Shortcut = ^E
End
Begin VB.Menu 繳款查詢
Caption = "繳款查詢"
Shortcut = ^F
End
Begin VB.Menu 收入實(shí)時(shí)查詢
Caption = "收入實(shí)時(shí)查詢"
Shortcut = ^G
End
Begin VB.Menu 日?qǐng)?bào)月報(bào)
Caption = "日?qǐng)?bào)月報(bào)"
Shortcut = ^H
End
Begin VB.Menu 處方統(tǒng)計(jì)
Caption = "處方統(tǒng)計(jì)"
Shortcut = ^I
End
Begin VB.Menu 業(yè)績(jī)統(tǒng)計(jì)
Caption = "業(yè)績(jī)統(tǒng)計(jì)"
Shortcut = ^J
End
Begin VB.Menu 財(cái)務(wù)分類統(tǒng)計(jì)
Caption = "財(cái)務(wù)分類統(tǒng)計(jì)"
Shortcut = ^K
End
Begin VB.Menu 診療項(xiàng)目收入統(tǒng)計(jì)
Caption = "診療項(xiàng)目收入統(tǒng)計(jì)"
Shortcut = ^L
End
Begin VB.Menu 年度收入統(tǒng)計(jì)
Caption = "年度收入統(tǒng)計(jì)"
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 入庫單據(jù)查詢
Caption = "入庫單據(jù)查詢"
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 出庫單據(jù)查詢
Caption = "出庫單據(jù)查詢"
Index = 3
End
Begin VB.Menu 出庫日記賬
Caption = "出庫日記賬"
End
End
Begin VB.Menu 盤點(diǎn)差異單
Caption = "盤點(diǎn)差異單"
End
Begin VB.Menu 盤點(diǎn)差異單查詢
Caption = "盤點(diǎn)差異單查詢"
End
Begin VB.Menu 報(bào)損′耗用單
Caption = "報(bào)損′耗用單"
End
Begin VB.Menu 報(bào)損′耗用單查詢
Caption = "報(bào)損′耗用單查詢"
End
Begin VB.Menu 庫存內(nèi)容管理
Caption = "庫存內(nèi)容管理"
Index = 8
Begin VB.Menu 庫存量查詢
Caption = "庫存量查詢"
End
Begin VB.Menu 庫存修改
Caption = "庫存修改"
End
End
End
Begin VB.Menu 基礎(chǔ)資料
Caption = "基礎(chǔ)資料(&B)"
Index = 1
Begin VB.Menu 藥品基礎(chǔ)資料維護(hù)
Caption = "藥品基礎(chǔ)資料維護(hù)"
End
Begin VB.Menu 診療項(xiàng)目資料維護(hù)
Caption = "診療項(xiàng)目資料維護(hù)"
End
Begin VB.Menu 門診醫(yī)生資料維護(hù)
Caption = "門診醫(yī)生資料維護(hù)"
End
Begin VB.Menu 供藥商資料維護(hù)
Caption = "供藥商資料維護(hù)"
End
Begin VB.Menu 客戶資料維護(hù)
Caption = "客戶資料維護(hù)"
End
Begin VB.Menu 基礎(chǔ)資料類別
Caption = "基礎(chǔ)資料類別"
Index = 0
Begin VB.Menu 收費(fèi)類別
Caption = "收費(fèi)類別"
End
Begin VB.Menu 財(cái)務(wù)核算類別
Caption = "財(cái)務(wù)核算類別"
End
Begin VB.Menu 藥品類別
Caption = "藥品類別"
End
Begin VB.Menu 門診科室
Caption = "門診科室"
End
Begin VB.Menu 磁卡優(yōu)惠設(shè)置
Caption = "磁卡優(yōu)惠設(shè)置"
End
Begin VB.Menu 累計(jì)優(yōu)惠設(shè)置
Caption = "累計(jì)優(yōu)惠設(shè)置"
End
End
Begin VB.Menu 磁卡用戶管理
Caption = "磁卡用戶管理"
End
Begin VB.Menu 農(nóng)保卡用戶管理
Caption = "農(nóng)保卡用戶管理"
End
Begin VB.Menu 優(yōu)惠方案設(shè)置
Caption = "優(yōu)惠方案設(shè)置"
End
End
Begin VB.Menu 系統(tǒng)設(shè)置
Caption = "系統(tǒng)設(shè)置(&S)"
Begin VB.Menu 系統(tǒng)參數(shù)設(shè)置
Caption = "系統(tǒng)參數(shù)設(shè)置"
End
Begin VB.Menu 系統(tǒng)初始化
Caption = "系統(tǒng)初始化"
End
Begin VB.Menu 系統(tǒng)操作員管理
Caption = "系統(tǒng)操作員管理"
End
Begin VB.Menu 換系統(tǒng)操作員
Caption = "換系統(tǒng)操作員"
End
Begin VB.Menu 修改密碼
Caption = "修改密碼"
End
End
Begin VB.Menu 幫助
Caption = "幫助(&H)"
Begin VB.Menu 注冊(cè)系統(tǒng)
Caption = "注冊(cè)系統(tǒng)"
End
Begin VB.Menu 幫助主題
Caption = "幫助主題"
End
Begin VB.Menu 關(guān)于系統(tǒng)
Caption = "關(guān)于系統(tǒng)"
End
End
Begin VB.Menu 退出系統(tǒng)
Caption = "退出系統(tǒng)(&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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -