网站首页 > 易语言相关 > 数据库类源码 正文
易语言数据库操作例程 酒店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 .判断结束 .计次循环尾 ()
- 上一篇: 告别死记硬背,学日语跟学母语一样简单(完结)
- 下一篇: 易语言源码 Postgre SQL 连接池
猜你喜欢
- 2024-02-22 易语言多线程sqlite数据库的应用
- 2023-01-24 数据库语言转换器源码
- 2022-06-28 SQL insert/update语句拼接方案
- 2022-02-28 excel LibXL3.94(超级列表框导出)
- 2022-02-22 libxl插件快速从[数据库][超级列表框][高级表格]导入导出Excel
- 2022-01-23 MDB数据库分页显示
- 2021-11-27 多账号记住密码(易语言edb数据库教程)
- 2021-11-24 易语言操作MYSQL数据库例程(mysql数据库操作指令)
- 2021-08-10 万能MySql安装助手源码
- 2021-08-10 简易进销存软件源码 基于 mysql数据库
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有2位网友发表了看法:
易语言教程站 评论于 [2019-07-19 09:34:23] 回复
易语言写酒店
广大易友 评论于 [2020-02-23 21:49:07] 回复
ktv管理系统数据
易语言 评论于 [2020-03-17 13:06:21] 回复
ktv管理系统数据