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

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

116

end;

var

frmAgreement: TfrmAgreement;

implementation

usesDataBase;

{$R *.dfm}

procedureTfrmAgreement.FormShow(Sender: TObject);

begin

DataInfo.tAgreement.Open;

iffrmAgreement.Tag=1 then

begin

DataInfo.tAgreement.Insert;

DataInfo.tAgreement.FieldByName('StateId').AsInteger:=1;

vgAgreementStateId.Properties.EditProperties.ReadOnly:=True;

end

else

begin

DataInfo.tAgreement.Locate('Id',DataInfo.qListAgreements.FieldByName('Id').

asInteger,[]);

DataInfo.tAgreement.Edit;

vgAgreementStateId.Properties.EditProperties.ReadOnly:=False;

end;

procedureTfrmAgreement.btnNoClick(Sender: TObject);

begin

117

DataInfo.tAgreement.Cancel;

frmAgreement.Close;

end;

procedureTfrmAgreement.btnYesClick(Sender: TObject);

begin

ifDataInfo.tAgreement.FieldByName('DateAgreement').isNull then

begin

MessageDlg('Укажитеназваниеработ!',mtError,[mbOk],0);

Exit

end;

ifDataInfo.tAgreement.FieldByName('Term').isNull then

begin

MessageDlg('Укажитесрокдоговора!',mtError,[mbOk],0);

Exit

end;

ifDataInfo.tAgreement.FieldByName('ClientId').isNull then

begin

MessageDlg('Укажитеклиента!',mtError,[mbOk],0);

Exit

end;

DataInfo.tAgreement.FieldByName('UserId').AsInteger:=UserId;

DataInfo.tAgreement.Post;

DataInfo.qListAgreements.Close;

DataInfo.qListAgreements.Open;

frmAgreement.Close;

end;

end.

unit Detail;

118

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls,

cxLookAndFeels,

cxLookAndFeelPainters, cxStyles, dxSkinsCore, dxSkinsDefaultPainters,

ExcelXP,

dxSkinscxPCPainter, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit,

cxNavigator, Data.DB, cxDBData, cxGridLevel, cxGridCustomTableView,

cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView,

cxGrid,

Vcl.ComCtrls, Vcl.ToolWin, cxSplitter, cxDBLookupComboBox, ShellAPI;

type

TfrmDetail = class(TForm)

cxSplitter1: TcxSplitter;

pcValuation: TPageControl;

tsValuations: TTabSheet;

tbRequests: TToolBar;

btnNewValuation: TToolButton;

btnEditValuation: TToolButton;

btnDelValuation: TToolButton;

pcOperation: TPageControl;

tsOperation: TTabSheet;

ToolBar1: TToolBar;

btnNewOperation: TToolButton;

btnEditOperation: TToolButton;

btnDelOperation: TToolButton;

ToolButton6: TToolButton;

119

btnPrintOper: TToolButton;

grdValuations: TcxGrid;

tblListValuations: TcxGridDBTableView;

tblListValuationsValueName: TcxGridDBColumn;

tblListValuationsTypeId: TcxGridDBColumn;

tblListValuationsTotalCost: TcxGridDBColumn;

tblListValuationsCreditValue: TcxGridDBColumn;

tblListValuationsPayValue: TcxGridDBColumn;

tblListValuationsToPayValue: TcxGridDBColumn;

tblListValuationsPercValue: TcxGridDBColumn;

grdValuationsLevel1: TcxGridLevel;

grdOperations: TcxGrid;

tblOperations: TcxGridDBTableView;

tblOperationsDateOper: TcxGridDBColumn;

tblOperationsTypeId: TcxGridDBColumn;

tblOperationsSuma: TcxGridDBColumn;

cxGridLevel1: TcxGridLevel;

ToolButton1: TToolButton;

btnClose: TToolButton;

procedureFormClose(Sender: TObject; var Action: TCloseAction);

procedureFormShow(Sender: TObject);

procedurebtnPrintOperClick(Sender: TObject);

procedurebtnNewValuationClick(Sender: TObject);

procedurebtnEditValuationClick(Sender: TObject);

procedurebtnDelValuationClick(Sender: TObject);

procedurebtnDelOperationClick(Sender: TObject);

procedurebtnNewOperationClick(Sender: TObject);

procedurebtnCloseClick(Sender: TObject);

procedurebtnEditOperationClick(Sender: TObject);

private

{ Private declarations }

120

public

{ Public declarations }

end;

type

TExecState = (esNormal, esMinimized, esMaximized);

const

xlLCID = LOCALE_USER_DEFAULT;

ExcelSign =

chr(208)+chr(207)+chr(17)+chr(224)+chr(161)+chr(177)+chr(26)+chr(225);

var

frmDetail: TfrmDetail;

ExcelApp: ExcelXP.TExcelApplication;

IWorkbook: ExcelXP._Workbook;

IWorksheets: ExcelXP.Sheets;

ISheet: ExcelXP._Worksheet;

Result, Row, Col, RowCount, ColCount: Integer;

i: Integer;

fd, fn: PChar;

NumEd: array[1..19] ofstring = ('один ', 'два ', 'три ', 'четыре ', 'пять ', 'шесть ',

'семь ', 'восемь ', 'девять ', 'десять ', 'одиннадцать ', 'двенадцать ', 'тринадцать ',

'четырнадцать ', 'пятнадцать ', 'шестнадцать ', 'семнадцать ', 'восемнадцать ',

'девятнадцать ');

NumEd1: array[1..2] of string = ('одна ', 'две ');

NumDec: array[2..9] ofstring = ('двадцать ', 'тридцать ', 'сорок ', 'пятьдесят ',

'шестьдесят ', 'семьдесят ', 'восемьдесят ', 'девяносто ');

NumSot: array[1..9] ofstring = ('сто ', 'двести ', 'триста ', 'четыреста ', 'пятьсот

', 'шестьсот ', 'семьсот ', 'восемьсот ', 'девятьсот ');

Xlion0: array[1..3] ofstring = ('тысяч ', 'миллионов ', 'миллиардов ');

Источник: https://baza.diplomsite.ru/previewfile/2477

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


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