Delphi开发的一款基于ODBC的SQL查询插件源代码，自动读取BDE中的数据库别名进行连接，测试时请确认数据库已经通过ODBC连接上。界面使用有控件，若一时找不到控件，可以用Delphi自带的标准控件替换。

Delphi鼠标区域截图、抓图程序实例，类似QQ聊天时候的截屏程序一样，在实现方面：程序关键之处在于部分截取屏幕时使用了第二个启动即最大化的窗体，先截取整屏图象，用一个image控件充满窗体，然后在这个窗体中动态确定shape的大小及位置,对image中的片进形裁剪。 　　另在uses部分添加JPEG，用于将文件保存为jpg格式.在uses部分添加Clipbrd,用于复制到剪帖板。

1.强大的使用功能，固定资产管理系统包括资产增加、变更、报废、毁损、折旧、分配使用部门、使用部门变更、管理人员设定、资产在部门间调换、成批转移、条码打印、各类报表、组和查询、使用到期报警等。对每一件固定资产都可以查询其购入、入账、投入使用、使用部门、折旧情况以及退出等所有详细信息。固定资产条码管理系统将原来分散的管理信息集中起来，组合成一个具有整体功能的管理平台。2.条码技术固定资产管理过程中,为企业中的每一个实物都赋予一个唯1的条码标识：从根本上杜绝了以往人工盘点时，难以避免的错盘、漏盘、重盘现象确保了基层实物统计时第1手数据资料的完全真实和可靠性。具有低值易耗品和资讯类产品的管理功能易耗品具有单价低、使用数量大、有一定数量库存要求等特点。自动计提折旧除了固定资产日常繁杂的管理、统计、核对等工作，VCANS固定资产管理条码解决方案还提供了自动计提折旧的功能。

一套源代码完整的开放式Delphi机房管理系统，压缩包内包含项目源文件，编译生成的输出文件以及SQL2000数据库文件，其它所需资源也比较全，因此压缩包比较大，大约8MB多一些，大家耐心下载。

Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）： 　　常用编码： 　　codepage=936 简体中文GBK 　　codepage=950 繁体中文BIG5 　　codepage=437 美国/加拿大英语 　　codepage=932 日文 　　codepage=949 韩文 　　codepage=866 俄文 　　codepage=65001 unicode UTF-8 　　本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。

Delphi7.0开发的工资管理系统，数据库采用SQLServer，功能主要包括：员工信息管理、工资标准设定（含职务、职称及其它的工资标准输入）、工资管理And（生成工资表、工资调整管理、工资统计）、系统功能（用户管理、口令设定等）。界面简易，操作方便，是学习Delphi数据库系统编程的好范例。

Delphi学生信息管理系统，是一个典型的具有学习参考价值的SqlServer数据库系统，也可作为Delphi专业学生的课程设计范本，这款学生信息管理系统功能方面可完成学生基本信息录入 、成绩录入查询、系统管理员设置、用户注销等。

BN078-桑拿系统 delphi源码 无密码

在文本框内输入中文或英文，点击朗读按钮，即可发声朗读

Delphi 获取鼠标按键状态源码，运行本程序后，操作鼠标左右键和中轮，程序将监控到这些鼠标键被按下的状态，并将信息显示在窗口的标题栏中，本程序同时也实现了动态改变窗口标题文字的功能，各个鼠标按键状态获取及提示信息如下： 　　procedure TForm1.WMLButtonDblClk(var Message: TWMLButtonDblClk); 　　begin 　　 Self.Caption := '鼠标左键双击'; 　　end; 　　procedure TForm1.WMLButtonDown(var Message: TWMLButtonDown); 　　begin 　　 Self.Caption := '鼠标左键按下'; 　　end; 　　procedure TForm1.WMMButtonDblClk(var Message: TWMMButtonDblClk); 　　begin 　　 Self.Caption := '鼠标中键双击'; 　　end; 　　procedure TForm1.WMMButtonDown(var Message: TWMMButtonDown); 　　begin 　　 Self.Caption := '鼠标中键按下'; 　　end; 　　procedure TForm1.WMRButtonDblClk(var Message: TWMRButtonDblClk); 　　begin 　　 Self.Caption := '鼠标右键双击'; 　　end; 　　procedure TForm1.WMRButtonDown(var Message: TWMRButtonDown); 　　begin 　　 Self.Caption := '鼠标右键按下'; 　　end;