1、建立 Workspace 对象
2、建立 Application 对象
3、建立 Window 对象 mywin
4、建立 DataWindow 对象 mydata
5、在 Application 对象的 OPEN 方法中添加一句:open(mywin)
6、在 Window 对象上添加 DataWindow 控件 dw_1,控件的 DataObject 属性设为 mydata
7、在 Window 对象的 OPEN 方法中添加下列语句实现数据库查询(前三条语句内容参照 PB 数据库 一节)
| SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = False SQLCA.DBParm = "ConnectString='DSN=price;UID=root;PWD='" connect using SQLCA; if SQLCA.SQLCODE = -1 then messagebox("Can't connect","") end if 
 dw_1.retrieve() 
 DISCONNECT USING SQLCA; |