在上一篇文章完成创建数据库后，本文简述通过数据窗口以及控件脚本对数据库进行简单的增删改查。
一、界面设计
界面如下：
界面.png
二、窗口、控件、菜单等说明
首先，新建一个workspace和APP应用，然后再new一个grid的datawindow，将所有column都显示出来。这个datawindow命名为db_main，后面会在数据窗口控件中绑定该数据窗口。如下图
new一个数据窗口.png
然后，新建一个w_main，上面挂上数据窗口控件和两个groupbox，一个groupbox中放置statictext客户编号、singleedit、查询以及显示全部两个button。另一个groupbox中放置四个button分别是添加、删除、保存、退出。最后，在数据窗口控件要绑定数据窗口db_main，如下图：
数据窗口控件绑定数据窗口.png
三、菜单事件脚本
1、APP中添加程序入口脚本：
连接数据库，然后open主窗口w_main
// Profile Db
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=db'"
connect using sqlca;
if sqlca.sqlcode<>0 then
messagebox("错误","连接数据库错误"+sqlca.sqlerrtext)
return
end if
open(w_main)
2、主窗口的open事件代码如下：
注意，这里的oldsql是一个全局函数，在declare instance variable中定义
oldsql="SELECT * FROM wjj_family "
ordersyn=" ORDER BY wjj_family.~"客户编号~""
dw_1.settrans(sqlca)
dw_1.retrieve( )
3、查询按钮代码如下：
string wheresql,newsql
long lrc
if sle_1.text<>"" then
wheresql="where 客户编号='"+sle_1.text+"'"
newsql=oldsql+wheresql
dw_1.setsqlselect(newsql)
lrc=dw_1.retrieve( )
if lrc<1 then
messagebox("提示","没有检索到，请检查客户编号")
end if
else
messagebox("提示","请输入客户代号")
end if
4、显示全部按钮代码如下：
dw_1.setsqlselect(oldsql+ordersyn)
dw_1.retrieve( )
5、添加按钮代码如下：
long l_row
int s
s = dw_1.rowcount( )
l_row = dw_1.insertrow( s+1)
dw_1.scrolltorow( s+1)
dw_1.setfocus( )
6、删除按钮代码如下：
int s
s = dw_1.getrow( )
dw_1.deleterow(s)
7、保存按钮代码如下：
dw_1.update( )
dw_1.retrieve( )
8、退出按钮代码如下：
close(parent)
