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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
121
DM.dstContr.Filtered := True;
end
else
DM.dstContr.Filtered := False;
end;
procedure TfmContract.FormCreate(Sender: TObject);
begin
dtpDateTo.Date := Date;
end;

procedure TfmContract.bbtRealtyLookupClick(Sender: TObject);
begin
fmRealty.bbtGo.Caption := ' ';
fmRealty.bbtGo.Visible := True;
if fmRealty.ShowModal = mrOK then
dblcbRealtyCode.KeyValue := DM.tbRealty.FieldByName('ID').AsInteger;
fmRealty.bbtGo.Visible := False;
sbFilterClick(Self);
end;

procedure TfmContract.bbtOrgLookupClick(Sender: TObject);
begin
fmOrg.bbtGo.Caption := ' ';
fmOrg.bbtGo.Visible := True;
if fmOrg.ShowModal = mrOK then
dblcbOrgName.KeyValue := DM.tbOrg.FieldByName('ID').AsInteger;
122
fmOrg.bbtGo.Visible := False;
sbFilterClick(Self);
end;

procedure TfmContract.bbtPrintClick(Sender: TObject);
var Excel: Variant;
WorkbookName: string;
i, PosInc: Integer;
begin
//    :
WorkbookName := GetCurrentDir + '\\ .xlt';
Excel := CreateOleObject('Excel.Application');
try
Excel.Workbooks.Open(WorkbookName);

Excel.WorkSheets[1].Select;
with DM do
begin
Excel.Cells[2,13] := FormatFloat('00000', dstContr.FieldByName('ID').AsFloat);
Excel.Cells[3,10] := dstContr.FieldByName('').AsString;
//  :
Excel.Cells[5,1] := tbOurOrg.FieldByName('').AsString;
Excel.Cells[6,15] := tbOurOrg.FieldByName('').AsString;
Excel.Cells[7,7] := tbOurOrg.FieldByName('').AsString;
Excel.Cells[53,11] := tbOurOrg.FieldByName('').AsString + ', ' +
tbOurOrg.FieldByName('').AsString + ', ' +
tbOurOrg.FieldByName('').AsString + ', ' +
tbOurOrg.FieldByName('').AsString + ', ' +
123
tbOurOrg.FieldByName('').AsString;
Excel.Cells[54,11] := tbOurOrg.FieldByName('').AsString + ',  ' +
tbOurOrg.FieldByName('').AsString + ',  ' +
tbOurOrg.FieldByName('').AsString + ', / ' +
tbOurOrg.FieldByName('').AsString + ', / ' +


if tbRealty.Locate('ID', dstContr.FieldByName('ID').AsInteger, []) then
Excel.Cells[17,1] := tbRealty.FieldByName('Type').AsString + ', ' +
tbRealty.FieldByName('').AsString + ',   ' +
tbRealty.FieldByName('').AsString + ' 2';
Excel.Cells[25,3] := tbContracts.FieldByName('').AsString;
//  :
if tbOrg.Locate('ID', tbContracts.FieldByName('ID').AsInteger, []) then
begin
Excel.Cells[8,5] := tbOrg.FieldByName('').AsString;
Excel.Cells[9,10] := tbOrg.FieldByName('').AsString;
Excel.Cells[10,7] := tbOrg.FieldByName('').AsString;
Excel.Cells[53,1] := tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString;
Excel.Cells[54,1] := tbOrg.FieldByName('').AsString + ',  ' +
tbOrg.FieldByName('').AsString + ',  ' +
tbOrg.FieldByName('').AsString + ', / ' +
tbOrg.FieldByName('').AsString + ', / ' +
tbOrg.FieldByName('').AsString;
124
end;

Excel.WorkSheets[2].Select;
Excel.Cells[2,7] := FormatFloat('00000', dstContr.FieldByName('ID').AsFloat);
PosInc := 5;
tbPay.First;
for i:=PosInc to tbPay.RecordCount+PosInc-1 do
begin
Excel.Cells[i,1] := tbPay.FieldByName('').AsString;
Excel.Cells[i,3] := tbPay.FieldByName('').AsString;
tbPay.Next;
end; //for
Excel.Cells[i,2] := '';
Excel.Cells[i,3] := dstContr.FieldByName('').AsString;
end; //with
Excel.WorkSheets[1].Select;
Excel.Visible := True;
except
Excel.Quit;
end;
end;
-

procedure TfmContract.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
125
if DaysBetween(Date, DM.dstContr.FieldByName('').AsDateTime) <= 7 then
DBGrid1.Canvas.Font.Color := clGreen
else
if DM.dstContr.FieldByName('').AsCurrency > 0 then
begin
DBGrid1.Canvas.Font.Color := clRed;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

procedure TfmContract.bbtRepClick(Sender: TObject);
var Excel: Variant;
WorkbookName: string;
i, PosInc: Integer;
Sum1, Sum2, Sum3: Currency;
begin
with DM do begin


qrRepOrg.Close;
qrRepOrg.Open;
 
WorkbookName := GetCurrentDir + '\\
Excel := CreateOleObject('Excel.Application');
try
Excel.Workbooks.Open(WorkbookName);

Источник: https://baza.diplomsite.ru/previewfile/1478

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

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