hsmserver-CSDN博客

原创关于Record not found or changed by another user的问题

ClientDataSet提交时出现"Record not found or changed by another user"错误提示分析原因可能是找找不到更新数据，从网上搜索到大致原因有一下几个方面：1、没有主键2、某些字段不能识别某些提供解决方案也无非是设置DSP的UpdateMode属性，去掉字段的一些默认值这些问题，我仔细检查了一下，感觉不可能存在，仔细分析原因：我更新记录是分两种方式一种

2007-07-17 12:07:00 5046

原创 TClentDataSet的bug?

在SQL SERVER查询分析器可执行SELECT TClientDataSet的CommandText设置为SELECT ,却提示无效参数, SELECT 却可以执行

2007-07-17 09:21:00 748

原创取GridEh页脚的合计值

其实很简单:GridEH.GetFooterValue(0,GridEH.Columns[0])

2006-11-10 15:11:00 1068

转载防止DEDE反编译的DELPHI程序

Program Project1;Uses　　Forms,　　windows,　　sysutils,　　Unit1 In Unit1.pas {Form1},　　Unit2 In Unit2.pas {Form2};Function RegisterServiceProcess(dwProcessId, dwType: dword): Integer; Stdcall;　　Exte

2006-09-21 15:43:00 3309

原创枚举某一时间段的有多少正点

varmyDay:integer;leepDay:integer;StaDateTime,EndDateTime:TDateTime;Year1,Month1,Day1,Hour1,Minute1,Second1,MilliSecond1:Word;Year2,Month2,Day2,Hour2,Minute2,Second2,MilliSecond2:Word;i,j:integer;s1,s2

2006-07-05 17:31:00 891

转载新婚四夜睡姿

“新婚夫妻头四天夜里的睡姿象四个字”同事黄先生在临下班之前大发高论，“第一夜像‘非’字，所谓羞羞答答，所以背向而卧；第二夜像‘羽’字，新郎毕竟脸皮较厚；第三夜像臼’字，新娘已不像头两夜那么害羞了，因而已有相拥之意；第四夜像‘日’字，左右上下密不通风，足以证明情意缠绵了

2006-05-06 15:42:00 974

原创学习成绩排名

create talbe score (姓名 varchar(14),科目 varchar(14),分数 int)insert into score select 张三,数学,85 union all select 张三,语文,90 union all select 张三,英语,88 union all select 李四,数学,87 union all sel

2006-05-06 10:07:00 955

原创获取星期几的函数

function GetWeek: string;varmytime:_SYSTEMTIME;beginGetLocalTime(t);case mytime.wDayOfWeek of 0: Result:=星期日; 1: Result:=星期一; 2: Result:=星期二; 3: Result:=星期三; 4: Result:=星期四; 5: Result:=星期五

2006-05-02 17:05:00 1152

原创用Delphi简单实现创建控件数组

privateprocedure EdtEnter(sender: TObject);procedure EdtExit(sender: TObject);end;procedure Tfrm.EdtEnter(sender: TObject);beginTEdit(sender).Color:=clInfoBk;//当EDIT获得焦点时的颜色end;procedure Tfr

2006-05-02 16:28:00 4000 1

原创找不到动态连接库 rtl70.bpl

打包之后在有的机器安装会出现这个提示，百思不得其解，后搜索相关资料后得知，是DELPHI在编译的时候造成的。解决办法：打开project菜单的options子菜单，将packages里面的build with runtime packages前面的对沟去掉即可。

2006-05-01 18:15:00 4932

原创如何在DataGrid页脚显示统计数

在DataGrid的ItemDataBind事件中写如下代码：int sum=0;if (e.Item.ItemIndex>0){ sum+=int.parse(e.Item.Cells(3).Text);}elseif (e.Item.ItemType==ListItemType.Footer){e.Item.Cells[0].Text="总计：";e.Item.Cells[1].Text=su

2005-03-22 09:58:00 1558 2

原创如何用DataList实现某一列如果超过特定长度就自动换行

16?DataBinder.Eval (Container.DataItem,"FileName").ToString().Replace("/n","").Replace(" (">","&gt").Replace("/r","").Replace(" "," ").Substring(0,16):DataBinder.E

2005-03-22 09:57:00 2371

原创如何用DataGrid实现根据日期判断是否显示New标志

页面代码如下：CellPadding="0" AutoGenerateColumns="False" Height="100%" Width="224px" runat="server"> DataTextField="Title"> "images/none.gif"%> border="0" > 后台代码：SqlConnecti

2005-03-22 09:56:00 946

撒哈拉之雨的悲伤