Treeview树控操作DelphiAccess数据库源码,一个典型的树形菜单的应用,本实例中的菜单支持三级,是否支持更多级别,大家认真参阅代码,由实例可看出,它的美化也是相当成功的。
2022-11-02 08:42:43 23KB Delphi源码-数据库应用
1
基于Delphi Access数据库编写开发的工装登记管理系统,适合工厂和公司对员工工装就行信息管理,主要功能包括:新工装登记、工装订货单登记、工装完工登记、工装信息查询 、工装信息更改与更新,当前月报表统计、以及帮助信息,功能就不一一列举了,源码包内有可执行文件和测试数据库,自己测试下便知。
2022-10-21 16:21:45 1.32MB Delphi源码-数据库实例
1
Delphi毕业论文:分布式多层数据库图书管理系统,通过开发一个分布式多层数据库图书管理系统,学习用delphi开发分布式多层数据库系统。采用Delphi6.0和MS Server2000等软件为开发工具;通过对计算机硬件和软件解决方案的论证;对应用领域进行调查分析;参考各种资料和进行数据库编程实践。在指导老师的帮助下,已经基本上成功地实现了设计任务书的要求。使得设计的数据库系统能够实现一般数据库的管理。我们研究了数据库的查询优化问题。
2022-10-21 11:31:41 1.61MB Delphi源码-数据库实例
1
delphi开发的一个画图拾取(功能很强大)!!!delphi开发的一个画图拾取(功能很强大)!!!
2022-10-11 17:13:44 296KB delphi 源码 系统编程
1
作者:万重。本源码介绍了如何在DELPHI下使用微软的AVICAP32.DLL文件,实现对摄像头的操控,发挥你的联盟才智,或许可实现实现一个视频聊天程序。
2022-10-09 11:20:38 451KB Delphi源码-多媒体编程
1
Delphi7.0按要求生成指定位数编号,自动生成编号,请在文本框中输入编号,编号输入完成后按回车键。以下是完成核心功能的代码:   procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;    Shift: TShiftState);   var    i:integer;    s:string;   begin    S:='';    if key=vk_return then    begin    if length(edit1.Text)>8 then    edit1.Text:=copy(edit1.Text,1,8);    if length(edit1.Text)<8 then    begin    i:=8-length(edit1.Text);    for i:=1 to (8-length(edit1.Text)) do    begin    s:=s '0';    end;    edit1.Text:=trim(s) trim(edit1.Text);    end;    end;   end;   完整实例需要下载本源码。
2022-10-08 18:42:11 4KB Delphi源码-系统相关
1
这是一个我在网站收集的delphi某家电维修部的业务管理系统源码.rar,很好用,请大家下载,多多支持,谢谢了,
2022-10-07 15:02:12 1.05MB 一个不错的delphi源码业务管
1
Delphi打印预览测试程序的源码,自动获取默认的打印机信息,可对文件进行预览,具体功能请参见测试截图所示。
2022-10-06 17:50:11 13KB Delphi源码-报表打印
1
Delphi树形菜单类以及例子,结合数据库生成Treeview树控菜单视图,你可了解下如何按照节点在数据库中的编号查找节点、如何查找节点在数据库中的数据、填充节点等。这个类通过数据库中的数据自动添加到Treeview控件中,不过数据控件用的是ADO组件,另外数据库中存放Treeview节点数据表的结构位:ID:integer;PID:Integer;Caption:string;字段名成可以不同,但是类型必须相同!   公用单元:TreeFillThrd.pas;TreeUtils.pas
2022-09-19 12:46:13 16KB Delphi源码-界面编程
1
Delphi 向Word文件中插入字符,在不打开Word格式文件的情况下,将字符串内容插入到Word中。请根据窗口中的几个选项添加内容:向Word中添加的字符、插入指定的字符、字符串长度、插入的位数等,相关代码如下:   begin    VApp:=CreateOleObject('Word.Document');//添加 comobj单元    X:=VApp.Range(0,0);    X.InsertBefore('Hello from Delphi');//添加字符    X.Font.Name:='Arial';    X.Font.Size:=18;    X.InsertParagraphAfter; //插入段落    X:=VApp.Range(17,17);    X.InsertBefore('!');//插入字符    X.Font.Name:='Arial';    X.Font.Size:=18;    X.InsertParagraphAfter;    VApp.SaveAs(Extractfilepath(Application.ExeName) 'Hold11.doc');//保存修改后的Word文档   end;(完整源码请下载源码包。)
2022-09-16 18:22:14 9KB Delphi源码-字符处理
1