开发数据库的WEB查询

open(w_1)

　　4、 打开窗口w_1，为它的open事件编写代码如下

int li_ListenReturnCode

/*创建传输对象，并设置其属性*/

i_server_transport = CREATE transport

i_server_transport.driver="winsock" //采用TCP/IP协议

i_server_transport.application="myapp" //应用名称

i_server_transport.location="HFSA" //本地连接

/*监听客户，并返回状态值*/

li_ListenReturnCode= i_server_transport.Listen()

if(li_ListenReturnCode< >0) then

MessageBox("服务器监听出错"&

"服务器不能正常进行监听：~r~n~r~n"+&

"请确保当前TCP/IP服务不能被其它埠占据，以及"+&

"myapp 10015/tcp",stopsign!)

Halt

Endif

　　5、 为w_1的close事件编写代码如下:

i_server_transport.stopListening() //停止在埠的监听

DESTORY i_server_transport //从内存中清除传输对象

close(parent)

　　6、 创建一个datawindow(d_zy),查询条件为日期、时间。这是POWERBUILDER的特色之一，这里就不作详细解释。

　　7、 定义一个用户对象u_web_ct1,并定义一个UserObject Function f_get_2a01(integer date,integer time) return string

其代码如下：

datastore ds_tf

string ls_html

int li_rowcount

//连接数据库

sqlca.DBMS="SYC Sybase System 10 CTLIB"

sqlca.Database="exsydb"

sqlca.UserId="sa"

sqlca.Dbpass=""

sqlca.LogPass=""

sqlca.ServerName="HFWG2_SYB"

sqlca.LogId="sa"

sqlca.DbParm=""

connect using sqlca;

if sqlca.sqlcode < > 0 then

Messagebox(" ","connect error")

end if

ds_tf = create datastore