08 2019 档案

Delphi编程建议遵守的规范1---缩进、各种语句的用法
摘要:在编程时候,尤其是在一个大的团队里面,遵守统一的编程规范是极其重要的。为所有的开发人员制定一个源代码书写标准,以及程序和文件的命名标准,使他们在编程时有一致的格式,这样,每个编程人员编写的代码能够被其他人理解,减少程序维护和移交的成本。 这里先只介绍关于Delphi语言的编程规范,暂时跳过文件、项目 阅读全文

posted @ 2019-08-31 17:48 癫狂编程 阅读(460) 评论(0) 推荐(1) 编辑

Delphi数据库技术中Disablecontrols和Enablecontrols的功能
摘要:一般来说,用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示: with Table Do begin DisableControls;{在修改记录的过程中,使其它部件无效} First; {将记录指针指向第一条记录} while not EOF do begin <读取记录的一个字段值到 阅读全文

posted @ 2019-08-30 08:05 癫狂编程 阅读(145) 评论(0) 推荐(0) 编辑

Oracle ORA-00984: column not allowed here
摘要:ORA-00984错误: 列在此处不允许当数据以char的形式存在时,应加单引号,则插入数据库就不会出现类似错误. 阅读全文

posted @ 2019-08-29 09:27 癫狂编程 阅读(1897) 评论(0) 推荐(0) 编辑

js下利用userData实现客户端保存表单数据
摘要:对于多数网页制作的朋友,实现在客户端保存在网页表单上的信息,比较多的是采用Cookie技术来实现,这些功能例如:下拉列表框选择的选项,文本框输入的数据等。 事实上,我们可以利用微软DHTML默认行为中的userData行为来实现这个功能。 因为很多网友问到这样的问题,整理了一下,并提供了三个示例。下 阅读全文

posted @ 2019-08-29 07:55 癫狂编程 阅读(409) 评论(0) 推荐(0) 编辑

oracle数据库死锁原因及分析
摘要:定义: 当两个用户希望持有对方的资源时就会发生死锁. 即两个用户互相等待对方释放资源时,oracle认定为产生了死锁,在这种情况下,将以牺牲一个用户作为代价,另一个用户继续执行,牺牲的用户的事务将回滚. 例子: 1:用户1对A表进行Update,没有提交。 2:用户2对B表进行Update,没有提交 阅读全文

posted @ 2019-08-27 17:52 癫狂编程 阅读(996) 评论(0) 推荐(0) 编辑

delphi字符串分隔函数用法实例
摘要:这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下 本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下: 该实例可实现根据字符串Separato 阅读全文

posted @ 2019-08-26 17:49 癫狂编程 阅读(419) 评论(0) 推荐(0) 编辑

delphi 根据特殊符号字符获取字符串前或后的字符
摘要:function GetBefore(substr, str:string):string; {©Drkb v.3(2007): www.drkb.ru, ®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com} begin if pos(substr,str)>0 then result:=copy(str,1,pos(substr,str)-1) els... 阅读全文

posted @ 2019-08-26 17:31 癫狂编程 阅读(1327) 评论(0) 推荐(0) 编辑

Delphi 中记录类型 给记录指针赋值
摘要:PPersion=^TPersion; TPersion=packed record Name:string; Sex:string; Clasee:string; end; var persion:TPersion; PP:PPersion; begin FillChar(persion,SizeOf(TPersion... 阅读全文

posted @ 2019-08-25 20:36 癫狂编程 阅读(237) 评论(0) 推荐(0) 编辑

Delphi中动态加载TreeView信息
摘要:unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, ADODB, StdCtrls; type PNodeInfo=^TNodeInfo; TNodeInfo=record ID:string; Ful 阅读全文

posted @ 2019-08-25 16:44 癫狂编程 阅读(712) 评论(0) 推荐(0) 编辑

Oracle中查询当前时间、时间格式化方法
摘要:Oracle中如何获取系统当前时间 select to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') from dual; ORACLE里获取一个时间的年、季、月、周、日的函数 select to_char(sysdate, 'yyyy' ) from dual; -- 阅读全文

posted @ 2019-08-24 18:09 癫狂编程 阅读(1496) 评论(0) 推荐(0) 编辑

Oracle SQL 脚本跟踪
摘要:NC Oracle SQL 脚本跟踪 脚本: 其他相关网摘: 2011-11-26 11:08 跟踪oracle中sql语句执行过程 (转自ocean_helen) (1)select * from v$sqlarea; 可以跟踪sql语句的执行过程,如果想跟踪某个时间点前后的语句,可以通过firs 阅读全文

posted @ 2019-08-24 16:10 癫狂编程 阅读(404) 评论(0) 推荐(0) 编辑

动态数组的使用
摘要://例1: var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr[0] := '万一'; //动态数组的下界是 0 ShowMessage(StrArr[0]); // 阅读全文

posted @ 2019-08-22 12:01 癫狂编程 阅读(830) 评论(0) 推荐(0) 编辑

Delphi分割字符串函数Split源码
摘要:function TStringHelper.Split(const Separator: array of string; Count: Integer; Options: TStringSplitOptions): TArray; var P: Integer; Total: Integer; Index: Integer; S, ToSplit: string; beg... 阅读全文

posted @ 2019-08-22 11:19 癫狂编程 阅读(498) 评论(0) 推荐(0) 编辑

Delphi: TMemo垂直滚动条自动显示
摘要:type TMemo = class(StdCtrls.TMemo) protected procedure Change; override; end; { TMemo } procedure TMemo.Change; var lc, lh: Integer; cvs: TControlCanv 阅读全文

posted @ 2019-08-21 16:25 癫狂编程 阅读(448) 评论(0) 推荐(0) 编辑

Treeview控件如何获得子节点的所有父节点的名称
摘要:Delphi或c++ 的treeview控件,比如一个节点上面有个父节点,这个父节点上面还有一个父节点,如何获得这两个父节点的名字呢?请给出实现代码 先定义一个nodevarnode:TTreeNode;然后你获取你所选中的节点node:=TreeView.Selected;它的父节点的名称就是no 阅读全文

posted @ 2019-08-21 09:22 癫狂编程 阅读(1424) 评论(0) 推荐(0) 编辑

浅谈Delphi高效使用TreeView
摘要:本来我一直都是使用递归算法, 效率很低 下边这段代码是我原来写的 procedure TForm1.GetDepartmentMsg;var Test, Test2 : TTreeNode; procedure NodeAdd(Test : TTreeNode; DepartmentId : str 阅读全文

posted @ 2019-08-20 21:12 癫狂编程 阅读(740) 评论(0) 推荐(0) 编辑

Delphi下Treeview控件基于节点编号的访问
摘要:有时我们需要保存和重建treeview控件,本文提供一种方法,通过以树结构节点的编号访问树结构,该控件主要提供的方法如下: function GetGlobeNumCode(inNode:TTreeNode):String; 功能:返回当前节点的编号,编号规则见源码内说明。 function Loc 阅读全文

posted @ 2019-08-20 20:34 癫狂编程 阅读(193) 评论(0) 推荐(0) 编辑

delphi中TTreeView的使用方法
摘要:【学习万一老师博客摘要】 TTreeView 与两个重要的类相关:TTreeNodes、TTreeNode 。 TTreeNodes即是TTreeView 的Items属性,TTreeNodes是TTreeNode的合集,TTreeNode代表的是TTreeView的节点,不按主从关系,节点依次存储 阅读全文

posted @ 2019-08-20 20:17 癫狂编程 阅读(1263) 评论(0) 推荐(0) 编辑

学习 TTreeView [2] - Items.Item[i]、Items[i]、.Text、SetFocus(设置焦点)、Select(选择)
摘要:本例效果图: 源码: 阅读全文

posted @ 2019-08-20 12:24 癫狂编程 阅读(660) 评论(0) 推荐(0) 编辑

delphi两个取字串长度的函数strlen,length
摘要:━━━━━━━━━━━━━━━━━━━━━━━━━━【strlen】PChar 串专用函数:串长度procedure TForm1.BitBtn1Click(Sender: TObject); var s: Widestring; begin s := '桂枝香在故国晚秋'; ShowMessage 阅读全文

posted @ 2019-08-19 16:38 癫狂编程 阅读(1768) 评论(0) 推荐(0) 编辑

Delphi下Treeview控件基于节点编号的访问
摘要:delphi treeview 分割号 层次 阅读全文

posted @ 2019-08-19 15:27 癫狂编程 阅读(184) 评论(0) 推荐(0) 编辑

测试 System.SysUtils.TStringHelper
摘要:大小写转换: 清除两边空格或指定字符: 字符串对比: 搜索字符串: 是否包含: 添加或解除引号: 适宽处理: 插入与删除: 截取: 替换: 分割: 连接: 类型转换: 定界符: 空字符串: String 与 Char: 其他: 阅读全文

posted @ 2019-08-19 14:37 癫狂编程 阅读(192) 评论(0) 推荐(0) 编辑

雨田家园 delphi 拆分字符串
摘要:最近在使用Delphi开发一种应用系统的集成开发环境。其中需要实现一个字符串拆分功能,方法基本原型应该是:procedure SplitString(src: string ; ch: Char; var stringList: TStringList);目的是使用字符ch拆分src字符串,把拆分的 阅读全文

posted @ 2019-08-19 14:13 癫狂编程 阅读(251) 评论(0) 推荐(0) 编辑

delphi string.split 按照任意字符串分割语句
摘要:var I: Integer; S: string; A: TArray<string>;begin S := 'AAA分割bbb分割ccc'; A := S.Split(['分割']); for I := 0 to High(A) do ShowMessage(A[I]);end; 输出结果为: 阅读全文

posted @ 2019-08-18 22:48 癫狂编程 阅读(380) 评论(0) 推荐(0) 编辑

学习 TTreeView [16] - 给 TTreeView 添加复选框 (回复 "丁永其" 的问题)
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/05/15/1114450.html#1199402 本例效果图: 阅读全文

posted @ 2019-08-18 22:47 癫狂编程 阅读(259) 评论(0) 推荐(0) 编辑

学习 TTreeView [15] - 连接数据库 (作为给 "丁永其" 和 "DELPHI万岁" 两位朋友的回复)
摘要:本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBClient, St 阅读全文

posted @ 2019-08-18 22:45 癫狂编程 阅读(234) 评论(0) 推荐(0) 编辑

delphi TClientDatset资料
摘要:第十一章 TClientDataSet 与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,它通常用于多层体系结构的客户端。TClientDataSet最大的特点是它不依赖于BDE(Borland Database Engine),但它需要一个动态链接库的 阅读全文

posted @ 2019-08-18 21:29 癫狂编程 阅读(173) 评论(0) 推荐(0) 编辑

delphi7 clientdataset 详解
摘要:delphi Midas SQLServer的自增字段的处理1.新增时,表中有自增字段,但是不希望用Refresh,直接ApplyUpdates直接看见自增字段的值在DataSetProvider.AfterUpdateRecord写如下代码 2.新增时,从表的关联字段与主表的自增字段同步更新 De 阅读全文

posted @ 2019-08-18 21:26 癫狂编程 阅读(1143) 评论(0) 推荐(0) 编辑

为TMenuItem增加指针Data属性
摘要:Delphi的有些组件中都包含.Data属性,比如TTreeNode,.Data属性可以认为是一个指针,可以指向任何类或者结构,方便后续操作。 但是TMenuItem没有.Data属性,下面介绍最简单的方法为TMenuItem增加.Data属性。 在需要使用的.pas文件前面写上如下代码 type 阅读全文

posted @ 2019-08-18 17:16 癫狂编程 阅读(191) 评论(0) 推荐(0) 编辑

Delphi repeat Until 运用
摘要:很少用到 repeat until,但有时候,她真的很实用 阅读全文

posted @ 2019-08-18 15:18 癫狂编程 阅读(1003) 评论(0) 推荐(0) 编辑

clientdataset的使用
摘要:clientdataset的使用(一) Delphi做为一个快速应用开发工具,深受程序员的喜爱。其强大的组件功能,让程序员能够轻松、高效地完成常见的界面开发、数据库应用等功能。然而,帮助的相对缺乏,使得许多组件的功能并不为人们正确地使用,究其原因,仍然是认识上的问题。对于MIDAS开发中的核心部件, 阅读全文

posted @ 2019-08-18 11:14 癫狂编程 阅读(796) 评论(0) 推荐(0) 编辑

类型TTreeView.items.add 与 TTreeView.items.addchild有何区别?(10分)
摘要:我看了书上例子,好象两者都可以实现treeview中的node 的构建。 addchild是给当前的node建一个子node,它比当前node要向右缩进几格add建立同级的node,不缩进 aNode :=TreeView1.Items.Add(Node, S)aNode 与 Node 是兄弟。bN 阅读全文

posted @ 2019-08-17 13:50 癫狂编程 阅读(356) 评论(0) 推荐(0) 编辑

delphi中nil、null、UnAssigned区别
摘要:nil:空指针,空地址,对象也是指针,所以可以object := nil;null:null是一个未定义值的变量,既不是0也不代表空字符串,它是未定义的。http://www.delphibasics.co.uk/RTL.asp?Name=Null判断对象为不为空用if assigned(objec 阅读全文

posted @ 2019-08-17 08:35 癫狂编程 阅读(1009) 评论(0) 推荐(0) 编辑

操作TreeView(咏南工作室)
摘要:{*******************************************************}{ }{ 操作TreeView }{ }{ 版权所有 (C) 2008 咏南工作室 }{ }{********************************************** 阅读全文

posted @ 2019-08-17 08:09 癫狂编程 阅读(220) 评论(0) 推荐(0) 编辑

delphi7 treeview + 数据库 实现动态节点维护
摘要:首先说下树节点对应的表的基本结构,必需要有的字段(节点编号,父节点编号,节点名称),其他字段根据你开发的需要添加从添加节点开始,一开始就取出表中最大节点编号,每次添加节点的时候,该节点编号增加1;添加节点的时候我们有2个步骤,首先是给treeview树种建立节点;其次是给数据库中添加相应的节点记录; 阅读全文

posted @ 2019-08-16 18:21 癫狂编程 阅读(423) 评论(0) 推荐(0) 编辑

Delphi Try Except 实例
摘要://判断单位转换率 try um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat; if um_rate <= 0 then abort else if (vp_mstr.F('vp_um').AsString = vp_mstr.F('part_um').AsString) and (um 阅读全文

posted @ 2019-08-14 11:56 癫狂编程 阅读(726) 评论(0) 推荐(0) 编辑

Delphi 中自定义异常及异常处理的一般方法
摘要:delphi中异常定义如下: TCustomException = class(Exception) private public constructor Create(const Msg: string ); end; 在一般的编程中,因为涉及到函数的嵌套调用,如果在一个函数中发生异常,且此函数中 阅读全文

posted @ 2019-08-14 11:42 癫狂编程 阅读(460) 评论(0) 推荐(0) 编辑

Delphi中的异常处理(10种异常来源、处理、精确处理)
摘要:一.异常的来源 在Delphi应用程序中,下列的情况都比较有可能产生异常。 1.文件处理 2.内存分配 3.windows资源 4.运行时创建对象和窗体 5.硬件和操作系统冲突 6.网络问题 7.数据库 8.控件中的异常 9.DLL文件的异常 10.强制类型转换 ………… 二.异常的处理 1.try 阅读全文

posted @ 2019-08-14 11:36 癫狂编程 阅读(873) 评论(0) 推荐(0) 编辑

无法登录到Windows云服务器怎么办?
摘要:当您的云服务器无法远程登录时,我们首先建议您使用VNC方式登录。 是否可以通过控制台远程登录 远程登录失败时,请首先尝试能否通过管理控制台,使用VNC方式登录弹性云服务器。 登录管理控制台。 选择“计算 > 弹性云服务器”。 选择待登录的云服务器单击“操作”列下的“远程登录”。 图1 远程登录 当界 阅读全文

posted @ 2019-08-13 07:29 癫狂编程 阅读(773) 评论(0) 推荐(0) 编辑

Delphi实现树型结构具体实例
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB;type PNodeI 阅读全文

posted @ 2019-08-12 20:56 癫狂编程 阅读(694) 评论(0) 推荐(0) 编辑

学习 TTreeView [15] - 连接数据库 (作为给 "丁永其" 和 "DELPHI万岁" 两位朋友的回复)
摘要:本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBClient, St 阅读全文

posted @ 2019-08-12 20:54 癫狂编程 阅读(242) 评论(0) 推荐(0) 编辑

delphi中Treeview的使用介绍
摘要:今天重点学习了TreeView的使用方法,基本的已经写了,现在主要想说的是如何显示数据库的资料,今天只是做了个较简单的例子,一个父节点下显示数据库中某个field的值。代码如下: procedure TMainForm.TreeviewShow(Sender: TObject); var node1 阅读全文

posted @ 2019-08-12 20:49 癫狂编程 阅读(2593) 评论(0) 推荐(0) 编辑

按下F2编辑dxDBTreeView的节点
摘要:在TdxDBTreeView控件的OnKeyDown事件中写入if Key = VK_F2 thenbegin if DBTreeMain.DBSelected = nil then Exit; DBTreeMain.DBSelected.EditText;end; 阅读全文

posted @ 2019-08-12 20:11 癫狂编程 阅读(270) 评论(0) 推荐(0) 编辑

dbtreeview
摘要:http://www.delphipages.com/comp/dynamic_dbtreeview-6302.html https://files.cnblogs.com/files/jijm123/dbtreeview.zip https://www.componentsource.com/pr 阅读全文

posted @ 2019-08-12 19:42 癫狂编程 阅读(169) 评论(0) 推荐(0) 编辑

我的dbtreeview–treeview直接连接数据表_delphi教程
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, ComCtrls, Grids, DBGrids, 阅读全文

posted @ 2019-08-12 19:35 癫狂编程 阅读(383) 评论(0) 推荐(0) 编辑

SqlDbx连接oracle(可用)
摘要:解压SqlDbx.zip,将SqlDbx放到C:盘根目录1.Path里面增加:C:\SqlDbx Path是为了找tnsnames.ora2.增加系统变量:ORACLE_HOME,路径:C:\SqlDbx ORACLE_HOME是为了找oci.dll 3.用sqlDbx查询时,如果出现中文乱码,则: 阅读全文

posted @ 2019-08-12 16:02 癫狂编程 阅读(486) 评论(0) 推荐(0) 编辑

SqlDbx连接oracle(无需安装Oracle客户端)
摘要:解压SqlDbx.zip,将SqlDbx放到C:盘根目录1.Path里面增加:C:\SqlDbx Path是为了找tnsnames.ora2.增加系统变量:ORACLE_HOME,路径:C:\SqlDbx ORACLE_HOME是为了找oci.dll 3.用sqlDbx查询时,如果出现中文乱码,则: 阅读全文

posted @ 2019-08-12 15:25 癫狂编程 阅读(782) 评论(0) 推荐(0) 编辑

Sqldbx连接oracle
摘要:1,找到tnsnames.ora的存放目录,一般为D:\app\Administrator\product\11.2.0\client_1\network\admin。 2,编辑tnsnames.ora文件: CONN_xinyang = (DESCRIPTION = (ADDRESS = (PRO 阅读全文

posted @ 2019-08-12 15:06 癫狂编程 阅读(600) 评论(0) 推荐(0) 编辑

tcxgrid控件中drag a column header here to group by that column移除方法
摘要:dev express的tcxgrid控件初始状态有一个分组的头“drag a column header here to group by that column”; 移除的方法是 optionsview -> groupbybox,选false。 阅读全文

posted @ 2019-08-12 09:10 癫狂编程 阅读(364) 评论(0) 推荐(0) 编辑

delphi DBTreeview与数据库连接的数据存取
摘要://操作: procedure TForm1.act_GetListExecute(Sender: TObject); begin FieldList := TStringList.create; TreeView1.items.BeginUpdate; Table1.Close; // 关键!这样才能在插入、更新、删除表数据后实现实时更新 Table1.Open; // 关键! Table1.f 阅读全文

posted @ 2019-08-11 20:10 癫狂编程 阅读(453) 评论(0) 推荐(0) 编辑

动手生成 Delphi xe DBTreeview 三级行政图树 省市县
摘要:表结构及记录 object tarea: TFDQuery Connection = FDConnection1 SQL.Strings = ( 'select *' 'from tArea order by fParentCode') Left = 160 Top = 240 end object 阅读全文

posted @ 2019-08-11 20:00 癫狂编程 阅读(419) 评论(0) 推荐(0) 编辑

动手生成 Delphi xe DBTreeview
摘要:tProductType表结构如下 object FDConnection1: TFDConnection Params.Strings = ( 'Database=ClothingTem' 'User_Name=sa' 'Password=123' 'Server=(local)' 'Driver 阅读全文

posted @ 2019-08-11 19:39 癫狂编程 阅读(288) 评论(0) 推荐(0) 编辑

TreeView如何实现选中的节点上移或下移 [问题点数:20分,结帖人nww2002]
摘要:在TreeView中,如何实现选中一节点,右键点击上移或下移 TTreeNode.MoveTo() 一、获得Tree上的结点var NowNode : TTreeNode;begin NowNode := TreeView1.Selected;二、结点上移 Treeview1.Selected.Mo 阅读全文

posted @ 2019-08-11 08:34 癫狂编程 阅读(441) 评论(0) 推荐(0) 编辑

Dev tdxDBTreeView
摘要:Posted on 2015-10-08 23:33 墨者工作室 阅读(285) 评论(0) 编辑 收藏 可以快速的用tree展示层次结构,无需任何编码;对tree的操作会自动post到数据集;对数据集的操作会 在tree上表现 一、关键 设置 datasource displayField:节点的 阅读全文

posted @ 2019-08-10 02:28 癫狂编程 阅读(336) 评论(0) 推荐(0) 编辑

CXGRID用法-最新
摘要:在做AdoHelper实用程序的时候,我用了DevExpress的cxGrid控件.在此之前用的是dbgrid,考虑到不能把所有的数据都拉到本地,我用了动态生成的select top 500的命令.这样很笨.昨天忽然想到,可以看看控件是否支持只拉取一部分数据的,象access那样. GridView 阅读全文

posted @ 2019-08-09 16:01 癫狂编程 阅读(646) 评论(0) 推荐(0) 编辑

PLSQL 经常自动断开失去连接的解决过程
摘要:问题背景: 情况是这样的,很多开发同事的PLSQL上班时间开着8个小时,有时候他们出去抽烟后或者中午吃完饭,回来在PLSQL上面执行就报错无响应,然后卡住了半天动弹不了,非得重新登录plsql才生效,我猜猜是因为连接失效的缘故,经常碰到这种情况,还没有影响工作效率和工作心情的。 1,去查看以下CON 阅读全文

posted @ 2019-08-08 14:48 癫狂编程 阅读(903) 评论(0) 推荐(0) 编辑

PLSQL Developer连接远程oracle配置(详细解读)
摘要:一、安装Instant Client 1. 下载Instant Client(轻量级的客户端),作为本地Oracle环境 。 http://www.oracle.com/technetwork/database/features/instant-client/index-097480.html 2. 阅读全文

posted @ 2019-08-08 08:17 癫狂编程 阅读(11700) 评论(0) 推荐(0) 编辑

delphi type
摘要:声明: 1. type Name = Existing type; 描述:Type关键词是Delphi的基础部分,不像其它语言,它允许创建变量和过程的新类型(种类)。这些新的类型可以被引用,就像它是语言的一部分一样。 比如:Type TCourtCards = (Ace,Jack,Queen,Kin 阅读全文

posted @ 2019-08-07 08:46 癫狂编程 阅读(1207) 评论(0) 推荐(0) 编辑

Delphi中@,^,#,$分别表示什么?
摘要:@:取址运算符; var int:integer; p:^integer; new(P); int:=24; p:=@int; dispose(P); ^:指针的引用解析操作符; var pint:^integer; new(pint); showmessage(inttohex(integer(@ 阅读全文

posted @ 2019-08-07 08:32 癫狂编程 阅读(4147) 评论(0) 推荐(0) 编辑

在DELPHI中用TreeView控件从数据库中动态装载信息
摘要:1.PInfo表结构ID VARCHAR(50)FullName VARCHAR(50)ParentID VARCHAR(50)2.Unit文件unit Info;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphi 阅读全文

posted @ 2019-08-07 08:22 癫狂编程 阅读(385) 评论(0) 推荐(0) 编辑

Delphi New,Getmem,ReallocMem联系与区别
摘要:procedure New(var P: Pointer); {为一个指针变量分配内存,会自动计算指针所指数据结构需要空的空间大小} procedure GetMem(var P: Pointer; Size: Integer); {分配一个指定大小的内存块(连续),并用P指向它} procedur 阅读全文

posted @ 2019-08-07 08:11 癫狂编程 阅读(731) 评论(0) 推荐(0) 编辑

ORA-03114: not connected to ORACLE
摘要:PlSql Developer出现这个问题的时候,只要重新连接一些数据库就行了! 阅读全文

posted @ 2019-08-06 18:14 癫狂编程 阅读(4008) 评论(0) 推荐(0) 编辑

解决PLSQL Developer中的乱码问题
摘要:很多朋友在使用PLSQL Developer的时候出现了乱码的问题,我就是其中的一员,后来通过网上的查找以及自己的探索,终于找到了最快,最可靠的解决办法,接下来我将告诉大家如何操作 1.首先在PLSQL Developer中输入并执行select userenv('language')from du 阅读全文

posted @ 2019-08-06 18:12 癫狂编程 阅读(495) 评论(0) 推荐(0) 编辑

PLSQLDeveloper安装与配置
摘要:1、前提:首先要有oracle数据库或者有oracle服务器,才可以实现使用PLSQL Developer 工具连接到oracle数据库进行开发 2、下载PLSQLDeveloper并解压 3、配置环境变量1) 变量名:ORACLE_HOME 变量值:E:\PLSQLDeveloper\PLSQL\ 阅读全文

posted @ 2019-08-06 18:12 癫狂编程 阅读(340) 评论(0) 推荐(0) 编辑

delphi7 treeview + 数据库 实现动态节点维护
摘要:首先说下树节点对应的表的基本结构,必需要有的字段(节点编号,父节点编号,节点名称),其他字段根据你开发的需要添加从添加节点开始,一开始就取出表中最大节点编号,每次添加节点的时候,该节点编号增加1;添加节点的时候我们有2个步骤,首先是给treeview树种建立节点;其次是给数据库中添加相应的节点记录; 阅读全文

posted @ 2019-08-06 16:07 癫狂编程 阅读(176) 评论(0) 推荐(0) 编辑

delphi TreeView 从数据库添加节点的四种方法
摘要:方法一:delphi中递归算法构建treeView 过程:通过读取数据库中table1的数据,来构建一颗树。table1有两个字段:ID,preID,即当前结点标志和父结点标志。所以整个树的表示为父母表示法。本递归算法不难写,但是要注意:程序内部的变量都应使用局部变量!比如当Query是外部变量(函 阅读全文

posted @ 2019-08-06 11:54 癫狂编程 阅读(752) 评论(0) 推荐(0) 编辑

delphi treeview的子节点图标?
摘要:代码实现不同的子节点图标效果。 完整的代码:https://download.csdn.net/download/caozhy/10512789 阅读全文

posted @ 2019-08-06 11:13 癫狂编程 阅读(324) 评论(0) 推荐(0) 编辑

DELPHI TreeView 文件目录树和 设置节点图标 完整
摘要:下载地址 http://download.csdn.net/detail/teststudio/6448293 需要制作文档管理软件 这个非常有用的 1 文件夹 设置图标为 2 文件夹里没有文件的文件夹 设置图标为 没有 3 .HTML文档 设置图标为 4 有附件的 文档设置图标为 DELPHI X 阅读全文

posted @ 2019-08-06 11:06 癫狂编程 阅读(1377) 评论(0) 推荐(0) 编辑

dbgrideh 中的keylist,picklist的用法
摘要:dbgridehprocedure TForm1.FormCreate(Sender: TObject);beginDBGridEh1.DataSource:=DataSource1;DataSource1.DataSet:=MemTableEh1;MemTableEh1.DataDriver:=D 阅读全文

posted @ 2019-08-06 08:18 癫狂编程 阅读(1310) 评论(0) 推荐(0) 编辑

权限控制(delphi actionlist)
摘要:权限控制(delphi TActionList方案)在软件开发中,为软件加入权限控制功能,使不同的用户有不同的使用权限,是非常重要的一项功能,由其在开发数据库方面的应用,这项功能更为重要。但是,要为一个应用加入全面的权限控制功能,又怎样实现呢?大家知道,现在的应用,一般均以菜单访问功能的形式出现,按 阅读全文

posted @ 2019-08-05 20:37 癫狂编程 阅读(1008) 评论(0) 推荐(0) 编辑

Delphi ActionList详解
摘要:一个友好的用户界面,必须具有下拉菜单,弹出菜单,工具条和快捷键。同样一个功能,程序员可能要提供几种操作方式,如文本拷贝,菜单命令&Copy,快捷键Ctrl+C,工具条上的拷贝按钮,都是程序员提供给用户的操作,可以大大方便了不同层次的用户。但是,多增加一种操作方式,就意味着增加响应事件的代码,还有,实 阅读全文

posted @ 2019-08-05 20:29 癫狂编程 阅读(504) 评论(0) 推荐(0) 编辑

TMainMenu 类[三] - 手动建立菜单(5) : 给菜单项添加事件
摘要:效果图: 不过, 菜单事件一般是使用 ActionList 的, 添加一个 ActionList 同时添加一个方法, 实现和上面同样的功能: 阅读全文

posted @ 2019-08-05 20:27 癫狂编程 阅读(274) 评论(0) 推荐(0) 编辑

Delphi动态事件深入分析
摘要:[delphi] view plain copy print? [delphi] view plain copy print? 阅读全文

posted @ 2019-08-05 20:26 癫狂编程 阅读(690) 评论(0) 推荐(0) 编辑

在DELPHI中动态创建控件以及控件的事件
摘要:在DELPHI中我们经常要动态的创建控件以及控件的事件。例如,我们可能想根据程序需要动态的创建一些Tshape组件来创建某个图形,并使得在鼠标移动上去之后可以完成某些操作。这一般需要需要三步: 下面将通过一个例子来演示,例子的功能是动态创建一个Tshape的实例MyShape,并且在鼠标移动到MyS 阅读全文

posted @ 2019-08-05 20:23 癫狂编程 阅读(1210) 评论(0) 推荐(0) 编辑

delphi关闭程序Close,application.Terminate与halt区别
摘要:当Close是一个主窗体时,程序会退出.Close会发生FormClose事件,FormCloseQuery事件Halt会发生FormDestory事件,Application.Terminate以上三个事件都不会发生Application.Terminate就是程序结束了。整个程序结束运行,系统强 阅读全文

posted @ 2019-08-05 19:11 癫狂编程 阅读(553) 评论(0) 推荐(0) 编辑

怎样做delphi程序连接数据库失败,单机确定就关闭窗体
摘要:我单机确定还会显示窗体?? Application.Terminate; 阅读全文

posted @ 2019-08-05 19:05 癫狂编程 阅读(246) 评论(0) 推荐(0) 编辑

Delphi连接sql数据库怎么判断连接是否成功呢
摘要:一切属性都设置好后,我在Button里 ADOConnection1.Connected := True;这样连的,之后如何判断是否连接成功了呢?查询一下数据试试?有更直接的办法吗? if ADOConnection1.Connected then 连接成功2、可以编写一个连函数,试着连接数据库某个 阅读全文

posted @ 2019-08-05 19:02 癫狂编程 阅读(1140) 评论(0) 推荐(0) 编辑

delphi ADOCONNECTION异常拦截
摘要:elphi ADOCONNECTION错误拦截错误框标题: Debugger Exception Notification内容: Project KJXX.exe raised exception class EOleException with message '[DBNETLIB][Connec 阅读全文

posted @ 2019-08-05 18:33 癫狂编程 阅读(804) 评论(0) 推荐(0) 编辑

Delphi 10.2.3 精简版自动激活Embarcadero Delphi 10.2.3 v25.0.29899.2631 Lite v14.4
摘要:下载:https://maxwoods.ctfile.com/u/758954/28516301 Embarcadero.Delphi.10.2.RTM.v25.0.26309.314.Lite.v14.0 ——————————————————————————– 基本信息: 作者:lsuper联系方 阅读全文

posted @ 2019-08-05 16:38 癫狂编程 阅读(1336) 评论(0) 推荐(0) 编辑

Delphi使用TADOQuery的RowsAffected属性时需要注意的一个点
摘要:测试环境是:Delphi 6、Oracle、PLSQL 先创建一个模拟测试的数据表,并且添加几条模拟的数据 create table practice(uno varchar(8), uname varchar(20)); insert into practice values ('1', '1') 阅读全文

posted @ 2019-08-05 16:07 癫狂编程 阅读(640) 评论(0) 推荐(0) 编辑

delphi 新版内存表 FDMemTable
摘要:c++builder XE 官方demo最全60多个 http://community.embarcadero.com/blogs?view=entry&id=8761 FireDAC.Comp.Client 用好FDMemTable代替之前的ClientDataSet,以前ClientDataSe 阅读全文

posted @ 2019-08-05 15:51 癫狂编程 阅读(1901) 评论(0) 推荐(0) 编辑

delphi 中Adoquery ,在打开时能否让记录指针不移动? [问题点数:40分,结帖人microd]
摘要:delphi 中Adoquery ,在打开时能否让记录指针不移动?由于数据集Adoquery 时,它的针指称动会废时,能否在打开完成之前不让记录指针不移动。打开完毕之后再回复移动? 这样用:self.ADOQuery1.DisableControls;.........self.ADOQuery1. 阅读全文

posted @ 2019-08-05 09:42 癫狂编程 阅读(412) 评论(0) 推荐(0) 编辑

delphi循环校验数据集
摘要:function XXXXXFrom.CheckData(Sender: TObject): Boolean; var tmpcds:TfwClientDataset; begin Result:=False; tmpcds:=TfwClientDataset.Create(nil); try tmpcds.CopyFromDataSet(fcdsImport); tmpcds.First; wh 阅读全文

posted @ 2019-08-05 09:13 癫狂编程 阅读(470) 评论(0) 推荐(0) 编辑

解决DBGridEh遍历记录后不移动当前行位置的方法
摘要:解决DBGridEh遍历记录后不移动当前行位置的方法 在用DBGridEh配合ClientDataSet使用时,需要知道用户选择了哪些记录,可用遍历记录的方法查询选择列是否为真,但在这之后,ClientDataSet记录指针的位置发生了改变,可用TBookMark的bm:=GetBookMark(C 阅读全文

posted @ 2019-08-05 09:11 癫狂编程 阅读(530) 评论(0) 推荐(0) 编辑

获取DataSet中某行某列的数据
摘要:LabelText = DataSet11.Tables("COMM.USERS").Rows[0]["User_Name"].tostring() LabelText = DataSet11.Tables("COMM.USERS").Rows(0).Item("user_name") Label. 阅读全文

posted @ 2019-08-05 09:05 癫狂编程 阅读(398) 评论(0) 推荐(0) 编辑

Delphi三层开发小技巧:TClientDataSet的Delta妙用
摘要:Delphi做三层开发时,很多人都会在客户端放一个TClientDataSet,中间层远程数据模块就对应放一个TDataSetProvider,然后再连起来.其实这种方法很烦琐,而且程序痈肿不甘,不好维护.我们都知道TClientDataSet的Delta属性记录了数据的所有修改,应用它我们就可以方 阅读全文

posted @ 2019-08-05 08:51 癫狂编程 阅读(339) 评论(0) 推荐(0) 编辑

中间件解析FDMEMTABLE.delta生成SQL的方法
摘要:遍历Delta.DataView.Rows,Delta.DataView.Rows是记录的行集,由行组成 TFDDatSRow,即是一行记录的对象 TFDDatSRow的方法: GetData(),SetData()获取一行一列的数值或设置一行一列的数值 fdmemtable.delta直接提交给中间件,中间件可以解析fdmemtable.delta生成 INSERT OR UPD... 阅读全文

posted @ 2019-08-05 08:44 癫狂编程 阅读(337) 评论(0) 推荐(0) 编辑

delphi 中配置文件的使用(*.ini)和TIniFile 用法
摘要:一、配置文件 .ini 文件是基于文本类型的格式文件,用于存储程序初始化和配置数据。 .ini文件是有段(Sections)和键(key)组成的,每个文件可以有 n个段(每个段有方括号括起来),每个段可以有m个键,大致格式如下: [secontion] KeyName1=Value1; ;comment KeyName2=Value2; ... 阅读全文

posted @ 2019-08-04 18:25 癫狂编程 阅读(762) 评论(0) 推荐(0) 编辑

Delphi 字符串加密与解密函数
摘要:EncdDecd 单元: EncodeString、DecodeString、EncodeBase64、DecodeBase64 uses EncdDecd; const str = '万一的 Delphi 博客'; procedure TForm1.Button1Click(Sender: TObject); var strEncode,strDecode: string; begi... 阅读全文

posted @ 2019-08-04 11:09 癫狂编程 阅读(704) 评论(0) 推荐(0) 编辑

Delphi编写的等长加密与解密
摘要:最近在看一本关于网络游戏服务端开发的书,虽然该书是个空架子,里面没有多少实际的内容(此书评价不好),但其中关于等长加密与解密的代码还是有一定的借鉴作用的。他山之石,可以攻玉。因为书中是C++的代码,所以我花了半个小时的时间将它转换成了Delphi的代码。公布出来便于有这方面需要的朋友可以借鉴使用。 阅读全文

posted @ 2019-08-04 10:44 癫狂编程 阅读(801) 评论(0) 推荐(0) 编辑

java和delphi共用的des加密解密
摘要:java: import antlr.StringUtils;import org.jeecgframework.core.util.StringUtil; import java.security.SecureRandom; import javax.crypto.Cipher;import ja 阅读全文

posted @ 2019-08-04 10:26 癫狂编程 阅读(959) 评论(0) 推荐(0) 编辑

delphi读写INI系统配置文件
摘要:delphi读写INI系统配置文件 一、调用delphi内建单元 uses System.IniFiles; 1、使用类TIniFile 2、类TIniFile的主要方法和函数: {$IFDEF MSWINDOWS} { TIniFile - Encapsulates the Windows INI file interface (Get/SetPrivateProfileXXX func... 阅读全文

posted @ 2019-08-04 09:41 癫狂编程 阅读(864) 评论(0) 推荐(0) 编辑

1.ini读写操作
摘要:一、使用 TIniFile implementationvar ini:tinifile; path:string; {ini文件路径} section,key:string;{表示ini文件的小节、关键字}{$R *.dfm} procedure TForm1.Button1Click(Sende 阅读全文

posted @ 2019-08-04 09:31 癫狂编程 阅读(292) 评论(0) 推荐(0) 编辑

【经验】Delphi INI文件保存与读取
摘要://需要引用IniFiles uses system.IniFiles; //保存INI配置文件 procedure TForm1.btnSaveClick(Sender: TObject); var myIniFile: TIniFile; filepath: string; begin filepath := ExtractFilePath(Application.Exen... 阅读全文

posted @ 2019-08-04 09:30 癫狂编程 阅读(425) 评论(0) 推荐(0) 编辑

封装 INI 文件读写函数
摘要:delphi读写ini文件实例 //--两个过程,主要实现:窗体关闭的时候,文件保存界面信息;窗体创建的时候,程序读取文件文件保存的信息。 //--首先要uses IniFiles(单元) //--窗体创建的时候,读取ini文件信息 procedure TfrmAFN04H_F9.FormCreate(Sender: TObject); var vFIni: ... 阅读全文

posted @ 2019-08-03 20:49 癫狂编程 阅读(295) 评论(0) 推荐(0) 编辑

Delphi操作Ini文件
摘要:ini 文件操作记要(1): 使用 TIniFile ini 文件操作记要(2): 使用 TMemIniFile 阅读全文

posted @ 2019-08-03 14:58 癫狂编程 阅读(446) 评论(0) 推荐(0) 编辑

Delphi- ini文件的读写操作
摘要:一、读INI文件示例 二、写ini文件示例 注意事项: 1.读写INI文件时要引用Inifiles单元 2. glAppPath := ExtractFilePath(Application.ExeName);获取当前运行程序的路径,记得要设置一下程序的输出路径才行否则程序路径是安装delphi的路 阅读全文

posted @ 2019-08-02 21:11 癫狂编程 阅读(1239) 评论(0) 推荐(1) 编辑

Delphi通过ADO读写数据库
摘要:ADO是一种程序对象,用于表示用户数据库中的数据结构和所包含的数据。 ADO (ActiveX Data Objects,ActiveX数据对象)是Microsoft提出的应用程序接口(API)用以实现访问关系或非关系数据库中的数据。例如,如果您希望编写应用程序从DB2或Oracle数据库中向网页提 阅读全文

posted @ 2019-08-01 09:05 癫狂编程 阅读(3420) 评论(0) 推荐(0) 编辑

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
好的代码像粥一样,都是用时间熬出来的
点击右上角即可分享
微信分享提示