Дипломная работа: Автоматизация банковских операций по предоставлению услуг аренды сейфовых ячеек в ПАО «Сбербанк»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
131
end;
tbContracts.Filtered := False;
if Dolg > 0 then
begin

'', MB_OK+MB_ICONINFORMATION);
DataSet.Locate('ID', OrgID, []);
Abort;
end;
DataSet.Locate('ID', OrgID, []);
end
else
Abort;
end;
end.
//  :
procedure TfmMain.acOperNewContrExecute(Sender: TObject);
begin


DM.ADOConnection1.BeginTrans;
DM.tbContracts.Insert;
DM.tbContracts.FieldByName('').AsCurrency := 0;
DM.tbContracts.FieldByName('').AsBoolean := True;
DM.tbContracts.Post;
fmNewContract.ShowModal;
end;
132
procedure TfmMain.acOperPayExecute(Sender: TObject);
begin
fmNewPay.ShowModal;
end;

procedure TfmMain.acOperCloseContrExecute(Sender: TObject);
begin

fmContract.ShowModal
end;

// :
procedure TfmMain.acAnalyseByTypesExecute(Sender: TObject);
var DateFrom, DateTo: TDateTime;
begin
if fmDiapason.GetDiapason(DateFrom, DateTo) then
with DM, fmDiagram do begin
 

qrSquareByTypes.Close;
qrSquareByTypes.Parameters.ParamByName('pDateFrom').DataType := ftDate;
qrSquareByTypes.Parameters.ParamByName('pDateTo').DataType := ftDate;
qrSquareByTypes.Parameters.ParamByName('pDateFrom').Value := DateFrom;
qrSquareByTypes.Parameters.ParamByName('pDateTo').Value := DateTo;
qrSquareByTypes.Open;
-
133
Chart1.Series[0].Clear;
qrSquareByTypes.First;
while not qrSquareByTypes.Eof do begin
Chart1.Series[0].Add(qrSquareByTypes.FieldByName('Sum').AsCurrency,
qrSquareByTypes.FieldByName('').AsString);
qrSquareByTypes.Next;
end;
Chart1.Title.Text[0] :
DateToStr(DateFrom) + '  ' + DateToStr(DateTo) + ', 2';
ShowModal;
end;
end;
-
procedure TfmMain.acAnalyseTop5OrgExecute(Sender: TObject);
var DateFrom, DateTo: TDateTime;
i: Byte;
begin
if fmDiapason.GetDiapason(DateFrom, DateTo) then
with DM, fmDiagram do begin


qrTop5Org.Close;
qrTop5Org.Parameters.ParamByName('pDateFrom').DataType := ftDate;
qrTop5Org.Parameters.ParamByName('pDateTo').DataType := ftDate;
qrTop5Org.Parameters.ParamByName('pDateFrom').Value := DateFrom;
qrTop5Org.Parameters.ParamByName('pDateTo').Value := DateTo;
qrTop5Org.Open;
134
-
Chart1.Series[0].Clear;
qrTop5Org.First;
for i:=1 to 5 do begin
Chart1.Series[0].Add(qrTop5Org.FieldByName('CountContr').AsCurrency,
qrTop5Org.FieldByName('').AsString);
qrTop5Org.Next;
if qrTop5Org.Eof then Break;
end;
-
DateToStr(DateFrom) + '  ' + DateToStr(DateTo);
ShowModal;
end;
end;
-
procedure TfmMain.acAnalyseTop5ContrExecute(Sender: TObject);
var DateFrom, DateTo: TDateTime;
i: Byte;
begin
if fmDiapason.GetDiapason(DateFrom, DateTo) then
with DM, fmDiagram do begin


qrTop5Contr.Close;
qrTop5Contr.Parameters.ParamByName('pDateFrom').DataType := ftDate;
qrTop5Contr.Parameters.ParamByName('pDateTo').DataType := ftDate;
135
qrTop5Contr.Parameters.ParamByName('pDateFrom').Value := DateFrom;
qrTop5Contr.Parameters.ParamByName('pDateTo').Value := DateTo;
qrTop5Contr.Open;
-
Chart1.Series[0].Clear;
qrTop5Contr.First;
for i:=1 to 5 do begin
Chart1.Series[0].Add(qrTop5Contr.FieldByName('').AsCurrency,
FormatFloat('00000', qrTop5Contr.FieldByName('ID').AsFloat) +
' - ' + qrTop5Contr.FieldByName('').AsString);
qrTop5Contr.Next;
if qrTop5Contr.Eof then Break;
end;
Chart1.T-
DateToStr(DateFrom) + '  ' + DateToStr(DateTo);
ShowModal;
end;
end;

procedure TfmMain.acAnalyseYieldExecute(Sender: TObject);
var DateFrom, DateTo: TDateTime;
Excel: Variant;
WorkbookName: string;
i, PosInc: Integer;
Sum: Currency;
begin
Источник: https://baza.diplomsite.ru/previewfile/1478

Смотрите также:

_1966(~1
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
'Образ–Я' и его развитие средствами диалога
"Логистическая технология JIT"
"Особенности правовой системы Российской Федерации" по дисциплине "Теория государства и права"
«Анализ ликвидности и платежеспособности предприятия» (на материалах ОАО Московская кондитерская фабрика «Красный Октябрь»)