寝室管理信息输入系统

一 寝室管理信息输入系统 1 在桌面创建新文件夹 2 打开 VF 系统 选择文件 新建 项目 新建文件夹 保存至桌面文件夹内 3 点击数据 选择数据库 新建 新建数据库 保存至桌面文件夹内 4 在数据库设计器内 单击右键选择新建表 保存至桌面文件夹内 5 表设计器 6 现在是否输入记录 选择否或者直接叉掉 7 点击文件 新建 表单 新建文件 8 在表单控件中选择 A 标签 按下该按钮 再在表单窗口中拖出一个适当大小的位置 在 属性 将 label1 改名为 成绩信息输入系统 9 点击属性中的布局 点击 FontSize 修改字体大小 Autsize 变假为真 点击 backstly 透明 将文本复制粘贴 将文本下移一部分 选择下方的文本 点击 ForeColor 字体颜色 将文本上移与上方文本重叠 10 在表单控件中选择 线条 按下该按钮 画一条直线 点击属性栏中的 borderwith 线宽 调整线宽 将线条复制粘贴 一共画同宽的四条线将文本包围 步 骤同上 点击 bordercolor 线条颜色 将四条线进行调整 颜色为灰白搭配 11 在表单控件中选择 容器 按下该按钮 将之前操作的部分框住 点击 backstly 透明 borderwith 线宽 调整线宽 specialeffect 选择凹下或凸起 12 在表单设计器中单击右键 打开数据环境 选定 字段 准备添加所有字段 按住 鼠标左键不松 将 字段 拖进表单的适当位置 13 自行调整格式 可利用 height 高 width 宽 left 左 FontSize 字体大小 14 在 表单控件 选择 命令按钮 在表单中拖出合适的位置 改名为 增加记 录 并调整字体大小 FontSize 点击并输入命令如下 append blank 新增一条空记录 thisform Refresh 刷新表单 然后点击 运行 在运行的系统中添加基本的信息 16 将 增加记录 的按钮复制粘贴 拖过来将第二个名字改为 上一记录 点击将命 令改为 skip 1 向上移动一个指针 Tmand3 Enabled t 指对象可用 Thisform 指当前表单 IF BOF 如果记录指针位于文件头 注意文件头就是第一条记录的前面 而不是第一条记录 MESSAGEBOX 已到第一条记录 48 信息提示窗口 MESSAGEBOX 弹出模式对话框 GO 1 Tmand2 Enabled F 指对象不可用 ENDIF thisform Refresh 刷新表单 点击运行 一直到第一个记录之后 界面会自动弹出 一个信息提示窗口 写着 已到第 一条记录 关闭窗口 第二个按钮将会失效 17 同理 将第三个按钮的名字改为 下一记录 其命令改为 skip 1 向下移动一个指针 Tmand2 Enabled t IF EOF 如果记录指针位于文件尾 注意文件头就是最后一条记录的前面 而不是最后一条记录 MESSAGEBOX 已到最后一条记录 48 信息提示窗口 GO bottom 记录指针转到末尾记录 Tmand3 Enabled F ENDIF thisform Refresh 点击运行 要最后一个信息提示窗口则提示的是 最后一条记录 关闭窗口 此时失 效的是最后一个记录的按钮 18 最后一个也就是第四个按钮 改名为 返回 将其命令设为 thisform release 退 出或关闭表单 2 寝室管理信息查询系统 1 将 成绩信息输入系统 中的两重标题复制 然后在文档下新建表单 把复制的标题进 行粘贴 然后改名为 成绩信息修改系统 在 lable1 与 lable2 中更改 2 加入标签改名为 请输入查询的学号 点击 FontSize 修改字体大小 Autsize 变 假为真 点击 backstly 透明 再在后面加一个 文本框 调整到适当的大小 3 在文本框中点击右键生成器中 在值中的字段名设置为 xh 在后面加一个 确定 的 按钮 将其命令设为 LOCATE for ALLTRIM 学号 ALLTRIM xh IF not FOUND MESSAGEBOX 查无此人 请核准后重新查询 48 信息提示窗口 ENDIF thisform Refresh 4 在 form1 中单击右键 点击生成器 5 将 寝室管理信息输入系统 中的字段复制粘贴到下方 6 最后也就是跟上一程序一样 添加一个命令按钮键 建立一个返回键 命令为 thisform release 7 选定字段所有文本框 点击属性栏中的全部 选择 readonly 变假为真 3 寝室管理信息修改系统 8 将 成绩信息输入系统 中的两重标题复制 然后在文档下新建表单 把复制的标题进 行粘贴 然后改名为 成绩信息修改系统 在 lable1 与 lable2 中更改 9 加入标签改名为 请输入查询的学号 点击 FontSize 修改字体大小 Autsize 变 假为真 点击 backstly 透明 再在后面加一个 文本框 调整到适当的大小 10 在文本框中点击右键生成器中 在值中的字段名设置为 xh 在后面加一个 确定 的 按钮 将其命令设为 LOCATE for ALLTRIM 学号 ALLTRIM xh 根据学号查询指定的记录 LOCATE 定位 IF not FOUND 如果记录没有找到 MESSAGEBOX 查无此人 请核准后重新查询 48 信息提示窗口 MESSAGEBOX 弹出 模式对话框 ENDIF thisform Refresh 刷新表单 11 在 form1 中单击右键 点击生成器 12 将 寝室管理信息输入系统 中的字段复制粘贴到下方 13 最后也就是跟上一程序一样 添加一个命令按钮键 建立一个返回键 命令为 thisform release 四 设置密码四 设置密码 1 将 成绩信息输入系统 中的两重标题复制 然后在文档下新建表单 把复制的标题进 行粘贴 然后改名为 密码设置 在 lable1 与 lable2 中更改 并自行调整格式大小 2 在数据库设计器内 单击右键选择新建表 保存至桌面文件夹内 表设计器 3 在表单设计器中单击右键 打开数据环境 选定 字段 准备添加所有字段 按住鼠 标左键不松 将 字段 拖进表单的适当位置 自行调整格式 可利用 height 高 width 宽 left 左 FontSize 字体大小 同输入系统 4 在 表单控件 选择 命令按钮 在表单中拖出合适的位置 改名为 增加记录 并调整字体大小 FontSize 点击并输入命令如下 append blank thisform Refresh 然后点击运行 在运行的系统中添加基本的信息 5 最后也就是跟上一程序一样 添加一个命令按钮键 建立一个返回键 命令为 thisform release 五 修改密码五 修改密码 1 将 密码设置 中的两重标题复制 然后在文档下新建表单 把复制的标题进行粘贴 然后改名为 密码修改 在 lable1 与 lable2 中更改 并自行调整格式大小 2 在新建表单中添加 4 个 标签 并分别改名为 用户名 原始密码 请输入 新密码 和 请确认新密码 同时添加两个命令按钮 分别改名为 确定 和 返回 在 用户名 原始密码 请输入新密码 和 请确认新密码 后分别添加一个 文本框 3 右击 请选择用户 后的文本框 点击 生成器 挑选出 用户名 并赋值为 yh 右击另外两个文本框 点击 生成器 分别将 原始密码 赋值为 ymm 将 请输入新密码 赋值为 pw1 将 请确认新密码 赋值为 pw2 在后面加一个 确定 与 返回 的按钮 确定 命令设为 locate for ALLTRIM 用户名 ALLTRIM yh IF NOT FOUND messagebox 用户名不存在 请重新输入 48 信息提示窗口 RETURN ENDIF IF thisform text3 valuethisform text4 value 不等于 messagebox 两次输入密码不一致 请重新输入 48 信息提示窗口 RETURN 返回 ENDIF if thisform text2 value 用户密码 and thisform text3 value thisform text4 value repl 用户密码 with thisform text3 value messageb 修改成功 提示 else messageb 历史密码错误 提示 ENDIF 返回代码为 thisform release 六 管理系统六 管理系统 1 将 成绩信息输入系统 中的两重标题复制 然后在文档下新建表单 把复制的标题进 行粘贴 然后改名为 成绩信息管理系统 在 lable1 与 lable2 中更改 2 在表单中添加 5 个命令按钮 分别改名为 成绩信息输入系统 成绩信息查询系统 密码设置 密码修改 和 退出 3 双击 宿舍信息输入系统 按钮 输入命令语句 DO form cjsr Thisform refresh 刷新表单 4 双击 宿舍信息查询系统 按钮 输入命令语句 DO FORM cjcx Thisform refresh 5 双击 密码设置 按钮 输入命令语句 DO FORM mmsz Thisform refresh 6 双击 密码修改 按钮 输入命令语句 DO FORM mmxg Thisform refresh 7 双击 退出 按钮 输入命令语句 AA MESSAGEBOX 是否退出本系统 4 32 256 信息提示窗口 IF AA 6 6 是 Thisform release 退出 ENDIF 8 在工具栏中项目中选择默认目录 然后找到我们开始建立文件夹的位置 设置关联 9 修改 form1 代码 空白处右击代码 修改过为 命令代码为 IF ALLTRIM aut 1 1 AUT 是自动化测试的简称 mand1 Enabled T Tmand2 Enabled T Tmand4 Enabled T ENDIF IF ALLTRIM aut 1 2 Tmand1 Enabled T Tmand2 Enabled T ENDIF 七 系统登录七 系统登录 1 将 密码设置 中的两重标题复制 然后在文档下新建表单 把复制的标题进行粘贴 然后改名为 系统登录 在 lable1 与 lable2 中更改 并自行调整格式大小 2 在新建表单中添加 2 个 标签 并分别改名为 用户名 登录密码 同时在后 面分别添加一个 文本框 3 右击 用户名 后的文本框 点击 生成器 并赋值为 yh 右击另外一个文本框 点击 生成器 将 登录密码 赋值为 mm 4 在后面添加一个 确定 的按钮 将其命令设为 n num n num 1 IF n num 3 MESSAGEBOX 错误次数超过 3 系统将关闭 48 信息提示窗口 RETURN thisform Release ENDIF locate for ALLTRIM 用户名 ALLTRIM yh IF NOT FOUND messagebox 用户名错误 请重新输入 48 信息提示窗口 RETURN ENDIF locate for ALLTRIM 用户密码 ALLTRIM mm IF NOT FOUND MESSAGEBOX 用户密码错误