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

如图,共有两个表:部件表、物料表。物料表是基本表、部件表中所用的物料是从物料表中取得的。
表单的初始化、在表格中选取部件时下面表格显示出部件的详细信息的代码本人也写完了,但是“增加记录”按扭的代码,对于备注型字段和通用型字段该如何写,本人还不会。
在查询的输入物料信息后面,输入“物料编码”、“物料名称”中含有的字符时、要求在表格中逐渐汇集排序显示,这段代码我虽然写了,但无法实现。
部件详细信息的线框中的TEXT7、TEXT8、TEXT9、TEXT10是根据部件中TEXT4和TEXT5的编码显示出“物料表”中相对应的内容,这段代码该如何写?
搜索更多相关主题的帖子: 通用 详细信息 记录 
2011-10-15 20:57
学习者0539
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2011-10-13
收藏
得分:0 
我虽然写了,但实现不了所要求的功能,也不好意思往上写代码呀。所以才贴上来的。
2011-10-16 10:14
学习者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
学习者0539
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2011-10-13
收藏
得分:0 
是啊,正是因为不会所以才提出来的啊,有没有人可以给出一些详细的提示或者把代码写一段,也可以让我学习学习啊。
2011-11-03 11:33
快速回复:新手,虽查了许多资料,还是无法解决问题!
数据加载中...
 
   



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

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