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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
126
Excel.Cells[3,6] := Date();
with DM do begin

qrRepOrg.First;
PosInc := 6;
Sum1 := 0;
Sum2 := 0;
Sum3 := 0;
for i:=PosInc to qrRepOrg.RecordCount+PosInc-1 do begin
//  :
if i < qrRepOrg.RecordCount+PosInc-1 then begin
Excel.Rows.Item[i+1].Select;
Excel.Selection.Insert;
Excel.Rows.Item[i].Select;
Excel.Selection.Copy;
Excel.Rows.Item[i+1].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
// :
Excel.Cells[i,1] := qrRepOrg.FieldByName('').AsString;
Excel.Cells[i,5] := FormatFloat('00000', qrRepOrg.FieldByName('N').AsFloat);
Excel.Cells[i,6] := qrRepOrg.FieldByName('').AsString;
Excel.Cells[i,7] := qrRepOrg.FieldByName('').AsString;
Excel.Cells[i,10] := qrRepOrg.FieldByName('').AsString;
Sum1 := Sum1 + qrRepOrg.FieldByName('').AsCurrency;
Sum2 := Sum2 + qrRepOrg.FieldByName('').AsCurrency;
Sum3 := Sum3 + qrRepOrg.FieldByName('').AsCurrency;
127
qrRepOrg.Next;
end; //for
if i>0 then begin
Excel.Cells[i,6] := Sum1;
Excel.Cells[i,7] := Sum2;
Excel.Cells[i,10] := Sum3;
end;
end; //with
Excel.Visible := True;
except
Excel.Quit;
end;
end;
end;
// :
procedure TfmContract.bbtCloseContrClick(Sender: TObject);
begin
if Application.MessageBox(PChar('   
FormatFloat('00000', DM.dstContr.FieldByName('ID').AsFloat) + '?'), '',
MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
begin
if DM.tbContracts.Locate('ID', DM.dstContr.FieldByName('ID').AsInteger, []) then
begin
DM.tbContracts.Edit;
DM.tbContracts.FieldByName('').AsBoolean := False;
DM.tbContracts.Post;
DM.dstContr.Requery();
end;
128
end;
end;
end.
//  :
procedure TDM.tbPayCalcFields(DataSet: TDataSet);
begin

if DataSet.RecNo <> -1 then
DataSet.FieldByName('RecNo').AsInteger := DataSet.RecNo
else
DataSet.FieldByName('RecNo').AsInteger := 1;
// :
if not DataSet.FieldByName('').IsNull then
DataSet.FieldByName('Timeliness').AsInteger :=
DaysBetween(DataSet.FieldByName('').AsDateTime,
DataSet.FieldByName('').AsDateTime);
//   :
DataSet.FieldByName('Dolg').AsCurrency := DataSet.FieldByName('').AsCurrency -
DataSet.FieldByName('').AsCurrency;
end;

procedure TDM.DataModuleCreate(Sender: TObject);
begin
ADOConnection1.Open;
tbOrg.Open;
129
tbRealtyTypes.Open;
tbRealty.Open;
tbContracts.Open;
tbPay.Open;
tbOurOrg.Open;
end;
procedure TDM.DataModuleDestroy(Sender: TObject);
begin
ADOConnection1.Close;
end;

//  "":
procedure TDM.tbRealtyAfterInsert(DataSet: TDataSet);
begin
DataSet.FieldByName('').AsBoolean := False;
end;

-"):
procedure TDM.tbRealtyAfterOpen(DataSet: TDataSet);
begin
DataSet.FieldByName('').ValidChars := ['0'..'9', ','];
DataSet.FieldByName('').ValidChars := ['0'..'9', ','];
end;

-"):
130
procedure TDM.tbContractsAfterOpen(DataSet: TDataSet);
begin
DataSet.FieldByName('').ValidChars := ['0'..'9', ','];
end;

procedure TDM.tbOrgBeforeDelete(DataSet: TDataSet);
var
Dolg: Currency;
OrgID: Integer;
begin

'', MB_YESNO+MB_ICONQUESTION) = IDYES then
begin

OrgID := DataSet.FieldByName('ID').AsInteger;
tbContracts.Filter := 'ID = ' + IntToStr(OrgID);
tbContracts.Filtered := True;
Dolg := 0;
tbContracts.First;
while not tbContracts.Eof do
begin
qrDolg.Parameters.ParamByName('pContractID').Value := tbContracts.FieldByName('ID').AsInteger;
qrDolg.Open;
if qrDolg.FieldByName('Dolg').AsCurrency > 0 then
Dolg := Dolg + qrDolg.FieldByName('Dolg').AsCurrency;
qrDolg.Close;
tbContracts.Next;
Источник: https://baza.diplomsite.ru/previewfile/1478

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

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