Разработка программы автоматизации учета выплат учащимися профсоюзных взносов

 

Содержание

Введение

. Анализ предметной области

. Постановка задачи

. Разработка информационного обеспечения задачи

.1 Информационный анализ входной информации необходимой для решения задачи и выделения информационных объектов

.2 Определение связей информационных объектов и построение информационной логической модели

.3 Определение логической структуры БД

.4 Разработка исходных данных контрольного примера создания БД

. Описание технологии и алгоритмов решения задачи и их математических реализаций

. Разработка диалогов приложения пользователя

. Руководство пользователя

Заключение

Список использованных источников

Приложение А

Введение

Автоматизация - возложение некоторых функций на компьютерную программу. И не зависимо от того, много или мало функций, даже если вы используете компьютер для одной рутинной операции - это уже автоматизация.

Данное приложение используется для автоматизации учета сдачи профсоюзных взносов.

Приложение позволяет вести контроль и учет оплаты учащимися проф. взносов.

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

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

задача алгоритм математический

1. Анализ предметной области

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

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

2. Постановка задачи

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

Программа учета выплат профсоюзных взносов учащимися предназначена для решения таких задач, как ведение справочника учащихся, справочника групп, и формирования ведомости. Программа осуществляет формирование отчетов за период и за год.

Средством разработки данной программы является Delphi 7. Данную среду разработки я выбрал из-за простоты выполнения в ней основных операций и потому, что этот язык программирования мне больше всего знаком. Delphi 7 не требует большого потребления оперативной памяти, занимает мало места на диске, вследствие чего, компилируется проект достаточно быстро.

Средством создания и хранения базы данных является SQL Server 2008. Данную СУБД я выбрал из-за понятности и простоты использования, простоты манипулирования базами данных, быстрое выполнение запросов и удобный вывод сообщений об ошибках.

Данный курсовой проект был реализован на ПК HP 630 с операционной системой Windows 7.

Программно-аппаратные ресурсы ПК HP 630:

2 GB ОЗУ;

512 Mb RAM;

процессор Intel(R) Celeron(R) CPU815 @ 1.60GHz.

Минимальными системными требованиями будет наличие:

? центральный процессор не ниже 1,0 MHz;

? объем оперативной памяти - 256 Mb;

? свободное пространство на жестком диске не менее 100 Mb.

3. Разработка информационного обеспечения задачи

.1 Информационный анализ входной информации необходимой для решения задачи и выделения информационных объектов

Анализ входной информации осуществлён в виде таблиц.

Таблица 3.1.1 -Справочник Групп

Название поляТип данныхНазвание группыVarchar

Таблица 3.1.2 - Справочник Учащийся

Название поляТип данныхФИО учащегосяVarchar

Таблица 3.1.3 - Ведомость

Название поляТип данныхДата взносаDateTimeСумма взносаInt

.2 Определение связей информационных объектов и построение информационной логической модели

В настоящее время существует ряд методологий, специально предназначенных для упрощения системного анализа. Одним из инструментов системного анализа является CASE-средство верхнего уровня BPWin. Важнейшим этапом современного процесса разработки сложных систем вообще и программного обеспечения в частности является этап системного анализа и моделирования соответствующей предметной области. Данный этап является предпроектным. Его цель заключается в разработке спецификации проекта (технического задания на разработку проекта). От успеха проведения этого этапа зависит успех проекта в целом.

В настоящее время существует ряд методологий, специально предназначенных для упрощения системного анализа и моделирования предметной области. Данные методологии поддерживаются специальными инструментальными средствами автоматизированного анализа, моделирования и разработки сложных систем, получившими название CASE-средств (Computer-Aided Software/System Engineering - компьютерная поддержка проектирования программного обеспечения/систем).

В семействе CASE-средств инструменты для анализа предметной области составляют небольшую часть. Однако именно изучение и моделирование предметной области является наиболее важным этапом при разработке любого приложения, так как позволяет четко и однозначно определить задачи, которые стоят перед разработчиками. Одним из инструментов системного анализа является CASE-средство верхнего уровня BPwin (Business Process for Windows). Термин Business Process («бизнес-процесс») близок по смыслу к термину «предметная область» и в настоящее время часто заменяет последний. BPwin разработан фирмой LogicWorks. После слияния в 1998г. фирм LogicWorks и PLATINUM technology данное CASE-средство выпускается под логотипом PLATINUM technology.

Основными функциями BPwin являются рисование диаграмм, представляющих собой средства визуального представления отдельных компонентов моделируемой предметной области различных уровней детализации проверка целостности и согласованности иерархической модели, построенной из диаграмм различных уровней детализации, генерация различного вида отчетов по построенной модели. К достоинствам BPwin следует отнести обеспечение логической четкости в определении и описании элементов диаграмм, проверку целостности связей между диаграммами, локализацию или коррекцию наиболее часто встречающихся ошибок при моделировании.

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

BPwin поддерживает три методологии структурного анализа и моделирования систем - IDEFO, IDEF3 и DFD. В процессе создания модели бизнес-процесса на любой ветви модели можно переключиться на любую из методологий и создать смешанную модель.

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

Таблица 3.2.1 - Связи информационных объектов

Ключ связиГлавный ИОПодчинённый ИОТип отношенияid_grupСправочник группСправочник учащихся1:Mid_studСправочник учащихсяВедомость1:Mid_vedomВедомость

.3 Определение логической структуры базы данных

Для ускорения процесса проектирования в настоящее время используются различные CASE-средства. Одним из широко применяемых недорогих CASE-средств является ERwin.

ERwin - средство разработки структуры базы данных, сочетающее графический интерфейс Windows, инструменты для построения ER-диаграмм (Entities-Relationships-диаграммы или диаграммы «сущность-связь»), редакторы для создания логического и физического описания модели данных и прозрачную поддержку ведущих реляционных систем управления базами данных и настольных баз данных. С помощью ERwin можно создавать базы данных или проводить их обратное проектирование (реинженеринг).

Реализация моделирования в ERwin базируется на теории реляционных баз данных и на стандартизированной методологии семантического моделирования данных IDEF1X.

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

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

Связь - это абстракция набора отношений, которые систематически возникают между различными видами предметов в реальном мире. Таким образом, связи определяют функциональные зависимости между сущностями. Общепринятым видом графического изображения реляционной модели данных является ER-диаграмма. На такой диаграмме сущности изображаются прямоугольниками, соединенными между собой линиями.

На рисунке 3.3.1 отражена логическая модель базы данных

Рисунок 3.3.1 - Логическая схема данных

Детальное описание базы данных, используемой в программе находится в таблицах 3.3.1 - 3.3.3

Таблица 3.3.1 - Справочник групп

Название поляТип данныхОписаниеid_grupIntegerИспользуется для однозначной идентификации записейname_grupVarcharНазвание группы

Таблица 3.3.2 - Справочник учащихся

Название поляТип данныхОписаниеid_studIntegerИспользуется для однозначной идентификации записейid_grupIntegerВнешний ключfio_studVarcharФИО учащегося

Таблица 3.3.3 - Ведомость

Название поляТип данныхОписаниеid_vedomIntegerИспользуется для однозначной идентификации записейid_childrenIntegerВнешний ключdataDateTineДата сдачиsummaIntegerСумма сдачи

.4 Разработка исходных данных контрольного примера и создание базы данных

Данные контрольного примера предназначенные для тестирования, отладки и демонстрации решения задачи приведены в таблицах 3.4.1 - 3.4.3

Таблица 3.4.1 - Справочник сотрудников

Название группы309209Таблица 3.4.2 - Справочник учащихся

ФИО студентаВысоцкая О ВБараш Р О

Таблица 3.4.3 - Таблица Ведомости

СуммаДата сдачи500023.12.2012500025.12.2012

4. Описание технологии и алгоритмов решения задачи и их математических реализаций

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

Всю программу по сути можно разделить на две части:

Область справочников;

-Область Выдачи;

Область справочников предназначена для введения и поиска информации в справочниках, создании отчётов по критериям.

Область поставки представляет собой отчёты по поставленным товарам за определённый период. Область выдачи представляет собой соединенные между собой справочники, что позволяет начислить подарки детям сотрудников сразу всем детям сотрудника так же это можно сделать и только конкретному ребенку.

5. Разработка диалогов приложения пользователя

На главной форме осуществляется выбор действия с помощью меню 5.1

Рисунок 5.1 - Главная форма

На рисунке 5.2 показано форма управления справочником групп

.

Рисунок 5.2 - Управление справочником групп

Рисунок 5.3 на данной форме представлено управление справочником учащихся

.

Рисунок 5.3 - Управление справочником учащихся

На рисунке 5.4 ввод периода для отчета

Рисунок 5.4 - Отчет за период

Рисунок 5.5 Сформированный отчет за период

Рисунок 5.6 - Отчет за год

6. Руководство пользователя

Разобьём программу на две части:

Справочники;

- Ведомость;

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

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

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

Формирование отчет за год производиться образом из системной даты сервера отнимается год и по году группируется все выплаты. Отчет за период формируется таким образом что вам необходимо выбрать начальную дату и конечную при этом начальная дата не может быть больше конечной и так же больше системной (существующей) после чего как даты выбраны необходимо нажать кнопку сформировать и после этого на экране появиться отчет по конкретному периоду времени.

Заключение

В процессе выполнения курсового проекта была разработана программа автоматизации учёта выплат учащимися профсоюзных взносов.

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

выполненным в соответствии с техническим заданием;

универсальным, так как подойдёт на системы с низкими техническими характеристиками;

надёжным, обеспечивается правильное функционирование;

простым в использовании, так как программой довольно просто управлять.

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

Список использованных источников

1. Ашарчук Л.М. - Информационные системы в управлении, 2009.

. Норенков, И.П. - Основы автоматизированного проектирования: Учеб. Для вузов. - М.: Изд-во МГТУ им. Н. Э. Баумана, 2000. - 360 с.

. Астафьева В.А., Ковальчук Е.В. - Технологии автоматизированной обработки, 2006.

. Прохорова Т.В. - Автоматизация учета в системе «1С Предприятие 7.7» для Республики Беларусь, 2006.

. Гетц К. - Программирование в Microsoft Office, 2000.

. Бухгалтерия 7.7. Руководство по ведению учета, 2000.

. Алан Р. Саймон. Стратегические технологии баз данных. - М.: «Финансы и статистика», 2001

. Архангельский А.Я., Тагин М.А. - Программирование в C++ Builder 6 и 2006.- 224 с.: ил.

. Дьюхерт С. C++. Священные знания. - Пер. с анл. - СПб.: Символ-Плюс, 2012. - 240 с., ил.

. Динман М.И. С++. Освой на примерах. - СПб.: БЧИ-Петербург, 2006. - 348 с.: ил.

11. Послед Б.С. - Borland C++ Builder 6. Разработка приложений баз данных - 2003. - 200 с.: ил.

. Фаронов В. Программирование на языке высокого уровня: Учебник для вузов / В. Фаронов. - Санкт-Петербург: ООО «Питер Пресс»,2009. - 640с.

Приложение А

Unit1;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.XPMan, Data.DB,.Win.ADODB, Vcl.StdCtrls, frxClass, frxDBSet;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TXPManifest;: TADOConnection;: TLabel;: TMenuItem;: TMenuItem;: TfrxDBDataset;N5Click(Sender: TObject);FormCreate(Sender: TObject);N3Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);N11Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);FormCloseQuery(Sender: TObject; var CanClose: Boolean);FormClose(Sender: TObject; var Action: TCloseAction);

{ Private declarations }

{ Public declarations };: TForm1;_i:TextFile;_b:string;: Integer;:Boolean;: TDateTime;, myMonth, myDay: Word;

{$R *.dfm}Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;TForm1.FormClose(Sender: TObject; var Action: TCloseAction);.ADOConnection1.Connected:=false;;TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);.ADOConnection1.Connected:=false;;TForm1.FormCreate(Sender: TObject);(file_i,'conf.txt');(file_i);(file_i, file_b);.ADOConnection1.ConnectionString:=file_b;.ADOConnection1.Connected:=True;(file_i);.ADOConnection1.Connected:=false;(file_i);:= MessageDlg('База не подключена, Настройте конфигурацию с БД, либо выйдите',mtError, mbOKCancel, 0);buttonSelected = mrOK then Form1.Show;buttonSelected = mrCancel then Application.Terminate;;

(Form1.ADOConnection1.Connected=true) then

Form1.Label1.Caption:='База данных подключена'.Label1.Caption:='База данных не подключена';

еnd;

TForm1.N11Click(Sender: TObject);.ShowModal;;TForm1.N3Click(Sender: TObject);.ShowModal;;

TForm1.N5Click(Sender: TObject);.Terminate;;

TForm1.N6Click(Sender: TObject);.ShowModal;;

TForm1.N7Click(Sender: TObject);.ShowModal;;

TForm1.N8Click(Sender: TObject);.ShowModal;;

TForm1.N9Click(Sender: TObject);.ShowModal;;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;= class(TForm): TLabel;: TEdit;: TLabel;: TEdit;: TCheckBox;: TButton;CheckBox1Click(Sender: TObject);FormCreate(Sender: TObject);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm2;

{$R *.dfm}Unit1;TForm2.Button1Click(Sender: TObject);

if(form2.Edit1.Text<>'') and(Form2.Edit2.Text<>'') and(Form2.Edit1.Text<>' ')and(Form2.Edit2.Text<>' ') then begin(Form1.ADOConnection1.Connected=false) then begin.ADOConnection1.Connected:=false;.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+Form2.Edit2.Text+';Data Source='+Form2.Edit1.Text+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ADMINKA;Use Encryption for Data=False;Tag with column collation when possible=False;';.ADOConnection1.Connected:=True;:=true;

except:=false;('Имя сервера или название бд неверные');

Form2.Edit1.Clear;.Edit2.Clear;;

(ler=true) then begin_b:=Form1.ADOConnection1.ConnectionString;(file_i, 'conf.txt'); // Связь переменной с файлом.(file_i); // Создания нового файла(file_i,file_b); // Запись строки в файл.(file_i);('База Подключена');.Label1.Caption:='База данных подключена';.Close;;else begin(Form1.ADOConnection1.Connected=false) then begin

Form1.Label1.Caption:='База данных не подключена';

Form1.Label1.Font.Color:=clRed;.Label1.Color:=clRed;.Cursor:=crAppStart;.Label1.Caption:='База данных подключена';.Label1.Color:=clGreen;.Edit1.Clear;.Edit2.Clear;('База Подключена');.Close;;

('Вы не ввели все данные');;

TForm2.CheckBox1Click(Sender: TObject);(Form2.CheckBox1.Checked=true) then begin.Edit2.Enabled:=false;.Edit2.Text:='sveta';begin.Edit2.Enabled:=true;.Edit2.Clear;;;TForm2.FormCreate(Sender: TObject);.Edit2.Text:='sveta';.Edit2.Enabled:=false;;.Unit2;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;= class(TForm): TLabel;: TEdit;: TLabel;: TEdit;: TCheckBox;: TButton;CheckBox1Click(Sender: TObject);FormCreate(Sender: TObject);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm2;

{$R *.dfm}Unit1;

TForm2.Button1Click(Sender: TObject);

if(form2.Edit1.Text<>'') and(Form2.Edit2.Text<>'') and(Form2.Edit1.Text<>' ')and(Form2.Edit2.Text<>' ') then begin(Form1.ADOConnection1.Connected=false) then begin.ADOConnection1.Connected:=false;.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+Form2.Edit2.Text+';Data Source='+Form2.Edit1.Text+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ADMINKA;Use Encryption for Data=False;Tag with column collation when possible=False;';.ADOConnection1.Connected:=True;:=true;

except:=false;('Имя сервера или название бд неверные');

Form2.Edit1.Clear;.Edit2.Clear;;

(ler=true) then begin_b:=Form1.ADOConnection1.ConnectionString;(file_i, 'conf.txt'); // Связь переменной с файлом.(file_i); // Создания нового файла(file_i,file_b); // Запись строки в файл.(file_i);('База Подключена');.Label1.Caption:='База данных подключена';.Close;;else begin(Form1.ADOConnection1.Connected=false) then begin

Form1.Label1.Caption:='База данных не подключена';

Form1.Label1.Font.Color:=clRed;.Label1.Color:=clRed;.Cursor:=crAppStart;.Label1.Caption:='База данных подключена';.Label1.Color:=clGreen;.Edit1.Clear;.Edit2.Clear;('База Подключена');.Close;;

('Вы не ввели все данные');;

TForm2.CheckBox1Click(Sender: TObject);(Form2.CheckBox1.Checked=true) then begin.Edit2.Enabled:=false;.Edit2.Text:='sveta';begin.Edit2.Enabled:=true;.Edit2.Clear;;

TForm2.FormCreate(Sender: TObject);.Edit2.Text:='sveta';.Edit2.Enabled:=false;;Unit2;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;= class(TForm): TLabel;: TEdit;: TLabel;: TEdit;: TCheckBox;: TButton;CheckBox1Click(Sender: TObject);FormCreate(Sender: TObject);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm2;

{$R *.dfm}Unit1;TForm2.Button1Click(Sender: TObject);(form2.Edit1.Text<>'') and(Form2.Edit2.Text<>'') and(Form2.Edit1.Text<>' ') and(Form2.Edit2.Text<>' ') then begin(Form1.ADOConnection1.Connected=false) then begin.ADOConnection1.Connected:=false;.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+Form2.Edit2.Text+';Data Source='+Form2.Edit1.Text+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ADMINKA;Use Encryption for Data=False;Tag with column collation when possible=False;';.ADOConnection1.Connected:=True;:=true;

except:=false;('Имя сервера или название бд неверные');

Form2.Edit1.Clear;.Edit2.Clear;;

(ler=true) then begin_b:=Form1.ADOConnection1.ConnectionString;(file_i, 'conf.txt'); // Связь переменной с файлом.(file_i); // Создания нового файла(file_i,file_b); // Запись строки в файл.(file_i);('База Подключена');.Label1.Caption:='База данных подключена';.Close;;else begin(Form1.ADOConnection1.Connected=false) then begin

Form1.Label1.Caption:='База данных не подключена';

Form1.Label1.Font.Color:=clRed;.Label1.Color:=clRed;.Cursor:=crAppStart;.Label1.Caption:='База данных подключена';.Label1.Color:=clGreen;.Edit1.Clear;.Edit2.Clear;('База Подключена');.Close;;

ShowMessage('Вы не ввели все данные');

end;TForm2.CheckBox1Click(Sender: TObject);(Form2.CheckBox1.Checked=true) then begin.Edit2.Enabled:=false;.Edit2.Text:='sveta';begin.Edit2.Enabled:=true;.Edit2.Clear;;

TForm2.FormCreate(Sender: TObject);.Edit2.Text:='sveta';.Edit2.Enabled:=false;;

. unit Unit5;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,.ComCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls;= class(TForm): TPanel;: TDBGrid;: TDBGrid;: TLabel;: TEdit;: TDBLookupComboBox;: TDateTimePicker;: TComboBox;: TLabel;: TLabel;: TLabel;: TButton;: TADOQuery;: TDataSource;: TDataSource;id_vedom: TAutoIncField;id_stud: TIntegerField;data: TWideStringField;summa: TIntegerField;: TADOQuery;id_stud: TAutoIncField;id_grup: TIntegerField;fio_stud: TStringField;id_grup_1: TAutoIncField;name_grup: TStringField;Edit1Change(Sender: TObject);ADOQuery1AfterScroll(DataSet: TDataSet);DBLookupComboBox1Click(Sender: TObject);Button1Click(Sender: TObject);FormCreate(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm5;: TDateTime;: TDateTime;:Integer;:integer;, myMonth, myDay: Word;

{$R *.dfm}Unit1, Unit3;TForm5.ADOQuery1AfterScroll(DataSet: TDataSet);.ADOQuery2.Filtered:=False;.ADOQuery2.Filter:='id_stud ='+IntToStr(ADOQuery1.FieldByName('id_stud').AsInteger);.ADOQuery2.Filtered:=True;;

TForm5.Button1Click(Sender: TObject);:=now;:=Form5.DateTimePicker1.Date;(myDate<=tmDate) then('Введена дата больше существующей');.DateTimePicker1.Date:=now;

exit;;

//проверка оплады группы за месяц

if(Form5.DBLookupComboBox1.Text<>'')and(Form5.ComboBox1.Text<>'')and(Form5.ADOQuery1.RecordCount>0) then begin:=Form5.DateTimePicker1.Date;(myDate,myYear, myMonth, myDay);.ADOQuery1.First;:=Form5.ADOQuery1.RecordCount;i:=1 to kol do begin.ADOQuery2.Insert;.ADOQuery2.FieldByName('id_stud'). AsInteger:=Form5.ADOQuery1.FieldByName('id_stud').AsInteger;.ADOQuery2.FieldByName('summa').AsInteger: =StrToInt(Form5.ComboBox1.text);.ADOQuery2.FieldByName('data'). AsDateTime:=EncodeDate(myYear, myMonth,myDay);;.ADOQuery2.Post;.ADOQuery1.Next;;('Не все заполнено!!!');;

TForm5.DBLookupComboBox1Click(Sender: TObject);.ADOQuery1.Active:=false;.ADOQuery1.SQL.Text:='select * from grup,stud where grup.id_grup=stud.id_grup and grup.id_grup='+IntToStr(Form5.DBLookupComboBox1.KeyValue);.ADOQuery1.Active:=true;;

TForm5.Edit1Change(Sender: TObject);.ADOQuery1.Close();.ADOQuery1.SQL.text:='select * from grup,stud where grup.id_grup=stud.id_grup and grup.id_grup='+IntToStr(Form5.DBLookupComboBox1.KeyValue)+' and stud.fio_stud like ''%' + Form5.Edit1.Text +'%''';.ADOQuery1.Open();;

TForm5.FormCreate(Sender: TObject);.ComboBox1.ItemIndex:=0;.ADOQuery2.Active:=true;;

.Unit6;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,.ComCtrls, Vcl.DBCtrls, frxClass, frxDBSet;= class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TDBLookupComboBox;: TDateTimePicker;: TDateTimePicker;: TButton;: TADOQuery;: TfrxDBDataset;: TDataSource;: TfrxReport;DBLookupComboBox1Click(Sender: TObject);Button1Click(Sender: TObject);DateTimePicker1Change(Sender: TObject);DateTimePicker2Change(Sender: TObject);FormCreate(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm6;: TDateTime;: TDateTime;, myMonth, myDay: Word;, tmMonth, tmDay: Word;:TDateTime;, gupMonth, gupDay: Word;

{$R *.dfm}Unit1, Unit4, Unit3;TForm6.Button1Click(Sender: TObject);(Form6.DBLookupComboBox1.Text<>'') then begin:=Form6.DateTimePicker1.Date;:=Form6.DateTimePicker2.Date;.ADOQuery1.Active:=False;(myDate,myYear, myMonth, myDay);(tmDate,tmYear, tmMonth, tmDay);.ADOQuery1.Parameters.ParamByName('D1').Value:=EncodeDate(myYear,myMonth,01);.ADOQuery1.Parameters.ParamByName('D2').Value:=EncodeDate(tmYear, tmMonth,tmDay);.ADOQuery1.Active:=true;.frxReport1.ShowReport;

ShowMessage('Вы не ввели группу');

end;

TForm6.Button2Click(Sender: TObject);.frxReport1.ShowReport;;

TForm6.DateTimePicker1Change(Sender: TObject);:=now;:=Form6.DateTimePicker1.Date;(myDate, myYear, myMonth, myDay);(gupDate,gupYear, gupMonth, gupDay);(myDate<tmDate) then('Введена дата больше существующей');.DateTimePicker1.Date:=now;;;

TForm6.DateTimePicker2Change(Sender: TObject);:=now;:=Form6.DateTimePicker2.Date;(myDate, myYear, myMonth, myDay);(gupDate,gupYear, gupMonth, gupDay);(myDate<tmDate) then('Введена дата больше существующей');.DateTimePicker2.Date:=now;;;TForm6.DBLookupComboBox1Click(Sender: TObject);.ADOQuery1.Parameters.ParamByName('d').Value:=Form6.DBLookupComboBox1.KeyValue;;

TForm6.FormCreate(Sender: TObject);.ADOQuery1.Active:=true;

end;

Содержание Введение . Анализ предметной области . Постановка задачи . Разработка информационного обеспечения задачи .1 Информационный анализ

Больше работ по теме: