癫狂编程

摘要： 菜单组件TMainMenu 创建菜单双击TmenuMain，单击Caption就可以添加一个菜单项 菜单中添加分割线只需加“-”就可以添加一个分割线 级联菜单的设计 单击鼠标右键弹出菜单中选择Create Submenu菜单项 单选功能设计 要在设计的菜单项目中选择RadioItem属性为True， 阅读全文

摘要： 看到Dev中的cxGrid组件的编辑器很强大,于是很想探究一下,跟踪cxGrid的代码比较麻烦,但原理大概知道一二.首先来研究一下设计器双击cxGrid弹出一个编辑窗体,选择窗体中的一个内容后,属性编辑器中的内容也随着变化.有了这个特性,对于控件中的一些复杂成员(继承于TPersistent类),如 阅读全文

摘要： 用过Photoshop的朋友一定对它的那些方便的浮动面板记忆犹新，其实这些面板就是一个个的小窗体，但这些小窗体都放在Photoshop的主窗体上 （不是存在主窗体中），有自己的标题栏、最小化按钮及最大化按钮。但它们与MDI程序不同的是，他们可以拖到主窗体外，更重要的是工作中所有这些面板窗体 与主窗体 阅读全文

摘要： Delphi让控件随着窗口的大小而改变方法1：设置Anchors属性，把akLeft,akTop,akRight,akBottom都设为True.方法2：设置Align属性,其值为alClient. 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls; ty 阅读全文

摘要： CnPackTip#8 什么是运行期包与设计期包 参与讨论: JingYu, Passion, 小夏整理: SkyJacker 2007.10.16, 2007.11.05http://www.cnpack.orgCnPack III QQ Group:32712412CnPack IV QQ Gr 阅读全文

摘要： 每个开发人员都会有设计自定义控件的冲动。事实上，这也并不太难。 .NET支持三种类型的控件开发 1. 扩展控件。也就是说在现有一个控件类型基础上进行扩展，例如针对一个Button进行扩展，这种开发的最后结果就是我们得到了一个特殊的Button 2. 复合控件。也就是说把几个现有控件组合起来。继承自U 阅读全文

摘要： ' ' 过程及函数名： ListAllTableAndAllField' 版本号 ： --' 说明 ： 本过程只用于演示如何用adodb的OpenSchema获取' 当前ACCESS数据库的所有表的所有列信息' 引用 ： Micrsoft ActiveX Data Ojbects 2.1 Libra 阅读全文

摘要： 1=1 10=2 100=4 1000=8 1 or 2 = 3(11); 1 and 3 = 1; 2 and 3 = 2; 2 or 4 = 6(110); 2 and 6 = 2; 4 and 6 = 4; 阅读全文

摘要： Use 数据库DECLARE @ProcName varchar(50)Create Table #tmpName(Content varchar(2000))Create Table #tmp(ProcName varchar(2000),Content1 varchar(8000))--定义一个 阅读全文

摘要： 在软件开发中，为软件加入权限控制功能，使不同的用户有不同的使用权限，是非常重要的一项功能，由其在开发数据库方面的应用，这项功能更为重要。但是，要为一个应用加入全面的权限控制功能，又怎样实现呢？大家知道，现在的应用，一般均以菜单访问功能的形式出现，按照常规的做法，只要让注册进入应用的不同用户，可以访问 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var D:TDateTime; s:string; begin D:=VarToDateTime('05-10-14 04:35PM'); S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D); showmessage(s); end; 阅读全文

摘要： 1.Format 根据指定所需要的格式，格式化字符串。 原型： function Format(const Format: string const Args: array of const): string 例子： 2.FormatDateTime 格式化日期值 原型： function Form 阅读全文

摘要： 给DatetimePicker赋值时，可以通过界面设置赋值，也可以通过代码赋值。 通常，我们会给表示起始时间的dtp赋值为 00:00:00，给表示结束时间的dtp赋值为23:59:59。 代码如下： dtp1.time:=strtodatetime('00:00:00'); dtp2.time:= 阅读全文

摘要： 在OnDragDrop事件中處理:以下是delphi的例子procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);beginAc 阅读全文

摘要： 1．调用API函数procedure CopyFile(FromFileName,ToFileName:string);varf1,f2:file;BeginAssignFile(f1,FromFileName); file://指定源文件名AssignFile(f2,ToFileName); fi 阅读全文

摘要： //获取指定驱动器的当前路径名 GetDirvardir: string;b: Byte;beginb := 0;GetDir(b,dir);ShowMessage(dir); // //第一个参数: 1、2、3、4...分别对应: A、B、C、D...//0 是缺省驱动器end; 阅读全文

摘要： 数据源记录集：ClientDataSetSource；目标记录集：ClientDataSetCopy 1）复制一条记录。 ClientDataSetCopy.Close; ClientDataSetCopy.Fields.Clear; ClientDataSetCopy.FieldDefs.Clea 阅读全文

摘要： ／／表名，关键字段名，单条内容的SQL语句，产生新记录的值 function Tfrmdmmain.CopyTbale(const tablename, fileldname, swhere, newfileldstring: string): integer; var sql,sqlstring,sqlvalue,newsqlvalue:string; i:integer; ... 阅读全文

摘要： procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); begin if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel; end; 用DBGridEh吧，只要设置属性alopAppendEh为false即... 阅读全文