gjxz.prg

来自「进销存管理系统医药版,支持自动生成药品首写拼音字母快速查询.」· PRG 代码 · 共 9 行

PUBLIC oToolBar
IF VARTYPE(oToolbar)="O"
    RELEASE oToolbar
ELSE
    oToolbar=NEWOBJECT("Main_gj","Libs.vcx")                 &&建立工具栏对象
    oToolbar.Show()                                           &&显示对象
    oToolbar.Dock(0)                                          &&在VFP主窗口上方停放
ENDIF
SET MARK OF BAR 1 OF POPView TO VARTYPE(oToolbar)="O"