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

哈尔滨工业大学（威海）数据库系统课程设计报告 //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