标题:通过选择,grid1中出现想看到的字段信息
只看楼主
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
以下是引用吹水佬在2018-6-7 14:45:07的发言:


只是可视化编程与非可视化编程的差别,其他方面实质并无差别吧,更谈不上面向对象的意义不在。

写示例,个人喜欢用非可视化方式,全部代码都可视,比较直观,方便理解,操作也方便,直接复制代码就可以测试运行,不用整套打包上传下载那么麻烦。
2018-06-07 14:54
gs2536785678
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:45
帖 子:565
专家分:1668
注 册:2017-7-16
得分:0 
你上传出东东吧。看来也讲不清楚了。
2018-06-07 14:58
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
以下是引用gs2536785678在2018-6-7 14:26:32的发言:

有现成的FORM窗口,现成的GRID表格为何不直接使用?

DEFINE CLASS form1 as Form
    ADD OBJECT grid1 as grid
难道这样写不是用现成的FORM和现成的GRID吗?
2018-06-07 15:28
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
以下是引用gs2536785678在2018-6-7 14:58:05的发言:

你上传出东东吧。看来也讲不清楚了。

是不是我理解错了。
我的意思是用可视化编程,使用FORM设计器会生成SCX表文件,提供给人家时要打包上传,人家还要下载,再用FORM设计器打开才能了解写的内容。对于简单几行代码的示例,这样做不觉得有点麻烦吗?
2018-06-07 15:35
gs2536785678
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:45
帖 子:565
专家分:1668
注 册:2017-7-16
得分:1 
我想,你[吹水]大师一定是误会了。
我的
[你上传出东东吧。看来也讲不清楚了。]
是叫提出问题的
[NanT]
上传东东。
2018-06-07 15:35
NanT
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2018-6-1
得分:0 
回复 15楼 gs2536785678
比如说这样:

我选择了joint,name 在表格中只显示joint,name的字段信息。
2018-06-07 16:25
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:0 
楼主是想,动态的查看表的各个字段内容。
大概的思路这样:
1.用 List1 列出表字段,然后,选择需要的字段,到 List2 列表
2.根据 List2 列表,动态拼接 SQL查询语句,查询数据,再绑定 Grid1的数据源
和下面的表单向导差不多。。


[此贴子已经被作者于2018-6-7 16:29编辑过]

2018-06-07 16:27
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:5 
*如果用16楼的,自己先把字段名称用 CheckBox 列出来,选择后,在查询,那就简单多了

* 在 thisform.init
CREATE CURSOR 成绩(学号 c(6),语文 n(5,2),数学 n(5,2),英语 n(5,2),物理 n(5,2),生物 n(5,2))
INSERT INTO 成绩 VALUES ("1001",95.5,85,95,84,89)
INSERT INTO 成绩 VALUES ("1002",93.5,85,95,84,89)
INSERT INTO 成绩 VALUES ("1003",97.5,85,95,84,89)
thisform.grid1.ColumnCount = -1
thisform.grid1.RecordSourceType = 1
thisform.grid1.RecordSource = "成绩"
* 分别建立6个CheckBox,名称分别是 check1,check2,check3,check4,check5,check6,代表(语文,数学,英语,物理,生物)
* 建立1个按钮,command1.click
LOCAL cSql
cSql="select 学号"
IF thisform.check1.Value = 1
   cSql = cSql + "," + thisform.check1.Caption
ENDIF
IF thisform.check2.Value = 1
   cSql = cSql + "," + thisform.check2.Caption
ENDIF
IF thisform.check3.Value = 1
   cSql = cSql + "," + thisform.check3.Caption
ENDIF
IF thisform.check4.Value = 1
   cSql = cSql + "," + thisform.check4.Caption
ENDIF
IF thisform.check5.Value = 1
   cSql = cSql + "," + thisform.check5.Caption
ENDIF

cSql = cSql + " from 成绩 into cursor tmp_成绩 readwrite"

EXECSCRIPT(cSql)

thisform.grid1.ColumnCount = -1
thisform.grid1.RecordSourceType = 1
thisform.grid1.RecordSource = "tmp_成绩"





[此贴子已经被作者于2018-6-7 16:58编辑过]

2018-06-07 16:31
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
回复 16楼 NanT
最好能上传相关文件测试
2018-06-07 16:43
NanT
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2018-6-1
得分:0 
回复 18楼 mywisdom88
我运行后 出现了这个是为什么啊?
2018-06-07 17:35



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-487697-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017393 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved