PB楼盘房地产销售管理系统 第19页
系统操作日志窗口的保存信息按钮的代码
integer li_ReturnCode                     //保存操作返回标志

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]  ... 下一页  >>