简单示例
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
** test.prg
CREATE CURSOR 科室信息表 (科室编号 C(4), 科室名 C(20))
INSERT INTO 科室信息表 VALUES ("0001", "内科")
INSERT INTO 科室信息表 VALUES ("0002", "外科")
CREATE CURSOR 门诊类型表 (门诊编号 C(4), 门诊类型 C(20))
INSERT INTO 门诊类型表 VALUES ("0001", "专家门诊")
INSERT INTO 门诊类型表 VALUES ("0002", "普通门诊")
CREATE CURSOR 医生信息表 (医生编号 C(4), 医生姓名 C(8), 科室名 C(20), 门诊类型 C(20))
INSERT INTO 医生信息表 VALUES ("0001", "医生1", "内科", "专家门诊")
INSERT INTO 医生信息表 VALUES ("0002", "医生2", "内科", "普通门诊")
INSERT INTO 医生信息表 VALUES ("0003", "医生3", "外科", "专家门诊")
INSERT INTO 医生信息表 VALUES ("0004", "医生4", "外科", "普通门诊")
of = CREATEOBJECT("form1")
of.show(1)
RETURN
DEFINE CLASS form1 as Form
ADD OBJECT combo1 as combobox WITH top=10,left=10,style=2,rowsourcetype=3,;
rowsource="SELECT 科室名 FROM 科室信息表 INTO CURSOR 科室表"
ADD OBJECT combo2 as combobox WITH top=40,left=10,style=2,rowsourcetype=3,;
rowsource="SELECT 门诊类型 FROM 门诊类型表 INTO CURSOR 门诊类型表"
ADD OBJECT combo3 as combobox WITH top=70,left=10,style=2,rowsourcetype=3,;
rowsource="SELECT 医生姓名 FROM 医生信息表 ";
+"WHERE 医生信息表.科室名==科室表.科室名 ";
+"AND 医生信息表.门诊类型==门诊类型表.门诊类型 ";
+"INTO CURSOR 医生姓名表"
PROCEDURE combo1.InteractiveChange
ENDPROC
PROCEDURE combo2.InteractiveChange
ENDPROC
ENDDEFINE