{
工作中遇到这样的需求，苦苦找不到相关的代码，找到一个还是收费的！：（
本着共享互惠的精神，本人简单实现了一个 FastReport 打印二维码的应用。
使用方法非常简单，将压缩包中的 frx2DBarcode 单元添加到引用即可在报表设计中看到 2D 条码对象，进行设计、打印。
目前仅实现了 QRCcode 的打印，抛砖引玉，相信增加 PDF417，DM 编码应该不会太难。
如果对源代码做了改进和修改欢迎 EMAIL 给我一份，学习一下！
邮件： JulyXDay@QQ.COM 谢谢支持！
}
{******************************************}
{ }
{ FastReport v4.0 }
{ 2DBarcode object }
{ }
{ Copyright (c) 2012 }
{ by LiKejian }
{ QQ 39839655 }
{ }
{******************************************}
unit frx2DBarcode;
interface
{$I frx.inc}
uses
Windows, Messages, SysUtils, Classes, Graphics, frxClass
{$IFDEF Delphi6}
, Variants
{$ENDIF};
type
TfrxBarcode2DObject = class(TComponent); // fake component
TfrxBarcode2DView = class(TfrxView)
private
FEccLevel: SmallInt;
FModule: SmallInt;
FVersion: SmallInt;
FText: String;
FExpression: String;
public
constructor Create(AOwner: TComponent); override;
procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
class function GetDescription: String; override;
procedure GetData; override;
published
property Version: SmallInt read FVersion write FVersion default 0;
property EccLevel: SmallInt read FEccLevel write FEccLevel default 0;
property Module: SmallInt read FModule write FModule default 0;
property DataField;
property DataSet;
property DataSetName;
property Expression: String read FExpression write FExpression;
property Frame;
property Text: String read FText write FText;
end;
implementation
uses frx2DBarcodeRTTI, frxDsgnIntf, frxRes, frxUtils, uQRCode;
constructor TfrxBarcode2DView.Create(AOwner: TComponent);
begin
inherited;
end;
class function TfrxBarcode2DView.GetDescription: String;
begin
Result := '2D 条形码对象';
end;
procedure TfrxBarcode2DView.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX,
OffsetY: Extended);
const
sFileName = 'QRCode.bmp';
var
oBmp: TBitmap;
begin
BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
//Create 2D Barcode
CreateQRCode(FText, FVersion, FEccLevel, FModule);
if FileExists(sFileName) then
begin
oBmp := TBitmap.Create;
oBmp.LoadFromFile(sFileName);
frxDrawGraphic(Canvas, Rect(FX, FY, FX1, FY1), oBmp, IsPrinting, False, False, 0);
FreeAndNil(oBmp);
end;
DrawFrame;
end;
procedure TfrxBarcode2DView.GetData;
begin
inherited;
if IsDataField then
FText := VarToStr(DataSet.Value[DataField])
else if FExpression <> '' then
FText := VarToStr(Report.Calc(FExpression));
end;
initialization
frxObjects.RegisterObject1(TfrxBarcode2DView, nil, '', '', 0, 23);
finalization
frxObjects.UnRegister(TfrxBarcode2DView);
end.
2023-05-05 09:10:37
281KB
1
ZXing.Delphi是一个原生的对象Pascal库，它基于著名的开源条形码库：ZXing（Zebra Crossing）。这个端口是基于ZXing的.Net Redth port和Java的。这是我认为第一个原生的FireMonkey条形码库。它针对所有FireMonkey移动平台，从v3.1开始，它还完全支持Windows VCL应用程序（不依赖于FMX。图形单元）。
使用此库，您可以以本机速度进行扫描，而无需使用外部库中的链接，并避免兼容性问题和依赖关系。它很快。
它与Delphi XE7 - 11 Alexandria兼容，并与IOS 8.x - 15.x，Android 32 / 64，Windows 32 / 64和OSX进行了测试。ZXing.Delphi的目标是使扫描条形码毫不费力，无痛，快速，并在FireMonkey或本机Windows（VCL或Firemonkey）应用程序中构建。
只需包含源文件并将其添加到现有项目中，然后在项目中构建ZXing.Delphi源代码即可。
2023-05-03 15:19:35
15.72MB
1
功能亮点：
1.多用户平台：本系统实现多个公司多用户管理
2.图片管理：现场拍照，现场图片上传
3.语音上传：按住说话的语言汇报
4.短信管理：后台短信推送，手机端短信反馈发送功能
5.员工管理：对每个总公司，子公司，子部门的员工信息管理
6.客户管理：客户收集资料->现场踩点>预约面谈->签合同->放弃跟踪 等状态跟踪
7.公司管理：添加公司，公司基础信息管理
8.部门管理：设立每个公司的部门信息，以及设置上下级部门关系
9.签到管理：实时掌握场外人员的出勤和签到情况
10.位置地图：采用百度地图、卫星地图、3D地图实时显示场外人员位置
11.权限管理，每个子公司或子用户只能管理自己权限范围内的员工信息
2023-04-28 12:50:58
41.61MB
1