Обзор компонентов Delphi, используемых при разработке интерфейса в стиле MS WORD. Курсовая работа (т). Информационное обеспечение, программирование.

🛑 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Информационное обеспечение, программирование

Вы можете узнать стоимость помощи в написании студенческой работы.


Помощь в написании работы, которую точно примут!

Похожие работы на - Обзор компонентов Delphi, используемых при разработке интерфейса в стиле MS WORD

Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе

Нужна качественная работа без плагиата?

Не нашел материал для своей работы?


Поможем написать качественную работу Без плагиата!

Тема моей курсовой работы - это «Обзор
компонентов Delphi, используемых при разработке интерфейса в стиле MS WORD.
Разработка приложения, содержащего строку меню, панель инструментов».


Интерфейс в стиле MS WORD предполагает создание
главного меню и панели инструментов. Это возможно реализовать с помощью
следующих компонентов:- компонент, представляющий собой специальный контейнер
для создания панелей инструментов. Главная отличительная черта TToolBar - его
способность гибкого управления дочерними элементами, которые он может
группировать, выравнивать по размерам, располагать в несколько рядов.- кнопка
панели инструментов.- определяет главное меню формы (программы).


Созданное приложение позволит автоматизировать
деятельность бухгалтерии любого предприятия по начислению заработной платы
сотрудникам.


В приложении будут доступны следующие операции:


Поиск сведений о сотрудниках и их заработной
плате;


Выполнение этих операций значительно сократит
время и трудозатраты работников бухгалтерии, и как следствие применение этой
программы принесет значительный экономический эффект.







Перед разработкой приложения мною были изучены
следующие вопросы:


Возможности Delphi по созданию интерфейса в
стиле MS WORD.


Чтобы разработать такой интерфейс были
использованы следующие компоненты:- панель инструментов.


Компонент TToolBar располагается на вкладке
Win32 и представляет собой специальный контейнер для создания панелей
инструментов. Главная отличительная черта TToolBar - его способность гибкого
управления дочерними элементами, которые он может группировать, выравнивать по
размерам, располагать в несколько рядов.








Таблица 1. Основные свойства компонента TToolBar




Если
содержит значение True, высота компонента автоматически согласовывается с
высотой кнопок

Содержит
количество вставляемых в панель инструментов дочерних компонентов

Если
содержит значение True, панель и кнопки на ней прозрачны для фона и вокруг
кнопки появляется граница, только когда на ней располагается указатель мыши

Определяет
отступ в пикселах от левого края компонента для первого дочернего элемента

Разрешает/запрещает
показ на кнопках текста.

Для компонента определено событие OnResize,
возникающее при изменении размеров компонента.- кнопка панели инструментов.


Этот компонент специально разработан для
компонента TToolBar.


Вставить его в панель инструментов можно после
щелчка правой кнопкой мыши на компоненте TToolbar и выборе в контекстном меню команды
New Button (новая кнопка) или New Separator (новый разделитель) - разделители
предназначены для функционального выделения на панели инструментов групп
элементов и представляют собой разновидности кнопок TToolButton. Компонент
TToolButton не имеет свойство, предназначенного для хранения изображения,
однако компонент TToolBar позволяет извлечь нужное изображение из контейнера
TImageList и поместить это изображение на кнопку.






Находится на вкладке Standard. Компонент класса
TMainMenu определяет главное меню формы (программы). На форму можно поместить
сколько угодно объектов этого класса, но отображаться в строке меню в верхней
части формы будет только тот из них, который указан в свойстве Menu формы.
Данный компонент является не визуальным. Присутствие его на форме носит
информационный характер.


После установки компонента на форму необходимо
создать пункты меню. Для этого надо дважды щёлкнуть на компоненте левой кнопкой
мыши, либо щёлкнуть на нём правой кнопкой мыши и выбрать в контекстном меню
команду Menu Designer, либо щёлкнуть в правой половине строки Items в окне
инспектора объектов.


Для создания пунктов меню надо: перейти в окно
инспектора объектов и ввести название пункта меню в строке свойства Caption,
после чего нажмите клавише Enter - пункт меню готов и можно переходить к
следующему. Каждый пункт меню может раскрываться в подменю или являться
конечной командой. Для создания пунктов меню щёлкните мышью ниже пункта меню и
введите имя первого пункта подменю. Продолжают ввод, пока не будут созданы все
пункты подменю, после чего щёлкните на пустом прямоугольнике справа от первого
пункта и введите имя следующего.


Для создания многоуровневых меню, то есть таких,
у которых пункты подменю раскрывают новые подменю, щёлкните на пункте подменю и
нажмите клавиши Ctrl+ .Такого же эффекта можно добиться щелчком правой кнопки
мыши на пункте подменю и выборе в контекстном меню команды Create Submenu.





Организация взаимодействия с
серверами автоматизации




В создаваемом приложении необходимо
предусмотреть функцию экспорта данных в Excel. Поэтому в работе рассмотрен
вопрос об использовании серверов пакета MS Office.


Практика показывает, что программы пакета MS
Office (Excel,Word, PowerPoint и другие) устанавливаются на подавляющем большинстве
компьютеров, работающих под управлением 32-х разрядных версий windows. Каждая
из этих программ является COM - сервером, и, следовательно, любой входящий в
нее объект может использоваться вашей программой как свой собственный.


Существует два способа обращения к методам и
свойствам COM - объекта: путем ссылки на его библиотеку типов (ранее
связывание) и по имени (позднее связывание). Для Delphi предпочтительным
является ранее связывание, так как в этом случи компилятор может
проконтролировать правильность обращения к свойствам и методам внешних
объектов, а создаваемый им код, исполняется, в общем случаи, быстрее. С другой
стороны, базовый язык обращения к серверам MS Office - Visual Basic for
Application (VBA) не поддерживает работу с указателями и, следовательно, не
может использовать интерфейсы. Специально для такого рода языков в технологию
СОМ введены интерфейсы диспетчеризации, позволяющие обращаться к методам и
свойствам по имени.


В Delphi имеются компоненты вкладки Servers,
позволяющие обращаться к COM-объектам серверов с помощью библиотек типов.


Основные объекты серверов Excel и Word.


В терминологии VBA используются понятия объект и
коллекция. Объект - это обычный интерфейсный объект COM, имеющий свойства,
методы и события. Коллекция - это группа однотипных объектов. Например, главный
объект сервера Excel - Application - определяет основные свойства и методы
сервера, коллекция Worksheets - это набор табличных страниц в текущей рабочей
книге и т.д.


Текстовый процессор Word является популярнейшим
средством создания и оформления (форматирования) текстовых документов. При
работе с Word фундаментальными понятиями являются документ, абзац и стиль.
Документ определяет файл данных. Абзац - это совокупность символов, обрамленная
служебными символами конца строк, разрыва колонки или разрыва раздела. Наконец,
стиль - это совокупность признаков оформления текста: его шрифт, положение на
странице, выравнивание и т.п. Стиль - непременный атрибут каждого абзаца, то
есть изменение стиля абзаца приводит к его переформатированию. Однако стиль
может изменяться внутри абзаца - для выделения группы символов шрифтом, цветом
символов и/или фона и т.п.


Центральный объект Application имеет такое же
назначение, что и одноименный объект Excel, - он определяет свойства, методы и
события на уровне всего сервера. Его свойство Documents представляет собой
коллекцию открытых документов. С помощью метода Open этого объекта можно
открыть ранее созданный документ, а методом Add - создать новый документ,
основанный на шаблоне Normal.dot. Каждый документ имеет коллекцию абзацев
Paragraphs. С помощью методов этого объекта Add, InsertParagraph,
InsertParagraphAfter, InsertParagraphBefore можно вставить новый абзац в уже
существующий текст или добавить абзац в конец документа. В свою очередь, каждый
абзац имеет многочисленные свойства, позволяющие нужным образом отформатировать
текст. Как и в Excel, важную роль в иерархии объектов Word играет объект Range,
определяющий диапазон абзацев. Свойство Text этого объекта содержит текст диапазона.


Сервер Excel -это мощный табличный процессор,
реализующий размещение и обработку различного рода данных (как числовых, так и
текстовых), в том числе - построение на их основе графиков и диаграмм. При
работе с Excel создается так называемая рабочая книга (файл данных) с одним или
несколькими листами. Все листы одной рабочей книги могут быть связаны друг с
другом, что позволяет организовать совместные вычисления над размещенными на
них данными.


Объект Application имеет многочисленные свойства,
методы и события, управляющие сервером в целом. Только с его помощью, например,
можно визуализировать полнофункциональное окно табличного процессора. Его
центральное свойство Workbooks открывает доступ ко всем открытым в процессоре
рабочим книгам.


У каждой рабочей книги есть свойства Worksheets
и Charts, представляющее собой коллекции листов и диаграмм. Первоначально
коллекция Workbooks пуста. Чтобы создать хотя бы одну рабочую книгу, нужно
обратиться к методу Workbook.Add, который создает рабочую книгу с количеством
пустых листов, определенным значением свойства Application.SheetsInNewWorkbook.
У каждого рабочего листа есть свойство Cells (I,J), определяющее содержимое
ячейки, лежащей на пересечении I-й строки с J-м столбцом (нумерация строк и столбцов
начинается с 1). Если при обращении к Cells номера столбца и строки опущены,
считается, что речь идет о текущем диапазоне ячеек, заданным значением свойства
Worksheets.Range. Если необходимо изменить умалчиваемые свойства столбца или
строки, используются объекты Worksheets.Columns и Worksheets.Rows. Помимо
рабочих листов с рабочей книгой связывается объект Charts, представляющий собой
коллекцию диаграмм. С каждой диаграммой связывается объект SeriesCollection,
хранящий данные, по которым строится диаграмма. Пример: Пусть требуется с
помощью Delphi создать простейший Excel файл с записью в первую ячейку значения
"Проба". Создадим новый проект и разместим на форме единственную
кнопку. Далее напишем следующую процедуру, которая будет выполняться при нажатии
кнопки:





uses comobj; //эта строка должна присутствовать
обязательно


procedure
TForm1.Button1Click(Sender: TObject);: OleVariant;, Sheet: Variant;: String;


//Получаем
имя
для
будущего
Excel-файла:=
ExtractFilePath(Application.EXEName)+'Sample1.xls';


//Создаем объект интерфейса для доступа к
серверу COM:= CreateOleObject('Excel.Application');


//Создаем книгу и обращаемся к первому листу


WorkBook :=
exl.Application.WorkBooks.Add;


//Записываем в первую ячейку значение
"Проба".Cells(1,1) := 'Проба';


exl.Application.ActiveWorkBook.Saveas(fileName);


//Выгружаем сервер из памяти компьютера


Создать приложение «Зарплата», реализующее интерфейс
в стиле MS WORD и работу с типизированным файлом следующей структуры:
Рекомендации по конструированию формы.


На форме расположить компоненты:, используемую в
качестве контейнера для 6 однострочных полей, двух раскрывающихся
списков(СоmЬоВох1. ComboBox2) для выбора подразделения и должности, 8 меток для
заголовков полей редактирования и списков;


Панель (GroupBox1) с заголовком: Поиск, 3
радиокнопками с заголовками: по табельному номеру, по подразделению и по
должности, однострочным полем для поиска, списком СоmbоВох3 для выбора
табельного номера и кнопкой: Найти.. TToolBar для размещения кнопок
TToolButton, TImageList для загрузки картинок и редактор действий TActionList.
8 кнопок с заголовками: «Добавить», «Поиск», «Вывести расчетные листки»,
«Экспорт в Excel», «Напечатать», «Очистить», «Закрыть».


В свободное место формы поместить компонент
текстовый редактор TRichEdit для отображения результатов работы.


Примечание. При проектировании пользовательского
интерфейса можно по мере необходимости использовать дополнительные компоненты.


Создать обработчики событий по созданию формы и
щелчка по кнопкам, выполняющие следующие функции:


Проверить существование файла и в зависимости от
его существования, открыть файл тем или иным способом. Если файл существует
установить в конец, а все табельные номера переписать в список СоmbоВох3;


По кнопке «Добавить» реализовать добавление
данных в файл из нолей ввода и раскрывающихся списков, расчет необходимых сумм
и отображение записи в редакторе. Одновременно новый табельный номер
запоминается в списке СоmbоВох3. Если такой номер уже есть в списке, то запись
игнорируется, выводится сообщение о неверном табельном номере и курсор
возвращается к вводу информации;


По кнопке «Вывести расчетные листки» формируются
расчетные листки и выводятся в редактор;


Кнопка «Поиск» - выполнить поиск по выбору
пользователя. Если пользователь выбрал варианты «По подразделению» или «По
должности» осуществить поиск по образцу, взятому из поля ввода в панели
«Поиск». Результаты поиска отобразить в редакторе. Если пользователь выбрал
вариант «По табельному номеру», то осуществить поиск информации из файла по
выбранному табельному номеру и в предварительно очищенном редакторе вывести
расчетный лист с показом всех причитающихся данному лицу выплат и суммы «К
выдаче»;


По кнопке «Напечатать» данные из редактора
вывести на печать;


По кнопке «Экспорт в Excel» данные из файла
вывести в виде книги Excel


По кнопке «Очистить» данные из редактора
удаляются;


По кнопке «Закрыть» закрыть файл и осуществить
корректное завершение работы.


Организационно-экономическая сущность задачи


Наименование задачи - создание приложения
«Зарплата».


Цель решения данной задачи является
автоматизированный расчет заработной платы сотрудников, оперативное получение
информации о зарплате, формирование расчетных листов, ведомостей к оплате и др.
отчетности.


Данное приложение предназначено для упрощения и
снижения времени на начисление заработной платы, а также формирования
отчетности.


Эта задача может решаться в бухгалтерии один раз
в месяц при начислении заработной платы, а также по мере необходимости для
получения сведений о заработной плате сотрудников.


Источниками входной информации является штатное
расписание и список сотрудников на поощрение или взыскание.


Описание исходной (входной) информации


Исходной информацией для решения данной задачи
являются данные представленные в таблице 2:




При добавлении новых записей табельный номер
проверяется, если такой номер уже есть в списке, то запись игнорируется,
выводится сообщение о неверном табельном номере и курсор возвращается к вводу
информации.





Описание результатной (выходной)
информации




Результатной информацией будет являться
типизированный файл записей Zarplata.dat,
который имеет структуру описанную в таблице 3:




Также результатной информацией является форма
«Зарплата». На эту форму будут выводиться необходимые данные о сотрудниках и их
заработной плате в текстовый редактор из файла «Zarplata.dat».
В этой форме поля Должность и Подразделение будут заполняться из списка
значений.


Кроме того, выходной информацией будет являться
форма в Excel, которая
должна быть представлена в виде таблицы следующей структуры:


·       Сумма к выдаче (расчетная)


В приложении будет реализована возможность
поиска информации по табельному номеру, должности или подразделению сотрудников.


Разработка алгоритма решения задачи


С помощью данного приложения пользователь сможет
решить ряд следующих действий:


1.      Добавление данных в файл из нолей ввода
и раскрывающихся списков, расчет необходимых сумм и отображение записи в
редакторе. Одновременно новый табельный номер запоминается в списке СоmbоВох3.
Если такой номер уже есть в списке, то запись игнорируется, выводится сообщение
о неверном табельном номере и курсор возвращается к вводу информации;


2.      По кнопке «Вывести расчетные листки»
формируются расчетные листки и выводятся в редактор;


3.      Кнопка «Поиск» - выполнить поиск по
выбору пользователя. Если пользователь выбрал варианты «По подразделению» или
«По должности» осуществить поиск по образцу, взятому из поля ввода в панели
«Поиск». Результаты поиска отобразить в редакторе. Если пользователь выбрал
вариант «По табельному номеру», то осуществить поиск информации из файла по
выбранному табельному номеру и в предварительно очищенном редакторе вывести
расчетный лист с показом всех причитающихся данному лицу выплат и суммы «К
выдаче»;


.       По кнопке «Напечатать» данные из
редактора вывести на печать;


5.      По кнопке «Экспорт в Ехсеl»
данные из файла вывести в виде книги Excel


.       По кнопке «Очистить» данные из
редактора удаляются;


7.      По кнопке «Закрыть» закрыть файл и
осуществить корректное завершение работы.





Назначение и область применения программы


Данное приложение называется «Зарплата» Тема
разработки - создание приложения, в стиле MS
Word, содержащего
строку меню и панель инструментов.


Приложение «Зарплата» предназначено для
автоматизации расчета заработной платы бухгалтерией предприятия (предусмотрена
возможность добавления записей, формирования расчетных листков на каждого
сотрудника, вывода итоговой ведомости в Excel).
Также с помощью этой программы можно осуществить поиск сведений о заработной
плате сотрудников по подразделению, по должности или табельному номеру. Предусмотрена
возможность вывода данных на печать.


Описание внешнего дизайна (интерфейса
приложения).





Рис. 1. Вид окна будущего приложения.


1.      TMainMenu
- главное меню формы.


2.      TToolBar
- панель инструментов.


3.      TToolButton
- кнопка панели инструментов.


4.      TRichEdit
- текстовый редактор.


6.      TGroupBox
- панель группирования.


7.      TRadioButton - переключатель.


.       TCombobox - комбинированный
список.


.       Tedit
- однострочное редактируемое текстовое поле.


В данном окне реализованы следующие пункты меню:


.       Очистить текстовый редактор


Рис.2. Форма «О программе», вызываемая командой
меню




.       TBitBtn
- кнопка с изображением.


Для работы данного приложения используются
структуры данных, такие как:


tzarplata=record:word;:word;:string[80];:string[25];:string[25];:real;:word;:Real;:Real;:Real;;




В данной программе файл используется для
постоянного хранения информации о заработной плате сотрудников за месяц. Длина
любого компонента типизированного файла строго постоянна, что даёт возможность
организовать прямой доступ к каждому из них. Также используется одномерный
динамический массив типа запись в процедуре поиска записей для временного
хранения информации. Описание алгоритмов приложения.




procedure
FormCreate(Sender:
TObject);




В процедуре происходит очистка текстового
редактора для дальнейшей работы с приложением.




procedure Action1Execute(Sender:
TObject);:file of tzarplata;:tzarplata;





После открытия файла его содержимое будет
отображаться в текстовом редакторе.




procedure Action2Execute(Sender:
TObject);:file of tzarplata;:tzarplata;,Sheet,Colum:Variant;


Данные из файла выводятся в таблицу. Для
распечатки таблицы потребуется принтер.




procedure Action3Execute(Sender:
TObject);


Процедура печати.
Для
распечатки
необходим
принтер.Action4Execute(Sender:
TObject);


Выход из
программы.Action5Execute(Sender:
TObject);:file of tzarplata;:tzarplata;,tn1,i:integer;:boolean;




Данные из однострочных полей редактирования
добавляются в файл и отображаются в текстовом редакторе. После добавления
записи однострочные поля очищаются. Перед добавлением выполняется проверка -
если табельный номер уже существует в файле, то выдается сообщение об ошибке.




procedure Action6Execute(Sender:
TObject);:file of tzarplata;:tzarplata;




Процедура просмотра содержимого файла
procedure Action7Execute(Sender:
TObject);


Процедура очистки текстового
редактораAction8Execute(Sender:
TObject);:string;:boolean;,k:integer;:file of tzarplata;:tzarplata;:array
of tzarplata;




Процедура поиска записей. Предусмотрена
возможность поиска записей по табельному номеру, по подразделению или по
должности в зависимости от установленного переключателя. Найденные записи
отображаются в редакторе.




procedure Action9Execute(Sender:
TObject);


Вызов справкиAction10Execute(Sender:
TObject);


interface, ShellAPI,
…;=record:word;:word;:string[80];:string[25];:string[25];:real;:word;:Real;:Real;:Real;;=
class(TForm)FormCreate(Sender: TObject);Action1Execute(Sender:
TObject);Action5Execute(Sender: TObject);Action6Execute(Sender:
TObject);Action7Execute(Sender: TObject);Action4Execute(Sender:
TObject);Action3Execute(Sender: TObject);Action8Execute(Sender:
TObject);Action2Execute(Sender: TObject);Action10Execute(Sender:
TObject);Action9Execute(Sender: TObject);


{ Public declarations };:file of
tzarplata;:tzarplata;:array of tzarplata;:integer;: TForm1;Unit2;


{$R *.dfm}TForm1.FormCreate(Sender:
TObject);


RichEdit1.Clear;//очистка
текстового редактора


end;TForm1.Action1Execute(Sender:
TObject);


assignfile(f,'C:\Zarplata.dat'); //связываем
файловую переменную с именем файлаFileExists('C:\Zarplata.dat') //защищённый
блок для открытия файла


then reset(f)rewrite(f);(f,0);not
eof(f) do//цикл пока
не
конец
файла


read(f,w); {читаем данные из файла в переменную
w}


//выводим содержимое переменной в текстовый
редактор


RichEdit1.Lines.Add('_____________________________________');.Lines.Add('Номер
месяца...........'+inttostr(w.nommes));.Lines.Add('Табельный
номер........'+inttostr(w.tabnom));.Lines.Add('Фамилия
Имя
Отчество...'+w.fio);.Lines.Add('Подразделение..........'+w.podrazdelenie);.Lines.Add('Должность..............'+w.dolgnost);.Lines.Add('Оклад..................'+floattostr(w.oklad));.Lines.Add('Премия
(в
% до
100)....'+inttostr(w.premij));.Lines.Add('Удержано
из
зарплаты...'+floattostr(w.udergano));.Lines.Add('Сумма
премии...........'+floattostr(w.sumprem));.Lines.Add('Сумма
к
выдаче.........'+floattostr(w.sumkv));.Items.Add(inttostr(w.tabnom));;(f,filesize(f));{устанавливаем
фокус
ввода
в
конец
файла};TForm1.Action5Execute(Sender:
TObject);


{процедура добавления записи},tn1,i:integer;


fl:boolean;(f,'C:\Zarplata.dat');(f);:=strtoint(edit2.Text);:=false;i:=0
to combobox3.items.count-1 do:=strtoint(combobox3.Items[i]);tn=tn1 then
fl:=true;;fl then('Такой номер
есть');.SetFocus;;(f,filesize(f));{устанавливаем
фокус
ввода
в
конец
файла}


//в переменную w
записываем данные из полей редактирования


w.nommes:=strtoint(Edit1.text);.tabnom:=strtoint(Edit2.text);.fio:=Edit3.Text;.podrazdelenie:=ComboBox1.Text;.dolgnost:=ComboBox2.Text;.oklad:=strtofloat(Edit4.text);.premij:=
strtoint(Edit5.text);.udergano:= strtofloat(edit6.text);.sumprem:=
w.oklad*w.premij/100;.sumkv:= w.oklad+w.sumprem-w.udergano;1.Clear;


//обображаем записи в текстовом редакторе


RichEdit1.Lines.Add('_____________________________________');.Lines.Add('Номер
месяца...........'+inttostr(w.nommes));.Lines.Add('Табельный
номер........'+inttostr(w.tabnom));.Lines.Add('Фамилия
Имя
Отчество...'+w.fio);.Lines.Add('Подразделение..........'+w.podrazdelenie);.Lines.Add('Должность..............'+w.dolgnost);.Lines.Add('Оклад..................'+floattostr(w.oklad));.Lines.Add('Премия
(в
% до
100)....'+inttostr(w.premij));.Lines.Add('Удержано
из
зарплаты...'+floattostr(w.udergano));.Lines.Add('Сумма
премии...........'+floattostr(w.sumprem));.Lines.Add('Сумма
к
выдаче.........'+floattostr(w.sumkv));


write(f,w); {записываем данные из переменной w в
файл}


//очищаем однострочные поля редактирования


edit2.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.SetFocus;;TForm1.Action6Execute(Sender:
TObject);


{процедура просмотра содержимого файла}.Clear;


assignfile(f,'C:\Zarplata.dat');(f);(f,0);not
eof(f) do


begin(f,w); {читаем данные из файла в переменную
w и отображаем их в редакторе}


RichEdit1.Lines.Add('_____________________________________');.Lines.Add('Номер
месяца...........'+inttostr(w.nommes));.Lines.Add('Табельный
номер........'+inttostr(w.tabnom));.Lines.Add('Фамилия
Имя
Отчество...'+w.fio);.Lines.Add('Подразделение..........'+w.podrazdelenie);.Lines.Add('Должность..............'+w.dolgnost);.Lines.Add('Оклад..................'+floattostr(w.oklad));.Lines.Add('Премия
(в
% до
100)....'+inttostr(w.premij));.Lines.Add('Удержано
из
зарплаты...'+floattostr(w.udergano));.Lines.Add('Сумма
премии...........'+floattostr(w.sumprem));.Lines.Add('Сумма
к
выдаче.........'+floattostr(w.sumkv));;;TForm1.Action7Execute(Sender:
TObject);


{процедура
очистки
RichEdit1}.Clear;;TForm1.Action4Execute(Sender: TObject);


close;;TForm1.Action3Execute(Sender:
TObject);


{процедура
печати}.Print(Text);;TForm1.Action8Execute(Sender:
TObject);


poisk:boolean;,k:integer;.Clear;(f,'C:\Zarplata.dat');(f);(a,filesize(f));radiobutton1.Checked
then:=combobox3.Text;:=0;:=false;not eof(f) do {пока
не
конец
файла}


begin(f,w); {читаем из файла в файловую
переменную}


if pos(maska,inttostr(w.tabnom))=1
then


begin[k]:=w; {записываем в массив данные из w}


inc(k);:=true;;;(f);not poisk then
showmessage('Записей образца
'+maska+' не обнаружено')


{если не найден не один элемент выводим соответствующее
сообщение}


elsei:=0 to k-1 do {в
ячейки
выводим
записи
массива
а}.Lines.Add('_____________________________________');.Lines.Add('Номер
месяца...........'+inttostr(a[i].nommes));.Lines.Add('Табельный
номер........'+inttostr(a[i].tabnom));.Lines.Add('Фамилия
Имя
Отчество...'+a[i].fio);.Lines.Add('Подразделение..........'+a[i].podrazdelenie);.Lines.Add('Должность..............'+a[i].dolgnost);.Lines.Add('Оклад..................'+floattostr(a[i].oklad));.Lines.Add('Премия
(в
% до
100)....'+inttostr(a[i].premij));.Lines.Add('Удержано
из
зарплаты...'+floattostr(a[i].udergano));.Lines.Add('Сумма
премии...........'+floattostr(a[i].sumprem));.Lines.Add('Сумма
к
выдаче.........'+floattostr(a[i].sumkv));;;;radiobutton2.Checked
then:=edit7.Text;:=0;:=false;not eof(f) do {пока
не
конец
файла}


begin(f,w); {читаем из файла в файловую
переменную}


if pos(maska,w.podrazdelenie)=1 then


begin[k]:=w; {записываем в массив данные из w}


inc(k);:=true;;;(f);not poisk then
showmessage('Записей образца
'+maska+' не обнаружено')


{если не найден не один элемент выводим
соответствующее сообщение}


elsei:=0 to k-1 do {в
ячейки
выводим
записи
массива
а}.Lines.Add('_____________________________________');.Lines.Add('Номер
месяца...........'+inttostr(a[i].nommes));.Lines.Add('Табельный
номер........'+inttostr(a[i].tabnom));.Lines.Add('Фамилия
Имя
Отчество...'+a[i].fio);.Lines.Add('Подразделение..........'+a[i].podrazdelenie);.Lines.Add('Должность..............'+a[i].dolgnost);.Lines.Add('Оклад..................'+floattostr(a[i].oklad));.Lines.Add('Премия
(в
% до
100)....'+inttostr(a[i].premij));.Lines.Add('Удержано
из
зарплаты...'+floattostr(a[i].udergano));.Lines.Add('Сумма
премии...........'+floattostr(a[i].sumprem));.Lines.Add('Сумма
к
выдаче.........'+floattostr(a[i].sumkv));;;;radiobutton3.Checked
then:=edit7.Text;:=0;:=false;not eof(f) do {пока
не
конец
файла}


begin(f,w); {читаем из файла в файловую
переменную}


begin[k]:=w; {записываем в массив данные из w}


inc(k);:=true;;;(f);not poisk then
showmessage('Записей образца
'+maska+' не обнаружено')


{если не найден не один элемент выводим
соответствующее сообщение}


elsei:=0 to k-1 do {в
ячейки
выводим
записи
массива
а}.Lines.Add('_____________________________________');.Lines.Add('Номер
месяца...........'+inttostr(a[i].nommes));.Lines.Add('Табельный
номер........'+inttostr(a[i].tabnom));.Lines.Add('Фамилия
Имя
Отчество...'+a[i].fio);.Lines.Add('Подразделение..........'+a[i].podrazdelenie);.Lines.Add('Должность..............'+a[i].dolgnost);.Lines.Add('Оклад..................'+floattostr(a[i].oklad));.Lines.Add('Премия
(в
% до
100)....'+inttostr(a[i].premij));.Lines.Add('Удержано
из
зарплаты...'+floattostr(a[i].udergano));.Lines.Add('Сумма
премии...........'+floattostr(a[i].sumprem));.Lines.Add('Сумма
к
выдаче.........'+floattostr(a[i].sumkv));;;;;TForm1.Action2Execute(Sender:
TObject);


var,Sheet,Colum:Variant;:integer;:=CreateOleObject('Excel.Application');.Visible:=true;.Workbooks.Add(-4167);.Workbooks[1].workSheets[1].Name:='Отчёт';:=
XLApp.Workbooks[1].workSheets['Отчёт'].Columns;.Columns[1].ColumnWidth:=20;.Columns[2].ColumnWidth:=20;.Columns[3].ColumnWidth:=20;.Columns[4].ColumnWidth:=20;.Columns[5].ColumnWidth:=20;.Columns[6].ColumnWidth:=20;.Columns[7].ColumnWidth:=20;.Columns[8].ColumnWidth:=20;.Columns[9].ColumnWidth:=20;.Columns[10].ColumnWidth:=20;:=
XLApp.Workbooks[1].workSheets['Отчёт'].Rows;.Rows[2].Font.Bold:=true;.Rows[1].Font.Bold:=true;.Rows[1].Font.Color:=clBlue;.Rows[1].Font.Size:=14;:=XLApp.Workbooks[1].WorkSheets['Отчёт'];.Cells[1,2]:='Ведомость';.Cells[2,1]:='Номер
месяца';.Cells[2,2]:='Табельный
номер';.Cells[2,3]:='Фамилия,
имя,
отчество';.Cells[2,4]:='Подразделение';.Cells[2,5]:='Должность';.Cells[2,6]:='Оклад';.Cells[2,7]:='Премия
(в
% до
100)';


Sheet.Cells[2,8]:='Удержано из
зарплаты';.Cells[2,9]:='Сумма премии';.Cells[2,10]:='Сумма к выдаче';


assignfile(f,'C:\Zarplata.dat');(f);:=3;not
eof(f) do


begin(f,w); {читаем данные из файла в переменную
w}


sheet.cells[index,1]:=inttostr(w.nommes);.cells[index,2]:=inttostr(w.tabnom);.cells[index,3]:=w.fio;.cells[index,4]:=w.podrazdelenie;.cells[index,5]:=w.dolgnost;.cells[index,6]:=floattostr(w.oklad);.cells[index,7]:=inttostr(w.premij);.
Похожие работы на - Обзор компонентов Delphi, используемых при разработке интерфейса в стиле MS WORD Курсовая работа (т). Информационное обеспечение, программирование.
Реферат: «история кемеровского областного краеведческого музея»
Характеристика Структуры Курсовой Работы
Контрольная работа: Расчёт винта (судостроение). Скачать бесплатно и без регистрации
Курсовая Работа На Тему Проблемы Развития Торгово- Экономических Отношений Российской Федерации Со Странами Содружества Независимых Государств На Современном Этапе
Курсовая работа по теме Государственное управление в сфере социальной поддержки населения (на примере Оренбургской обл.)
Реферат по теме Возможности интеллектуального развития школьников в связи с формированием методологических и прикладных знаний
Реферат: All The Pretty Horses Essay Research Paper
Реферат по теме Из истории применения лекарственных растений
Мини Сочинение По Русской Пословице
Реферат по теме Подверженность и предрасположенность к неврозу у людей с акцентуированными чертами характера
Реферат: Роль всемирной организации интеллектуальной собственности в сотрудничестве государств по вопроса
Контрольная работа: Гражданский процесс. Скачать бесплатно и без регистрации
Сочинение Про Весну На Английском
Методы Обучения Дипломная Работа
Курсовая работа: Протокол TACASC+
Курсовая работа по теме Проектирование и исследование стержневых и зубчатых механизмов
Сочинение по теме «Егор Булычов и другие»
Реферат: Материальная культура Казахов
Контрольная работа по теме Содержание таможенных процедур
Отчет по практике по теме Система менеджмента ООО 'Тач Текстиль'
Реферат: Freedom Essay Research Paper FreedomIn 1995 Jacob
Реферат: Beatles Essay Research Paper When people hear
Реферат: Состав и основные правила составления и представления бухгалтерской отчетности в России