宿舍管理系统SQL版附数据源带格式导出到excel表格模块

.子程序 数据源导出到EXCEL, , 公开, 将数据源中数据以相同格式导出到EXCEL工作薄中
.参数 目标文件名, 文本型, 可空,, 导出的目标EXCEL文件名，留空则使用通用对话框创建
.参数 目标通用对话框, 通用对话框, 可空,, 创建一个EXCEL文件名，放弃创建文件名视为放弃导出，如果留空，则系统使用随机文件名
.参数 原始数据源, 数据源, 可空,, 将要被导出的数据源
.参数 目标程序, , 可空,, 用于导出的EXCEL程序
.参数 目标工作薄, , 可空,, 用于导出的EXCEL工作薄
.参数 目标标签, , 可空,, 用于显示提示文本
.参数 目标进度条, 进度条, 可空,, 用于显示进度

窗口_主窗口.数据库连接_主窗口.开始事务 ()
SQL语句 ＝ “INSERT INTO dbo.RuZhuINFO (FangjianID, Name, Sex, BuMen, RTime, Tel, BeiZhu,ZhuangTai, GangWei, BanCi,ChuangWeiID,MRChuangPin, ZDChuangPin, YaJin, LYaoKongQi,RCaoZuoTime,TVyaokong) OUTPUT Inserted.ID VALUES (” ＋ 到文本 (局部房间信息.房间ID) ＋ “,'” ＋ 参数_入住信息.姓名 ＋ “','” ＋ 参数_入住信息.性别 ＋ “','” ＋ 参数_入住信息.部门 ＋ “','” ＋ 时间_到文本 (参数_入住信息.入住时间, 1, 1) ＋ “','” ＋ 参数_入住信息.电话 ＋ “','” ＋ 参数_入住信息.备注 ＋ “',1,'” ＋ 参数_入住信息.岗位 ＋ “','” ＋ 参数_入住信息.班次 ＋ “',” ＋ 到文本 (参数_入住信息.床位号) ＋ “,” ＋ 到文本 (参数_入住信息.物品.默认床品) ＋ “,” ＋ 到文本 (参数_入住信息.物品.自带床品) ＋ “,” ＋ 到文本 (参数_入住信息.物品.押金) ＋ “,” ＋ 到文本 (参数_入住信息.物品.领遥控器) ＋ “,'” ＋ 局部_添加时间 ＋ “',” ＋ 到文本 (参数_入住信息.物品.TV遥控器) ＋ “)”
.如果真 (记录集_信息录入.打开 (SQL语句, #SQL语句, ) ＝ 假)
信息框 (“添加入住信息失败”, 0, , )
调试输出 (SQL语句)