中国古典音乐 China classical music 英文介绍.ppt

实验名称:实验二 PowerScript语言与事件脚本
实验学时:
4学时
班级名称:
*****
学生学号:
*****
学生姓名:
**
实验时间:
13周周三
2013-2014学年第 1 学期
实验目的:
(1)掌握PowerScript语言及程序设计。
(2)掌握常用函数的使用方法。
(3)掌握常用控件事件脚本的编写方法。
(4)掌握嵌入式SQL语言的语法、功能。
实验内容:
。
(1)创建数据库。(数据库名称为:dianshang_db)
(2)在数据库创建表dianshang_login
字段:sy_id varchar
sy_pwd varchar
(3)在刚创建的dianshang_login表中添加两条数据为:
John 111111
Kate 222222
Tom 333333
。
(1)在计算机上创建自己的个人文件夹名称为:1**********宋毫。
(2)创建工作区app_sy2。
(3)创建应用程序app_sy2。
程序文件清单:,,,
:
(1)登录窗体w_main,如图1所示。

图1 图2
(2)查询用户窗体w_seek,如图2所示。
(3)信息维护窗体w_pre,如图3所示。
图3
核心代码
app_sy下的代码为:
// Profile Dianshang
= "ODBC"
= False
= "Connectstring='DSN=dianshang'"
connect using sqlca;
if <> 0 then
messagebox("提示","数据库连接错误")
end if
open (w_main)
登录窗体w_main“确定”按钮下的代码为:
string id,pwd
id =
pwd =
int kk
SELECT count(*)
INTO :kk
FROM "dianshang_login"
WHERE "dianshang_login"."sy_id" = :id ;
if kk < 1 then
messagebox("提示","没有该用户")
return
end if
string mm
SELECT sy_pwd
INTO :mm
FROM "dianshang_login"
WHERE "dianshang_login"."sy_id" = :id ;
if mm <> pwd then
messagebox("提示","密码错误,请重新输入!")
return
end if
open(w_seek)
close(parent)
查询用户窗体w_seek“确定”按钮下的代码为:
string id
id =
int kk
SELECT count(*)
INTO :kk
FROM "dianshang_login"
WHERE "dianshang_login"."sy_id" = :id ;
if kk < 1 then
messagebox("提示","没有该用户")
return
end if
string mm
SELECT sy_pwd
INTO :mm
FROM "dianshang_login"
WHERE "dianshang_login"."sy_id" = :id ;
= id
= mm
查询用户窗体w_pre“添加”按钮下的代码为:
string id,pwd
id =
pwd =
if trim(id) = "" then
messagebox("提示","用户名不能为空!")
()
return
end if
int kk
SELECT count(*)
INTO :kk
FROM "dianshang_login"
WHERE "dianshang_login"."sy_id" = :id ;
if kk > 0 then
messagebox("提示","该用户已经存在,无法添加")
ret