发布时间 : 星期一 文章数据库系统课程设计报告 正文更新完毕开始阅读092b66a904a1b0717ed5dd1a
哈尔滨工业大学(威海)数据库系统课程设计报告 //if c_idi<>0 then // 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 () 44 / 50
//向数据库 //数据输入//将光标放到”
哈尔滨工业大学(威海)数据库系统课程设计报告 学号“输入栏
//
// 3,删除房间:
string id
if sle_roomid.text=\ //取出房间号选择
messagebox (\缺少数据\请输入房间号\sle_roomid.setfocus () return
end if
id=trim(sle_roomid.text) delete from room
45 / 50
哈尔滨工业大学(威海)数据库系统课程设计报告 where r_number=:id;
if sqlca.sqlcode=0 then
messagebox(\删除房间成功%update room_number
set room_number= room_number-1;
end if
报表和打印模块:
使用了数据窗口,所以没有外部代码
46 / 50
哈尔滨工业大学(威海)数据库系统课程设计报告 备份模块;
string ls_path ,ls_use INT li_net
Ls_path = trim(sle_backpath.text) IF ls_path = \
Messagebox('系统提示',\请输入备份路径! \ RETURN END IF
//IF FileExists ( ls_path ) THEN
//li_net=Messagebox('信息','提示:系统发现在\目录下已经存在一个同名的文件.~r~n~n要替换它吗?',Question!,YesNo!) IF li_net= 1 THEN FileDelete ( ls_path ) ELSE END IF
SetPointer(HourGlass!)//---开始备份--- This.Enabled = FALSE cb_restore.Enabled = FALSE
ls_use =\EXECUTE IMMEDIATE :ls_use ;
SQLCA.AutoCommit = TRUE
ls_use = \ //EXEC sp_addumpdevice 'disk', 'MyNwind_2',
// 'c:\\Program Files\\Microsoft SQL Server\\MSSQL\\BACKUP\\MyNwind_2.dat' EXECUTE IMMEDIATE : ls_use ; messagebox('',sqlca.database )
ls_use =\TABASE MAY TO Manage\把数据备份到Manage EXECUTE IMMEDIATE : ls_use ;
47 / 50