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

哈尔滨工业大学（威海）数据库系统课程设计报告 open //打开游标

if sqlca.sqlcode<>0 then

messagebox(\游标打开错误\

c_cursor;

end if

do while true

fetch c_cursor

into :c_id, :c_name, :c_sex, :c_phone, :c_orderdate, :c_money, :c_datestart, :c_dateend, :c_roomid, :c_remark; //取数据到变量

if sqlca.sqlcode<>0 then

exit

end if

t)

lv_roomid.additem(string(c_id), //数据显示

lv_roomid.setitem(t, 2, string(c_name)) lv_roomid.setitem(t, 3, string(c_sex)) lv_roomid.setitem(t, 4, string(c_phone)) lv_roomid.setitem(t, 5, string(c_orderdate)) lv_roomid.setitem(t, 6, string(c_money)) lv_roomid.setitem(t, 7, string(c_datestart)) lv_roomid.setitem(t, 8, string(c_dateend)) lv_roomid.setitem(t, 9, string(c_roomid)) lv_roomid.setitem(t, 10, string(c_remark))

t=t+1 loop close //关闭游标

6,5退房模块

c_cursor;

36 / 50

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

if sle_id.text=\ messagebox (\缺少数据\请输入身份证号\ sle_id.setfocus ()

return

end if

id=trim(sle_id.text) delete from customer where IDnumber=:id;

if sqlca.sqlcode=0 then messagebox(\退房成功\

else

messagebox(\退房失败，请核对身份证号再输入\end if

string r_id

select roomid into :r_id from customer where IDnumber=:id;

37 / 50

//取出房间号选择

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

update room set r_status='可入住' where r_number=:r_id;

close(w_leave) 6,7房间更新模块 房间增加：

//增加房间信息

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

c_id=trim (sle_id.text)

38 / 50

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

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; if c_idi<>0 then

39 / 50

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