求现成可用sqlanywhere，即PB自带数据库一上可用的代码

求现成可用sqlanywhere，即PB自带数据库一下可用的代码
求现成可用sqlanywhere，即PB自带数据库环境下可用的代码，谢谢大侠了！！（小女子初学，实在不懂如何写代码，研究了很久，还是不会，于是就求救了，嘻嘻。。。。。）
以下问题各自独立！
1、如何在数据窗口使用粘贴功能
2、如何将数据库表里的列排序
3、如何设置外键，使得动态建立的数据库表里的某列里的数据显示到动态建立的数据窗口中
4、如何检测数据库表是否存在，存在跳转至窗口1，不存在跳转窗口2
以上问题解决一个20分，嘻嘻。。。。
在线求解！！
------解决方案--------------------
http://www.hur.cn
------解决方案--------------------
看成解决一个问题20块了

分变成悬赏了，呵呵
------解决方案--------------------
来抢20块。。。
第二个问题知道：
要先用setsort(string) 设置排序条件再用 sort() 执行排序。
其中的 string 是排序的条件，写法如：

string ls_sort = '列1名称 A, 列2名称 D'
dw.setsort(ls_sort)
dw.sort()

//即可以完成用列1 升序，列2 降序的方法排序。

------解决方案--------------------
http://www.hur.cn/soft/pb/

引用:

呵呵，eviler好幽默呀，去了xuam给的网页，找不到我想要的东西哦，是不是因为我不会查呢？？

------解决方案--------------------

//1 粘贴功能 提供一个EXCEL导入数据窗口的函数f_excel,传入参数是datawindow类型的DW名称，其中idw_dw.ImportClipboard(4)实现的就是粘贴（需要剪切板中内容的列数符合DW的列数及数据类型），可以改造一下，在DW的keydown事件下判断CTRL+V然后做粘贴操作。

string path,filename

integer value,result


value = GetFileOpenName("Select File",path,filename,"xls","xls Files (*.xls),*.xls,Text Files (*.TXT),*.TXT,DBF Files (*.DBF),*.DBF")

if value<>1 then return

if right(path,3)='xls' or right(path,3)='XLS' then 

 OLEObject ObjExcel

 ObjExcel = CREATE OLEObject

 result = ObjExcel.ConnectToNewObject( "excel.application")

 if result <> 0 then 

  messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!") 

  Return  

 else

  ObjExcel.Workbooks.Open(path)  //ls_rj是文件的路径

  string ls_copy

  int i

	 if ObjExcel.ActiveSheet.Cells.Copy = true then 

		  ObjExcel.Application.Visible = false

		  idw_dw.SetTransObject(SQLCA)

		  i =  idw_dw.ImportClipboard(4)     //将系统剪切版上的内容粘贴到数据窗口中,其中4为起始行参数

		  Clipboard("")                //清空剪切版上的内容

		  ObjExcel.Quit()

		  ObjExcel.DisconnectObject()    //断开与OLE的连接

		  Destroy ObjExcel 

      else

		  messagebox("提示","您的EXCEL不支持此功能，请检查EXCEL版本，建议使用OFFICE-EXCEL")

	 end if

end if 

elseif right(path,3)='txt' or right(path,3)='TXT' then

 idw_dw.importfile(path,2)

elseif right(path,3)='dbf' or right(path,3)='DBF' then

 idw_dw.importfile(path,1)

end if

2 使得动态建立的数据库表里的某列里的数据显示到动态建立的数据窗口中

建议使用timer()事件对数据窗口做定时刷新

//4

string ls_sql

ls_sql = "select count(1)  from TABLENAME;"

EXECUTE   IMMEDIATE     :ls_sql     USING   SQLCA;

if sqlca.sqlcode = 0 then

   messagebox("","存在") 

   open(W_1)

求现成可用sqlanywhere，即PB自带数据库一上可用的代码

相关推荐