包租婆出租房管理系统可打印

.如果真 (到数值 (编辑框_续租.内容) ≠ 0)
房租费 ＝ 到数值 (编辑框_租金.内容) × 到数值 (编辑框_续租.内容)
房租 ＝ “租期:” ＋ 时间到文本 (续租日期, 2) ＋ #换行符 ＋ “截止:” ＋ 时间到文本 (日期框_到期日期.今天, 2) ＋ #换行符 ＋ “续期:” ＋ 数值到大写 (到数值 (编辑框_续租.内容), 假) ＋ “个月” ＋ #换行符 ＋ “房租:” ＋ 编辑框_租金.内容 ＋ “元x” ＋ 编辑框_续租.内容 ＋ “个月=” ＋ 到文本 (房租费) ＋ “元” ＋ #换行符
.如果 (到数值 (编辑框_用电量.内容) ≠ 0)
用电量 ＝ 到数值 (编辑框_当月电量.内容) － 到数值 (编辑框_上月电量.内容)
电费用 ＝ 用电量 × 到数值 (电费)
抄电表 ＝ “用电量:” ＋ 编辑框_当月电量.内容 ＋ “度-” ＋ 编辑框_上月电量.内容 ＋ “度=” ＋ 到文本 (用电量) ＋ “度” ＋ #换行符 ＋ “电费:” ＋ 到文本 (用电量) ＋ “度x” ＋ 电费 ＋ “元=” ＋ 到文本 (电费用) ＋ “元” ＋ #换行符
.否则
抄电表 ＝ “电费:未结算!(读数:” ＋ 编辑框_上月电量.内容 ＋ “度)” ＋ #换行符

.如果真 (通用对话框1.文件名 ＝ “”)
信息框2 (“请先选择一张Logo图片再操作...”, , “未选择图片”, 取窗口句柄 ())
返回 ()
.如果真结束
信息框2 (“计算大小只是一个计算图片宽度的参数,由于每张图的宽度和高度不一样,所以会有很大误差...”, , “计算大小说明”, 取窗口句柄 ())
.如果真 (取图片宽度 (通用对话框1.文件名) ≥ 480)
.如果真 (信息框2 (“您选择的图片稍微有些大了,请缩小到450以下再试...” ＋ #换行符 ＋ “是否继续执行?”, #是否钮, “图片太大了”, 取窗口句柄 ()) ＝ #否钮)
返回 ()
.如果真结束

.如果真结束
左边计算 ＝ 取整 ((570 － 取图片宽度 (通用对话框1.文件名)) ÷ 3)
宽度计算 ＝ 取图片宽度 (通用对话框1.文件名)
间隔计算 ＝ (取图片高度 (通用对话框1.文件名) ＋ 到数值 (编辑框_顶边.内容)) ÷ 30
.如果真 (左边计算 ≤ 15)
宽度计算 ＝ 宽度计算 － 左边计算 × 取整 (间隔计算)
左边计算 ＝ 0
.如果真结束
编辑框_左边.内容 ＝ 到文本 (左边计算)
编辑框_间隔.内容 ＝ 到文本 (四舍五入 (间隔计算, ))
编辑框_宽度.内容 ＝ 到文本 (宽度计算)
编辑框_高度.内容 ＝ 到文本 (取图片高度 (通用对话框1.文件名))