tz_hm.prg

来自「建设银行计算机设备台帐程序计算机设备管理程序。其中包括一个网络文件传输示例」· PRG 代码 · 共 15 行

     set compatible on

   if !used('gxdw')
       use gxdw alias gxdw in select()
   endif
   if !used('xjhm')
      use xjhm alias xjhm in select()
   endif
   if !used('sbyt')
      use sbyt alias sbyt in select()
   endif
   if !used('hmk')
      use hmk alias hmk in select()
   endif           
   do form tz_hm name tz_hm