PB中怎么实现两个数据窗口之间的数据传递

1、打开一个窗口，并给这个窗口传递一个参数用openwithparm(window_name,parm)。

2、窗口中接收传递来的参数使用message属性，如字符类参数：message.stringparm。

3、窗口关闭时返回一个参数用closewithretrun(window，parm)

连接数据库：

// Profile his

SQLCA.DBMS = "MSS Microsoft SQL Server"

SQLCA.Database = "数据库名称"

SQLCA.ServerName = "."

SQLCA.LogId = "sa"

SQLCA.AutoCommit = False

SQLCA.DBParm = ""

CONNECT USING SQLCA

IF SQLCA.SQLCode <>0 THEN

MessageBox('成功','数据库连接成功！')

ELSE

MessageBox('失败','数据库连接失败！')

END IF

//定义变量

String ls_id,ls_pass,ls_type

Long ll_number,i

ls_id = sle_user.Text

ls_pass = sle_pass.Text

//==============================================================================

// 判断用户名及用户密码是否正确，打开主窗口

//==============================================================================

IF ls_id = '' THEN

MessageBox('提示','用户代码为空，请重新输入!')

sle_user.SetFocus()

RETURN

END IF

SELECT count(*) INTO :ll_number FROM login Where id = :ls_id AND Password = :ls_pass

IF ll_number >0 THEN

SELECT Style INTO :ls_type FROM login Where id = :ls_id

gs_id = ls_id

gs_type = ls_type

Open(w_main)

Close(w_login)

ELSE

IF i <= 2 THEN

MessageBox('错误','密码错误，请重新输入!')

sle_pass.Text = ""

sle_pass.SetFocus()

i++

ELSE

MessageBox("警告!","输入用户口令的错误次数超过3次!")

Close(w_login)

END IF

END IF

---