- 博客(116)
- 收藏
- 关注
转载 复制分发数据库
sql服务 -sql代理 【登录身份设置为“LocalSystem”】 准备: 1. 修改布服务器、订阅服务器和见证服务器上的SQLServer服务账号和SQLServer Agent的服务账号,使三者之间的用户名和密码一致。 方法:Configuration Tools-》SQLServer Co
2015-10-27 00:09:33 510
转载 delphi 判断字符串有中文
if length(sdate)-length(widestring(sdate)) > 0 then showmessage('有中文')
2015-04-28 11:49:23 1619
转载 Delphi unicode 数字转换成中文显示
function ProcessFormSource(mSource, mDest: TStrings): Boolean;var I, J, K: Integer; S: string; vTempStr, vLeftStr: string; vWideByte: Integer;begin Result := False; if not (Assig
2015-04-28 06:56:08 2100
原创 cxSpreadBook 或 cxSpreadSheet 设置成文本格式
uses cxSSStyles,cxSSDesigner;Type TStyleAccess = class(TcxSSCellStyle); TSheetAccess = class(TcxSSBookSheet);procedure TForm2.Button16Click(Sender: TObject);var Row,Col:
2014-10-31 11:14:53 1969 1
转载 JS保留2位小数
JS保留两位小数 对于一些小数点后有多位的浮点数,我们可能只需要保留2位,但js没有提供这样直接的函数,所以我们得自己写函数实现这个功能,代码如下: function changeTwoDecimal(x) { var f_x = parseFloat(x); if (isNaN(f_x)) { alert('function:change
2014-05-26 15:31:13 536
转载 只显示内容 不显示HTML标签
'显示汉字Function LoseHtml(ContentStr) Dim Str,re Str = ContentStr On Error Resume Next Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = "]*)>"
2014-05-24 10:43:45 946
转载 Delphi6-xe5 中的MD5实现方法
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现。示例代码[html] view plaincopy
2014-02-06 10:06:15 754
原创 等待代码
Response.Buffer = True Response.Write 正在努力获取中,请稍候!!!!</d iv> Response.Flush '输出部分内容 rs.openstrSql,Conn134,1,1 Response.Write document.getEle mentById('wait').style.d isplay='none
2014-01-15 16:11:57 424
原创 asp结合javascript,xml,sqlserve…
http://www.alixixi.com/WebScript/subject14/200512134141885.html 咨询这个界面
2014-01-15 16:11:54 310
转载 使input只能输入小数点和数…
强原文地址:使input只能输入小数点和数字作者:cross<meta http-equiv="content-Type"content="text/html;charset=gb2312">js只能输入数字和小数点<script language="JavaScript"type="text/javascript"> functionclearNoNum(obj)
2014-01-15 16:11:47 407
原创 Asp操作Cookies(设置[赋值]、读取…
Response.Cookies("letwego")("visiter")="84ww" '赋值Response.Cookies("letwego").Expires= (now()+7) '设置过期时间(7天)userName=Request.Cookies("letwego")("visiter") '取CookiesResponse.Cookies("letwego").Expire
2014-01-15 16:11:45 429
原创 asp去除所有的超级链接的两种方法&…
'******************************'函数:RemoveHref_A(HTMLstr)'参数:HTMLstr,待去除链接的字符串'作者:阿里西西'日期:2007/7/12'描述:去除字符串中所有的超级链接'示例:测试")百分号>'******************************Function RemoveHref_A(HTMLstr)Dim
2014-01-15 16:11:42 513
原创 ASP 字符串函数
asp之字符串函数示例用字符串函数对字符串进行截头去尾、大小写替换等操作。 函数 语法 功能Len Len(string|varname) 返回字符串内字符的数目,或是存储一变量所需的字节数。Trim Trim(string) 将字符串前后的空格去掉Ltrim Ltrim(string) 将字符串前面的空格去掉Rtrim Rtrim(string) 将字符串后面的空格去掉Mid Mid
2014-01-15 16:11:40 459
原创 [转]editor.js或editor.asp等网页…
网上很快有了原因分析及解决方法,原因是IE8中不支持“anonymous()”方法,于是网上能大量搜索到解决的办法,将anonymous()改为onclick(event),在IE8中便可正常使用,但在老版本的IE中便不能使用,然后就有人增加了版本判断,以下代码开始流行:if (element.YUSERONCLICK) eval_r(element.YUSERONCLICK +"anony
2014-01-15 16:11:38 524
原创 局域网共享详细设置(访问共享不要…
参考该网站 http://wenku.baidu.com/view/f8834bd5b14e852458fb5757.html
2014-01-15 16:11:35 423
原创 【转】开机显示MOM.EXE-应用程序错…
开机显示MOM.EXE-应用程序出错:应用程序正常初始化(0xc0000135)的两种解决方法 天刚刚重装了系统,显卡驱动是到官方网站下载的最新的ATI催化剂7.5。却是在一开机就出现“MOM.EXE-应用程序出错:应用程序正常初始化(0xc0000135)”这样的情况,甚是让人头疼,在网上搜了一下,找到一解决方法,拿来与大家分享,希望能帮助大家解决一点问题。A.解决方法方法
2014-01-15 16:11:33 1133
原创 Delphi 时间戳 毫秒&nbs…
如果是13位数字。则把后面的3位0取消掉。再转换。。 cxLabel1.Caption:='1356928312'; wwDBEdit1.Text:=FormatDateTime('yyyy-MM-dd hh:mm:ss:nnn',UnixToDateTime(1356928312)); 主要是用到了 UnixToDateTime 这个函数
2014-01-15 16:11:30 655
原创 应用复制的命令时在订阅服务器上找…
在SQLServer的复制中出现在错误“应用复制的命令时在订阅服务器上找不到该行”,换上以前的做法就是删除掉这个复制,然后再新建一个复制,但是这次,我突然想BAIDU一下,看看别人是怎么处理这个问题的,然后发现找到的文章都是从MSDN上抄下来的,因此我决定把我的做法写下来。 首先查MSDN,确定这个错误的ID为20598,这个下面会用到;确定了错误ID之后,有两种方法可以跳过这个错误
2014-01-15 16:11:28 749
原创 Server2008+SQL2008 日志读取代理…
服务器的环境是Server2008+SQL2008,做本机的发布,再推送到本机,可是总提示,“日志读取代理器未运行”错误提示:进程无法在“WIN-XXX”上执行“sp_replcmds”。 (源: MSSQL_REPL,错误号:MSSQL_REPL20011)获取帮助: http://help/MSSQL_REPL20011无法作为数据库主体执行,因为主体 "dbo" 不存在、无法模拟
2014-01-15 16:11:26 558
原创 sql server复制需要有实际的服务器…
今天在做服务器复制,发布及订阅读的时候出现这样一种情况。 图片说明更能理解。 sqlserver复制需要有实际的服务器名称才能连接到服务器。提示错误图片如下:server复制需要有实际的服务器名称才能连接到服务器" TITLE="sql server复制需要有实际的服务器名称才能连接到服务器" />解决办法: 上图的服务器名称 和 下图的别名写成一模一样就可以。server复制
2014-01-15 16:11:24 478
原创 XP操作系统,惠普CQ40-710tx无声音…
下载如下二个文件: 1.微软通用音频架构(UAA)总线驱动: ftp://ftp.hp.com/pub/softpaq/sp33501-34000/sp33867.exe 先安装这个。然后再接着安装2 2.安装下面的 ftp://ftp.hp.com/pub/softpaq/sp38501-39000/sp38558.exe 安装完之后。会听到 啵啵的声音。解决
2014-01-15 16:11:22 514
原创 cxgrid cxEditButton PropertiesBu…
//当CxGridView 使用了这个 (TcxEditButtons) 。在ButtonClick事件的时候出现错误。错误提示:Control '' has no parentwindow出现错误的原因:点该事件,打开新的窗口时才会出现。如果不打开新的界面,则不会弹出错误。解决办法如下:在最后面加二句这样的代码就可以了。想了一晚上终于想清楚了。PropertiesButtonClic
2014-01-15 16:11:20 961
原创 数据库 代码的写法注意事项
Delphi 数据库操作的时候。使用FieldByName('XXX').asstring 的时候注意。在使用这句之前。必须能保证这个字段的内容是写进去了。如果是鼠标焦点还在这个字段的文本框里面,则使用这个语句会有错误。 必须先把焦点移到其它控件上面。如果 panel.setfocus;
2014-01-15 16:11:18 498
转载 判断给定时间段所在的星期一…
最近报表要用到一项功能,需要把数据源根据记录发生日期所在的星期序列进行分组。因此就写了两个相关SQLFunction进行调用,希望能给新手一些帮助。一、给定一个日期值,求出此日期所在星期的星期一和星期天的日期数据例如给定一个日期2010-09-01,求出它所在星期的星期一是2010-08-30,星期天是2010-09-05Function创建如下:USE [MSSQL] GO
2014-01-15 16:11:16 648
原创 CxGrid多选时,获取多选的数据
当GridMode为False时。可以自动排序。 当gridMode为False时 多选 使用 GridView.Controller.SelectedRowCount-1 do begin J := GetSelectedRowIndex(I); //先获取值 行的 索引值 YSZDMXReferListForm.GridView.Controlle
2014-01-15 16:11:13 830
原创 [转]sqlserver日期函数
SQLServer时间日期函数详解,SQLServer,时间日期, 如何实现只显示本月信息sql="select * from [table] wheredatediff(m,date,Now())=0" sql 查询本周本月 ---求相差天数 select datediff(day,'2004-01-01',getdate()) --1.一个月第
2014-01-15 16:11:11 501
原创 数据集 关闭时,手动加进去的字段…
FieldByName('SC').OnChange := SCFieldChange 当 数据集 关闭时,手动加进去的字段事件会清空 必须在open之后。手动再加进去。 之前一直都没找到这个原因。郁闷。
2014-01-15 16:11:09 518
原创 远程桌面 连接服务器黑屏 解决办法
使用远程桌面 连接过去是黑屏 解决办法 可能是因为服务器底色是黑色的。所以就出现这个问题的。在连接的时候把桌面背景也一起显示过来就可以了。连接的时候有的时候是可以的。有的时候是不会黑屏。所以就只能这样解决的。 连接服务器黑屏 解决办法" TITLE="远程桌面 连接服务器黑屏 解决办法" />
2014-01-15 16:11:06 1909
原创 checkbox 只选中一个
procedure TForm1.CheckBoxClick(Sender: TObject);begin CheckBox.OnClick := nil; CheckBox1.OnClick := nil; CheckBox2.OnClick := nil; CheckBox3.OnClick := nil; if Sender = CheckBoxthen begi
2014-01-15 16:11:04 418
原创 如何获得cxgrid的列名 某字段值 单…
procedureTForm_Child_Record.cxGrid1DBTableView1CellDblClick( Sender: TcxCustomGridTableView; ACellViewInfo:TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; varAHandled:
2014-01-15 16:11:02 998
原创 Cxgrid 单元格 内容 颜色 关键字高…
cxgrid列表的列一定要手动提前绑定好。后期绑定的,颜色是会变不了的。注意了。因为我的列表全部都是自动从数据库加载的。搞了好几天。手动绑定列表之后。才可以变颜色了。 效果图片如下显示:单元格 内容 颜色 关键字高亮显示" TITLE="Cxgrid 单元格 内容 颜色 关键字高亮显示" />procedure TXXXXXForm.GridViewCustomDrawCell( S
2014-01-15 16:10:59 769
原创 '2010-01-01 22:00' Is not a vali…
'2010-01-01 22:00' Is not a valid date and time 在程序创建的时候。直接使用这条语句就可以 Create事件中begin SetDateTimeFormat();beginprocedure SetDateTimeFormat;var p:DWORD;begin SetLocaleInfo(LOCALE_USER_DEFAU
2014-01-15 16:10:57 398
原创 Asp 下拉框 onChange 事件
下拉框onChange="showmoney(this.options[this.options.selectedIndex].value)"function KJLXChange(selectedindex){ if ((selectedindex==1) ||(selectedindex==2)) { document.getElementByIdx_x("jianshu"
2014-01-15 16:10:55 540
转载 delphi try except语句 和 t…
原文地址:try except语句 和 try finally语句用法以及区别">delphi try except语句 和 try finally语句用法以及区别作者:1865898133一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!)一、异常的来源 在Delphi的应用程序中,下列的情况都比较有可能产
2014-01-15 16:10:52 379
转载 delphi try except语句 和 t…
原文地址:try except语句 和 try finally语句用法以及区别">delphi try except语句 和 try finally语句用法以及区别作者:1865898133一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!)一、异常的来源 在Delphi的应用程序中,下列的情况都比较有可能产
2014-01-15 16:10:50 406
转载 不间断无缝滚动代码(横向、…
相当简洁 使用也方便原文地址:不间断无缝滚动代码(横向、竖向)作者:鑫人一个设定宽度并且隐藏超出它宽度的内容的容器demo,里面放demo1和demo2,demo1是滚动内容,demo2为demo1的直接克隆副本,通过不断改变demo1的scrollTop或者scrollLeft达到滚动的目的,当滚动至demo1与demo2的交界处时直接跳回初始位置,因为demo1与demo2一样,所以分不出跳
2014-01-15 16:10:48 416
原创 [delphi|XML]Xml简要 [转]
一) XML优点先让我们了解一下什么是XML(扩展标识语言). XML属于SGML(Standard Greneralized MarkupLanguage 标准通用标记语言)的一个子集,它是一种采用标记来描述文档(数据)的种类和方法. XML是由W3C下属的XML小组在JonBosak 的领导下于1996年完成的规范,1998年正是成为一种W3C推荐的标准. 使用过HTML的开发
2014-01-15 16:10:46 417
原创 [转]设置系统自动开机输入密码 同…
根据网上找的经验 再总结一下系统开机自动输入密码,win+L可以继续锁定,需密码登入.方法一(正在使用)如何设置win7开机自动登录administrator帐号?因为我是局域网要共享的原因,我开了guest帐号了,之后一开机就会在登录界面出现两个账号,一个administrator和一个guest账号,要点administrator账号才能登陆系统,这样很麻烦,有什么办法可
2014-01-15 16:10:43 600
转载 windows 2003系统下域控制器…
原文地址:2003系统下域控制器的安装">windows 2003系统下域控制器的安装作者:zhy861455 域控制器的安装 在网络环境中,有很多台计算机,每台计算机里面都有一定的资源,为了便于管理这些分散的资源所以要使用域环境进行集中的管理。 那么什么是域?域是一种有多台计算机上组成的逻辑环境,所有域中的重要资源都保存在域控的数据库中,并且进行集中管理。 windo
2014-01-15 16:10:40 437
原创 指定域的名称或安全标识(SID)与该…
[] 正用用vmware做2003域环境的实验,为了方便安装完了第一个直接复制成了三个虚拟机.把其中一个升级成域控制器,其它两个加入域,一切顺利,可是从另外两个任何一个登陆域都会提示"指定域的名称或安全标识(SID)与该域的信任信息不一致"google了一下,突然醒悟。其它两个虚拟机是复制的,这时候肯定和域控制器是一样的所以sid肯定是一样的,解决办法很简单了,重新封装一下就可
2014-01-15 16:10:38 572
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人