2011 年 9月随笔档案 - DHT

一个SQL的写法——关于分组加顺序号(分数形式的序号)

摘要：CREATE TABLE #Tmp (a Char(1),b int IDENTITY (1,1))INSERT INTO #Tmp VALUES ('a')INSERT INTO #Tmp VALUES ('a')INSERT INTO #Tmp VALUES ('b')INSERT INTO #Tmp VALUES ('b')INSERT INTO #Tmp VALUES ('b')INSERT INTO #Tmp VALUES ('c')INSERT INTO #Tmp VALUES ( 阅读全文

posted @ 2011-09-08 10:59 DHT 阅读(295) 评论(0) 推荐(0)

sql server 2005 在 windows7 下的安装教程

摘要：安装sqlserver 2005的时候，提示iis 警告。 ok，我们这就打开Control Panel\All Control Panel Items\Programs and Features，点击Turn windows Features On or Off，选择IIs，安装。win 7安装完不需要重启. 然后我们继续安装sqlserver 2005，问题依旧，iis依旧提示警告，什么原因呢，查阅官方文档，知道原因是新版iis默认不会安装部分sql server 2005 需要的组件。 so，解决方案是是我们手动选择需要的组件，如上面提到的，到控制面板，打开IIS Features,点左阅读全文

posted @ 2011-09-08 10:58 DHT 阅读(192) 评论(0) 推荐(0)

数据库事务日志已满的解决办法

摘要：数据库事务日志已满的解决办法,处理方法很简单：1、使用命令：Backup log <dbname> with truncate_only2、在要减小日志的数据库上单击右键，出现：设置好点击“确定”就可以了。阅读全文

posted @ 2011-09-08 10:58 DHT 阅读(698) 评论(0) 推荐(0)

Win7下AMD3核安装SQL2005时出错解决办法

摘要：安装整合SP3的SQL2005开发版即可，若安装过程提示：“sqlserver2005 sql server 版本变更检查警告”，则退出安装程序，Windows+R -> cmd 输入你的安装程序（setup.exe）的路径 + 空格 + SKUUPGRADE=1。SQL2005整合SP3的方法参见:《Microsoft SQL Server 2005 整合、集成SP3 批处理版》。阅读全文

posted @ 2011-09-08 10:57 DHT 阅读(223) 评论(0) 推荐(0)

SqlServer 2005中关系的级联更新与删除

摘要：规则选择层叠即可. 阅读全文

posted @ 2011-09-08 10:57 DHT 阅读(331) 评论(0) 推荐(0)

Microsoft SQL Server 2005 整合、集成SP3 批处理版

摘要：解压SQLServer2005SP3-KB955706-x86-CHS.exe文件(使用 WinRAR 可直接解压,或使用 /extract)解压后文件夹搜索 “*.msi *.msp” ，然后复制所有搜索到的文件放到D:\SQL2005\SP3中.提取cs_sql_dev_all_dvd.iso(SQL Server 2005 开发版) 中的 x86 版本，放到D:\SQL2005\MSSQL中；此时 D:\SQL2005\MSSQL 中应该有以下文件和文件夹autorun.inf，Servers，Tools。然后把以下代码存为D:\SQL2005\Install.cmd，并双击运行。@ 阅读全文

posted @ 2011-09-08 10:56 DHT 阅读(442) 评论(0) 推荐(0)

SQL2005 provider: 命名管道提供程序, error: 40 - 无法打开到SQL Server的连接

摘要：在建立与服务器的连接时出错。在连接到 SQL Server 2005 时，在默认的设置下 SQL Server 不允许进行远程连接可能会导致此失败。 (provider: 命名管道提供程序, error: 40 - 无法打开到 SQL Server 的连接)解决方法:开始->>SQLServer2005->>配置工具->>SQLServer外围应用配置器->>服务和外围连接的应用配置器->>点击"远程连接"->>本地连接和远程连接->>同时使用TCP/IP和named Pipes-> 阅读全文

posted @ 2011-09-08 10:55 DHT 阅读(238) 评论(0) 推荐(0)

sql2005使用数据库关系图时出错

摘要：原因一:从SQL SERVER 2000中备份的数据库还原到SQL SERVER 2005 从SQL SERVER 2000中备份的数据库还原到SQL SERVER 2005上，打算新建一个数据库关系图，可是在Microsoft SQL Server Management Studio中一点数据库关系图的文件夹，就出现一个“此数据库没有有效所有者，因此无法安装数据库关系图支持对象。若要继续，请首先试用”数据库属性”对话框的”文件”页或ALTER AUTHORIZATION语句将数据库所有者设置为有效登录名，然后再添加数据库关系图支持对象”的提示按照他说的指定所有者，可惜还是不对，查了一下，应该阅读全文

posted @ 2011-09-08 10:54 DHT 阅读(210) 评论(0) 推荐(0)

How To: Insert and Update with OpenXML

摘要：declare @i int exec sp_xml_preparedocument @i output, '<mydata> <test xmlID="3" xmlData="blah blah blah"/> <test xmlID="1" xmlData="blah"/></mydata>' insert into test select xmlID, xmlData from OpenXml(@i, 'mydata/test') 阅读全文

posted @ 2011-09-08 10:53 DHT 阅读(160) 评论(0) 推荐(0)

sql分页查询语句

摘要：SELECT TOP页大小*FROMtable1WHEREID> (SELECTISNULL(MAX(ID),0)FROM (SELECT TOP(页大小*(页数-1))IDFROMtable1ORDER BYID ) A )ORDER BYIDSELECT TOP页大小*FROMtable1WHEREidNOT IN (SELECT TOP(页大小*(页数-1))idFROMtable1ORDER BYid )ORDER BYidSELECT*FROM (SELECT TOP页大小*FROM(SELECTTOP(页大小*页数)id FROM table1ORDER BY id) t1O 阅读全文

posted @ 2011-09-08 10:53 DHT 阅读(343) 评论(0) 推荐(0)

Delphi连接数据库

摘要：连接数据库有：dbExpress，DBE，ADO，IBX和ODBCdbExpress是宝蓝一种新的数据库引擎，它目前只能连接SQL服务器类型的数据库它是一种跨平台的数据库引擎，到目前只能连DB2、oracle、InterBase、MySQL、INFORMIX。它连接速度比较快，占有空间也比较小，加起来也只要近1M的大小。用它查出的数据集都是只读的单向移动的，如需更新数据需自己处理.ADO是微软的数据库引擎，它的稳定性比较强，由于是微软出的，在2000以上的系统中都自带了它，所以分发程序时不要打包它的驱动。IBX是一种专门用于连接InterBase数据库的。BDE是宝蓝的一个老牌数据库引擎，可以阅读全文

posted @ 2011-09-08 10:52 DHT 阅读(372) 评论(0) 推荐(0)

ActiveX组件与JavaScript交互

摘要：可能大部分人对JavaScript调用ActiveX比较熟悉，但在ActiveX中如何调用JavaScript的函数呢？网上看过一篇用C++编写的ActiveX组件调用JavaScript函数的贴子，但似乎没人关心Delphi中如何编写相应功能的代码，前段时间研究了一下，很简单，现分享出来。1.建立ActiveXForm工程，添加对SHDocVw，MSHTML单元的引用；2.在类中声明如下私有函数：private FWebBrowser: IWebBrowser2; function FindIEWebBrowser: IWebBrowser2; function FindIEWindow 阅读全文

posted @ 2011-09-08 10:51 DHT 阅读(280) 评论(0) 推荐(0)

Delphi的MessageBox的用法

摘要：MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBox(hWnd:HWND;Text, Caption:PChar;Type:Word): Integer; hWnd：对话框父窗口句柄，对话框显示在Delphi窗体内，可使用窗体的Handle属性，否则可用0，使其直接作为桌面窗口的子窗口。 Text：欲显示的信息字符串。 Caption：对话框标题字符串。阅读全文

posted @ 2011-09-08 10:49 DHT 阅读(168) 评论(0) 推荐(0)

delphi 中 Record ,packet Record

摘要：在windows中内存的分配一次是4个字节的。而packed按数据类型进行内存的申请和分配，读取时也是按照数据型的大小进行指针定位，这样速度要慢一些，因为需要额外的时间来进行指针的定位。因此如果不用packed的话，delphi将按一次4个字节的方式申请内存，因此如果一个变量没有4个字节宽的话也要占4个字节！这样就浪费了,你可以用packed关键字取消这种优化。例子:typemyrec = packed recordn1 : integer; 4个字节n2 : shortint; 1个字节end;sizeof(myrec)------ 5typemyrec = recordn1 : integ 阅读全文

posted @ 2011-09-07 16:34 DHT 阅读(409) 评论(0) 推荐(0)

DELPHI 文件类型种类

摘要：1．工程文件（Delphi Project File）工程文件是一个特殊的单元文件，是应用程序的主程序，它管理应用程序中的其他文件，该文件的拓展名是*.dpr，是一个文本文件2．窗体文件（Delphi Form）窗体文件存储有关窗体中对象的信息，它是一个二进制文件，窗体文件的拓展名为*.dfm，每个窗体文件都有一个与之相对应的单元文件，如有一个名为Unit1.dfm的窗体文件，就有一个名为Unit1.pas的单元文件与之对应。Unin23．单元文件（Pascal File）用于存储与程序功能有关的常量、变量、数据类型、函数与过程的定义，单元文件的拓展名为*.pas，是一个文本文件4．资源文件（阅读全文

posted @ 2011-09-07 15:53 DHT 阅读(357) 评论(0) 推荐(0)

delphi错误捕捉、错误信息获取

摘要：try ...excepton e:exception do begin //出错回滚 dm.OraSession.Rollback; MessageBox(Handle,pchar(e.message),'保存出错',MB_OK + MB_ICONSTOP); //恢复事务自动提交 dm.OraSession.AutoCommit := true; OraQuery1.AutoCommit := true; StringGrid1.SetFocus(); StringGrid1.Row := 1; StringGrid1.Col := 3; exit... 阅读全文

posted @ 2011-09-07 15:52 DHT 阅读(403) 评论(0) 推荐(0)

strtodate('2001-12-30') 出现'is not a valid date '错误

摘要：strtodate('2001-12-30') 出现'is not a valid date '错误查看控制面板->区域设置->日期发现日期分隔符号用了 '/' 如果改为'-'就没有问题解决办法：在程序中引入:DateUtils单元加入:DateSeparator := '-';ShortDateFormat:= 'yyyy-mm-dd';然后使用strtodate('2001-12-30') 阅读全文

posted @ 2011-09-07 15:52 DHT 阅读(473) 评论(0) 推荐(0)

Delphi中DBCheckbox的初始化

摘要：DBCheckbox的初始化包括：1.绑定数据源：可直接设置属性，也可在程序里设置 DBCheckbox.DataSource:=DataSource1; DataSource.DataSet:=ADOQuery; DBCheckbox.DataField:=Field1; 注：DBCheckbox捆绑的数据字段最好是Nnumber(1)类型；2.设置ValueChecked和ValueUnchecked 在属性栏中将ValueChecked设为1，ValueUnchecked设为03.只这些还不够，当新添加一条数据的时候，Field1为空，所以DBCheckbox显示第三种状态。后来想这在阅读全文

posted @ 2011-09-07 15:51 DHT 阅读(1789) 评论(2) 推荐(0)

ShowModal 关闭问题

摘要：对于模态对话框，ModalResult一旦被赋值，就会自动关闭。我遇到一个情况：１.在Form1中点击button1通过ShowModal打开模式窗口Form2２.在Form2中点击button2通过ShowModal打开模式窗口Form3３.在Form3退出的后，Form2同时出退出了查了很久发现原来是Form2中的button2的ModalResult属性设置了mrAll，改为mrNone随即解决问题阅读全文

posted @ 2011-09-07 15:50 DHT 阅读(656) 评论(0) 推荐(0)

TStringList 常用操作

摘要：//TStringList常用方法与属性:varList:TStringList;i:Integer;beginList:=TStringList.Create;List.Add('Strings1');{添加}List.Add('Strings2');List.Exchange(0,1);{置换}List.Insert(0,'Strings3');{插入}i:=List.IndexOf('Strings1');{第一次出现的位置}List.Sort;{排序}List.Sorted:=True;{指定排序}List.Count;{ 阅读全文

posted @ 2011-09-07 15:49 DHT 阅读(165) 评论(0) 推荐(0)

delphi xml 查找节点

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, msxml,StdCtrls;type TForm1 = class(TForm) btn1: TButton; XMLDocument1: TXMLDocument; procedure btn1Click(Sender: TObject); private { Private declarations } 阅读全文

posted @ 2011-09-07 15:49 DHT 阅读(1183) 评论(0) 推荐(0)

delphi xml 添加节点

摘要：<?xml version= "1.0 " encoding= "gb2312 "?><File> <aa> <bb> bb </bb> </aa> <Handle> 客户端加密，服务器端解密 </Handle> <FileId> 文件ID </FileId> <FileName> 文件名 </FileName> <FileSize> 文件大小 </FileSize> <Upload 阅读全文

posted @ 2011-09-07 15:48 DHT 阅读(431) 评论(0) 推荐(0)

Delphi中本年、本月、本周第一天和最后一天

摘要：uses DateUtils;function StartOfTheYear(const AValue: TDateTime): TDateTime;function EndOfTheYear(const AValue: TDateTime): TDateTime;function StartOfAYear(const AYear: Word): TDateTime;function EndOfAYear(const AYear: Word): TDateTime;function StartOfTheMonth(const AValue: TDateTime): TDateTime;func 阅读全文

posted @ 2011-09-07 15:47 DHT 阅读(290) 评论(0) 推荐(0)

使用DateTimePicker控件实现日期连续输入

摘要：你有没有觉得这个控件在输入日期时不太方便？输完年后还要按一下右键头才能定位到月，然后再按一下右键头定位到日，输完按回车或者TAB还不能转到下一输入控件，今天我就来解决这个问题：输入时让光标自动移动，比如四位年份输完了光标立即跳到MM上；输完按回车直接去到下一控件；如果是从另一个控件转入此控件，直接定位到月进行输入，因为通常年都不需要修改。以下是实现代码：procedure TFrm_AjJg_Input.DateTimePicker_CHECKDATEChange(Sender: TObject);begin keybd_event(vk_right,0, KEYEVENTF_EXTE... 阅读全文

posted @ 2011-09-07 15:47 DHT 阅读(597) 评论(0) 推荐(0)

pb提取sql中的img字段

摘要：string plong k,kkkk=1, i , l_idblob a4int jblob l_blobfor j=1 to ds_1.rowcount( )l_id = ds_1.getitemnumber( j, "id")selectblob picture into :l_blob from tbImage where id=:l_id using sqlca;i = FileOpen(temp_path+"\temp_photo"+trim(string(l_id))+".jpg",StreamMode!,Write!, 阅读全文

posted @ 2011-09-07 15:45 DHT 阅读(309) 评论(0) 推荐(0)

pb中插入swf

摘要：在窗口上建一个OLE控件，OLE控件的类型选shockwave Flash Objectole_1.object.movie(ls_path+'\3dball.swf') //路径要完整路径ole_1.object.loop = trueole_1.object.play() 阅读全文

posted @ 2011-09-07 15:44 DHT 阅读(371) 评论(0) 推荐(0)

如何避免手工编号重复

摘要：将编号字段设置成主键或唯一键.(如果无法设置成主键或唯一键,另建一个表专门维护编号) 插入的时候,如果出现冲突,就再重新取编号,再插入就可以了. 这样的效率高于用锁. 因为用锁要锁住整个表,直到插入操作完成. 这样,即使正常的读数据也会受到影响到. 举个例子来说不锁表的情况: 假设你要插入一条记录,那么你就取最大编号:不是N+1,然后进行插入如果在你取编号后,插入记录前,又有另一个用户要插入记录,那很显然,因为你的记录还未插入,那另一个用户取得的编号仍然是N+1,和你的一样,这样就导致了编号重复. 只锁最大记录的情况: 假设你要插入一条记录,那么你就取最大编号:不是N+1,然后进行插入阅读全文

posted @ 2011-09-07 15:44 DHT 阅读(358) 评论(0) 推荐(0)

在PB中调用IE

摘要：先在窗口上拖一个Microsoft Web Browser上来，调整好大小。通过PB的对象浏览器察看我们可以查到它支持的属性，方法，事件。最主要的用这么几个：1. Navigate(string url)2.ExecWB (nCmdID, nCmdExecOpt, [pvaIn], [pvaOut] )下面我们来通过代码实现一个打开网页并弹出另存，然后直接打印的程序。(a).nCmdIDOLECMDID_OPEN = 1,OLECMDID_NEW = 2,OLECMDID_SAVE = 3,OLECMDID_SAVEAS = 4,OLECMDID_SAVECOPYAS = 5,OLECMDID 阅读全文

posted @ 2011-09-07 15:43 DHT 阅读(459) 评论(0) 推荐(0)

win7下查看PB帮助

摘要：在运行 Windows Vista、Windows 7、Windows Server 2008 或 Windows Server 2008 R2 的计算机上，可能无法打开需要使用 Windows 帮助 (WinHlp32.exe) 程序的帮助文件。本文提供有关帮助您修复此问题的下载的信息。从 Windows Vista 和 Windows Server 2008 开始的 Windows 版本中，Microsoft 停止包含 32 位的帮助文件查看器。为了支持仍依靠旧 .hlp 文件的客户，Microsoft 下载中心提供用于 Windows Vista、Windows 7、Windows Se 阅读全文

posted @ 2011-09-07 15:42 DHT 阅读(3064) 评论(0) 推荐(0)

PB调用存储过程出错: sqlstate=22005 [odbc sql serve driver]对于造型说明无效的字符值

摘要：1.请使用直连方式，不要使用odbc，直连方式可以带参数调用存储过程，并可以取得返回值sqlca.AutoCommit = trueDECLARE p_1 PROCEDURE &FOR jz_return_charge_ladder @begin_date=:date11, @end_date=:date22, @clientno=0,@bourse=0,@jz_id=0using sqlca;Execute p_1;IF sqlca.sqlcode <> -1 thencommit using sqlca;elsemessagebox('提示',' 阅读全文

posted @ 2011-09-07 15:39 DHT 阅读(959) 评论(0) 推荐(0)

安装pb时提示setup is running，并一直在停留在这个界面，不能完成

摘要：安装pb时，如果你只选择了安装ASA与PB，那么在安装完ASA后，有时会出提示setup is running这个提示，并一直停留在这里不能完成安装，这是因为安装程序其实弹出了一个提示窗口内容一般是说你还有什么没有选择安装，但是出于某种不知原因，此弹出窗口被放在后面一层，显示不出来，你无法操作，因此就不能继续进行。这时你一般可以使用alt + tab转换一下，或者关掉除了安装程序外的其他所有程序，这样以来，这个神秘的窗口基本就会昌出来了。剩下的事就很简单了。阅读全文

posted @ 2011-09-07 15:38 DHT 阅读(6294) 评论(4) 推荐(0)

AJAX使用方法

摘要：var xmlHttp; function createXMLHttpRequest() { if (window.ActiveXObject) { xmlHttp = new ActiveXObject(""Microsoft.XMLHTTP""); } else if (window.XMLHttpRequest) { xmlHttp = new XMLHttpRequest(); } } function handleStateChange() { if(xmlHttp.readyState == 4) { if(xmlHttp.status == 阅读全文

posted @ 2011-09-07 09:54 DHT 阅读(195) 评论(0) 推荐(0)

Google Ajaxslt 使用

摘要：先去下载google ajaxslt的源码包1、用xmlhttprequest从服务器获得xml数据放于id="xml"的div中也可以从各种封装的xmlhttprequest框架中直接获得xml，这种方式更好一些2、对应xsl放置于id="xslt"的div中3、通过Ajaxslt组合成html，结果将显示于id="htmldisplay"的div中加载如下js<script src="../misc.js" type="text/javascript"></script&g 阅读全文

posted @ 2011-09-07 09:54 DHT 阅读(224) 评论(0) 推荐(0)

ajax里xmlHttp.open()方法post与get的区别

摘要：POST：用"POST"方式发送数据,可以大到4MB,在接收页面使用Request.Form["..."]获取 GET：用"GET"方式发送数据,只能256KB,在接收页面使用Request.QueryString["..."]获取/////////////////////////////////////////////////////////////////////////////////////////////////////////// 一般情况下，使用Ajax提交的参数多是些简单的字符串，可以直接使用GET 阅读全文

posted @ 2011-09-07 09:53 DHT 阅读(4636) 评论(0) 推荐(0)

解决AJAX读取页面中的Javascript问题(document.write)

摘要：<html><head><title></title></head><script language="javascript" type="text/javascript"><!--var global_html_pool = [];var global_script_pool = [];var global_script_src_pool = [];var global_lock_pool = [];var innerhtml_lock = null;var document 阅读全文

posted @ 2011-09-07 09:35 DHT 阅读(691) 评论(0) 推荐(0)