&;&;删除临时表中的相应记录,注意不能在这使用 pack ENDIF **************以下是移动指针 if delete() if !eof()
skip else if recn()>1 skip -1 endif endif endif thisform.grid1.setfocus 保存按钮:因为临时表直接绑到了表格中,在录入时就保存了,这里主要是指将临 时表中的数据更新到服务器的表中,代码很简单。 保存按钮的 click 代码: select gh TABLEUPDATE(.t.) 清空服务器相应数据表按钮:相当于本地表的 zap Click 代码如下: select gh if messagebox("你正在执行的操作是清空服务器的数据, 真的要清空吗?",48+4," 信息提示")=6 &;&;回答"是" sqlexec(nhandle,"truncate table 人员表") &;&;清空服务器数据表 ENDIF 至此,已基本完工。在程序中加上一句 Do form 表单 运行程序试一试?应该早就试了,我至此已运行很多次试了的。 4、完善一些功能。 A、表格的 afterrowcolchange:我是不想每增加一个记录都去按一次新增按钮,于 是就采用 allowaddnew。 SELECT gh thisformmand2.Caption='删除 '+ALLTRIM(编号)+ALLTRIM() IF !EMPTY(ALLTRIM(编号)) thisform.grid1.allowaddnew= .T. ELSE thisform.grid1.allowaddnew=.f. ENDIF B、表单的 init:为了让刚才的 allowaddnew 生效,我先判断 gh 是否有记录,如果 没有就先加个空记录。然后定义一下表格各列的宽度。 SELECT gh if recc()=0 appe blan endif with thisform.grid1 .recordsource='gh' .columncount=5 .column1.controlsource='gh.编号' .column1.width=30
.column2.controlsource='gh.' .column2.width=60 .column3.controlsource='gh.职务' .column3.width=60 .column4.controlsource='gh.股室' .column4.width=60 .column5.controlsource='gh.电话' .column5.width=90 ENDWITH 五、用 VFP 创建 SQL 表 ********************************************** * Copyright (c) 2003,成都晓进
软件工作室 * All rights reserved. * 文件名称:CreateSQLTable * 摘 要:创建后端 SQL Server 用户数据表 * 当前版本:1.0 ********************************************** gcDSN='192.168.0.80' gcUID='sa' gcPWD='' gcSQLDatabase='资料管理' =SQLSETPROP(0,"
DispLogin",3) gnHandle =SQLSTRINGCONNECT("DSN=&;gcDSN;UID=&;gcUID;PWD=&;gcPWD;DATABASE=&;gcSQLDatabase ") IF NOT USED("cfg") USE c:\\资料管理\\tmp\\cfg.dbf ENDIF SELECT cfg IF cfg.codetable=.t. &;&; 代码表 SQLEXEC(gnHandle,"CREATE TABLE 代 码 表 (ID int not null IDENTITY (1,1) PRIMARY KEY)") SQLEXEC(gnHandle,"ALTER TABLE 代码表 ADD 类型 char (10) null") SQLEXEC(gnHandle,"ALTER TABLE 代码表 ADD 代码 char (20) null") SQLEXEC(gnHandle,"ALTER TABLE 代码表 ADD 名称 char (40) null") ENDIF IF cfg.colldata=.T. &;&; 资料收集 SQLEXEC(gnHandle,"CREATE TABLE 资料收集 (ID int not null IDENTITY (1,1) PRIMARY KEY)") SQLEXEC(gnHandle,"ALTER TABLE 资料收集 ADD 接收日期 datetime null") &;&; 默 认值:
系统日期 SQLEXEC(gnHandle,"ALTER TABLE 资料收集 ADD 序号 Int null") &;&; 自动 SQLEXEC(gnHandle,"ALTER TABLE 资料收集 ADD 接收人 char (8) null") SQLEXEC(gnHandle,"ALTER TABLE 资料收集 ADD 送交人 char (8) null")
SQLEXEC(gnHandle,"ALTER TABLE 资料收集 ADD 文件号 char (30) null") &;&; 原 为“文件编号” SQLEXEC(gnHandle,"ALTER TABLE 资 料 收 集 ADD 标 准 代 号 char (30) null") &;&; 新增 SQLEXEC(gnHandle,"ALTER TABLE 资料收集 ADD 标准名称 varchar (200) null") &;&; 新增 SQLEXEC(gnHandle,"ALTER TABLE 资 料 收 集 ADD 译 名 varchar (200) null") &;&; 新增 SQLEXEC(gnHandle,"ALTER TAB