Size: a a a
N
N
N
procedure TfMBSMain.EditMember(AMember: TMember);
begin
with TfMBSMember.Create(Self) do
begin
Member := AMember;
if ShowModal = mrOk then
begin
if not Core.Executor.IsEmpty then
begin
Core.Executor.Execute;
Core.Data.LoadMembers;
ShowMembers(SearchBox1.Text);
end;
end;
Free;
end;
end;N
N
N
procedure TfMBSMain.EditMember(AMember: TMember);
begin
with TfMBSMember.Create(Self) do
begin
Member := AMember;
if ShowModal = mrOk then
begin
if not Core.Executor.IsEmpty then
begin
Core.Executor.Execute;
Core.Data.LoadMembers;
ShowMembers(SearchBox1.Text);
end;
end;
Free;
end;
end;
N
N
N
//если новый сотрудник
vFields := vTable.GetFieldList(['ID', 'CHANGE_DATE']);
vValues := TSetter.GetValues(Member, vFields);Core.Executor.Scripts
.AddReference(vTable.TableName, vFields, vFields, vTable)
.Row(vValues);
AS
HTMLTag := HTMLTagList.GetTagByName(Node.Name);
HTMLTagList))
ВБ
HTMLTag := HTMLTagList.GetTagByName(Node.Name);
HTMLTagList))
AK
KB
AK
AK
DB
ВБ
ВБ
DB
DB
