.版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 程序集画板, 房间信息, , "0" .程序集变量 行距, 整数型 .程序集变量 列距, 整数型 .程序集变量 操作房号, 整数型 .子程序 __启动窗口_尺寸被改变 .如果真 (_启动窗口.宽度 ＜ 画板1.宽度 ＋ 60) _启动窗口.宽度 ＝ 画板1.宽度 ＋ 60 .如果真结束 .如果真 (_启动窗口.高度 ＜ 333) _启动窗口.高度 ＝ 333 .如果真结束 底图片框.宽度 ＝ _启动窗口.宽度 － 20 底图片框.高度 ＝ _启动窗口.高度 － 80 滚动条.左边 ＝ 底图片框.宽度 － 18 滚动条.高度 ＝ 底图片框.高度 － 2 图片框1.宽度 ＝ 滚动条.左边 编辑框1.顶边 ＝ 底图片框.顶边 ＋ 底图片框.高度 ＋ 10 创建房间按钮.顶边 ＝ 编辑框1.顶边 排列 () ' 本源码来自三叶资源网(www.sanye.cx) .子程序 __启动窗口_创建完毕 行距 ＝ 8 ' 本源码来自三叶资源网 ' (www.sanye.cx) 列距 ＝ 8 _创建房间按钮_被单击 () .子程序 _创建房间按钮_被单击 .局部变量 源画板, 房间信息 .局部变量 Y, 整数型 调试输出 (到文本 ({ 13, 10, 32, 32, 32, 32, 210, 215, 211, 239, 209, 212, 189, 187, 193, 247, 200, 186, 58, 54, 52, 53, 54, 48, 48, 56, 55, 13, 10, 32, 32, 32, 32, 215, 247, 213, 223, 58, 176, 162, 187, 212 })) .计次循环首 (取数组成员数 (程序集画板), Y) 程序集画板 [Y].房间.销毁 () .计次循环尾 () 清除数组 (程序集画板) .计次循环首 (到整数 (编辑框1.内容), Y) 复制窗口组件 (画板1, 源画板.房间) 源画板.房间号 ＝ “房间号：0” ＋ 到文本 (Y) 源画板.状态 ＝ “状态：空” 源画板.类型 ＝ “类型：豪华间” 源画板.价格 ＝ “价格：666” 源画板.备注 ＝ “备注：” 加入成员 (程序集画板, 源画板) 程序集画板 [Y].房间.置父窗口 (图片框1) 程序集画板 [Y].房间.标记 ＝ 到文本 (Y) 程序集画板 [Y].房间.可视 ＝ 真 程序集画板 [Y].房间.字体.字体大小 ＝ 9 程序集画板 [Y].房间.定位写出 (11, 5, 程序集画板 [Y].房间号) 程序集画板 [Y].房间.定位写出 (11, 20, 程序集画板 [Y].状态) 程序集画板 [Y].房间.定位写出 (11, 35, 程序集画板 [Y].类型) 程序集画板 [Y].房间.定位写出 (11, 50, 程序集画板 [Y].价格) 程序集画板 [Y].房间.定位写出 (11, 65, 程序集画板 [Y].备注) .计次循环尾 () 排列 () .子程序 排列 .局部变量 Y, 整数型 .局部变量 顶, 整数型 .局部变量 左, 整数型 .局部变量 底宽, 整数型 图片框1.顶边 ＝ 0 顶 ＝ 行距 左 ＝ 列距 底宽 ＝ 图片框1.宽度 .计次循环首 (取数组成员数 (程序集画板), Y) 程序集画板 [Y].房间.顶边 ＝ 顶 程序集画板 [Y].房间.左边 ＝ 左 .如果真 (取数组成员数 (程序集画板) ＞ Y) 左 ＝ 左 ＋ 画板1.宽度 ＋ 列距 .如果真 (左 ＋ 画板1.宽度 ＋ 列距 ＞ 底宽) 左 ＝ 列距 顶 ＝ 顶 ＋ 画板1.高度 ＋ 行距 .如果真结束 .如果真结束 .计次循环尾 () 图片框1.高度 ＝ 顶 ＋ 画板1.高度 ＋ 行距 ＋ 5 .判断开始 (图片框1.高度 ＞ 底图片框.高度) 滚动条.最大位置 ＝ 图片框1.高度 － 底图片框.高度 滚动条.位置 ＝ 1 .默认 滚动条.最大位置 ＝ 2 滚动条.位置 ＝ 1 .判断结束 .子程序 _滚动条_位置被改变 图片框1.顶边 ＝ －滚动条.位置 .子程序 _图片框1_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 Y, 整数型 .计次循环首 (取数组成员数 (程序集画板), Y) 程序集画板 [Y].房间.边框 ＝ 5 .计次循环尾 () .子程序 _编辑框1_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .如果真 (键代码 ＝ #回车键) _创建房间按钮_被单击 () .如果真结束 .子程序 写房间数据 .参数 房间号, 整数型 .参数 状态, 文本型, , “开房”,“预定”,“维修”“打扫” 程序集画板 [房间号].状态 ＝ “状态：” ＋ 状态 .判断开始 (状态 ＝ “开房”) 程序集画板 [房间号].房间.画板背景色 ＝ 32768 .判断 (状态 ＝ “预定”) 程序集画板 [房间号].房间.画板背景色 ＝ 16776960 .判断 (状态 ＝ “维修”) 程序集画板 [房间号].房间.画板背景色 ＝ 12632256 .判断 (状态 ＝ “打扫”) 程序集画板 [房间号].房间.画板背景色 ＝ 32896 .默认 .判断结束 程序集画板 [房间号].房间.定位写出 (11, 5, 程序集画板 [房间号].房间号) 程序集画板 [房间号].房间.定位写出 (11, 20, 程序集画板 [房间号].状态) 程序集画板 [房间号].房间.定位写出 (11, 35, 程序集画板 [房间号].类型) 程序集画板 [房间号].房间.定位写出 (11, 50, 程序集画板 [房间号].价格) 程序集画板 [房间号].房间.定位写出 (11, 65, 程序集画板 [房间号].备注) .子程序 _画板1_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 源, 画板 .局部变量 Y, 整数型 源 ＝ 取事件组件 () 操作房号 ＝ 到整数 (源.标记) .计次循环首 (取数组成员数 (程序集画板), Y) .判断开始 (到整数 (源.标记) ＝ Y) 程序集画板 [Y].房间.边框 ＝ 1 .默认 程序集画板 [Y].房间.边框 ＝ 5 .判断结束 .计次循环尾 () 弹出菜单 (房间菜单, , ) .子程序 _开房_被选择 写房间数据 (操作房号, “开房”) .子程序 _预定_被选择 写房间数据 (操作房号, “预定”) .子程序 _维修_被选择 写房间数据 (操作房号, “维修”) .子程序 _打扫_被选择 写房间数据 (操作房号, “打扫”) .子程序 _画板1_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 源, 画板 .局部变量 Y, 整数型 源 ＝ 取事件组件 () .计次循环首 (取数组成员数 (程序集画板), Y) .判断开始 (到整数 (源.标记) ＝ Y) 程序集画板 [Y].房间.边框 ＝ 1 .默认 程序集画板 [Y].房间.边框 ＝ 5 .判断结束 .计次循环尾 ()