信息管理系统中销售员数据处理与下拉列表实现.pdfVIP

整数rc整数i

selectCount(姓

名)into:rcfro

m员工where职

位=销售员

usingsqlca;

_

empcurs游标用于

从employee中选择

name，其中job=销售员

使用sqlca;

__

字符串empname打开emp

curs；ddlb_1.添加项(全部销售

员);Fori=1到rcFETCHemp_

_

cursINTO:empname；ddlb

_

_1.AddaaaItem(empname)；

下一个

_

closeempcurs;

dw_1.SettransObject(sqlca)

dw_1.Retrieve()

字符串filterstr，，

sql=ddlb_1.文本

Sql=

退房

_

integercurrentrow,keycurrentrow=dwtuifang.getrow()如

_

果currentrow0那么key=dwtuifang获取项编号

(currentrow,contractnumber)deletefrom

contractmessagewherecontractnumber=;key;如果

SQLCA.SQLCode=0那么

Intrc

Inti

selectCount(name)

into:rc

fromemployee

wherejob=销售员

usingsqlca;

declareemp_cursCursorFor

selectname

fromemployee

wherejob=销售员

usingsqlca；

Stringemp_name

openemp_curs;

ddlb_1.AddTtem(全部销售员)；

Fori=1torc

FETCHemp_cursINTO:emp_name;

ddlb_1.AddaaaItem(emp_name);

next

closeemp_curs;

dw_1.SettransObject(sqlca)

dw_1.Retrieve()

Stringfilterstr,name,sql

Name=ddlb_1.text

Sql=

退房

integercurrentrow,key

currentrow=dw_tuifang.getrow()

ifcurrentrow0then

key=dw_tuifanggetitemnumber(currentrow,contractnumber)

deletefromcontractmessage

wherecontractnumber=;key;

ifSQLCA.SQLCode=0then

消息框(提示,退房成功)否则消息框(

提示,退房失败)结束如果dw_

tuifang.retreve结束如果

查询dw_1.settransobject(sqlca)ifsle_1.text=或者sle_2.

text=那么消息框(提示,班级学期和课程不能为空)否

则dw_1.retrieve(sle_1.text,sle_2.text)cb_2.enabled=

true结束if

messagebox(提示，退房成功）

else

messagebox(提示，退房失败)

endif

dw_tuifang.retreve

endif

查询

dw_1.settransobject(sqlca)

ifsle_1.text=orsle_2.text=then

messagebox(提示,班级学期和课程不能为空)

else

dw_1.retr