既然提出来了,我就把写的部分代码写上来,希望有高手帮我完善并把我不会的内容给补上吧。
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
因为不知道备注型字段和通用型字段该如何处理,所以在表单的初始化和增加记录的代码中都没有写。有哪位高手帮忙处理一下,本人不胜感激。