106
tblOrderСтатус: TStringField;
tblWorkКод: TFDAutoIncField;
tblWorkНазвание: TStringField;
tblTaskКод: TFDAutoIncField;
tblTaskЗаказ_код: TIntegerField;
tblTaskРабота_код: TIntegerField;
tblTaskСтоимость: TCurrencyField;
tblTaskДатаЗадачи: TSQLTimeStampField;
tblTaskЗакрыта: TBooleanField;
tblTaskОписание: TStringField;
tblTaskРабота: TStringField;
tblDocumentКод: TFDAutoIncField;
tblDocumentНазвание: TStringField;
tblDocumentРасширение: TStringField;
tblDocumentСоздан: TSQLTimeStampField;
tblDocumentИзменён: TSQLTimeStampField;
tblDocumentЗаказ_код: TIntegerField;
tblPostКод: TFDAutoIncField;
tblPostНазвание: TStringField;
tblDepartmentКод: TFDAutoIncField;
tblDepartmentНазвание: TStringField;
tblEmployeeКод: TFDAutoIncField;
tblEmployeeФИО: TStringField;
tblEmployeeДР: TSQLTimeStampField;
tblEmployeeАдрес: TStringField;
tblEmployeeТелефон: TStringField;
tblEmployeeПаспорт: TStringField;
tblEmployeeДолжность_код: TIntegerField;
tblEmployeeПодразделние_код: TIntegerField;
tblEmployeeПодразделение: TStringField;
tblEmployeeДолжность: TStringField;
tblCommandКод: TFDAutoIncField;
107
tblCommandЗаказ_код: TIntegerField;
tblCommandСотрудник_код: TIntegerField;
tblCommandСотрудник: TStringField;
tblCategoryКод: TFDAutoIncField;
tblCategoryНазвание: TStringField;
tblHardwareКод: TFDAutoIncField;
tblHardwareМодель: TStringField;
tblHardwareКатегория_код: TIntegerField;
tblHardwareОписание: TStringField;
tblHardwareКатегория: TStringField;
tblListКод: TFDAutoIncField;
tblListЗаказ_код: TIntegerField;
tblListОборудование_код: TIntegerField;
tblListКоличество: TIntegerField;
tblListСтоимость: TCurrencyField;
tblListОборудование: TStringField;
tblEmployeeПользователь: TBooleanField;
tblEmployeeПароль: TStringField;
tblEmployeeАдминистратор: TBooleanField;
qryDocument: TFDQuery;
tblDocumentФайл: TBlobField;
tblClientОГРН: TStringField;
tblClientРС: TStringField;
procedure tblTaskЗакрытаGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure tblOrderЗакрытGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure tblOrderВыполненGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure tblEmployeeПользовательGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
procedure tblEmployeeАдминистраторGetText(Sender: TField;
108
var Text: string; DisplayText: Boolean);
private
{ Private declarations }
public
user: TUser;
procedure LinkedBase;
end;
var
DM: TDM;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
uses
uSetLink;
procedure TDM.LinkedBase;
var
i: integer;
begin
MainConn.Close;
frmSetLink.GetSettings;
try
MainConn.Open;
if MainConn.Connected then begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TFDTable then
(Components[i] as TFDTable).Active:=true;
end else
109
if MessageDlg('Хотите настроить
подключение?',mtWarning,mbOkCancel,0)=1 then
frmSetLink.ShowModal;
except
on E: Exception do begin
// showMessage(e.Message);
if MessageDlg('Ошибка подключения. Хотите настроить
подключение?',mtWarning,mbOkCancel,0)=1 then
frmSetLink.ShowModal;
end;
end
end;
procedure TDM.tblEmployeeАдминистраторGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
if (not Sender.IsNull) and (Sender.AsBoolean) then //если поле =1
Text :='Да' //то ставим "Да"
else
if tblEmployee.RecordCount=0 then Text:=''
else Text := 'Нет';
end;
procedure TDM.tblEmployeeПользовательGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
if (not Sender.IsNull) and (Sender.AsBoolean) then //если поле =1
Text :='Да' //то ставим "Да"
else
if tblEmployee.RecordCount=0 then Text:=''
else Text := 'Нет';
110
end;
procedure TDM.tblOrderВыполненGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if (tblOrder.RecordCount=0) or
(tblOrder.FieldByName('Закрыт').AsBoolean<>True) then
Text:='';
end;
procedure TDM.tblOrderЗакрытGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if (not Sender.IsNull) and (Sender.AsBoolean) then //если поле =1
Text :='Да' //то ставим "Да"
else
if tblOrder.RecordCount=0 then Text:=''
else Text := 'Нет';
end;
procedure TDM.tblTaskЗакрытаGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if (not Sender.IsNull) and (Sender.AsBoolean) then //если поле =1
Text :='Да' //то ставим "Да"
else
if tblTask.RecordCount=0 then Text:=''
else Text := 'Нет';
end;
end.