ge1_click()
ifrs1edit.text1.visibleandlen(trim(rs1edit.text1.text))=0then
exitsub
else
loadrs1andrs2edit
rs1andrs2edit.show1
endif
endsub
6.本系统中的三个表,档案卡片表、个人简历表和家庭成员表是如何实现数据参数完整性的(连续更新、连锁删除)?
在数据库的关系中右键单击表之间的连线可以弹出编辑关系,选中实施参照完成性,在选中级连更新相关字段、级连删除相关记录就可以实现数据的连续更新和连锁删除了。
四、在查询模块中,下述功能是如何实现的?
1.《请选择字段》列表框中的内容是从表中取出的字段名,简述基本方法并写出简要代码。
dimiasinteger
list1.clear
fori=0torsmain.rs1.fields.count-1
list1.additemrsmain.rs1.fields(i).name
nexti
list2.clear
list2.additem"等于"
list2.additem"不等"
list2.additem"小于"
list2.additem"小于等于"
list2.additem"大于"
list2.additem"大于等于"
list2.additem"在...之间"
list2.additem"不在...之间"
list2.additem"like操作符"
2.多个条件的组合查询代码如下:
publicqcaewadodb.coection
publicqrsaewadodb.recordset
s1="["%26amlist1.list(list1.listindex)%26am"]"
s2=list2.list(list2.listindex)
s3=text1.text
s=s1%26am2%26am3
dimstrsqlatring
qc.provider="msdatashape.1"
qc.coectiotring="datasource=f:\vb\acce2000\rs.mdb"_
%26am";dataprovider=microsoft.jet.oledb.4.0"
qc.open
strsql="shape%26#123;select*from档案卡片where"%26amam"orderby职工编号%26#125;"%26am"aend(%26#123;select*from个人简历%26#125;relate[职工编号]to[职工编号]),"%26am"(%26#123;select*from家庭成员%26#125;relate[职工编号]to[职工编号])"
qrs.activecoecti
on=qc
qrs.cursortype=adopenkeyset
qrs.cursorlocation=aduseclient
qrs.locktype=adlockoptimistic
qrs.opetrsql
五、统计模块中的综合统计中,可实现部门的动态变化,简述实现的基本思想。
在综合统计的窗体中有重新统计按钮,该按钮的功能就是实现数据的动态统计功能。
上一页 [1] [2] [3] [4] [5] [6] 下一页