数据库系统课程设计报告 正文

哈尔滨工业大学（威海）数据库系统课程设计报告 messagebox (\错误信息\房间号第\号重号！请改正。\ sle_id.setfocus ()

return

end if

c_bed=trim (sle_bed.text) c_price=trim (sle_price.text) c_describe=trim(mle_describe.text)

insert into room 入数据

//( \//\// \// \// \// \ ) values (:c_id, :c_kind, :c_bed, :c_price, :c_status, :c_describe);

sle_id.text=\ 成后，清空输入控件

sle_bed.text=\ sle_price.text=\ mle_describe.text=\

messagebox(\成功\添加房间成功！\

sle_id.setfocus () 40 / 50

//向数据库写 //数据输入完//将光标放到”学

哈尔滨工业大学（威海）数据库系统课程设计报告 号“输入栏

int i

select room_number into :i

from room_number; i=i+1

update room_number set room_number=:i;

2，更新房间：

string c_id, c_kind, c_bed, c_price, c_status, c_describe long c_idi

c_id=trim(sle_id_.text) c_kind=trim (ddlb_kind_.text) c_bed=trim (sle_bed_.text) c_price=trim (sle_price_.text) c_describe=trim(mle_describe_.text)

if rb_empty_.checked then //取出房间状

41 / 50

哈尔滨工业大学（威海）数据库系统课程设计报告 态选择

c_status=rb_empty_.text elseif rb_full_.checked then

c_status=rb_full_.text

end if

update room set

r_kind=:c_kind, r_bed=:c_bed, r_price=:c_price, r_describe=:c_describe, r_status=:c_status

where r_number=:c_id;

if sqlca.sqlcode=0 then messagebox(\更改信息成功\

else

messagebox(\更改失败\end if

////更改房间信息 // //

//string c_id, c_kind, c_bed, c_price, c_status, c_describe //long c_idi //

//if sle_id_.text=\ // messagebox (\缺少数据\请输入房间号\// sle_id_.setfocus () //

return //end if

42 / 50

//取出房间号选择 哈尔滨工业大学（威海）数据库系统课程设计报告 //c_id=trim (sle_id_.text) //

//if ddlb_kind_.text=\then //取出房间种类选择

//

c_kind=\

//else //

c_kind=trim (ddlb_kind_.text)

//end if //

//if sle_bed_.text=\ // messagebox (\缺少数据\请输入床位\// sle_bed_.setfocus () //

return

//end if //

//if sle_price_.text=\ // messagebox (\缺少数据\请输入价格\// sle_price_.setfocus () //

return

//end if //

//if rb_empty_.checked then 态选择

//

c_status=rb_empty_.text

//elseif rb_full_.checked then //

c_status=rb_full_.text

//end if //

//select room.r_number 有无重号

//into :c_idi //from room

//where room.r_number=:c_id;

43 / 50

//取出床位数选择 //取出价格选择 //取出房间状 //检查房间号