通俗基础教程
电脑操作教程
电脑怎样拨号上网
如何做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典提高教程
怎样使用代理服务器
如何做无盘工作站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
如何制作动画图片
OICQ&ICQ使用方法

高手学习指南

硬件升级技巧
CGI教程
ASP教程

PHP教程

注册表使用技巧
路由器的设置
网站建设指南
SQL
最近更新:
编程技巧
相关内容

提高FoxPro应用程序的智商
作者: 曹祖权

  你是否有这样的感受:编好一个应用程序之后,分发时还得带上
一大堆DBF、IDX、MEM文件,十分麻烦。而且这些文件还很娇气,如
果用户误删了其中一个,程序马上罢工。我这里告诉大家一个办法,
就是提高FoxPro应用程序的IQ值,让它自己检测工作目录中是否存在
所需要的DBF、IDX等文件,若有就可万事大吉,顺利工作;若没有则
利用FoxPro仅能支持的几条SQL语句(CREATE TABLE、INSERT INTO),
自动创建数据库、添加数据和建立索引。这样,你的应用程序分发时
就可以精简到一个EXE文件,因为这个EXE文件在第一次运行时,会自
动帮助你建立所需的数据库、索引和添加数据库记录。而且,当用户
误删了这些文件时,应用程序也会重建它们,不会导致程序不能运行
。当然,有些数据还须重新输入。
  
  本文以一个文书档案管理系统为例加以说明:这个系统需要三个
数据库文件:卷内文件目录库jlwjml.dbf(按案卷号+顺序号建立索
引)、单位库dwk.dbf、保管期限库bgqxk.dbf(含有永久、长期、短期
三条记录),在主程序的初始化部分加入如下程序即可:

  CLOSE DATABASE
  IF !FILE('jlwjml.dbf')
  CREATE TABLE jlwjml ;
  (案卷号N(4),顺序号N(3),文号C(30),;
  责任者C(20),题名C(90),日期D,保管期限C(4),页号N(3),备注C
(20)
)
  INDEX ON str(案卷号,4)+str(顺序号,3) to jlwjmlsy
  ENDIF
  IF !FILE('jlwjmlsy.idx')
  INDEX ON str(案卷号,4)+str(顺序号,3) to jlwjmlsy
  ENDIF
  IF !FILE('dwk.dbf')
  CREATE TABLE dwk (单位名C(30))
  ENDIF
  IF !FILE('bgqxk.dbf')
  CREATE TABLE bgqxk (保管期限C(4))
  INSERT INTO bgqxk (保管期限) VALUES ('永久')
  INSERT INTO bgqxk (保管期限) VALUES ('长期')
  INSERT INTO bgqxk (保管期限) VALUES ('短期')
  ENDIF
  CLOSE DATABASE

VB修改注册表一特例
VB编程如何控制I/O口
提高FoxPro应用程序的智商
 
 
 
 
 
 
 
 
收集整理
服务大家



月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有