在PB9中怎样使用日期控件

1.数据窗口可以定义date或者datetime的字段，然后把它设成你想要的格式，如'yyyy-mm-dd'

2.回到window用dw_name.getitemstring(1,'字段名')得到数据

可以用到数据窗口，这也是Pb精华所在，不用编写sql代码，就可以调用函数对数据库中的表进行增删改查。1.增加：用InserRow(n)----n为行号，当为0时，在末尾一行插入一个空行2.删除:deleteRow(n)----n为行号。3.改：最直接的方法直接在数据窗口上编辑数据，然后利用update()函数更新表数据。如果更新成功就提交数据，相反如果失败就回滚，不提交数据。具体代码：if update() >0 then commit//提交数据 else rollback//回滚数据，不提交 end if 4查询：简单 几个条件查询 可以用到setfilter() 函数进行过滤。譬如dw_1.setfilter("id = 1") dw_1.filter()//查询id =1所有数据 复杂的可以利用修改拼接条件数据窗口data source sql语句来实现.具体的：先得到数据窗口data source sql语句. string ls_sql ls_sql = dw_1.getsqlselect() //然后加入查询sex =‘男’，class = '2',score >'90'的所有数据. 这样拼接条件 string ls_final ls_final = ls_sql +"where sex = '男' and class = '2' and score >'90' "//注意最后要有分号！ dw_1.setsqlselect(ls_final) dw_1.retrieve()//检索数据，得到要求查询结果.

时间控件 您说的是timer()函数 还是修改日期的控件em?前者 timer(1)代表每一秒中出发timer()事件中的代码.后者是利用掩码控件.调整mask格式即可 譬如yyyy-mm-dd 显示出来的日期是2011-05-30 一般都是在窗口的open事件中 写上 em_rq.text = string(today,'yyyy-mm-dd') //效果同前

声明外部函数，//初始化日控件

function boolean InitCommonControlsEx(ref initcommoncontrols lpinitcommoncontrols) library "comctl32.dll"

//清除指定的窗口及它的所有子窗口

function boolean DestroyWindow(ulong hwnd) library "user32"

//判断一个窗口句柄是否有效

function boolean IsWindow(ulong hwnd) library "user32"

//发送指定的信息(这里指时间结构)到指定的窗口

function long SendMessageSystemTime(long hwnd,long uMsg,long wParam,ref systemTime lpst) library "user32" alias for "SendMessageA"

还需要定义两个结构和两个函数（一个设置日期，一个获取日期）

of_getdate()函数

//声明结构 对象

systemtime stc_systemtime

//声明日期类型 引用

date dat_calendar

if IsWindow(i_lng_handle) then //如果窗口句柄可用

//将用户选择的时间信息填充到时间结构中去,0表示成功,其它表示失败

if SendMessageSystemTime(i_lng_handle,4097,0,stc_systemtime)=0 then

//得到日期

dat_calendar=date(stc_systemtime.wyear,stc_systemtime.wmonth,stc_systemtime.wday)

else

setNull(dat_calendar)

end if

else

setNull(dat_calendar)

end if

return dat_calendar

//

of_setdate(long an_handle) 函数

//将可视日历控件的窗口句柄传递给不可视的用户对象，二者关联在一起，获得日期

if IsWindow(an_handle) then

if IsWindow(i_lng_handle) then DestroyWindow(i_lng_handle)//销毁以前的对象

//设置句柄

i_lng_handle=an_handle

end if

return

//得到日历的时间(按钮中代码)

date dat_calendar

string str_calendar

dat_calendar=uo_1.i_nvo_calendar.uf_getdate()

if isNull(dat_calendar) then

str_calendar='未得到正确的日期'

else

str_calendar=string(dat_calendar,'yyyy-mm-dd')

end if

messageBox('日历',str_calendar)

---