草根

摘要：日期：2012年2月27日 作者： 人气：11 查看:[大字体 中字体 小字体] 开发环境-------- Delphi 7是一个很经典的版本，在Win2000/XP下推荐安装Delphi 7来开发软件，在Vista下推荐使用Delphi 2007开发软件。安装好Delphi 7后，应立即安装Delphi 7 Update Pack 1，Delphi 2007则建议尽量安装最新的版本。工欲善其事，必先利其器，为了提升开发效率，为了能更加得心应手的处理接下来的开发工作，我们有必要安装一些有用的开发辅助工具（Delphi将此类插件以Expert命名）。首先推荐的是DelForExp这个源代码格式化 阅读全文

摘要：今天去About.com逛了逛，学到一点东西，记下来No "Paste" for you!To intercept any key combination for a TEdit (or TMemo or more generally TCustomEdit) you need to handle the OnKeyDown event. Put a TEdit named "Edit1" on a form (named "Form1"). Handle Edit1's OnKeyDown event as: uses Cl 阅读全文

摘要：情况一：只是忘记了密码 sp_password Null,'123,'sa' 把sa的密码设为“123” 执行成功后有“Command(s) completed successfully.” OK! 情况二：忘记了密码，而且从sysadmin中删除了builtin\Administrators帐号，现在没其他人是sysadmin了 A: SQL Server 2005/2008提供了针对该情况的更好的灾难恢复方法，无需侵入master数据库，不会对master数据库中的对象和数据（例如登陆帐号，证书等）造成损坏。Windows管理员组的成员现在当SQL Server以单 阅读全文

摘要：解决办法一:在begin transaction 前面加set xact_abort on这样就可以在过程出错时中断执行，当然也就不能commit了，如此再在最后一个操作的后面加入 if @error=0 就说明所有的操作都执行成功了就可以commit。具体如: set xact_abort on begin trans declare ... <1>操作 <2>操作 ... <n>操作 if @error<>0 begin rollback transaction end else begin commit transaction e... 阅读全文

摘要：以前拼接的写法 set @sql=' select * from table where 1=1 ' if (@addDate is not null) set @sql = @sql+' and addDate = '+ @addDate + '' if (@name <>'' and is not null) set @sql = @sql+ ' and name = ' + @name + ' 'exec(@sql) 下面是 不采用拼接SQL字符串实现多条件查询的解决方案 第一种写 阅读全文

摘要：--定时同步服务器上的数据--例子:--测试环境,SQL Server2000,远程服务器名:xz,用户名为:sa,无密码,测试数据库:test--服务器上的表(查询分析器连接到服务器上创建)createtable[user](id intprimarykey,numbervarchar(4),name varchar(10))go--以下在局域网(本机操作)--本机的表,state说明:null 表示新增记录,1 表示修改过的记录,0 表示无变化的记录ifexists (select*from dbo.sysobjects where id =object_id(N'[user]&# 阅读全文

摘要：--1：获取系统日期和时间值函数 --getdate() SELECT GETDATE() AS 'today'--getutcdate() SELECT GETUTCDATE() AS 'today' --2：修改日期和时间值函数 --dat --参考http://msdn.microsoft.com/zh-cn/library/ms186724.aspx --1：获取系统日期和时间值函数 --getdate() SELECT GETDATE() AS 'today'--getutcdate() SELECT GETUTCDATE() AS & 阅读全文

摘要：1 ?/********************链接数据库 *******************************/ 2 exec OPENDATASOURCE( 3 'SQLOLEDB ', 4 'Data Source=远程ip;User ID=sa;Password=密码 ' 5 ).库名.dbo.存储过程名 6 7 select * into 本地库名..表名 from OPENDATASOURCE( 8 ... 阅读全文

摘要：datasnap 2010 心跳包,连接断开处理procedure TMainForm.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);var// RowIndx: Integer;InVal: TCP_KeepAlive;Ret: DWORD;ClientConnection: TIdTCPConnection;beginEnterCriticalSection(CSConnect);try // 最大连接数量，验证来访者密码 if (ConnectCount >= 500) or (DSConnectE... 阅读全文

摘要：1、如何用SQL获取一个数据库中的所有表的名称;SELECT * FROM sysobjects WHERE xtype='u' 2、如何用SQL获取一个表中所有字段的名称; 1 SELECT c.name,o.name FROM syscolumns AS c 2 INNER JOIN sysobjects AS o 3 ON c.id = o.id select name from sysobjects where xtype='U'select name from syscolumns where id=object_id(N'表明') S 阅读全文

摘要：Borland DataSnap（MIDAS）三层架构编程中，主细表的处理方式一般有两种方式：1. 传统的Master/Detail设置：设置细表ClientDataSet的MasterSource和MasterFields属性即可。注：如果只用于浏览数据，则可以用这种方式。用嵌套表方式――细表作为主表的一个DataSetField字段注意：（1） 当需要向数据库应用更新时必须用这种方式。（2） 设置为这种方式后a） 主表ClientDataSet若Open，则会Open所有关联ClientDataSet；b） 主表ClientDataSet若Close，则会Close所有关联ClientDa 阅读全文

摘要：Delphi报表开发ReportMachine的小计和总计的计算2011年7月2日 分类: Delphi, 开发笔记最近在做一个Delphi的发货清单的打印程序，其中涉及到需要计算清单的小计和总计的功能，文字难以表达清楚，上图吧：报表第一页的小计计算当前页面的商品价格总和，总计目前和小计一样是计算截止到当前页面的所有商品的金额和，下图为最后一页：这下大家明白了吧，就是要实现这样的报表。废话不多说了，开始讲解我的思路：1.既然要计算小计，就是每页的金额和了，加入ReportMachine的计算文本框（TRMCalcMemoView），然后设置要汇总的字段值为数据字段“factSum”，然后选择计 阅读全文

摘要：Delphi IDE 本身就是一个插件模式的工具，插件的好处不用多说。运行包的BPL，其实就是众多单元的集合，因此可以再次重新组合，只要你将各个BPL包用到的单元再组合一次！本文以 http://code.google.com/p/tangram-plugin-framework/插件框架自带的BPL包合并向导工具做一次图文介绍！1、安装好开源插件框架 tangram-plugin后，然后点击 菜单 File->New->Others，找到tangram FrameWork里的包合并向导，2、Dev控件堪称独孤求败，最强也是最肥的数据库解决方案。我们以Dev套件包为准，合并Dev几 阅读全文

摘要：假如写成线程方法效果更好，共享！先导入SQLDMO生成SQLDMO_TLB.pas文档unit Unit3;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,SQLDMO_TLB, StdCtrls, ComCtrls,comobj;typeTForm3 = class(TForm)Button1: TButton;ProgressBar1: TProgressBar;procedure Button1Click(Sender: TObject);priv 阅读全文

摘要：为RB定制支持参数的自定义函数 通过昨天的短文,检阅过的朋友已经了解如何为Report Builder的RAP建立一个简单的自定义函数,同时我亦提到,发挥自已的想象力,就可以将诸多的Delphi原生代码呈现给你的用户,当然也包括你自身,站在用户角度去完成应用报表的最终定义,从而将编程与应用分为,减少开发者的麻烦。在我的编程经历中,最讨厌的就是为用户画报表,太无聊亦无意义的事情,莫过如此。我宁愿花几小时的时候去调试我的代码,也不愿花10分钟去为用户画一个报表。不知道你有没有同感……正因为如此,所以我想尽可能的通过自定义函数的形式,去增加用户可用的报表定义功能,是一件非常用意义的事情。 为了感谢大 阅读全文

摘要：前几日，网友Miracle提到此问题，由于自己也被此问题困扰过，因此决心实现一下；此外，对于这个问题，我想在应用中如果用到了RB并使用了她的最终用户方案即RAP技术，那么这个问题也肯定会遇到。具体来说也就是这样一种情况：假若在一个应用中可能有几个全局的变量，我们想在RB的报表中体现出来，作为报表的内容，怎么实现？ 没想到，原来RB对此在其RAP技术中已经支持的非常完善，在参考了其demo及help文档，很容易就实现了，因此，相信你也能：），当然，在你继续看下去之前，应该知道什么是Report Builder以及RAP，并且在你的应用中已经用到，要不然，你可能困难了。实现方法先确定一下我们要实. 阅读全文

摘要：--超级通用型分页存储过程--可对Select语句进行分页，可带order、group等子句--KeyField（关键词）可以为空，也可以由多个，用，间隔--使用Keyfield可以进行缓冲更新模式--Dcopyboy义乌科创计算机有限公司软件部--2012-01-08----------CREATEprocGetData@SQLSTRvarchar(8000),@KeyFieldvarchar(500),@PageNoint,@PageSizeintasbeginDECLARE@posint,@SQLSTR1varchar(8000),@SQLSTR2varchar(50)set@SQLST 阅读全文

摘要：需要引用单元 Tlhelp32function KillTask(ExeFileName: string): integer; //杀进程函数const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin result := 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);//取得系统快照 FProcessEntr... 阅读全文

摘要：首先点击File->New->Other-> Dynamic Link Libary把工程文件保存为:CalendarLib.pas 再创建一个Form并放入一个TMonthCalendar控件borderStyle属性设为:bsToolWindow保存为 DllFormUnit.pas?unit DllFormUnit; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; typeTDllForm = class( 阅读全文