RPro9DSExplorer/udmRProPluginDS.pas at master · RDi-Delphi-Projects/RPro9DSExplorer · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
unit udmRProPluginDS;

interface

uses
  System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,
  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.Oracle, FireDAC.Phys.OracleDef,
  FireDAC.FMXUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client, FireDAC.VCLUI.Wait;

type
  TdmRProPluginDS = class(TDataModule)
    rproConn: TFDConnection;
    qryRProPluginVendors: TFDQuery;
    qryRProPluginDataSets: TFDQuery;
    qryRProPluginLookup1: TFDQuery;
    qryRProPluginLookup1LOOKUP_KEY1: TStringField;
    qryRProPluginLookup2: TFDQuery;
    srcRProPluginDatasets: TDataSource;
    dsRProPluginVendors: TDataSource;
    dsRProPluginLookup1: TDataSource;
    qryRProPluginLookup1DATASET_SID: TStringField;
    qryRProPluginVendorsVENDOR_SID: TStringField;
    qryRProPluginVendorsVENDOR_NAME: TWideStringField;
    qryRProPluginVendorsCREATED_DATE: TDateTimeField;
    qryRProPluginDataSetsDATASET_SID2: TStringField;
    qryRProPluginDataSetsVENDOR_SID: TFMTBCDField;
    qryRProPluginDataSetsDATASET_NAME: TWideStringField;
    qryRProPluginDataSetsCREATED_DATE: TDateTimeField;
    qryRProPluginLookup2REC_NO: TBCDField;
    qryRProPluginLookup2REC_SID: TStringField;
    qryRProPluginLookup2LOOKUP_KEY2: TStringField;
    qryRProPluginLookup2CREATED_DATE: TDateTimeField;
    srcRProPluginLookup2: TDataSource;
    qryRProPluginRecord: TFDQuery;
    qryRProPluginRecordREC_SID: TFMTBCDField;
    qryRProPluginRecordREC_VALUE: TWideStringField;
    qryRProPluginRecordCREATED_DATE: TDateTimeField;
    qryRProPluginRecordMODIFIED_DATE: TDateTimeField;
  public
    procedure RefreshAllQueries;
  end;

var
  dmRProPluginDS: TdmRProPluginDS;

implementation

{%CLASSGROUP 'FMX.Controls.TControl'}

{$R *.dfm}

{ TdmRProPluginDS }

procedure TdmRProPluginDS.RefreshAllQueries;
begin
  qryRProPluginRecord.Close;
  qryRProPluginLookup2.Close;
  qryRProPluginLookup1.Close;
  qryRProPluginDataSets.Close;
  qryRProPluginVendors.Close;

  qryRProPluginVendors.Open;
  qryRProPluginDataSets.Open;
  qryRProPluginLookup1.Open;
  qryRProPluginLookup2.Open;
  qryRProPluginRecord.Open;
end;

end.