- 博客(22)
- 收藏
- 关注
RSS订阅原创 游标使用
DECLARE mycur CURSOR FOR SELECT distinct users.lg_name FROM users; OPEN mycur;DO FETCH mycur INTO :glydl; if sqlca.sqlcode ddlb_1.additem(string(glydl)) loop while sqlca.sqlcode=0 CLOSE mycur;
2007-11-05 22:50:00
399
原创 查找表中字段重复记录
1 查找多个字段同时重复的记录select distinct a.id,a.treeid,a.xh,a.namege from x_spzl a,x_spzl b where b.id2 1 查找单个字段重复的记录select * from x_spzl where id in (select Id from x_spzl group by id having count(id)>1
2007-07-30 11:11:00
643
原创 清除sqlserver2000数据库连接
SET QUOTED_IDENTIFIER ON GOSET ANSI_NULLS ON GOALTER PROCEDURE sp_KillUsers@p_DBName SYSNAME = NULLAS/* Check Paramaters */ /* Check for a DB name */ IF (@p_DBName IS NULL)BEGINPRINT You must su
2007-06-26 10:17:00
588
原创 pb中利用api使pb编写的窗口始终置前
pb中利用api使pb编写的窗口始终置前通过SetWindowPos函数吧窗口的显示层次修改为HWND_TOPMOST，就可以使指定窗口永远不会被其它窗口覆盖，该函数声明为： Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Long dx, Long dy, Long ufl
2007-06-26 10:04:00
771
转载 SQLSERVER连接问题
我有一个内部网站，后台是用SQLSERVER2000做服务器，如果同时登陆的机器到了20多台的话就会出现找不开网页，或网页只出现一部份的情况，请问，这是什么原因导致的，如何解决？ 1. 服务器配置不高,处理不了这么多请求 2. 网络带宽太低,无法及时传递这么多数据 3. 数据库设计不合理,不能应付这么多数据处理 4. 数据处理没有
2007-06-14 09:13:00
509
转载 系统错误日志函数
发一个系统错误日志函数2007-06-12 20:35 将这个函数写到app的systemerror事件即可 //=====================================================================
2007-06-12 09:46:00
527
转载 在PB中记录系统出错日志
http://www.cnblogs.com/shyuan/archive/2007/06/11/779479.html
2007-06-12 09:37:00
891
原创 小写金额转换成大写金额
//**************************************************************************//功能: 小写金额转换成大写金额 .//参数: decvalue: Decimal, 小写金额 .//返回: String , 成功返回大写金额 , 否则返回空 .//说明: 金额不能大于 15 位 ( 即千亿 ) , 形式如 ### ###
2007-06-04 09:38:00
641
转载 pb datawindow 技巧
使DataWindow列只能追加不能修改 如何使DataWindow中的数据只能追加新记录而不能修改，利用 Column 的 Protect 属性可以很方便的做到这一点，方法如下：将每一列的 Protect 属性设置为：If( IsRowNew(), 0, 1) ) 在 PowerScript 中可以动态修改 Protect 属性：dw_1.Modify("column_name_here.Pro
2007-05-29 10:26:00
1136
转载 PB中的Describe,Evaluatate,LookUpDisplay小结
PB中的Describe,Evaluatate,LookUpDisplay小结Describe 可以描述DW中某个对象的某个属性的取值,虽然函数Describe可以获取对象的信息，但是表达式的取值就不能正常读取了，而这又是经常遇到的.Evaluate 如果想获取数据窗口对象中由属性、函数等构成的表达式的取值时，必须在函数Describe中使用函数Evaluate,LookUpDisplay
2007-05-25 09:30:00
566
原创 一个SQL SERVER数据库只剩下mdf文件,怎么附加数据库？
一个数据库只剩下mdf文件了，用附加数据库的方法不行，怎么办1、建一个同名的数据库2、修改服务器设置：允许多系统目录进行直接修改3、停止SQL Server4、用原mdf文件覆盖新建库的数据库文件5、重启SQL Server（这时数据库应该是置疑）6、将数据库置为紧急状态：update master.dbo.sysdatabases set status = 32768 where name
2007-05-19 08:32:00
1009
原创 获得SQL SERVER服务器列表
局域网中有几个sql server服务器，我想在pb中得到所有的sql server服务器列表，该怎么做？1、在SQL查询分析器中，输入sp_linkedservers，就可以查看已经连接上的 sql server服务器。2、API实现该功能返回值ls_list，各个SQLSERVER服务器是用,分隔的，自己做个拆分函数就可以分解成多个SQLSERVER服务器名称了。
2007-05-18 08:18:00
810
1
原创 mssql server 2000 触发器研究
/****** Object: Trigger dbo.tr_kcdjsh_compute_jc Script Date: 2005-1-24 14:22:23 ******//****** Object: Trigger dbo.tr_kcdjsh_compute_jc Script Date: 2003-8-12 18:24:57 ******/-----作用：--库存
2007-05-08 13:54:00
621
原创 生活
上二个月的水电费：水费是70几块，电费：200多点你水电费，网费，物业费给我150好了还有，2006年的有线电视费你交50给我好了我给房东180今年的有线电视费到时不要忘记去交 admin /risingsun
2007-02-27 08:24:00
575
转载 PB从EXCEL中导入数据到数据窗口的程序(2)
cfc_exceltodw(datawindow adw, string excelname)参数是导出的dw和excel文件的完整路径OLEObject ole_objectole_object = CREATE OLEObjectinteger li_ret1,valuestring namedli_ret1 = ole_object.ConnectToObject("","Excel
2007-02-08 09:48:00
1779
1
转载 PB从EXCEL中导入数据到数据窗口的程序(1)
//***************************************************************//// 函数名称： GF_EXCEL_TO_DATAWINDOW // 函数功能： EXCEL文件导入DATAWINDOW
2007-02-07 16:56:00
2356
1
转载 PB中数据窗口导出数据到EXCEL的程序（4）
（支持导出分组带、合计带，并且支持多层嵌套报表导出,基本是所见及所得）///////////////////////////////////////////////////////////////////////////////Parameters:ad_dw:datawindow//as_file:file name//Returns:true/false:boolean//Descriptio
2007-02-07 16:55:00
1195
原创 PB中数据窗口导出数据到EXCEL的程序（3）
1. nvo_excel 只要是两个接口函数导出数据存储的数据,可以定义 excel 的标题public function integer uf_toexcel (datastore ads_data, readonly string as_title)导出数据窗口的数据,可以定义 excel 的标题public function integer uf_toexcel (datawindow
2007-02-07 16:53:00
1486
转载 PB中数据窗口导出数据到EXCEL的程序（2）
//====================================================================// [PUBLIC] Function uf_data2excel 在 u_data2word inherited from nonvisualobject//-------------------------------------------------
2007-02-07 16:50:00
1569
转载 PB中数据窗口导出数据到EXCEL的程序（1）
/**********************************************************/ /* 函数名称：uf_dwsaveas_excel 功能 ：将数据窗口数据导出EXCEL文件，并将EXCEL文件默认英文标题替换成中文。 参数 ：datawindow datawin，为用户要导出数据窗口的数据窗口控件名 返回值：integer 1，success；-1，err
2007-02-07 16:47:00
2247
原创 无法显示隐藏文件
症状:在工具/文件夹选项中选择显示所有文件和文件夹,依然看不到隐藏文件解决方法:在注册表编辑器中找到“HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/explorer/Advanced/Folder/Hidden/SHOWALL”分支，然后在右窗
2007-01-27 10:12:00
3409
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人