爱招飞帮助手册
目录

服务器控件

# FastWeb服务器控件

  • 适用平台： WEB(桌面)

  该分组下包含了TARS提供的连接组件。Flying网络打印服务器，发送微信、短信等相关的控件及功能。

# 1. TUgRFConnection

  该组件用于建立与TARS服务端的连接。通常用于一些窗体内的临时连接。如果程序中多个窗体需要使用同一个连接设置，可以使用公共单元中的TARSLink来定义。

# 1.1. 属性

属性 功能说明
Active 是否激活该组件
ConnectionDefName 连接的帐套（TARS连接设置）名称
ForceEncryption 是否开启加密连接
LoginOptions 连接选项设置
MD5Salt: MD5盐值，如在TARS中有设置则该处需与TARS中的设置相同
Password: TARS连接设置中使用的连接用户的密码
UserName: TARS连接设置中使用的连接的用户名
ModuleFileName 连接功能使用的模块名称
SecureKey 保证连接安全使用的安全码，此处需与TARS中设置的安全码一致
ServerAddr TARS服务器的IP地址
ServerPort TARS服务器的连接端口

# 2. TUgRFDataSet

  该组件用于从数据库中获取数据形成数据集信息。数据集组件是数据感知组中组件的数据来源，也是数据图表等的数据来源。

# 2.1. 属性

属性 功能说明
Active 是否激活该组件
Connection 指定数据集连接的来源
SQL 生成数据集的构造SQL语句
BookMark 书签标记，用于快速定位一条数据集中的记录

# 2.1.1. Connection

  指定数据集连接的来源。连接的来源有两种，一种来自TRFConnection组件，另一种来自于公共单元tarslink中关于帐套的设置项目。

    //JScript
  //连接来源可以来自同一窗体中的TRFConnection组件
  UgRFDataSet01.Connection = UgRFConnection01;
  //连接来源也可以来自公共单元pub_js_tarslink的帐套设置
  UgRFDataSet01.Connection = GetRFERP;
    1
    2
    3
    4
    5
    //PasScript
  //连接来源可以来自同一窗体中的TRFConnection组件
  UgRFDataSet01.Connection := UgRFConnection01;
  //连接来源也可以来自公共单元pub_pas_traslink的帐套设置
  UgRFDataSet01.Connection := GetRFERP;
    1
    2
    3
    4
    5
    // Make sure to add code blocks to your code group

    # 2.1.2. SQL

      该属性是构造数据集使用的SQL语句。

      //JScript
  UgRFDataSet01.SQL.Text = "SELECT * FROM Basic_Unit";
      1
      2
      //PasScript
  UgRFDataSet01.SQL.Text := 'SELECT * FROM Basic_Unit';
      1
      2
      // Make sure to add code blocks to your code group

      # 2.1.3. RecordCount

        该属性用于显示当前数据集中包含的记录的数目。

        //JScript
  UgLabel01.Text = "Record Count:" + IntToStr(UgRFDataSet01.RecordCount);
        1
        2
        //PasScript
  UgLabel01.Text := 'Record Count:' + IntToStr(UgRFDataSet01.RecordCount);
        1
        2
        // Make sure to add code blocks to your code group

        # 2.2. 方法

        # 2.2.1. Open

          该方法用于在SQL属性中包含SQL语句时打开数据集。

          UgRFDataSet01.Open;
        1

        # 2.2.2. Edit

          使数据集对应选择的记录处于编辑状态。

          UgRFDataSet01.Edit;
        1

        # 2.2.3. Append

          使数据集处于新增记录的状态。

          UgRFDataSet01.Append;
        1

        # 2.2.4. FieldByName

          获取数据集中的字段的方法。

          //JScript
  //为数据集中当前指向的记录中的字段赋值，需要注意数据类型要一致
  UgRFDataSet01.FieldByName("FBillID").AsInteger = 23020001;
  UgRFDataSet01.FieldByName("FCreateDate").AsDateTime = Now();
          1
          2
          3
          4
          //PasScript
  //为数据集中当前指向的记录中的字段赋值，需要注意数据类型要一致
  UgRFDataSet01.FieldByName('FBillID').AsInteger := 23020001;
  UgRFDataSet01.FieldByName('FCreateDate').AsDateTime := Now();
          1
          2
          3
          4
          // Make sure to add code blocks to your code group

          # 2.2.5. First、Prior、Next、Last

            将数据集指向首项、前项、后项、末项记录。

            //JScript
  UgRFDataSet01.First;
  UgRFDataSet01.Prior;
  UgRFDataSet01.Next;
  UgRFDataSet01.Last;
            1
            2
            3
            4
            5
            //PasScript
  UgRFDataSet01.First;
  UgRFDataSet01.Prior;
  UgRFDataSet01.Next;
  UgRFDataSet01.Last;
            1
            2
            3
            4
            5
            // Make sure to add code blocks to your code group

            # 2.2.6. EmptyDataSet

              清空数据集中的内容。

            # 2.2.7. ApplyUpdates

              将当前数据集的更改信息保存至数据库中。

              //JScript
  UgRFDataSet01.ApplyUpdates(-1);
              1
              2
              //PasScript
  UgRFDataSet01.ApplyUpdates(-1);
              1
              2
              // Make sure to add code blocks to your code group

              # 2.2.8. Locate

                根据参数信息定位包含对应信息的数据集记录。

                //JScript
  UgRFDataSet01.Locate("FInterID",UgRFDataSet01.FieldByName("FInterID").AsString,nil);
                1
                2
                //PasScript
  UgRFDataSet01.Locate('FInterID',UgRFDataSet01.FieldByName('FInterID').AsString,nil);
                1
                2
                // Make sure to add code blocks to your code group

                # 2.2.9. ToJSONObjectString

                function ToJSONObjectString(const AOnlyUpdatedRecords: Boolean = False; const AChildRecords: Boolean = True; const AValueRecords: Boolean = True; const AEncodeBase64Blob: Boolean = True): string;
                1

                  将数据集中当前选择的的数据行转换为JSON对象的数据集。输出的格式为字段名称与字段值组成的键值对。

                {"code":"Code1","name":1}
                1

                # 2.2.10. ToJSONArrayString

                function ToJSONArrayString(const AOnlyUpdatedRecords: Boolean = False; const AChildRecords: Boolean = True; const AValueRecords: Boolean = True; const AEncodeBase64Blob: Boolean = True): string；
                1

                  将数据集中的数据转换为JSONArray。是由JSON对象组成的队列。

                [{"code":"Code1","name":1},{"code":"Code2","name":2}]
                1

                # 2.2.11. ToJSONObject

                function ToJSONObject(const AOnlyUpdatedRecords: Boolean = False; const AChildRecords: Boolean = True; const AValueRecords: Boolean = True; const AEncodeBase64Blob: Boolean = True): TJSONObject;
                1

                  将数据集中当前指向的数据行转换为JSON对象类型。

                # 2.2.12. ToJSONArray

                function ToJSONArray(const AOnlyUpdatedRecords: Boolean = False; const AChildRecords: Boolean = True; const AValueRecords: Boolean = True; const AEncodeBase64Blob: Boolean = True): TJSONArray;
                1

                  将数据集中的数据转换为JSON对象序列类型。

                # 2.2.13. SaveStructure

                function SaveStructure: TJSONArray;
                1

                  获取当前的数据集的结构信息，以JSONArray的方式输出，包括数据表的字段名称、数据类型、大小等信息。

                # 2.2.14. LoadStructureJSONArray

                procedure LoadStructureJSONArray(const AJSONArray: TJSONArray; const AOwns: Boolean = True);
                1

                  将数据集的数据表结构从JSONArrary中加载。

                # 2.2.15. LoadStructureJSONString

                procedure LoadStructureJSONString(const AJSONString: string); overload；
                1

                  将数据集的数据表结构从JSON格式的字符串中读取加载。

                # 2.2.16. LoadFromJSONObject

                procedure LoadFromJSONObject(const AJSONObject: TJSONObject; const AOwns: Boolean = True)
                1

                  数据集从JSON对象中获取加载单条记录。

                # 2.2.17. LoadFromJSONArray

                procedure LoadFromJSONArray(const AJSONArray: TJSONArray; const AOwns: Boolean = True);
                1

                  数据集从JSON对象序列中获取加载多条记录。

                # 2.2.18. LoadFromJSONString

                procedure LoadFromJSONString(const AJSONString: string);
                1

                  数据集从JSON对象的字符串中获取加载数据记录。

                # 2.2.19. MergeFromJSONObject

                procedure MergeFromJSONObject(const AJSONObject: TJSONObject; const AOwns: Boolean = True);
                1

                  数据集从JSON对象中读取单条数据记录并合并至数据集中。

                # 2.2.20. MergeFromJSONString

                procedure MergeFromJSONString(const AJSONString: string);
                1

                  数据集从JSON对象字符串中读取数据记录并合并至数据集中。

                # 2.2.21. ValidateJSONObject

                function ValidateJSONObject(const AJSONObject: TJSONObject; const ALang: TLanguageType = enUS; const AOwns: Boolean = True): TJSONArray;
                1

                  用于验证JSON对象组件是否有效。

                # 2.2.22. ValidateJSONString

                function ValidateJSONString(const AJSONString: string; const ALang: TLanguageType = enUS): TJSONArray;
                1

                  用于验证JSON对象字符串是否有效。

                # 3. TUgRFStoredProc

                  该组件用于执行数据库中的存储过程。按照要求将存储过程的名称及参数信息获取输入，可执行相应的存储过程。

                # 3.1. 属性

                名称 说明
                Active 数据集是否开启
                Aggregrates 为数据集定义的客户端汇总的集合
                AggregratesActive 是否自动计算汇总值
                AutoCalcFields 确定何时触发OnCalcFields事件以及何时计算查找字段值
                Connection 指定控件使用的连接控件
                Filter 设置过滤条件
                Filtered 是否开启过滤器
                Params 设置存储过程使用的参数
                StoredProcName 指定在服务器端调用的存储过程的名称

                # 3.1.1. ExecProc

                procedure ExecProc; 
function ExecProc(const AProcName: String): LongInt; 
function ExecProc(const AProcName: String; const AParams: array of Variant): LongInt;
function ExecProc(const AProcName: String; const AParams: array of Variant;  const ATypes: array of TFieldType): LongInt;
                1
                2
                3
                4

                  执行存储过程。

                  //JScript
//1
UgRFStoredProc01.StoredProcName = "myproc";
UgRFStoredProc01.Prepare;
UgRFStoredProc01.ParamByName("inval").Value = 100;
UgRFStoredProc01.ExecProc;
ShowMessage(UgRFStoredProc01.ParamByName("outval").AsString);

//2
UgRFStoredProc01.ExecProc("myproc");

//3
UgRFStoredProc01.ExecProc("myproc;2", [100, "qweqwe"]);

//4
UgRFStoredProc01.ExecProc("myproc", [100, "qweqwe"], [ftInteger, ftWideString]);
                  1
                  2
                  3
                  4
                  5
                  6
                  7
                  8
                  9
                  10
                  11
                  12
                  13
                  14
                  15
                  16
                  //PasScript
//1
UgRFStoredProc01.StoredProcName := 'myproc';
UgRFStoredProc01.Prepare;
UgRFStoredProc01.ParamByName('inval').Value := 100;
UgRFStoredProc01.ExecProc;
ShowMessage(UgRFStoredProc01.ParamByName('outval').AsString);

//2
UgRFStoredProc01.ExecProc('myproc');

//3
UgRFStoredProc01.ExecProc('myproc;2', [100, 'qweqwe']);

//4
UgRFStoredProc01.ExecProc('myproc', [100, 'qweqwe'], [ftInteger, ftWideString]);
                  1
                  2
                  3
                  4
                  5
                  6
                  7
                  8
                  9
                  10
                  11
                  12
                  13
                  14
                  15
                  16
                  // Make sure to add code blocks to your code group

                  # 4. TUgRFWechatMP

                    该组件可实现与微信公众平台对接实现微信公众号模板消息推送的功能。

                  # 4.1. 属性

                  属性 功能说明
                  AccountName 微信公众号的名称，在TARS中有相关设置
                  Connection 设置连接方式，可选方式有TUgRFConnection组件/公共单元TARSLink设置

                  # 4.2. 方法

                  # 4.2.1. SendCustomMessage

                  function SendCustomMessage(const AOpenID, AContent: string): Boolean;
                  1

                    发送文本消息。

                  • 示例
                    //JScript
  //调用方式
  UgRFWeChatMP01.SendCustomMessage("oxCHX6X4rjxj-TEStyhPmkNILNp9A","Hello!");
                    1
                    2
                    3
                    //PasScript
Begin
    //调用方式
	UgRFWeChatMP01.SendCustomMessage('oxCHX6X4rjxj-TEStyhPmkNILNp9A','Hello!');
End;
                    1
                    2
                    3
                    4
                    5
                    // Make sure to add code blocks to your code group

                    # 4.2.2. SendTemplateMessage

                    function SendTemplateMessage(const AJsonContent: string): Boolean;
                    1

                      发送模板消息。

                    部分 说明
                    AccountName 微信公众号
                    AJsonContent Json格式化字符串，格式请参考https://developers.weixin.qq.com/doc/offiaccount/Message_Management/Template_Message_Interface.html (opens new window)
                    • 示例
                      //JScript
  //调用方式
  UgRFWeChatMP01.SendTemplateMessage("JsonContent");
                      1
                      2
                      3
                      //PasScript
Begin
  //调用方式
  UgRFWeChatMP01.SendTemplateMessage('JsonContent');
End;
                      1
                      2
                      3
                      4
                      5
                      // Make sure to add code blocks to your code group

                      # 5. TUgRFSMSSender

                        该组件可用于对接短信平台实现在TARS上使用短信发送的功能。

                      # 5.1. 属性

                      属性 功能说明
                      AccessKeyId 短信服务提供商的AccessKeyId
                      AcessKeySecret 短信服务提供商的AccessKeySecret
                      Connection 指定连接的来源
                      PhoneNumbers 接收短信的手机号码，如有多个号码请用;分隔
                      Provider 短信服务提供商选择，有阿里云和阿里大于可选
                      SigName 短信签名显示
                      TemplateCode 短信模板名称
                      TemplateParam 短信模板参数

                        以上参数的详细说明请参考阿里云短信服务文档 (opens new window)。

                      # 5.2. 方法

                      # 5.2.1. Execute

                        执行短信发送的操作。

                        //JScript
if (UgRFSMSSender01.Execute){
  Showmessage("Messsage Send Success！");
}
                        1
                        2
                        3
                        4
                        //PasScript
if UgRFSMSSender01.Execute then
    Showmessage('Messsage Send Success！');
                        1
                        2
                        3
                        // Make sure to add code blocks to your code group

                        # 6. TUgFlying

                          TUgFlying组件是配合Flying使用的组件，将必要的打印配置传递给该组件的属性，执行组件的方法即可将数据传递至打印服务器进行打印操作。在使用该组件前请先阅读Flying使用手册。

                        # 6.1. 属性

                        # 6.1.1. HTTPOptions

                          使用 HTTP 打印模式时使用的属性选项。其中的相关属性项目说明如下：

                        属性 说明
                        Host Flying打印服务端地址
                        Port Flying HTTP/WebSocket 打印服务监听的端口号

                        # 6.1.2. MailOptions

                          邮件相关设置选项。

                        属性 说明
                        Addr 接收邮箱的地址
                        Body 邮件的正文内容
                        Enable 是否启用邮件发送的功能
                        Subject 邮件的标题

                        # 6.1.3. MQTTOptions

                          使用 MQTT 打印模式时使用的属性选项。其中的相关属性项目说明如下：

                        属性 说明
                        BrokerHost MQTT 服务端的地址
                        BrokerPort MQTT 服务端服务监听的端口号
                        Enabled 设置是否启用 MQTT 连接
                        PrintPwd 打印的密码
                        PrintTopic 打印服务订阅的主题名称
                        UserName MQTT 服务的用户名
                        UserPwd MQTT 服务的密码

                        # 6.1.4. PrintOptions

                          打印服务的相关设置项。

                        属性 说明
                        Data 输入的打印数据，可通过 AddPrintData 方法自动生成
                        ExportFileType 设置导出的文件类型
                        ExportFileUrl 导出文件的URL
                        Preview 设置是否启用文件预览
                        PrintCopies 设置文件的打印份数
                        PrinterList 打印机列表的信息，可通过调用 GetPrinterList 方法来更新
                        PrinterName 设置打印机的名称，可通过 GetPrinerList 方法获取打印机名称
                        PrintOffsetX 打印偏移 X
                        PrintOffsetY 打印偏移 Y
                        PrintType 设置打印模式，可选 HTTP、MQTT、WebSocket
                        ReportName 设置打印的报表模板的名称，可指定报表模板的文件名(*.fr3)或者报表模板的别名
                        ReportUrl 设置打印的报表的输出地址
                        ReportVersion 报表版本号
                        TaskID 打印的任务ID，设置此项可用于区分不同打印客户端的打印请求
                        Token 令牌，可用于打印客户端的身份认证

                        # 6.1.5. WebSocketOptions

                          使用 WebSocket 进行打印时的设置项。

                        属性 说明
                        Authentication 是否启用 WebSocket 身份认证
                        Compressed 是否启用数据压缩
                        Enabled 是否启用 WebSocket 通讯连接
                        Host WebSocket 连接的主机的地址(Flying 服务端的地址)
                        Password WebSocket 使用身份认证连接时使用的密码
                        Port WebSocket 服务监听的端口号
                        SSL 是否启用 SSL 连接
                        SSLPort 启用SSL 连接时监听的 WebSocket 服务端口号
                        URL WebSocket 服务路径
                        UserName WebSocket 使用身份认证连接时使用的用户名称

                        # 6.2. 方法

                        方法 功能说明
                        GetPrintList 获取Flying中间件的打印机列表
                        Print 打印报表
                        ReportPrint 直接打印
                        ReportPreview 报表预览
                        AddPrintData 打印数据组装

                        # 6.2.1. GetPrinterList

                        procedure GetPrinterList;
                        1

                          该组件用户获取当前Flying打印服务器中可用的打印机列表。可通过如下方式来获取打印机列表，获取的打印机列表

                          //JScript
function UgButton02OnClick(sender)
//加载打印机
{
  UgFlying01.GetPrinterList;
}
                          1
                          2
                          3
                          4
                          5
                          6
                          //PasScript
procedure UgButton02OnClick(sender: tobject);
//加载打印机
begin
  UgFlying01.GetPrinterList;
end;
                          1
                          2
                          3
                          4
                          5
                          6
                          // Make sure to add code blocks to your code group

                          # 6.2.2. ReportPrint

                          procedure ReportPrint;
                          1

                            ReportPrint方法是呼叫Flying中间件，进行报表打印。

                            //JScript
//Pirnt
function UgButton02OnClick(sender){
  if (UgComboBox02.Items.Text == "") {exit;}
  UgFlying01.PrinterName = UgComboBox02.Items.Strings[UgComboBox02.ItemIndex];
  UgRFDataSet01.SQL.Text = "SELECT * FROM Basic_Unit";
  UgRFDataSet01.Open;
  UgFlying01.AddPrintData(UgRFDataSet01,"A");
  UgFlying01.ReportPrint;
}
                            1
                            2
                            3
                            4
                            5
                            6
                            7
                            8
                            9
                            10
                            //PasScript
//Pirnt
procedure UgButton02OnClick(sender: tobject);
//点击图片传输打印
begin
  if UgComboBox02.Items.Text = '' then exit;
  UgFlying01.PrinterName := UgComboBox02.Items.Strings[UgComboBox02.ItemIndex];
  UgRFDataSet01.SQL.Text := 'SELECT * FROM Basic_Unit';
  UgRFDataSet01.Open;
  UgFlying01.AddPrintData(UgRFDataSet01,'A');
  UgFlying01.ReportPrint;
end;
                            1
                            2
                            3
                            4
                            5
                            6
                            7
                            8
                            9
                            10
                            11
                            12
                            // Make sure to add code blocks to your code group

                            # 6.2.3. ReportPreview

                            procedure ReportPreview;
                            1

                              ReportPreview方法是呼叫Flying中间件，进行报表输出，并回传到客户端显示。

                              //JScript
//Pirnt
function btnPrintOnClick(Sender)
{
  if (Ugcombobox01.Count == 0) exit;
  UgFlying01.PrintOptions.PrinterName = Ugcombobox01.Items[Ugcombobox01.ItemIndex];//读取打印机名称
  UgRFDataSet01.openData;//打开数据
  UgFlying01.AddPrintData(UhRFDataSet01,"A");//数据集转Json
  UgFlying01.ReportPreview;//报表预览
}
                              1
                              2
                              3
                              4
                              5
                              6
                              7
                              8
                              9
                              10
                              //PasScript
//Pirnt
Procedure btnPrintOnClick(Sender: TObject);
Begin
  if Ugcombobox01.Count = 0 Then exit;
  UgFlying01.PrintOptions.PrinterName := Ugcombobox01.Items[Ugcombobox01.ItemIndex];//读取打印机名称
  UgRFDataSet01.openData;//打开数据
  UgFlying01.AddPrintData(UhRFDataSet01,'A');//数据集转Json
  UgFlying01.ReportPreview;//报表预览
End;
                              1
                              2
                              3
                              4
                              5
                              6
                              7
                              8
                              9
                              10
                              // Make sure to add code blocks to your code group

                              # 6.2.4. PrintPdf

                              procedure PrintPdf(AUrl: String);
                              1

                                从网络地址获取 PDF 文件并发送至 Flying 服务端执行打印。

                              # 6.2.5. PrintPic

                              procedure PrintPic(AUrl: String);
                              1

                                从网络地址获取图片文件并发送至 Flying 服务端执行打印。

                              通讯控件
                              多媒体控件

                              ← 多媒体控件→

                              Copyright © 2021-2025 爱招飞IsoFace | ALL Rights Reserved