opendb.prg

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

SET MULTILOCKS ON                 &&允许尝试锁定一组记录
SET REPROCESS TO AUTOMATIC      &&自动尝试锁定并允许按ESC键取消锁定尝试
TRY 
    IF NOT DBUSED("dbMain")         &&打开数据库
        OPEN DATABASE dbMain SHARED  
    ENDIF 
    SET DATABASE TO dbMain
    IF NOT USED("tblIn")              &&打开进货单明细表
        USE tblIn ALIAS tblIn IN 0 SHARED 
        SELECT tblIn
        =CURSORSETPROP("Buffering" ,5)
        SET DELETED ON 
    ENDIF 
    IF NOT USED("tblInMaster")         &&打开进货单主表
        USE tblInMaster ALIAS tblInMaster IN 0 SHARED 
        SELECT tblInMaster
        =CURSORSETPROP("Buffering" ,5)
        SET DELETED ON 
    ENDIF 
    IF NOT USED("tblMedicine")         &&打开药品表
        USE tblMedicine ALIAS tblMedicine IN 0 SHARED 
        SELECT tblMedicine
        =CURSORSETPROP("Buffering" ,3)
        SET DELETED ON 
    ENDIF 
    IF NOT USED("tblProvider")          &&打开供应商表
        USE tblProvider ALIAS tblProvider IN 0 SHARED 
        SELECT tblProvider
        =CURSORSETPROP("Buffering" ,3)
        SET DELETED ON 
    ENDIF 
    IF NOT USED("tblCustomer")         &&打开客户表
        USE tblCustomer ALIAS tblCustomer IN 0 SHARED 
        SELECT tblCustomer
        =CURSORSETPROP("Buffering" ,3)
        SET DELETED ON 
    ENDIF 
    IF NOT USED("tblOut")              &&打开销售单明细表
        USE tblOut ALIAS tblOut IN 0 SHARED 
        SELECT tblOut
        =CURSORSETPROP("Buffering" ,5)
    ENDIF 
    IF NOT USED("tblOutMaster")        &&打开销售单主表
        USE tblOutMaster ALIAS tblOutMaster IN 0 SHARED 
        SELECT tblOutMaster
        =CURSORSETPROP("Buffering" ,5)
    ENDIF 
    IF NOT USED("tblStock")            &&打开库存药品表
        USE tblStock ALIAS tblStock IN 0 SHARED 
        SELECT tblStock
        =CURSORSETPROP("Buffering" ,5)
        SET DELETED ON 
    ENDIF 
    IF NOT USED("tblOperator")         &&打开操作员表
        USE tblOperator ALIAS tblOperator IN 0 SHARED 
        SELECT tblOperator
        =CURSORSETPROP("Buffering" ,3)
        SET DELETED ON 
    ENDIF 
CATCH TO loException
    =MESSAGEBOX("数据库打开错误，可能数据库已经损坏，引发错误原因可能是由于您上次没有正常"+CHR(13)+;
                "关闭计算机造成的。请从备份文件中恢复数据库后，重新运行该软件。"+CHR(13)+;
                "错误 #"+TRANSFORM(loException.ErrorNo)+CHR(13)+"信息:"+loException.Message) 
    QUIT        &&关闭系统
ENDTRY