发布时间 : 星期三 文章数据库系统课程设计报告 正文更新完毕开始阅读092b66a904a1b0717ed5dd1a
哈尔滨工业大学（威海）数据库系统课程设计报告 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
//取出床位数选择 //取出价格选择 //取出房间状态 //检查房间号