Дипломная работа: Автоматизация учёта кредитных операций ломбарда ООО "Золотой век"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
121
Xlion1: array[1..3] ofstring = ('тысяча ', 'миллион ', 'миллиард ');
Xlion2: array[1..3] ofstring = ('тысячи ', 'миллиона ', 'миллиарда ');
functionMoneyToString(Money: Double): string;
functionFileExecute(constFileName, Params, StartDir: string;
InitialState: TExecState): THandle;
implementation
{$R *.dfm}
usesDataBase, Main, Valuation, Operation;
functionMoneyToString(Money: Double): string;
var
Money3, MoneyI, MoneyK, Digit, LastDigit, T: Integer;
Sto, Kop: string;
begin
Result := '';
MoneyI :=Trunc(Money);
MoneyK := Round((Money - MoneyI) * 100);
T := 0;
whileMoneyI> 0 do begin
Money3 := MoneyI mod 1000;
MoneyI :=MoneyI div 1000;
Sto := '';
if (Money3 mod 100) < 20 then begin
LastDigit := Money3 mod 20;
ifLastDigit> 0 then
if (T = 1) and (LastDigit in [1..2]) then Sto := NumEd1[LastDigit]
122
elseSto := NumEd[LastDigit];
Money3 := Money3 div 100;
end else begin
LastDigit := Money3 mod 10;
ifLastDigit> 0 then
if (T = 1) and (LastDigit in [1..2]) then Sto := NumEd1[LastDigit]
elseSto := NumEd[LastDigit];
Money3 := Money3 div 10;
Digit := Money3 mod 10;
if Digit > 0 then Sto := NumDec[Digit] + Sto;
Money3 := Money3 div 10;
end;
if Money3 > 0 then Sto := NumSot[Money3] + Sto;
if T > 0 then begin
ifLastDigit = 1 then Sto := Sto + Xlion1[T]
else if LastDigit in [2..4] then Sto := Sto + Xlion2[T]
elseSto := Sto + Xlion0[T];
end;
T := T + 1;
Result :=Sto + Result;
end;
Kop :=IntToStr(MoneyK mod 10);
MoneyK :=MoneyK div 10;
Kop :=IntToStr(MoneyK) + Kop;
Result := Result + 'руб. ' + Kop + ' коп.';
end;
functionFileExecute(constFileName, Params, StartDir: string;
InitialState: TExecState): THandle;
{$IFDEF WIN32}
begin
123
Result :=ShellExecute(Application.Handle, nil, PChar(FileName),
PChar(Params), PChar(StartDir), 0);
end;
{$ELSE}
var
cFileName, cParams, cPath: array [0..80] of Char;
begin
Result :=ShellExecute(Application.Handle, nil, StrPCopy(cFileName,
FileName), StrPCopy(cParams, Params), StrPCopy(cPath, StartDir),
ShowCommands[InitialState]);
end;
{$ENDIF}
procedureTfrmDetail.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataInfo.qListTypeValue.Close;
DataInfo.qListTypeOperation.Close;
DataInfo.qListValuations.Close;
DataInfo.qListOperations.Close;
end;
procedureTfrmDetail.FormShow(Sender: TObject);
begin
DataInfo.qListTypeValue.Open;
DataInfo.qListTypeOperation.Open;
DataInfo.qListValuations.Parameters.ParamValues['AgreementId']:=DataInfo.q
ListAgreements.FieldByName('Id').asInteger;
DataInfo.qListValuations.Open;
end;
procedureTfrmDetail.btnCloseClick(Sender: TObject);
124
begin
frmDetail.Close;
end;
procedureTfrmDetail.btnDelOperationClick(Sender: TObject);
begin
ifDataInfo.qListOperations.RecordCount=0 then
begin
MessageDlg('Списокоперацийпустой!',mtWarning,[mbOk],0);
Exit
end;
ifMessageDlg('Выдействительнохотитеудалитьоперациюпозалогу
'+DataInfo.qListValuations.FieldByName('ValueName').asString+'?',mtConfirmation,[
mbYes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('DELETE FROM Operations WHERE
Id='+DataInfo.qListOperations.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListOperations.Close;
DataInfo.qListOperations.Open;
end;
procedureTfrmDetail.btnDelValuationClick(Sender: TObject);
begin
ifDataInfo.qListValuations.RecordCount=0 then
begin
MessageDlg('Списокзалоговпустой!',mtWarning,[mbOk],0);
Exit
end;
ifDataInfo.qListOperations.RecordCount<>0 then
125
begin
MessageDlg('Есть операции по данному залогу! Удаление
невозможно',mtWarning,[mbOk],0);
Exit
end;
ifMessageDlg('Вы действительно хотите удалить залог
'+DataInfo.qListValuations.FieldByName('ValueName').asString+'?',mtConfirmation,[
mbYes, mbNo],0)=mrNothenExit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('DELETE FROM Valuations WHERE
Id='+DataInfo.qListValuations.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListValuations.Close;
DataInfo.qListValuations.Open;
end;
procedureTfrmDetail.btnEditOperationClick(Sender: TObject);
begin
ifDataInfo.qListOperations.RecordCount=0 then
begin
MessageDlg('Списокоперацийпустой!',mtWarning,[mbOk],0);
Exit
end;
frmOperation.Tag:=0;
frmOperation.ShowModal;
end;
procedureTfrmDetail.btnEditValuationClick(Sender: TObject);
begin
ifDataInfo.qListValuations.RecordCount=0 then
Источник: https://baza.diplomsite.ru/previewfile/2477

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

ЦЕНОВАЯ ПОЛИТИКА ПРЕДПРИЯТИЯ НА ПРИМЕРЕ ООО «ДНС РИТЕЙЛ»
_archivetempпротивовоспалительные
- Обратный порядок следования фаз 4
- Сопротивление изоляции 25
!_Лабораторные_работы_1_сем_ОУТС
!Контрольная работа (задание)
!Фармакология препаратов для терапии заболеваний дыхательных путей
'Electronics Workbench' – алгоритм инструмента моделирования электронных схем
'Новая экономика': российская специфика