开发串口通信系统的详细实例。 1、高校餐饮银卡系统 2、智能监视系统 3、停车场出口收费系统 4、云台镜头控制系统 5、模型飞机测控平台 6、邮件短信自动通知系统
2023-05-31 09:23:54
9.48MB
1
摘要:Delphi源码,网络相关,邮件系统,短信通知
Delphi邮件短信自动通知系统，运用了Delphi端口技术和网络技术联合实现的一款邮件智能通知系统，运行截图如上所示，这曾是一本Delphi串口通信书籍中源代码，参考价值还是比较大的，希望Delphi初学者可以下载源码参考。
2023-05-31 09:18:54
411KB
1
内容索引:Delphi源码,数据库应用,随机抽取 Delphi无控件实现随机抽取幸运观众手机号码，使用Access数据库存储用户手机号，这种程序的形式大家都知道吧，现在各大电视台都有，从参加节目的人员名单名手机号码中随机抽取出一定名额作为幸运观众，在抽取之前，观众的这些信息已经被录入到数据库中，程序写的不错，希望大家借鉴一下。
2023-05-28 21:47:54
521KB
1
这个程序不复杂，拿来就可以用，简单实用。而对于DELPHI爱好者来说，它具有着很方便的报表模板设计，可以打印机套打，程序使用了Access数据库和ReportBuilder 7.03控件，运行于Delphi 7.0。欢迎一起探讨学习。
2023-05-28 21:02:02
1.01MB
1
Barcode VCL v1.8.6.48 Full Source for CBuilder4, CBuilder5, CBuilder6, Delphi2005, Delphi2006, Delphi4, Delphi5, Delphi6, Delphi7
2023-05-26 11:48:04
1.86MB
1
JSON (JavaScript Object Notation) is a lightweight data-interchange format.
It is easy for humans to read and write.
It is easy for machines to parse and generate.
It is based on a subset of the JavaScript Programming Language, Standard ECMA-262 3rd Edition - December 1999.
JSON is a text format that is completely language independent but uses conventions that are familiar to programmers.
These properties make JSON an ideal data-interchange language.
2023-05-24 17:31:53
91KB
1
unit PreviewWord;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls,
ExtCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
OpenDialog1: TOpenDialog;
OleContainer2: TOleContainer;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
Button1: TButton;
Panel1: TPanel;
ScrollBox1: TScrollBox;
OleContainer1: TOleContainer;
ScrollBox2: TScrollBox;
Splitter1: TSplitter;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit1Change(Sender: TObject);
private
procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer);
function create_S_Ole(nn:integer):ToleContainer;
procedure delete_s_ole;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
2023-05-23 23:19:42
360KB
1