- 博客(13)
- 收藏
- 关注
原创 关于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
5097
原创 TClentDataSet的bug?
在SQL SERVER查询分析器可执行SELECT TClientDataSet的CommandText设置为SELECT ,却提示无效参数, SELECT 却可以执行
2007-07-17 09:21:00
759
转载 防止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
3334
原创 枚举某一时间段的有多少正点
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
901
转载 新婚四夜睡姿
“新婚夫妻头四天夜里的睡姿象四个字”同事黄先生在临下班之前大发高论,“第一夜像‘非’字,所谓羞羞答答,所以背向而卧;第二夜像‘羽’字,新郎毕竟脸皮较厚;第三夜像臼’字,新娘已不像头两夜那么害羞了,因而已有相拥之意;第四夜像‘日’字,左右上下密不通风,足以证明情意缠绵了
2006-05-06 15:42:00
983
原创 学习成绩排名
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
965
原创 获取星期几的函数
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
1164
原创 用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
4033
1
原创 找不到动态连接库 rtl70.bpl
打包之后在有的机器安装会出现这个提示,百思不得其解,后搜索相关资料后得知,是DELPHI在编译的时候造成的。解决办法:打开project菜单的options子菜单,将packages里面的build with runtime packages前面的对沟去掉即可。
2006-05-01 18:15:00
5015
原创 如何在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
1578
2
原创 如何用DataList实现某一列如果超过特定长度就自动换行
16?DataBinder.Eval (Container.DataItem,"FileName").ToString().Replace("/n","").Replace(" (">",">").Replace("/r","").Replace(" "," ").Substring(0,16):DataBinder.E
2005-03-22 09:57:00
2419
原创 如何用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
959
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人