APSI-fp/MainModule.pas at master · Sanskuy/APSI-fp · 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
unit MainModule;

interface

uses
  uniGUIMainModule, SysUtils, Classes, UniProvider, MySQLUniProvider, DBAccess,
  UniDacVcl, Data.DB, Uni, MemDS;

type
  TUniMainModule = class(TUniGUIMainModule)
    UniConnection1: TUniConnection;
    UniConnectDialog1: TUniConnectDialog;
    MySQLUniProvider1: TMySQLUniProvider;
    UniPetani: TUniQuery;
    UniBibit: TUniQuery;
    UniDBPetani: TUniDataSource;
    UniDBBibit: TUniDataSource;
    qtampil: TUniQuery;
    UniPupuk: TUniQuery;
    UniDBPupuk: TUniDataSource;
    qrefresh: TUniQuery;
    UniTani: TUniQuery;
    UniDBTani: TUniDataSource;
    qbtani: TUniQuery;
    qregis: TUniQuery;
    UniRegis: TUniQuery;
    UniDBRegis: TUniDataSource;
    qpetani: TUniQuery;
    UniPeng: TUniQuery;
    UniDBPeng: TUniDataSource;
    qpeng: TUniQuery;
  private
    { Private declarations }
  public
    { Public declarations }
    LoggedUser : string;
  end;

function UniMainModule: TUniMainModule;

implementation

{$R *.dfm}

uses
  UniGUIVars, ServerModule, uniGUIApplication;

function UniMainModule: TUniMainModule;
begin
  Result := TUniMainModule(UniApplication.UniMainModule)
end;

initialization
  RegisterMainModuleClass(TUniMainModule);
end.