孤独的猫董_个人页

判断TdxDBTreeView的节点是否可编辑

在TdxDBTreeView控件的OnEditing事件中写入AllowEdit := CheckEdit;  //CheckEdit为判断的函数

按下F2编辑节点

在TdxDBTreeView控件的OnKeyDown事件中写入if Key = VK_F2 thenbegin  if DBTreeMain.DBSelected = nil then    Exit;  DBTreeMain.DBSelected.EditText;end;

TdxDBTreeView的节点移动排序

利用TdxDBTreeView控件(此处设为DBTreeMain)时,可以从表中直接显示出树结构,有时需要拖动对节点进行排序,而且数据表中有字段SortCode用于排序码,此时需要编写对应代码,步骤如下1.

cxgrid单击某一网格判断

cxgrid单击某一网格事件,可在ViewTable的KeyPress事件中判断if Key = #32 thenbegin  if Trim(colname.EditValue) = '' then    colcode.

cxgrid使用体会

1.去掉cxgrid或dxdbgrid的分组标题行设置TableView中的optionview中的GroupByBox为False 2.设置排序字段打开TableView中，看到右边的字段，单击要分组的字段名，设置其GroupIndex为0,1等(默认值-1不分组) 3.

cxdbgrid根据字段值设置颜色

假设cxgrid为cxMain,TableView为ViewSelData,现在要根据数据集的colColorMark来改变本行的颜色,则可在ViewSelData的OnCustomDrawCell写入if AViewInfo.

直接控制串口打印单元

unit uPrinter; interface uses Printers, types, Windows, Classes, SysUtils, Forms; function CharHeight: Word;function AvgCharWidth: Word;function Ge...

SQL SERVER的分页存储过程

CREATE PROCEDURE sp_page @tb varchar(50), --表名 @col varchar(50), --按该列来进行分页 @coltype int, --@col列的类型,0-数字类型,1-字符类型,2-日期时间类型 @orderby bit, --排序,0-顺序,1-...

在sql server中用存储过程发送邮件

DECLARE @object int DECLARE @hr int EXEC   @hr=sp_OACreate 'CDONTS.NewMail',@object OUT EXEC   @hr=sp_OASetProperty @object,'From','Your Friend' E...

获得验证码

1.在许多论坛的登录页面上，都有一个附加码，这样做的目的是防止有人利用破解程序，暴力破解里面的密码 2.生成附加码的代码：

使用CDONTS发送邮件

set myMail=CreateObject("CDONTS.NewMail") myMail.SetLocalIDS(65001) myMail.From=txtMailFrom myMail.

获取用户IP

userip=Request.ServerVariables("HTTP_X_FORWORD_FOR") if userip="" then     userip=Request.ServerVariables("REMOTE_ADDR") End if

用Delphi写扬声器音乐

一、窗体   二、代码 窗体代码: unit Unit2; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,Bl...

HTML网格美化

其中重点是cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" 其中bgcolor可以换成需要的颜色，还有bordercolordark和bordercolorlight连个属性可以更改

SQL SERVER常用的SQL和T_SQL语句

一、查看数据库的版本 select @@version 常见的几种SQL Server2000打补丁后的版本号 8.00.194    Microsoft SQL Server 2000 8.00.

Unicode函数

一、计算unicode字符串的Ansi编码的长度 Function strUnicodeLen(asContents)     asContents1="a" & asContents     len1=len(asContents1)     k=0     for i=1 to len...

使用EXCEL的查询

一、直接用ADO连接Excel 直接用ADOQuery连接，其ConnectionString设为 Provider=microsoft.jet.oledb.4.0;data source=C:\\2.

Delphi的DTS编程

一、DTS简介 DTS为导入导出模块，在SQL SERVER中有专门的导入导出工具   二、调用SQL SERVER导出的包 若要执行保存为COM结构化的存储文件DTS包，使用dtsrun /Ffilename /Npackage_name /Mpackage_password 若要执行保...

禁止用户复制网页的内容

一.用HTML元素对象的onselectstart事件防止用户选择网页方法是body中插入如下代码    二.用HTML元素对象的oncopy和oncut事件防止用户复制网页内容，方法是在body中插入如下代码： 三.

判断浏览器的类型

         浏览器选择 　0 then             Response.Write('为FireFox浏览器')         Else             If instr(BrowseMsg,'MSIE')>0 then                 Response.

使年份适用于做有浏览器(IE和FireFox)

1.getYear函数 Javascript中getYear函数取得当前年份，但对于IE和FireFox却不同，IE中显示2006,而FireFox中则显示与1900的差值106 2.getFullYear通用函数 为了使年份值可以通用，可用Javascript中的getFullYear函...

字符串和数组的转换

1.将字符串转为数组 方法：先创建一个动态数组，数组大小等于字符串的长度，然后依次取出字符串中的每个字符存入该动态数组中，最后将数组返回，代码如下： '将字符串string1转换为数组 Public Function StringToArray(ByVal string1)     Dim ...

过滤字符串中的HTML代码(VBScript)

Public Function FilterHTML(str)     If Trim(str)=" " or IsNull(str) then         FilterHTML=" "     Else         str=Replace(str,">",">";     ...

创建带自动增量的表

1.Access Access中自动增量字段用Counter实现，如： Create Table log(    ID Counter PRIMARY KEY,    tname char(50),    tkeyvalue char(50));     2.

分隔字符串函数

var   stl:TStringList;   i:integer; begin   stl :=TStringList.Create;   stl.Delimeter :='|';   stl.

在Delphi用vbscript的正则表达式

一.由于Delphi本身没有正则表达式单元,可以引用vbscript来使用正则表达式,步骤为1.在project中单击Import Type Library,选中Microsoft VBScript Regular Expression 5.

让DBGrid不能插入记录

一.首先令对应的DataSet.BeforeInsert:=InsertData;二.在InsertData中写入procedure TTbfrmMain.InsertData(Dataset:TDataset);begin  if (ActiveControl is TDBGrid) then  ...

调用htmlhelp文件(*.chm)

function HtmlHelpA(hwndcaller:Longint;lpHelpFile:string;uCommand:Longint;dwData:string):HWND;stdcall;external 'hhctrl.

正则表达式的使用

如判断字符串是否为空

远程注册组件

Sub Register(strFilePath,regMethod)     Dim theFile,strFile,oShell ,exitcode     Set  theFile=oFs.GetFile(strFilePath)     strFile=theFile.

读写注册表

可用WScript对象来对注册表进行操作,如function readcomputer()  Dim ReadComputername  Set ReadComputername=CreateObject("WScript.

显示数据库中的图像

show.asp----------------图像显示页面  新闻文本:  新闻图像: showing.asp----------------图像处理页面如要显示数据库中的word文件,则可用response.contenttype="application/msword"

文本与图像上传到数据库

1.upload.asp方法    function checkinfo()       if (document1.form1.picture.value"") then         if (Instr(1,document.form1.picture.value,".")

离开时自动提示设为首页

实现ASP缓存技术

1.服务器端缓存     ListBox=Application("ListBox")     If ListBox"" then         Response.Write "本次通过服务器缓存读取数据:"     End If     If ListBox="" then         Response.

定时自动关闭弹出窗口

1.window对象的setTimeOut方法     window对象的setTimeOut方法用于延迟执行某一操作，其语法是:     SetTimeOut(express,secdelay[,language])     其中express是一个字符串，可包含热呵呵对函数、方法或者单个J...

弹出自定义窗口

1.window对象的open方法 　window的open方法用于创建一个新窗口，语法如下 window.open(URL,windowname[,windowFeatures][,replaceFlag]) URL: 弹出窗口的URL地址 windowname:弹出窗口的名称，可为空 windowFeature:字符串值，是由逗号分隔的属性赋值表达式，下表为window.

利用Stream下载文件

Function dl(f,n)     On error resume Next     Set s=CreateObject("Adodb.Stream")     s.Mode=3     s.

验证整数

Function IsInt(str)     If IsNumeric(str) or  (len(str)>5) then         IsInt=False         Exit Function     Else         If (len(str)3276 then ...

在同一页面处理提交代码

可用Request.ServerVariables("Request_Method")="POST"判断是否提交，如下dice.asp页面     测试Request_Method                    当色子的面数为时               掷色子的结果为...

在ASP中直接显示对话框

打开页面时自动弹出窗口询问是否设为首页

将下列代码放在之间 function myhomepage(){ this.homepage.style.behavior='url(#default#homepage)';this.homepage.

加为首页(加为收藏页)

加入收藏 设为首页

ASP中输入特殊字符

输入%>时必须用转义符"\>" 输入"时必须用""来实现,如输入"ASP实现应用经典"%>",如

图像按钮

增加记录

增加记录窗体为add.asp . . . 在insert.asp中具体操作数据库

使文本框只能输入整数或小数

procedure TForm1.Edit2KeyPress(......); begin if not (key in [#8,'0'..'9',DecimalSeperator]) then begin key :=#0; end else begin if (key=DecimalSeperator) and (Pos(key,Edit2.

设置文本框只能输入数字

SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_NUMBER);

HTML集合属性的应用

如果以ASP表单(Form)中,有若干个CheckBox,负责同类信息的选取,这是可以采用集合属性,即将CheckBox的name设为相同,但Values设为不同即可,如 集合属性应用 请选择要操作的项目,提交数据后,将会显示您选择的项目 1.

IFrame页面

用IFrame包含起来的文件可以直接嵌入父窗口,其使用等同于一新页面,而要你管时,无法传递参数,此时可用session全局变量来实现