Delphi SQLSERVER 操作员权限设置程序

Delphi 实现TDBGrid组件的斑马线显示，也就是TDBGrid的不同行显示不同的颜色，设置不同的背景色，让数据显示更清淅，看上去像斑马线，俗称隔行换色，本例子是结合数据库实现的，若要正常运行，请先附加Database数据库中的SQLSERVER文件，附加后在本示例中修改数据库连接字符串即可。

Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit3.Text := After(Edit2.Text,Edit1.Text); 　　end; 　　end.

Delphi 7.0 改变菜单中的字体样式，本程序其实实现了两种功能，1、枚举系统中所有已安装的字体，并加载到Listbox列表中供选择，2，改变字体样式，选中列表中的任意字体样式，单击即可改变菜单中的文字样式，为窗口中其它区域的文字设置字体样式的时候也可参考。 　　begin 　　 ListBox1.Items:=Screen.Fonts;字体样式 　　 self.MainMenu1.AutoHotkeys:=maManual; 　　 self.MainMenu1.AutoLineReduction:=maManual; 　　 Screen.MenuFont.Size:=12;字号 　　end;

Delphi 为窗体绘制渐变背景，这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色，不错吧？如示例图的左右渐变效果，实现的代码： 　　for i:=0 to self.Width-1 do 　　begin 　　c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1)); 　　c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1)); 　　c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1)); 　　Canvas.Brush.Color:=RGB(c1,c2,c3); 　　//每次画矩形的画刷颜色 　　Dct:=Rect(i,0,i+1,self.Height); 　　//每次刷绘的矩形区域 　　Canvas.FillRect(Dct); 　　//填充颜色 　　end;

简单获取Windows时间-Delphi源代码，改时间的小程序，在Windows自带的时间管理中也可完成系统时间的修改，这个只是一个帮助了解Windows与Delphi编程的例子，如何通过Delphi的程序来修改Windows时间，大致就是这样实现的。可参见以下源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Dtimer : TSystemTime; 　　 hh,Ghh : Integer; 　　begin 　　 hh := StrToInt(Trim(Edit4.Text)); 　　 if hh < 8 then 　　 Ghh := 16 + hh 　　 else 　　 Ghh := hh - 8; 　　 with Dtimer do 　　 begin 　　 wYear:=StrToInt(Edit1.Text); 　　 wMonth:=StrToInt(Edit2.Text); 　　 wDay:=StrToInt(Edit3.Text); 　　 wHour:=Ghh; 　　 wMinute:=StrToInt(Edit5.Text); 　　 wSecond:=StrToInt(Edit6.Text); 　　 end; 　　 SetSystemTime(Dtimer); 　　end;

Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果，除了渐变，还有其它的动画形式，比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变，其它动画效果被注释掉了，如果你想用，可以去掉注释标记。 　　//淡入效果 　　//AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE); 　　//从中心扩散 　　//AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE); 　　//水平从左到右 　　//AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//水平从右到左 　　//AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE); 　　//垂直从上到下 　　//AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE); 　　//垂直从下到上

(R)-Delphi+Interbase-Code-龙邦汽配进销存源码-源代码全-使用手册-钻石精品

Delphi 云台镜头控制系统，用于摄像头监控系统中的云台控制程序，早几年写的，可能现在适用的硬件已经过时了，不过对于编写开发Delphi程序来说，源代码部分还是很有参考价值的。 　　本套云台控制系统运行的最终界面效果如示例图所示，界面友好，功能实用。 　　通过这套云台控制程序，你可控制摄像头光圈大孝焦距改变、转动摄像头、打开射灯等功能。

Delphi 邮件短信自动通知系统，并且支持邮件发送、邮件帐户管理、类似于微软Windows中的Outlook邮件客户端的功能，可添加邮箱帐户自动收集，并在有新邮件时提示用户登录查看。本程序可发送适合到用户手机来通知邮件情况，部分功能需要依赖于硬件支持。 　　程序可最小化到windows托盘处显示图标，通过定义好的右键菜单来调出主窗口，虽然是一个发邮件的小程序，但是暗含的Delphi技巧有很多哦，欢迎下载源码研究学习。 　　1.实现邮件检测功能： 　　（1）注册账号，注意正确添写POP3服务器，用户名，密码。 　　2.实现发送短信功能： 　　（1）在注册账号时要添写正确的手机号码，并选中发送到手机的复选框。 　　（2）跟据自己购买的GSM模块说明书设置串口参数，一般是“19200，n,8,1”。 　　（3）添写当地短信中心号码，前面的86可加可不加，如果没有写，系统在按“确定”后会自动加上。 　　（4）注意：如果短信中含有中文字符，则一定要设成Pdu模式，否则短信可能发送失败。

Delphi 通过网络获取全球标准时间，我们知道在Windows中有三个全球标准时间服务器，若你的电脑设置为自动更新时间，则系统自动会从这三台时间服务器中更新时间，你的电脑就不用自己校对时间了。本程序就是演示，用Delphi编写代码，去连接全球时间服务器，校对时间并更新系统时间的例子，你可通过本源码了解一下时间更新的问题。