光电工程学院集中上机2实习指导书
图18
7、设计登录窗口
点击新建图标，选择PB Object标签，双击Window，如图19所示，双击Window后出现窗口编辑窗口，如图20所示。
图19
光电工程学院集中上机2实习指导书
图20
点击OK按钮右边的下拉标识，选择A控件（静态文本框），在窗口编辑区放2个，同理，选择I控件（单行编辑框），在窗口编辑区放2个，选择OK控件（命令按钮），在窗口上放2个，并分别将其text属性改写为图21的状态。
图21
将窗口的title属性更改为登录窗口
选中密码后面的单行编辑框（空白），将其属性中的Password选中。 双击取消按钮，在代码编辑窗口中输入代码：close (parent)
保存窗口，命名为w_dl，此时在左边窗口中出现w_dl的名称，如图22所示，双击w_dl，就可以回到窗口编辑状态。
光电工程学院集中上机2实习指导书
图22
重新建立一个新的窗口，将其title更名为学籍管理，保存窗口，命名为w_main。 双击确定按钮，代码编辑框中输入以下代码： string temp
select yhmm into :temp from dl where yhmc=:sle_1.text; if sle_1.text<>\
if sle_2.text=temp then
open(w_main) close(parent)
messagebox(\提示\用户名或密码错误\
else end if
messagebox(\提示\用户名不能为空\
else end if
点击数据库快捷图标－Grid，如图23所示。
，展开tables前的+号，右键点击基本表dl，选择Edit Data
光电工程学院集中上机2实习指导书
图23
出现result窗口，右键点击空白处，选择Insert Row，如图24所示
图24
根据自己的习惯输入用户名称和密码并保存。
双击窗口左边的图标，如图25所示，出现代码编辑区，在下面写上代码： open(w_dl) 保存代码
光电工程学院集中上机2实习指导书
图25
点击运行快捷图标
，运行程序，运行效果见图26。
图26
第二次上机时间段完成的内容（4学时） 1、设计菜单
点击新建快捷图标，选择PB Object标签，双击Menu，如图27所示