摘要：
主表 contracts(id,name,clientname,note…)从表 payments(id,contractid,amount,updated)adoquery1:select * from contracts;datasource1->adoquery1adoquery2:select * from payments;datasource2->adoquery2—————cxgrid建2个level,level2为level1的子level连接两个tableview,分别连接到datasource1，datasource2设置tableview1的keyfieldn 阅读全文
摘要：
最近在开发项目的过程中遇到这么一个问题，就是在插入一条记录的后立即获取其在数据库中自增的ID，以便处理相关联的数据，怎么做？在sql server 2000中可以这样做，有几种方式。详细请看下面的讲解与对比。一、要获取此ID,最简单的方法就是:(以下举一简单实用的例子)–创建数据库和表create database MyDataBaseuse MyDataBasecreate table mytable(id int identity(1,1),name varchar(20))–执行这个SQL,就能查出来刚插入记录对应的自增列的值insert into mytable values(‘李四’ 阅读全文
摘要：
从官方下载到uniSynedit的压缩包后，只有for2009的版本，用2010打开，也是没有问题的。编译的时候，在SynEditHighlighter.pas报错：function TSynCustomHighlighter.IsWordBreakChar(AChar: WideChar): Boolean;begin case AChar of #0..#32, '.', ',', ';', ':', '"', '''', '?, '`', &# 阅读全文
摘要：
安装上sqlserver2005以后，打开程序时总报这个错误，后来解决了，但是现在学生都有这个问题，觉的有必要拿出来讲一下了：试用vs打开一个决绝方案时出错，如下图所示：产生这个的原因其实也很简单，细心的读者如果打开这个文件的话，从列表中选择打开方式的时候就会发现项目文件的打开方式已经不是visual studio了，而是Micrisoft visual studio version selector.因此，解决的办法就是用visual studio打开，并且选择始终用它打开项目文件，下次就不会这样了。那么是什么情况导致项目文件的打开关联被篡改了呢？原因可能有很多，恐怕最普遍的原因莫过于安装S 阅读全文
摘要：
自从Delphi2010增强了RTTI反射机制后，编译出来的程序变得更大了，这是因为默认情况下 Delphi2010 给所有类都加上了RTTI信息（呵呵，不管你用不用它，好像实用价值确实不高，至少目前我不会去用的）。虽说对程序的运行速度影响不大，但会增加安装程序的大小，这也是我们不愿看到的。有没有办法禁用RTTI信息，从而减小编译后程序的大小呢？，从文档中我们找到了方法。一、在工程中用编译指令禁用RTTI禁用的方法很简单，就是要在工程（dpr文件中。Delphi2010下项目文件是dproj文件，但dpr文件仍然是默认的编写代码的项目文件）的Uses语句前添加下面的定义就可以了：{ Reduc 阅读全文
摘要：
varY: Integer;beginY := 1;// if Y < 0 then Exit;//安全检查// if Y >= RichEdit1.Lines.Count then Exit;//安全检查RichEdit1.CaretPos := Point(0, Y);RichEdit1.SelLength := Length(RichEdit1.Lines[Y]);RichEdit1.SelAttributes.Color := clRed;end; 阅读全文
摘要：
改为： if Button = mbRight then begin if TreeView1.GetNodeAt(X, Y)<>Nil then begin TreeView1.GetNodeAt(X, Y).Selected := true; PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); end; end; 阅读全文
摘要：
CTRL + SHIFT + B 生成解决方案CTRL + F7 生成编译CTRL + O 打开文件CTRL + SHIFT + O打开项目CTRL + SHIFT + C显示类视图窗口F4 显示属性窗口SHIFT + F4显示项目属性窗口CTRL + SHIFT + E显示资源视图F12 转到定义CTRL + F12转到声明CTRL + ALT + J对象浏览CTRL + ALT + F1帮助目录CTRL + F1 动态帮助F1 帮助SHIFT + F1当前窗口帮助CTRL + ALT + F3帮助-搜索SHIFT + ALT + ENTER全屏显示CTRL + -向后定位CTRL + SH 阅读全文
摘要：
当使用 sp_attach_db 系统存储过程附加数据库时- -Tag： 当使用 sp_attach_db 系统存储过程附加数据库时//附加数据库sp_attach_db当使用 sp_attach_db 系统存储过程附加数据库时。sp_attach_db:将数据库附加到服务器。语法sp_attach_db [ @dbname = ] 'dbname' , [ @filename1 = ] 'filename_n' [ ,...16 ]参数[@dbname =] 'dbname'要附加到服务器的数据库的名称。该名称必须是唯一的。dbname 的数据 阅读全文
摘要：
//zip 用的是 VCLUnZip, VCLZip 控件//得到所有子目录列表function GetAllSubDir(Directory: string; var RetList: TStringList): Boolean;//得到所有子目录文件列表function GetAllDirFile(Directory: string; var RetList: TStringList): Boolean;//压缩一个目录function ZipDir(sDir, sFile: string): Boolean;//解压一个目录function UnZipDir(sFile, sDir: s 阅读全文