易语言数据库操作例程 酒店KTV管理系统

易语言数据库操作例程 酒店KTV管理系统

@易友

.版本 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
    .判断结束

.计次循环尾 ()