图都出来了,应该都能做了吧,大家那么聪明!
To:popai
做出来了就好,其他都不重要。
To:xiaosha_com
看图就知道有表单有报表。在表单中添加控件,编写命令代码。用报表生成器生成和修改报表。
感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
[此贴子已经被作者于2006-11-2 22:24:32编辑过]
*!* 求助:
*!* 我现在有两张表,一张表为dangan,dangan表里面包含有Col001(姓名)和Col010(员工编号)两个字段
*!* 一张表为kaoqi,里面包含有name(员工姓名)和num(员工编号两个字段),
*!* 我想做的事是当dangan这张表增加或修改(不包括删除)一条数据时他会把对应的值同步到kaoqi这张表上,
*!* 但是删除时kaoqi这张表不跟着删除
*!* 请问大侠们这个触发器该如何写
*(1)在THISFORM.INIT()过程中:
SET TALK OFF
CLOSE ALL
USE DANGAN.DBF
SELECT 2
USE KAOQI.DBF
THISFORM.GRID1.RECORDSOURCETYPE=1
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCE="KAIQI"
*(2)在增加命令按钮的CLICK()过程中:
X1=THISFORM.TEXT1.VALUE &&假设是员工姓名
X2=THISFORM.TEXT2.VALUE &&假设是员工编号
SELECT 1
APPEND BLANK
REPLACE Col1001 WITH X1,Col1010 WITH X2
SELECT 2
APPEND BLANK
REPLACE NAME WITH X1,NUM WITH X2
THISFORM.REFRESH
*(3)在修改命令按钮的CLICK()过程中:
X1=THISFORM.TEXT1.VALUE &&假设是员工姓名
X2=THISFORM.TEXT2.VALUE &&假设是员工编号
SELECT 1
LOCATE ALL FOR Col1001=X1
IF !EOF()
REPLACE Col1010 WITH X2
ENDIF
SELECT 2
LOCATE ALL FOR NAME=X1
IF !EOF()
REPLACE NUM WITH X2
ENDIF
THISFORM.REFRESH
*(4)在删除命令按钮的CLICK()过程中:
X1=THISFORM.TEXT1.VALUE &&假设是员工姓名
SELECT DANGAN
DELETE ALL FOR NAME=X1
PACK
[此贴子已经被作者于2006-11-2 22:54:39编辑过]