登录
首页 » Delphi源码 » Delphi 实现TDBGrid组件的斑马线显示

Delphi 实现TDBGrid组件的斑马线显示

于 2023-05-29 发布 文件大小:241.27 kB
0 217
下载积分: 2 下载次数: 1

代码说明:

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

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 快速查询文件
    Delphi 快速查询文件,比较老的代码,搜索文件的地址需要手工输入哦,查询的结果会显示在空白处。返回查询的代码如下:   List := TStringList.Create;//创建字符传列表   try    spec := ExtractFileName(filespec);//返回指定文件名    RFindFile(ExtractFilePath(filespec));//返回指定路径    Result := list;//函数返回值是List;
    2022-03-19 10:17:26下载
    积分:1
  • Delphi 替换一个键盘按钮
    Delphi 替换一个键盘按钮,将数字1改为a。将键盘所代表的键位重新定义并判断,得到一个不同的键位值。
    2023-01-10 10:50:03下载
    积分:1
  • Delphi 判断字符串是否为日期或时间
    Delphi 判断字符串是否为日期或时间,检查用户输入的时间格式是否正确,判断用户输入的是否是时间字符串,这个虽然麻烦些,不过这个例子将问题简单化,有兴趣的参考源码。
    2022-08-24 16:56:14下载
    积分:1
  • Delphi 使用PSAPI.dll枚举Window7 进程及页面内存信息
    Delphi 在Windows NT/2000 环境下使用PSAPI获取进程的信息演示,其实在Window7环境下同样也可枚举到进程及页面内存信息,可以列举所有正在运行的进程,正在运行的所有进程,鼠标双击有进程的详细信息,可以得到某一进程的模块、页面等信息,以及内存映射的文件名。   如果列举进程出错,请确认是否安装了PSAPI.DLL。   本程序除了列举进程外,还可列举设备信息。运行效果请参见截图所示。
    2022-07-02 19:53:17下载
    积分:1
  • Delphi 设定Windows屏幕分辨率的方法和示例代
    Delphi 设定Windows屏幕分辨率的方法和示例代码:   function TForm1.DynamicResolution(X, Y: word): BOOL;   var    lpDevMode: TDeviceMode;   begin    Result := EnumDisplaySettings(nil, 0, lpDevMode);    if Result then    begin    lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;    lpDevMode.dmPelsWidth := X;    lpDevMode.dmPelsHeight := Y;    Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;    end
    2023-04-22 01:05:03下载
    积分:1
  • 演示Delphi如何清空TImage组件中的图片
    本源码向大家演示Delphi如何清空TImage组件中的图片,如示例截图所示,TImage组件中已经装载了一张图片,单击“清空图片”按钮,将调用以下代码清空TImage组件中的图片数据:   procedure TForm1.Button1Click(Sender: TObject);   begin    image1.picture.graphic := nil;   end;   这是一个比较初级的Delphi图像组件用法示例,Delphi新手可参考学习。
    2022-03-18 08:56:24下载
    积分:1
  • Delphi 【Frame3D】函数的应用实例-三维框
    Delphi 函数【Frame3D】的应用,该函数用于在画布上绘制一个3维框图:   implementation   {$R *.dfm}   procedure TFrmFrame3D.FormCreate(Sender: TObject);   begin    Bc:=Rect(80,50,100,200);   end;   procedure TFrmFrame3D.FormPaint(Sender: TObject);   begin    Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);   end;   procedure TFrmFrame3D.Button1Click(Sender: TObject);   begin    Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text));    Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);   end;
    2022-06-16 08:51:26下载
    积分:1
  • Delphi 获取服务器时间 更新本机时间
    Delphi 通过时间服务器更新时间,包括了两个功能:1、获取服务器时间,2、更新本机时间。通过时间服务器,可一键自动更新日期时间,不过本实例连接的服务器已经失效了,程序不能连接,会假死,测试时候要注意。
    2022-01-24 08:49:50下载
    积分:1
  • Delphi 使用tfilestream方式复制文件
    Delphi 使用tfilestream方式复制文件,你可参考本源码,学习一下OpenDialog、Tfilestream.Create、showmessage、CopyFile的用法,本实例复制文件,是通过读取文件流,保存文件流的方式复制,并不是使用命令复制文件。
    2022-01-21 03:12:02下载
    积分:1
  • Delphi 获取两个子字符串之间的字符个数
    Delphi 获取两个子字符串之间的字符个数,也就是这个字符串由A/B/C三个字符组成,本例子是求A/C中间的所有字符串的个数,空格同样也包括在内。定义两个函数即可实现本功能:   Function TForm1.Strcount( s, s1, s2 : string ): integer;   var    i,j,slen : integer;   begin    i := pos( s1, s );    j := pos( s2, s );    slen := Length(s1);    if j >= i then    Result := j - i - slen    else    Result := 0;   end;   procedure TForm1.Button1Click(Sender: TObject);   var    n : integer;   begin    n := Strcount(Edit1.Text,Edit2.Text,Edit3.Text);    showmessage(IntToStr(n));   end;
    2022-01-26 07:45:23下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载