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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
126
begin
MessageDlg('Списокзалоговпустой!',mtWarning,[mbOk],0);
Exit
end;
frmValuation.Tag:=0;
frmValuation.ShowModal;
end;
procedureTfrmDetail.btnNewOperationClick(Sender: TObject);
begin
frmOperation.Tag:=1;
frmOperation.ShowModal;
end;
procedureTfrmDetail.btnNewValuationClick(Sender: TObject);
begin
frmValuation.Tag:=1;
frmValuation.ShowModal;
end;
procedureTfrmDetail.btnPrintOperClick(Sender: TObject);
begin
DataInfo.qSysParam.Open;
DataInfo.qListOperations.Open;
fd:=PChar(ExtractFilePath(Application.ExeName)+'Template\order.xls');
fn:=PChar(ExtractFilePath(Application.ExeName)+'Report\Order#'+DataInfo.q
ListOperations.FieldByName('Id').asString+'.xls');
if not FileExists(fd) then
begin
MessageDlg('Файлшаблонаненайден!',mtError,[mbOk],0);
Exit
127
end;
if not CopyFile(fd,fn,false) then
begin
MessageDlg('Не могу скопировать файл шаблона в папку
отчетов!',mtError,[mbOk],0);
Exit
end;
ExcelApp:=TExcelApplication.Create(nil);
try
// ExcelApp.Visible[xlLCID]:=False;
IWorkbook:=ExcelApp.Workbooks.Open(fn,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Emp
tyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,xlLCID);
IWorksheets:=IWorkbook.Worksheets;
ISheet :=IWorksheets.Item[1] as ExcelXP._Worksheet;
ISheet.Cells.Item[7,1].Value:=DataInfo.qSysParam.FieldByName('FirmaName'
).AsString;
ISheet.Cells.Item[13,6].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qList
Operations.FieldByName('DateOper').AsDateTime);
ISheet.Cells.Item[18,6].Value:=Format('%m',[DataInfo.qListOperations.FieldB
yName('Suma').asCurrency]);
ISheet.Cells.Item[20,2].Value:=DataInfo.qListAgreements.FieldByName('Clien
tName').AsString;
ISheet.Cells.Item[21,2].Value:='Погашениекредитаза
'+DataInfo.qListValuations.FieldByName('ValueName').AsString;
ISheet.Cells.Item[23,2].Value:=MoneyToString(DataInfo.qListOperations.Field
ByName('Suma').asCurrency);
ISheet.Cells.Item[29,5].Value:=DataInfo.qSysParam.FieldByName('BuhFIO').
AsString;
128
ISheet.Cells.Item[1,13].Value:=DataInfo.qSysParam.FieldByName('FirmaNam
e').AsString;
ISheet.Cells.Item[5,17].Value:=DataInfo.qListOperations.FieldByName('Id').A
sString;
ISheet.Cells.Item[6,14].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qList
Operations.FieldByName('DateOper').AsDateTime);
ISheet.Cells.Item[8,14].Value:=DataInfo.qListAgreements.FieldByName('Clien
tName').AsString;
ISheet.Cells.Item[9,14].Value:='Погашениекредитаза
'+DataInfo.qListValuations.FieldByName('ValueName').AsString;
ISheet.Cells.Item[12,14].Value:=Format('%m',[DataInfo.qListOperations.Field
ByName('Suma').asCurrency]);
ISheet.Cells.Item[14,13].Value:=MoneyToString(DataInfo.qListOperations.Fiel
dByName('Suma').asCurrency);
ISheet.Cells.Item[21,13].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qList
Operations.FieldByName('DateOper').AsDateTime);
ISheet.Cells.Item[26,16].Value:=DataInfo.qSysParam.FieldByName('BuhFIO').
AsString;
IWorkbook.Close(True, EmptyParam, EmptyParam, xlLCID);
finally
ISheet := nil;
ExcelApp.DisplayAlerts[0]:=False;
ExcelApp.Workbooks.Close(0);
IWorkbook:=nil;
ExcelApp.Quit;
FreeAndNil(ExcelApp);
end;
DataInfo.qSysParam.Close;
FileExecute(fn,'','',esMaximized);
end;
129
end.
unit Operation;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDropDownEdit, cxCurrencyEdit, cxCalendar, cxCalc;
type
TfrmOperation = class(TForm)
vgOperation: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgOperationDateOper: TcxDBEditorRow;
vgOperationTypeId: TcxDBEditorRow;
vgOperationSuma: TcxDBEditorRow;
procedureFormShow(Sender: TObject);
procedurebtnNoClick(Sender: TObject);
procedurebtnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
130
frmOperation: TfrmOperation;
implementation
usesDataBase;
{$R *.dfm}
procedureTfrmOperation.FormShow(Sender: TObject);
begin
iffrmOperation.Tag=1 then
begin
DataInfo.qListOperations.Insert;
end
else
begin
DataInfo.qListOperations.Edit;
end;
end;
procedureTfrmOperation.btnNoClick(Sender: TObject);
begin
DataInfo.qListOperations.Cancel;
frmOperation.Close;
end;
procedureTfrmOperation.btnYesClick(Sender: TObject);
begin
ifDataInfo.qListOperations.FieldByName('DateOper').isNull then
begin
MessageDlg('Укажитедатуоперации!',mtError,[mbOk],0);
Источник: https://baza.diplomsite.ru/previewfile/2477

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

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