114
MessageDlg('Процент должен быть в диапазоне от 0 до 100',
mtError, [mbOK], 0);
exit;
end;
end
else
begin
MessageDlg('Неправильный формат числа', mtError, [mbOK], 0);
exit;
end;
end;
procedure Tdm.TblCardTypesDayLimitedGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
Text:='';
if sender.IsNull then exit;
if sender.AsBoolean then Text:='Да' else Text:='Нет'
end;
procedure Tdm.TblCardTypesDayLimitedSetText(Sender: TField;
const Text: String);
begin
if Text='' then Sender.Clear else
if Text[1] in ['Y','y','д','Д','1','T','t'] then Sender.AsBoolean := true
else Sender.AsBoolean := false;
end;
115
procedure Tdm.TblCardTypesDayLimitGetText(Sender: TField; var Text:
String;
DisplayText: Boolean);
begin
if not TblCardTypesDayLimited.Value then
begin
Text :='<нет>';
exit;
end;
Text := TblCardTypesDayLimit.AsString;
end;
procedure Tdm.TblCardTypesDayLimitSetText(Sender: TField;
const Text: String);
begin
if not TblCardTypesDayLimited.Value then exit;
TblCardTypesDayLimit.AsString := Text;
end;
procedure Tdm.TblcardslockedGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:='';
if sender.IsNull then exit;
if sender.AsBoolean then Text:='Да' else Text:='Нет'
116
end;
procedure Tdm.TblcardslockedSetText(Sender: TField; const Text:
String);
begin
if Text='' then Sender.Clear else
if Text[1] in ['Y','y','д','Д','1','T','t'] then Sender.AsBoolean := true
else Sender.AsBoolean := false;
end;
procedure Tdm.TblcardsNewRecord(DataSet: TDataSet);
begin
Tblcardslocked.Value := false;
Tblcardsclient.Value:=0;
end;
procedure Tdm.TblAdminspasswordGetText(Sender: TField; var Text:
String;
DisplayText: Boolean);
var i:integer;
begin
Text:='';
for i:=1 to length(Sender.AsString) do
Text:=Text+'*';
end;
procedure Tdm.TblUsedMatNewRecord(DataSet: TDataSet);
117
begin
TblUsedMatdata_id.Value:=TblUsedMat.Tag;
end;
end.