initdata.bak

爱师软件工作室的教材管理系统源码

if messagebox("初始化将清空整个数据库，请做好备份！...",4+48+256,"严重提示")=7
   return .f.
else
   wait window "  正在初始化，请耐心等待...               " nowait
   close all
   set talk off
   set safety off
*!*	   do .\prg\bf_for_init
   
   use .\data\js excl
   zap
   insert into js(js_jsbs,js_isbn,js_sm,js_ysdsdw,js_ysdscs,js_zzdscs,js_sddj,js_sdjj);
           values(1,'isbn-1001','书名','09计算机',100,80,50.00,45.00)
   use in js
   
   use .\data\cs excl
   zap
   insert into cs(cs_csbs,cs_jsbs,cs_csj1,cs_ysdsdw,cs_yycs,cs_sycs);
           values(1,1,'A-01','09计算机',80,40)
   use in cs
      
   use .\data\fs excl
   zap
   insert into fs(fs_fsbs,fs_csbs,fs_fscs,fs_fsdj,fs_fsqx);
           values(1,1,40,45.00,'09计算机')
   use in fs
      
   use .\data\bjfsmx excl
   zap
   insert into bjfsmx(mx_xh,mx_bj,mx_xueh) values(1,'09计算机','0901001')
   use in bjfsmx
   
   use .\data\ghdw excl
   zap
   use in ghdw
   
   use .\data\ts excl
   zap
   use in ts
      
   wait window "  初始化完成，可以正式使用了...            " nowait
   set talk on
   set safety on
   close all
endif