-
Notifications
You must be signed in to change notification settings - Fork 0
/
Setting.pas
63 lines (50 loc) · 1.66 KB
/
Setting.pas
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
unit Setting;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIFrame, uniGUIBaseClasses, uniPanel, uniImage, uniDBImage,
uniLabel, uniDBText, uniGroupBox, Data.DB, uniBasicGrid, uniDBGrid,
unimDBListGrid, uniMultiItem, uniListBox, uniDBListBox, uniButton, uniBitBtn,
uniDBNavigator;
type
TfrmSetting = class(TUniFrame)
UniPanel1: TUniPanel;
ugSKPD: TUniGroupBox;
udbLogoSKPD: TUniDBImage;
UniDBText1: TUniDBText;
UniPanel2: TUniPanel;
UniGroupBox1: TUniGroupBox;
UniDBText2: TUniDBText;
udbSKPD: TUniDBListBox;
dsProfile: TDataSource;
UniDBNavigator1: TUniDBNavigator;
ubtSimpan: TUniBitBtn;
ubtEdit: TUniBitBtn;
private
{ Private declarations }
procedure UpdateProfileSetting(TahunAnggaran : integer; KodeSKPD : String);
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses MainModule;
{ TfrmSetting }
procedure TfrmSetting.UpdateProfileSetting(TahunAnggaran: integer; KodeSKPD : String);
begin
UniMainModule.TahunPersediaan := TahunAnggaran;
{MainForm.uStatusbar.Panels.Items[0].Text := UniMainmodule.UserUserName + ' - ' +
IntToStr(UniMainmodule.UserKodeSKPD) + ' [OS:' +
UniMainmodule.UserOS + ',Mode:' +
UniMainModule.UserMode + ']';}
if UniMainModule.qProfile.Active then
begin
UniMainModule.qProfile.Close;
UniMainModule.qProfile.ParamByName('id').Value := KodeSKPD;
UniMainModule.qProfile.Open;
end;
end;
initialization
RegisterClass(TfrmSetting);
end.