在控件ddlb_user的constructor事件写如下代码:
string ls_user
DECLARE Emp_cur CURSOR FOR select 用户名 from 用户表; //定义游标
OPEN Emp_cur ; //打开游标
Fetch emp_cur into :ls_user; //推进游标读取数据
DO WHILE sqlca.sqlcode = 0
ddlb_user.AddItem(ls_user) //设置用户名下拉列表框
Fetch emp_cur into :ls_user; //读取数据
LOOP
CLOSE Emp_cur; //关闭游标
if ddlb_user.TotalItems() > 0 then ddlb_user.SelectItem(1) //选择第一行
在窗体的open事件写如下代码:
string ls_user
DECLARE Emp_cur CURSOR FOR select 用户名 from 用户表; //定义游标
OPEN Emp_cur ; //打开游标
Fetch emp_cur into :ls_user; //读取数据
DO WHILE sqlca.sqlcode = 0
ddlb_user.AddItem(ls_user) //设置用户名下拉列表框
Fetch emp_cur into :ls_user; //读取数据
LOOP
CLOSE Emp_cur; //关闭游标
if ddlb_user.TotalItems() > 0 then ddlb_user.SelectItem(1) //选择第一行