delphi编程限制数据库记录数

2017年02月06日 80 阅读

delphi编程限制数据库记录数2008-03-26非常偏门的技巧，很少人会需要限制数据库的记录，但还是列出来给大家参考。假如数据库中只允许用户输入３个记录，那么我们可以在Table1的BeforeInsert事件里加入判断语句：procedure TForm1.Table1BeforeInsert（DataSet: TDataSet）;beginIF Table1.RecNo >=3 thenbeginmessagedlg（记录只能输入三个,mti...

delphi编程数据库日期显示

2017年02月06日 72 阅读

delphi编程数据库日期显示2008-03-26在使用DBGRID控件时显示DATATIME时其年份是为2位的，但我们在步入2000年后需要显示的日期是4位， 如：1998、2001。在数据库中该字段只有在2000年后才会显示4位，怎么办呢？下面我们就让该字段在DBGRID控件 中也显示4位的日期格式：双击Table1控件，就会出现form1.table窗体，击右键，选 Add Fields...，选择日期字段后按ok，窗体中就出现了数据库的日期字段名，...

delphi编程计算数据库某字段的值

2017年02月06日 70 阅读

delphi编程计算数据库某字段的值2008-03-26在数据库中，有时需要做汇总工作，那么就要对某个字段的所有记录进行求和，我们使用如下代码：先定义一个全局变量i，再加入Table1的OnCalcFields事件，那么就得出了数据库中“金额”字段的合计值var i:double;{$R *.DFM} procedure TForm1.Table1CalcFields（dataset: Tdataset）;varGoodsgold:...

怎样读出MEMO控件的当前值

2017年02月06日 66 阅读

怎样读出MEMO控件的当前值2008-04-20使用MEMO控件的em_LineFromChar属性,程序如下:procedure TMyForm.BitBtn1Click（Sender: TObject）;variLine : Integer ;beginiLine := Memo1.Perform（em_LineFromChar, $FFFF, 0）;{ Note: 第一行为 0 }messageDlg（Line Number: + IntToStr（...

在Delphi中巧改窗体文件实现控件数组

2017年02月06日 66 阅读

在Delphi中巧改窗体文件实现控件数组2008-04-20delphi 开发的应用中，每一个窗体都有一个对应的窗体文件（.dfm），用来记录该窗体的属性以及窗体上所有控件的属性，以便在窗体关闭后能准确地重新生成窗体。几乎所有的DELPHI参考书都没有提到过该文件的具体情况，偶尔提到，也都泛泛而谈，因为窗体文件是二进制文件，只有在DELPHI提供的编辑环境中才能看到它的本来面目，对其进行操作可能会出现不可预知的错误；而且在大多数情况下，确实没有修改的必要。...

Delphi中利用MSCOMM控件进行GPS数据采集

2017年02月06日 65 阅读

Delphi中利用MSCOMM控件进行GPS数据采集2008-04-20杨辉 薛向锋1、准备GPS（Global Positioning System），即全球定位系统，利用24颗GPS卫星的测距和测时功能进行全球定位，在许多系统中，如机场导航系统，出租车辆管理和调度系统、江河流域的灾害信息管理和预测系统中，GPS得到了广泛的应用。本文利用MSCOMM控件实现了GPS数据的采集，可为信息管理和指挥调度等提供定位数据。本文采用GPS的异步串行传送方式，将GA...

Delphi数据库控件使用入门

2017年02月06日 97 阅读

Delphi数据库控件使用入门2008-04-20linj在数据库应用程序中，数据控件是经常要用到的。数据控件都是可视的。也就是说，如果修改了这些构件的属性，能在窗体上马上反映出来。如果这些构件的Enabled属性设为True并且数据集的Active属性也设为True，在设计期就可以看到数据。下面就来介绍一下这些控件的简单应用：指定一个数据源数据控件必须通过TDataSource构件连接数据集。TDataSource构件扮演的角色实际上就是数据控件与数据集...

Delphi实现窗体控件自由摆布

2017年02月06日 68 阅读

Delphi实现窗体控件自由摆布2008-04-20 天极 廖海辉在做Mis项目过程中，有时需要让用户自己来实现窗体控件的布局，比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能，必须做好三件事：1、设置进入控件边缘的光标形状；2、改变控件的大小及位置；3、保存窗体控件的位置及状态，窗体下次启动时重新设置它们的这些信息。具体步骤如下：1、修改控件光标。只需要在进入控件的时候，将screen的cursor属性设置成对应形状即可，控件都有一个OnMou...

Delphi控件的“拿来主义”

2017年02月06日 69 阅读

Delphi控件的“拿来主义”2008-04-20xm4014"一个优秀的Delphi程序员，不仅要会写控件，还要会使用控件。"我还是一个半瓢水的程序员，因此目前为止我所能努力达到的境界是:一个半瓢水的程序员，管他会不会写控件，只要能拿来改就可以了。使用过Delphi的朋友都知道，我们在设计Delphi应用程序的某一功能时总是希望能够有现成的第三方免费控件可以拿来使用。但实际情况往往是，网上的控件确实种类繁多，优秀作品也数不胜数，但真正...

利用Indy的TIdFtp控件实现FTP协议

2017年02月06日 86 阅读

利用Indy的TIdFtp控件实现FTP协议2008-04-20cokeyang现在很多应用都需要上传与下载大型文件，通过HTTP方式上传大文件有一定的局限性。幸好FTP作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载，并且可以完美地实现续传。就拿我写的电影服务器管理端程序来说，各种方案比较后，发现使用FTP可以完美地实现要求。但是要通过WinSocket库实现FTP比较麻烦，幸好有Indy--一个包装了大多数网络协议的组件包。通过Ind...

一种树型控件在Delphi中的使用方法

2017年02月06日 80 阅读

一种树型控件在Delphi中的使用方法2008-04-20袁军 黄树成 朱霞摘 要 树型控件是一种有效的表示方法,在数据库应用程序的开发中经常用它可视化表示对象之间的层次关系。本文介绍了Developer Express inc. 的ExpressQuantumGrid Suite中树型控件 TdxDBTreeList 的使用方法和技巧，特别是由多关系表构成树型结构的情况。关键词 树型控件，TdxDBTreeList，多关系表简介树型控件是一种有效的表示方...

Delphi中为DBGrid控件添上色彩

2017年02月06日 67 阅读

Delphi中为DBGrid控件添上色彩2008-04-20 天极 小刀轻舞在微软软件帝国的呐喊声中，VB.net和VC#.net在短时间内拥有了一大批FANS。能在开发工具领域和微软一决高下的Borland公司也不甘示弱把Delphi“打扮”的漂漂亮亮的，让我们这些坚定的D迷依旧信心满满，坚守这块阵地。一些对Pascal语法情有独钟或对VCL爱慕非凡的新生力量也加入了我们阵营之中，新加入的同志大多以开发数据库类的软件做为初始的一步...

Delphi制作GSM Modem的短信发送控件

2017年02月06日 70 阅读

Delphi制作GSM Modem的短信发送控件2008-04-20 天极 姜涛目前大多数的企业及学校内部都建有Intranet。并建有内部网站实现资源共享。为了使用户及时的得知网上的最新信息，很多网站都采用了手机短信提醒的方式，但使用中国移动或中国联通的SP方式，会大大的增加企业的成本。故本文讨论的是利用GSM Modem和短信发送控件来实现的短信提醒。首先，介绍一下笔者所使用环境。服务器：Windows 2000 Advanced Server、IIS...

在程序运行时自动注册ActiveX控件

2017年02月06日 70 阅读

在程序运行时自动注册ActiveX控件2008-04-20编写Delphi应用程序时，经常会遇到一些ActiveX控件[注：扩展名为OCX的控件或DLL的类型库]，它们为应用程序的开发提供了简单的操作途径。然而，这些程序在发布的同时，面临ActiveX控件注册问题。解决途径：一、用安装程序制作打包文件，往往会给增加程序本身的大小，系统重装时，则必须重新安装它；二、用程序本身进行代码编写函数的形式处理它。使用方法分为两种：一、直接把可视化的ActiveX控件...

delphi编程实现检测声卡存在

2017年02月06日 69 阅读

delphi编程实现检测声卡存在2008-04-20如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡：procedure TForm1.FormCreate（Sender: TObject）;var i:Integer;begini := auxGetNumDevs（）;if i<= th...

delphi编程实现检测存在打印机

2017年02月06日 96 阅读

delphi编程实现检测存在打印机2008-04-20Printers是专门用来控制打印机的，可是在没有安装打印机时，却会提示I/O错误，所以必须有一个检测是否存在打印机的方法，我试过很多方法，可是I/O错误总是比我的判断早出现，所以采用以下的烂招来检测打印机。首先在uses增加Printers，再准备一个列表框ComboBox1，其属性Visible设为FALSE，然后在打印之前执行下列语句，那么就可以检测到是否存在打印机了：procedure TFor...

delphi实现控制声音音量

2017年02月06日 90 阅读

delphi实现控制声音音量2008-04-20当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency属性值设置大一些，然后在Uses段加入MMSystem，并在TrackBar1和TrackBar2的OnChan...

delphi实现关闭Windows

2017年02月06日 78 阅读

delphi实现关闭Windows2008-04-20控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx（UINT uFlags,DWORD dwReserved）;是实现这一功能的API函数首先定义常数constEWX_FORCE=4; //关闭所有程序并以其他用户身份登录EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式EWX_REBOOT=2; //重新启动计算机EWX_SHUT...

delphi编程实现弹出、关闭CD-ROM驱动器

2017年02月06日 67 阅读

delphi编程实现弹出、关闭CD-ROM驱动器2008-04-20如果你想做一个CD播放器的话，那本技巧一定少不了。这是一个控制CD-ROM驱动器门弹出和关闭的方法，首先需要在uses部分加入mmsystem，接着增加两个TButton按钮，在按钮事件里写入下列语句，记住在调用完毕后一定要显示或判断returnstring，要不程序将出错：procedure TForm1.Button1Click（Sender: TObject）;var returns...

delphi编程控制壁纸

2017年02月06日 64 阅读

delphi编程控制壁纸2008-04-20控制Windows的桌面壁纸是一些看图工具常有的功能，要实现该功能是非常容易的，以下的程序使壁纸换为我们想要的图片，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩；但这种方法只是暂时的，在WINDOWS重新启动后还是恢复原来的位图，所以要永久保留还需要对WIN.INI文件进行改写操作，才能保存住我们改动的图片不被替换。但这种暂时性也好在让我们可以实现定时更换桌面图片功能：var THEPCHAR:p...