【实践】——PowerBuilder登录+PB自带数据库

    自考实践课考试，最后一天啦，赶紧着吧.....

创建窗体：

    第一次接触PowerBuilder，本以为这个开发工具类似VB一样的东西，但安装完后，呆了，哪跟哪啊。窗体呢，控件呢？？？

    别着急呀，todo，先点点。

    跟着我的步伐走，不就在这嘛~

    然后保存在指定路径！继续：

    finish,继续~~哈哈，马上有了~

    看效果：有没有很熟悉，有没有：

    呼，看到这个界面，瞬间亲切万倍呀。

    接下来，就是创建数据库啦。我用的是PB自带的数据库。

    跟着图走就是啦~~

创建数据库：

    

    根据自己的实际情况填写

建表，添加数据：

    OK后，库就创建好了，我们开始创建表，添加字段：

    保存表名

    表建好了，在我的小项目需求中，需要先加入一些数据，操作是右击表，点击Insert Row,但是，怎么是灰的？？

  通过查找，说是因为没有设置主键。尝试了一下，果然成了。

设置主键：

  保存即可。然后看效果：

    添加数据：

    此时，数据库这块基本完成，然后就是如何连接数据库啦：

    先按图示部分操作：

    然后：

    继续：

    最后：

    效果：

    然后将此拖拉到需要连数据库的窗体中。就可以了。如：

登录实例代码：

    首先设置启动窗体：

    窗体open中：login.open()

SQLCA.DBMS="ODBC"
SQLCA.AutoCommit=False
SQLCA.DBParm="Connectstring='DSN=Userinfo;UID=dba;PWD=sql'"
CONNECT ;

//给数据窗口控件dw_1设置通讯取余sqlca
data.SetTransObject(sqlca)
//从数据库的S表中检索全部数据
data.Retrieve()

//与userinfo表进行连接以后，查询出来与考生名字文本框对应的所有在数据库中的数据。
integer i =0
for i=1 to rowcount(data)
		db_name.AddItem(Trim(data.object.data[i,1]))  
next

    添加用户名密码后，点击确定按钮，判断用户是否存在，密码是否正确：

String psd
String name
//用户名，密码不能为空

if db_name.text="" then
messagebox("警告","用户名不得为空")
elseif sle_pwd.text="" then
		messagebox("警告","密码不得为空")	 
else
		

		//用SQL语句根据用户名查找密码
			
		stuName=db_name.text	<span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; text-align: center;">		</span>		
		select password
		INTO:psd
		FROM "Userinfo"
		where "Userinfo"."username"=:db_name.text;
<div style="text-align: center;"></div>		if psd<>sle_pwd.text then
			messagebox("提示信息","密码错误")
			sle_pwd.text=""
			sle_pwd.SetFocus()
		else
			Open(selectcourse)
			close(parent)
		end if
	
end if 

效果：

总结：

    这个作业，从装软件开始，稀稀落落总共做了1天半，时间不算短，但也是对自己的一个小挑战，检验了自己的自学能力。

    语言都是相通的，在此又一遍的验证了......