-
Notifications
You must be signed in to change notification settings - Fork 0
/
uFramePerson0.pas
81 lines (67 loc) · 1.56 KB
/
uFramePerson0.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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
unit uFramePerson0;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar, cxDBEdit, cxTextEdit, Vcl.StdCtrls, Data.DB,
IBX.IBCustomDataSet, IBX.IBQuery, IBX.IBUpdateSQL;
type
TFramePerson0 = class(TFrame)
Label11: TLabel;
Label10: TLabel;
Label9: TLabel;
edtSurName: TcxDBTextEdit;
edtName: TcxDBTextEdit;
edtFamily: TcxDBTextEdit;
Label8: TLabel;
cmbDateBirth: TcxDBDateEdit;
cmbSex: TcxDBComboBox;
Label1: TLabel;
Label2: TLabel;
edtCitizen: TcxDBTextEdit;
DS: TDataSource;
Query: TIBQuery;
Query_upd: TIBUpdateSQL;
private
FId: Integer;
public
Err: string;
function OpenData(Aid: integer = 0): Boolean;
function SaveData: Boolean;
property Id: Integer read FId write FId;
end;
implementation
{$R *.dfm}
uses
DM_Main;
{ TFramePerson }
function TFramePerson0.OpenData(Aid: integer): Boolean;
begin
result:= False;
Query.Close;
try
Query.ParamByName('id').AsInteger := Aid;
Query.Open;
Result := True;
FId := Aid;
except
Result := false;
end;
end;
function TFramePerson0.SaveData: Boolean;
begin
Result := false;
if not (Query.Modified or Query.UpdatesPending) then
begin
Result := True;
Exit;
end;
try
Query.ApplyUpdates;
Id := Query.FieldByName('id').AsInteger;
Result := True;
except
end;
end;
end.