| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 741 人关注过本帖
标题:新手,虽查了许多资料,还是无法解决问题!
只看楼主 加入收藏
学习者0539
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2011-10-13
结帖率:78.57%
收藏
已结贴  问题点数:20 回复次数:8 
新手,虽查了许多资料,还是无法解决问题!
图片附件: 游客没有浏览图片的权限,请 登录注册

如图,共有两个表:部件表、物料表。物料表是基本表、部件表中所用的物料是从物料表中取得的。
表单的初始化、在表格中选取部件时下面表格显示出部件的详细信息的代码本人也写完了,但是“增加记录”按扭的代码,对于备注型字段和通用型字段该如何写,本人还不会。
在查询的输入物料信息后面,输入“物料编码”、“物料名称”中含有的字符时、要求在表格中逐渐汇集排序显示,这段代码我虽然写了,但无法实现。
部件详细信息的线框中的TEXT7、TEXT8、TEXT9、TEXT10是根据部件中TEXT4和TEXT5的编码显示出“物料表”中相对应的内容,这段代码该如何写?
搜索更多相关主题的帖子: 通用 详细信息 记录 
2011-10-15 20:57
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:10 
在查询的输入物料信息后面,输入“物料编码”、“物料名称”中含有的字符时、要求在表格中逐渐汇集排序显示,这段代码我虽然写了,但无法实现。

应该可以实现,但不知楼主的代码是怎么写的,是否告知。
2011-10-16 08:08
学习者0539
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2011-10-13
收藏
得分:0 
我虽然写了,但实现不了所要求的功能,也不好意思往上写代码呀。所以才贴上来的。
2011-10-16 10:14
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:0 
一起学习,不要不好意思往上写代码,好吗。
2011-10-16 15:28
学习者0539
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2011-10-13
收藏
得分:0 
既然提出来了,我就把写的部分代码写上来,希望有高手帮我完善并把我不会的内容给补上吧。
Form.Int:
set exact on
set talk off
with thisform.grid1
.left=150
.top=50
.deletemark=.f.
.visible=.t.
.readonly=.t.
.recordsource="部件表"
this.text1.readonly=.t.
this.text2.readonly=.t.
this.text3.readonly=.t.
this.text4.readonly=.t.
this.text5.readonly=.t.
this.text7.readonly=.t.
this.text8.readonly=.t.
this.text9.readonly=.t.
this.text10.readonly=.t.
thisform.text1.value=部件_id
thisform.text2.value=部件编码
thisform.text3.value=部件名称
thisform.text4.value=物料1编码
thisform.text5.value=物料2编码
thisform.text6.value=部件说明
.Column1.Header1.Caption="部件_ID"
.Column2.Header1.Caption="部件编码"
.Column3.Header1.Caption="部件名称"
.Column4.Header1.Caption="物料1编码"
.Column5.Header1.Caption="物料2编码"
.Column6.Header1.Caption="部件说明"
.Column7.Header1.Caption="部件图形"
endwith


Form Load:
Use 物料表

Form Unload:
Use in 物料表


Grid1 AfterRowColChange:
thisform.text1.value=部件_id
thisform.text2.value=部件编码
thisform.text3.value=部件名称
thisform.text4.value=物料1编码
thisform.text5.value=物料2编码
thisform.text6.value=部件说明
thisform.refresh

增加记录:
calculate max(部件_id) to zdbh  &&在数据库中查找记录号最大的记录、把记录号赋给变量zdbh
if zdbh=0 then  &&如果最小值是零(也就是数据库中还没有记录)
  zdbh=1        &&是零时,编号赋值为1
else
  zdbh=zdbh+1   &&编号不为零时,使用最大编号加1
 endif
thisform.Text1.value=zdbh
thisform.Text1.readonly=.t.
thisform.text2.readonly=.f.
thisform.text3.readonly=.f.
thisform.text4.readonly=.f.
thisform.text5.readonly=.f.
thisform.text6.readonly=.f.
thisform.text2.value=''
thisform.text3.value=''
thisform.text4.value=''
thisform.text5.value=''
thisform.text6.value=''
thisform.Text2.setfocus
因为不知道备注型字段和通用型字段该如何处理,所以在表单的初始化和增加记录的代码中都没有写。有哪位高手帮忙处理一下,本人不胜感激。
2011-10-17 20:39
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:10 
备注型字段内容用EditBox Control处理,图片不需要用通用型字段,普通字符字段就可以了。

授人以渔,不授人以鱼。
2011-10-17 22:27
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:0 
在你的程序代码中,好像没有具有‘ 在查询的输入物料信息后面,输入“物料编码”、“物料名称”中含有的字符时、要求在表格中逐渐汇集排序显示 ’ 的相关代码。
是不是应该在 “物料编码”、“物料名称”的 text2、text3 的 INTERACTIVECHANGE 方法中添加一些程序语句,以求实现在 表格中逐渐汇集排序显示 的目的。
2011-10-18 13:03
学习者0539
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2011-10-13
收藏
得分:0 
是啊,正是因为不会所以才提出来的啊,有没有人可以给出一些详细的提示或者把代码写一段,也可以让我学习学习啊。
2011-11-03 11:33
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:0 
在 TEXT6 的 INTERACTIVECHANGE 方法中添加一些程序语句 :
TC=ALLTRIM(THIS.VALUE)
SELECT 表格
INDE ON 物料编码+物料名称 FOR TC $ 物料编码 .OR. TC $ 物料名称  TAG AA
THISFORM.GRID1.REFRESH

仅供参考
2011-11-07 14:59
快速回复:新手,虽查了许多资料,还是无法解决问题!
数据加载中...
 
   



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

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