自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(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 4717

原创 TClentDataSet的bug?

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

2007-07-17 09:21:00 690

原创 取GridEh页脚的合计值

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

2006-11-10 15:11:00 993

转载 防止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 3195

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

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 850

转载 新婚四夜睡姿

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

2006-05-06 15:42:00 937

原创 学习成绩排名

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 907

原创 获取星期几的函数

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 1090

原创 用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 3808 1

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

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

2006-05-01 18:15:00 4652

原创 如何在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 1507 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 2281

原创 如何用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 910

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除