li_ReturnCode=dw_1.UpDate() //保存数据
dw_1.retrieve( ) //刷新
cb_r_mode.enabled=true //设置按钮效用:可读,可写,可前后翻页
cb_w_mode.enabled=true
cb_prior_record.enabled=true
cb_next_record.enabled=true
cb_save_change.enabled=false
cb_cancel_change.enabled=false
cb_r_mode.setfocus( ) //使“浏览模式”按钮获得焦点
dw_1.enabled = false
9、系统操作日志窗口的取消修改信息按钮的代码
cb_r_mode.enabled=true //设置按钮效用:可读,可写,可翻页,并刷新数据
cb_w_mode.enabled=true
cb_prior_record.enabled=true
cb_next_record.enabled=true
cb_save_change.enabled=false
cb_cancel_change.enabled=false
dw_1.retrieve( ) //刷新数据窗口
cb_r_mode.setfocus( ) //使“浏览模式”按钮获得焦点
dw_1.enabled = false
10、系统操作日志窗口的保存并退出信息按钮的代码
integer li_ReturnCode //保存操作返回标志
li_ReturnCode=dw_1.UpDate() //保存数据
dw_1.retrieve( ) //刷新
close(parent)
11、系统操作日志窗口的浏览模式信息按钮的代码
dw_1.enabled = false
cb_save_change.enabled=false
cb_cancel_change.enabled=false
cb_save_quit.enabled=false
cb_prior_record.enabled=true
cb_next_record.enabled=true
12、系统操作日志查询窗口的查询按钮的代码
if ti="工作人员" then
dw_1.setfilter("Workername='"+trim(sle_1.text)+"' ")
else
dw_1.setfilter("operatetime="+trim(sle_1.text))
end if
dw_1.Retrieve()
13、系统操作日志查询窗口的全部查询按钮的代码
dw_1.SetTransObject(SQLCA)
string null_str
integer watchi
SetNull(null_str)
dw_1.SetFilter("")
dw_1.Filter()
watchi=10
dw_1.retrieve()
14、楼盘基本信息窗口的基本信息标签页代码
dw_1.settrans( sqlca)
dw_1.Retrieve()
string ls_firstrow
ls_firstrow = dw_1.Object.Datawindow.FirstRowOnPage
dw_1.setrow(integer(ls_firstrow))
string ls_bname
ls_bname=dw_1.getitemstring(integer(ls_firstrow),"buildingname")
setnull(ib_emp_pic)
selectblob buildingpicture
into :ib_emp_pic
from buildingmessage
where buildingname=:ls_bname;
if isnull(ib_emp_pic) then
p_1.visible=false
else
p_1.setpicture(ib_emp_pic)
p_1.visible=true
end if
dw_1.Enabled=False
15、楼盘基本信息窗口的浏览图片按钮的代码
string ls_docname, ls_named
integer li_value,li_fh
li_value=GetFileOpenName("Select File", &
ls_docname, ls_named,"BMP", &
"GIF Files (*.GIF),*.GIF," &
+ "BMP Files (*.BMP),*.BMP," &
+ "JPG Files (*.JPG),*.JPG")
if(li_value<>1) then return
//规定文件大小不能大于32KB
www.751com.cn!)
if li_fh<>-1 then
FileRead(li_fh, ib_emp_pic)
FileClose(li_fh)
p_1.SetPicture( ib_emp_pic)
p_1.visible=true
pictureChanged=true
cb_save_change.enabled=true
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>