activecoection=rsmain.c
rsmain.rs2.cursortype=adopenkeyset
rsmain.rs2.cursorlocation=aduseclient
rsmain.rs2.locktype=adlockoptimistic
rsmain.rs2.opetrsql
setdatagrid1.datasource=rsmain.rs2
筛选:代码为,
fieldame=rsmain.lrs1.fields("职工编号").name
iflen(trim(label1.caption))=0then
filterstr=fieldame%26am"=null"
else
filterstr=fieldame%26am"="%26am"’"%26amlabel1.captioam"’"
endif
rsmain.lrs1.filter=filterstr
排序:代码为,
rsmain.lrs1.sort=fieldame’ascendingdescending
删除:代码为,
rsmain.rs2.delete
退出:关闭记录集操作,代码为,
rsmain.rs2.close
unloadme
3.本系统浏览和修改是两个界面,是如何实现的?写出基本思想。
系统中浏览和修改的界面不同是因为在点击相应的按钮时通过布尔型变量控制不同控件的enabled属性为true或false来实现的。
在浏览时信息的显示窗口采用的是lable控件不能进行修改,并且将他们enabled设置为true,而将和他们放在一起的其他控件enabled设置为false,而在进行修改时浏览时显示
信息的lable控件的enabled属性变为false而和他们重合的其他控件的enabled属性变为true,这样就实现了浏览与修改的不同的两个界面。
4.照片是如何使用的?写出基本思想。
照片在系统文件的picture文件夹下,照片的文件名与系统中职工编号相对应,当选择某个职工时,程序读取他的职工编号与照片文件名一致时就会显示照片。假如将照片文件名更改,则系统就不能正确的读取照片的信息了。
代码为:
dimiasinteger
dimboolaoolean
dimfnameatring
dimpicturepathatring
fname=trim(label1.caption)%26am".bmp"
ifdir("f:\vb\lpicture\%26amfname)=""then
bool=false
else
bool=true
endif
ifbool=truethen
picturepath="f:\vb\lpicture\%26amfname
else
picturepath=""
endif
image1.picture=loadpicture(picturepath)
5.单击照片可以显示该记录的个人简历和家庭成员,该功能是如何实现的?写出基本思想。
单击照片时激发了image控件的click事件,程序会按调用同样职工编号的职工资料显示窗体(rs1rs2edit)。这样就实现了单击照片显示个人简历和家庭成员。
代码为,
privatesubima
上一页 [1] [2] [3] [4] [5] [6] 下一页