- 博客(33)
- 资源 (459)
- 收藏
- 关注
转载 Delphi版本号对照
VER10 :Turbo Pascal 1VER20 : Turbo Pascal 2VER30 : Turbo Pascal 3VER40 : Turbo Pascal 4VER50 : Turbo Pascal 5VER60 : Turbo Pascal 6VER70 : Turbo Pascal 7VER80 : Delphi 1VER90
2014-08-31 16:18:57 1441
原创 CMD翻页
cmd 窗口下, 是可以翻页的, 或者可以在其 "属性" 中设置缓冲区的行数, 缺省的是 300 行吧. 如果实在还不够, 可以试试 | more 通道, 比如: dir | more
2014-08-31 15:44:19 6102
转载 SQL Server导入导出excel及常见问题
前几天考试系统导入导出学生信息,初次接触导入导出,为sqlserver和excel的数据传递方法之简和MS产品的高效兼容所震惊,但也遇到各种各样问题,在此介绍SQL Server导入导出excel方法及遇到的问题。 SQL Server导出Excel导出步骤想对较少,出现的问题也较少。 1、进入Excel---数据---自其它来源---来自SQL Server。如图
2014-08-31 14:44:47 16189
转载 实现应用程序的文件拖放功能〖源代码〗
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;type TForm1 = class(TForm) Memo1: TMemo; procedure F
2014-08-31 14:28:41 887
转载 delphi中Case语法的使用方法
Case 语句If...Then…Else 语句适合选项较少的情况,如果有很多选项的话利用If 语句就比较麻烦,在这种情况下,Case 语句就容易多了。Case 语句的语法如下: case of:;:;else;end;下面这个例子中的S 为Char 类型。当用户输入一个字符后按回车键确认后判断变量S,如果是小写或大写字母将显示
2014-08-31 11:10:05 42641
转载 Delphi开发技巧:字符串的相关判断
某一字符是否在字符串中 本实例是用AnsiMidstr()函数获取指定字符串中的单个字符,也可以获取指定长度的子字符串。运行结果如图5.10所示。图5.10 判断某一字符是否在字符串中 主要代码如下: procedure TForm1.Button1Click(Sender: TObject); var i,p:Integ
2014-08-31 10:29:51 3421
转载 delphi基本类的操作
unit CommonFunction;interfaceusesWindows,DB,ADODB,Controls,Forms,SysUtils,StdCtrls, Classes, strUtils,CommonConst, FormDataModule, ComCtrls, math, bsSkinBoxCtrls, CommonClass;//数据库操作函数function E
2014-08-31 10:27:24 1717
转载 Delphi中给Windows服务程序添加描述信息
procedure TMyService.ServiceAfterInstall(Sender: TService);var reg: TRegistry; begin reg := TRegistry.Create; try with reg do begin RootKey := HKEY_LOCAL_MACHINE;
2014-08-31 10:25:36 1689
原创 Delphi异常处理try except语句和try finally语句用法以及区别〖原创+转载〗
一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!)一、异常的来源 在Delphi的应用程序中,下列的情况都比较有可能产生异常。 (1)文件处理 (2)内存分配 (3)Windows资源 (4)运行时创建对象和窗体 (5)硬件和操作系统冲突
2014-08-30 15:40:17 1290
转载 DELPHI7执行dos命令并等待完成再执行面的语句
DELPHI7执行dos命令并等待完成再执行面的语句2006-12-06procedure TForm1.Button4Click(Sender: TObject);varStartupInfo: TStartupInfo;ProcessInfo: TProcessInformation;begin//ShowMessage('Ready to la
2014-08-30 11:29:35 4800
转载 delphi Date函数列表
DateUtils时间单元,非常有用。记得引用这个单元,不然不能用。CompareDate 比较两个日期时间值日期部分的大小CompareDateTime 比较两个日期时间值的大小CompareTime 比较两个日期时间值时间部分的大小DateOf 去除日期时间值的时间部分DateTimeToJulianDate 转换日期时间值为儒略日DateTimeToMod
2014-08-30 11:27:55 1248
转载 SQL中的循环、for循环、游标
我们使用SQL语句处理数据时,可能会碰到一些需要循环遍历某个表并对其进行相应的操作(添加、修改、删除),这时我们就需要用到咱们在编程中常常用的for或foreach,但是在SQL中写循环往往显得那么吃力,翻遍网上的资料,找不到几个正确的并能执行的循环处理数据的方法,在这里,我来给大家分享一下!要SQL中写类似for循环,我这里使用的是SQL中的游标来实现,当然SQL中也有for loo
2014-08-30 10:50:27 748
转载 关于cxGrid控件的一点感悟
昨天晚上“天王”在QQ上问我,如果根据cxGrid的列值来更改一行的颜色,我当时觉得这太简单了,呵,告诉他,今天早上我会来回贴的,于是早上便早早的来到公司,上CSDN,找到那个贴子,发现有好多人都回了,方法和我平时用的都差一样,具体内容如下:(http://topic.csdn.net/u/20080804/14/36734154-6875-4057-8517-932fe714bc7a.html)
2014-08-30 10:46:16 2164
转载 让DELPHI写的服务程序在服务管理器中显示“描述”
DELPHI写的服务程序,可以在XP系统的服务管理器中显示“名称”,但没有与“描述”相对应的发生,“描述”都是显示空白。如何加入自己服务程序的“描述”内容呢?目前基本有两种方法:1、修改注册表,在HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet001\Services下找到自己的服务名称键值,然后加入一个名为Description的
2014-08-30 10:45:21 2262 1
转载 用Delphi实现开机自动启动程序
在我们机子上的注册表中有个的根键HKEY_LOCAL_MACHINE下有一个键"Run"(Software/Windows/CurrentVersion/Run),Windows开机是会搜索注册表,凡在该键下设置了正确路径的有效程序就会自动运行.下面开始介绍我写的这个Delphi程序^_^.在新建的Form1中添加以下代码 unit Unit1;interf
2014-08-30 10:42:03 5403
转载 cxGrid点分组加号"+"事件 <只展开当前组(group),收起其他组(group)>
为了在cxGrid中实现展开当前组时收起其他组的特殊效果,先找遍了cxGridDBTableView的事件,愣是没找到点击分组前面加号“+”的事件。在google里搜索了老半天,终于在搜索“cxGrid group Expand event”关键字时在Dev Express的官网论坛找到了解决方案:可以在View的OnMouseDown里通过判断HitTest是否为TcxGridExpandB
2014-08-30 10:41:10 2725
转载 Delphi中initialization和finalization
注:本文主要是讨论delphi程序启动时和退出时的执行顺序,期间有些知识来源于Delphi帮助,有些来自《Delphi7程序设计教程》(这本书只告诉我有initialization 和 finalization 这两个关键字,但是没讲明白)(唉,现在的书只讨论框框架架,不讨论细节,写出来的东西让你看能看懂,别人一问或者自己一想,就是什么都不懂!讲的不细致呀!唉,自己琢磨吧!!)。代码用两排‘*
2014-08-30 10:29:49 6774
转载 关于 CxDateedit中可以输入乱码,导致根据日期查询出错的解决方法
1、在CxDateedit的KeyPress事件中加以下代码,禁止输入字母,只能输入数字和退格键procedure TFrmPurchaseReqHistory.EdtCreationBeginDateKeyPress( Sender: TObject; var Key: Char);begin inherited; if not (key in ['0'..'9',
2014-08-30 10:29:38 1278
转载 cxgrid or condition filter (或条件过滤)
procedure TShangPinSelectForRuKuFam.SearchRec; //取得 过滤器 Function GetFilter: TcxdbDataFilterCriteria; begin result := ( cxGrid1DBTableView1.DataController.Filter as TcxdbDataFilterCriteri
2014-08-30 10:28:42 2439
转载 Delphi Excel导入 的通用程序
Delphi Excel导入 的通用程序 .分类: delphi 2012-09-24 18:20 257人阅读 评论(0) 收藏 举报 exceldelphiinteger数据库c步骤:1 连excel(自己知道其格式,最好是没个字段在数据一一对应)2 读excel数据,填入到数据库我这里有个函数,实现把excel表格中数据导入数据库,在一条数据导入前判断数据库中是否有该数据
2014-08-30 09:49:10 2998
转载 sql if else 语句
IF ELSE 是最基本的编程语句结构之一几乎每一种编程语言都支持这种结构而它在用于对从数据库返回的数据进行检查是非常有用的TRANSACT-SQL 使用IF ELSE的例子如下语法if (condition)begin(statement block)endelse if (condition)beginstatement block)ende
2014-08-30 09:47:18 1732
转载 MS SQL 导入导出 提示 未在本地计算机上注册“Microsoft.ACE.Oledb.12.0”提供程序。(System.Data)
把SQL08换成SQL2012,首次尝试导入数据,提示: 需要下载安装:Microsoft Office Access Database Engine 2007http://download.microsoft.com/download/7/0/3/703ffbcb-dc0c-4e19-b0da-1463960fdcdb/AccessDataba
2014-08-30 09:44:27 5176
转载 sql server 2008 不允许保存更改,您所做的更改要求删除并重新创建以下表
启动SQL Server 2008 Management Studio工具菜单----选项----Designers(设计器)----阻止保存要求重新创建表的更改 取消勾选即可。 工具菜单----选项----Designers(设计器)----阻止保存要求重新创建表的更改 取消勾选
2014-08-30 09:40:38 476
转载 delphi 自定义弹出窗口,减少form(dfm文件)的数量
定义一个函数PopUpForm,用来弹出窗口,减少form(dfm文件)的数量,和那么多uses。弹出窗口后,把aPanel放在窗口上,提供两个按钮,确定和取消。确定按钮的标签可更改。两个按钮分别响应键盘回车和ESC。函数返回true,点了确定按钮;返回false,点了取消按钮。参数:aPanel: TControl; //一个存放各种
2014-08-30 09:39:05 1721
转载 Sql 脚本导入EXCEL数据
Sql 脚本导入EXCEL数据Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 1 delete excel--讀取EXCLE表數SELECT e_mail excel FROM OPENDATASOURCE('Microsoft.Jet.
2014-08-29 09:51:38 3453
原创 cxgrid删除选中行记录
//==============================================================================// 删除选中行的记录//==============================================================================procedure TFormExcel.
2014-08-25 23:04:32 3684
转载 [VBA教程] 含API引用的VBA作品兼容64位系统的方法
用了office vba五年多了,很喜欢。自从微软有64系统后,发现以前很多作品无法正常运行了。经过查阅office2010 vba开发人员参考手册,实用#if 语句进行有选择的编译。示例代码如下:#If VBA7 Then'定义窗体样式Private Declare PtrSafe Function FindWindow Lib "user32" Alias _
2014-08-25 20:09:07 15591 2
转载 SQL Server 触发器
触发器是一种特殊类型的存储过程,它不同于之前的我们介绍的存储过程。触发器主要是通过事件进行触发被自动调用执行的。而存储过程可以通过存储过程的名称被调用。Ø 什么是触发器 触发器对表进行插入、更新、删除的时候会自动执行的特殊存储过程。触发器一般用在check约束更加复杂的约束上面。触发器和普通的存储过程的区别是:触发器是当对某一个表进行操作。诸如:update、insert、d
2014-08-23 14:41:35 505
转载 SQL Server 2005/2008 触发器的管理和查看
通过可视化操作来管理和查看触发器在Microsoft SQL Server Management Studio中,选中某一数据库的某一张表时,在“对象资源管理器详细”窗口中有“触发器”项。通过“触发器”的右键菜单功能,我们可以新建触发器。如果原来的表中已经存在了触发器,通过双击“触发器”项可以查看到具体的触发器,在此处可以执行 修改、删除等操作。
2014-08-23 14:26:52 1289
转载 sql server 查询某个表的所有触发器名称
查出所有用到某个表的SQLselect * from sysobjects where xtype='TR' select * from sysobjects where xtype='TR' and parent_obj=object_id('表名')xtype char(2) 对象类型。可以是下列对象类型中的一
2014-08-23 14:17:12 9705
转载 如何查询数据库中的所有触发器、储存过程、视图、表
select name from sysobjects where xtype='TR' --所有触发器select name from sysobjects where xtype='P' --所有存储过程select name from sysobjects where xtype='V' --所有视图select name from sysobjects where xtype=
2014-08-23 14:16:10 2442
按照制定时间运行程序(RunAsDate) 1.3 绿色汉化版
2016-12-15
sql-optimizer-for-sql-server_1001官方试用版+安装手册+使用教程
2016-12-15
AlphaControls v11.22 Stable released(D5&XE10.1) (x86&x64) DCUs.rar
2016-12-15
AlphaControls v11.21 Stable (D5~D10.1) (x86&x64) DCUs
2016-12-15
EhLib 9.0 Build 9.0.033 Full Source〖含源码和DEMO〗
2016-12-15
SQLPrompt_7.3.0.775〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2016-12-14
AlphaControls v11.15 Stable (D5~D10.1) (x86&x64) DCUs
2016-09-18
SQLPrompt_7.3.0.513〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2016-09-18
SQLPrompt_7.2.1.267〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2016-05-14
AlphaControls v11.00 Stable (D5~D10.1) (x86&x64) DCUs
2016-05-14
AlphaControls v10.29 Stable (D5~D10.1) (x86&x64) DCUs
2016-05-14
AlphaControls v10.28 Stable (D5~D10) (x86&x64) DCUs
2016-05-14
AlphaControls v10.27 Stable (D5~D10) (x86&x64) DCUs
2016-03-22
AlphaControls v10.26 Stable (D5~D10) (x86&x64) DCUs
2016-03-22
UniDac 6.2.10〖XE10〗 全dcu版本,小白勿下
2016-03-08
AlphaControls v10.25 Stable (D5~D10) (x86&x64) DCUs
2016-02-13
SQLPrompt_7.1.0.306〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2016-02-12
AlphaControls v10.24 Stable (D5~D10) (x86&x64) DCUs
2016-02-04
Devexpress VCL V15.2.3帮助文档〖CHM格式〗
2016-02-03
DxAutoInstaller-2.1.5For Devexpress VCL(DevExpressVCL15.2.2)
2016-02-02
UniDac 8.0.1〖D7,2007,10.1,10.2,10.3〗一键安装版已XX版
2019-09-10
DevExpress VCL V19.1.2 FullSource〖D7~D10.3Rio〗内含安装工具
2019-09-08
DevExpress VCL V18.2.5 FullSource〖D7~D10.3Rio〗内含安装工具
2019-07-18
DevExpress VCL V18.2.8 FullSource〖D7~D10.3Rio〗内含安装工具
2019-07-18
DxAutoInstaller 2.2.rar
2019-07-18
DevExpress VCL V18.2.1 〖D7~D10.3rio〗含安装工具
2019-07-18
Project导出EXCEL表工具(插件)
2018-08-27
Project 2013中文版项目管理 从新手到高手
2018-08-14
AlphaControls v13.04 Beta released(D5&XE10;.2) (x86&x64;) DCUs
2018-03-27
AlphaControls v13.03 Beta released(D5&XE10;.2) (x86&x64;) DCUs
2018-03-22
AlphaControls v13.02 Beta released(D5&XE10;.2) (x86&x64;) DCUs
2018-03-10
AlphaControls v13.01 Beta released(D5&XE10;.2) (x86&x64;) DCUs
2018-02-28
SQLPrompt_7.5.1.1000〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2018-02-20
DevExpress VCL V16.2.5 FullSource〖D6~D10.2〗
2018-02-06
DxAutoInstaller-2.1.9 For Devexpress VCL
2018-02-06
UniDac 7.0.1〖D7~XE10.2〗源码版下载
2017-04-07
AlphaControls v12.00 Beta released(D5&XE10;.1) (x86&x64;) DCUs
2017-02-21
AlphaControls v11.25 Stable released(D5&XE10.1) (x86&x64) DCUs
2017-02-07
AlphaControls v11.24 Stable released(D5&XE10.1) (x86&x64) DCUs
2017-02-07
rar文件AlphaControls v11.23 Stable released(D5&XE10.1) (x86&x64) DCUs
2017-02-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人