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

4

Размещено на http://www.allbest.ru/

4

Содержание

Введение

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

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

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

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

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

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

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

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

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

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

Заключение

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

Приложение А

Введение

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

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

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

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

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

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

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. Разработка информационного обеспечения задачи

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

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

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

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

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

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

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

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

3.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:M
id_stud	Справочник учащихся	Ведомость	1:M
id_vedom	Ведомость

3.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_grup	Integer	Используется для однозначной идентификации записей
name_grup	Varchar	Название группы

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

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

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

Название поля	Тип данных	Описание
id_vedom	Integer	Используется для однозначной идентификации записей
id_children	Integer	Внешний ключ
data	DateTine	Дата сдачи
summa	Integer	Сумма сдачи

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

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

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

Название группы
309
209

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

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

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

Сумма	Дата сдачи
5000	23.12.2012
5000	25.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.

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

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

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

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

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

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

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

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

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

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

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

Приложение А

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.XPMan, Data.DB,

Data.Win.ADODB, Vcl.StdCtrls, frxClass, frxDBSet;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

XPManifest1: TXPManifest;

ADOConnection1: TADOConnection;

Label1: TLabel;

N10: TMenuItem;

N11: TMenuItem;

frxDBDataset1: TfrxDBDataset;

procedure N5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

file_i:TextFile;

file_b:string;

buttonSelected: Integer;

ler:Boolean;

myDate: TDateTime;

myYear, myMonth, myDay: Word;

implementation

{$R *.dfm}

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.ADOConnection1.Connected:=false;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

Form1.ADOConnection1.Connected:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

try

AssignFile(file_i,'conf.txt');

reset(file_i);

readLn(file_i, file_b);

form1.ADOConnection1.ConnectionString:=file_b;

Form1.ADOConnection1.Connected:=True;

CloseFile(file_i);

except

Form1.ADOConnection1.Connected:=false;

CloseFile(file_i);

buttonSelected:= MessageDlg('База не подключена, Настройте конфигурацию с БД, либо выйдите',mtError, mbOKCancel, 0);

if buttonSelected = mrOK then Form1.Show;

if buttonSelected = mrCancel then Application.Terminate;

end;

if(Form1.ADOConnection1.Connected=true) then

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

else

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

еnd;

procedure TForm1.N11Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form6.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form7.ShowModal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form4.ShowModal;

end;

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

CheckBox1: TCheckBox;

Button1: TButton;

procedure CheckBox1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm2.Button1Click(Sender: TObject);

begin

if(form2.Edit1.Text<>'') and(Form2.Edit2.Text<>'') and(Form2.Edit1.Text<>' ')and(Form2.Edit2.Text<>' ') then begin

if(Form1.ADOConnection1.Connected=false) then begin

try

Form1.ADOConnection1.Connected:=false;

Form1.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;';

Form1.ADOConnection1.Connected:=True;

ler:=true;

except

ler:=false;

ShowMessage('Имя сервера или название бд неверные');

Form2.Edit1.Clear;

Form2.Edit2.Clear;

end;

if(ler=true) then begin

file_b:=Form1.ADOConnection1.ConnectionString;

AssignFile(file_i, 'conf.txt'); // Связь переменной с файлом.

Rewrite(file_i); // Создания нового файла

write(file_i,file_b); // Запись строки в файл.

CloseFile(file_i);

ShowMessage('База Подключена');

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

Form2.Close;

end;

end else begin

if (Form1.ADOConnection1.Connected=false) then begin

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

Form1.Label1.Font.Color:=clRed;

Form1.Label1.Color:=clRed;

Form1.Cursor:=crAppStart;

end

else

begin

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

Form1.Label1.Color:=clGreen;

Form2.Edit1.Clear;

Form2.Edit2.Clear;

ShowMessage('База Подключена');

Form2.Close;

end;

else

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

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

if(Form2.CheckBox1.Checked=true) then begin

Form2.Edit2.Enabled:=false;

Form2.Edit2.Text:='sveta';

end

else begin

Form2.Edit2.Enabled:=true;

Form2.Edit2.Clear;

end;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Form2.Edit2.Text:='sveta';

Form2.Edit2.Enabled:=false;

end;

end.

unit Unit2;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

CheckBox1: TCheckBox;

Button1: TButton;

procedure CheckBox1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1;

rocedure TForm2.Button1Click(Sender: TObject);

begin

if(form2.Edit1.Text<>'') and(Form2.Edit2.Text<>'') and(Form2.Edit1.Text<>' ')and(Form2.Edit2.Text<>' ') then begin

if(Form1.ADOConnection1.Connected=false) then begin

try

Form1.ADOConnection1.Connected:=false;

Form1.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;';

Form1.ADOConnection1.Connected:=True;

ler:=true;

except

ler:=false;

ShowMessage('Имя сервера или название бд неверные');

Form2.Edit1.Clear;

Form2.Edit2.Clear;

end;

if(ler=true) then begin

file_b:=Form1.ADOConnection1.ConnectionString;

AssignFile(file_i, 'conf.txt'); // Связь переменной с файлом.

Rewrite(file_i); // Создания нового файла

write(file_i,file_b); // Запись строки в файл.

CloseFile(file_i);

ShowMessage('База Подключена');

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

Form2.Close;

end;

end else begin

if (Form1.ADOConnection1.Connected=false) then begin

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

Form1.Label1.Font.Color:=clRed;

Form1.Label1.Color:=clRed;

Form1.Cursor:=crAppStart;

end

else

begin

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

Form1.Label1.Color:=clGreen;

Form2.Edit1.Clear;

Form2.Edit2.Clear;

ShowMessage('База Подключена');

Form2.Close;

end;

else

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

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

if(Form2.CheckBox1.Checked=true) then begin

Form2.Edit2.Enabled:=false;

Form2.Edit2.Text:='sveta';

end

else begin

Form2.Edit2.Enabled:=true;

Form2.Edit2.Clear;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Form2.Edit2.Text:='sveta';

Form2.Edit2.Enabled:=false;

end;

unit Unit2;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

CheckBox1: TCheckBox;

Button1: TButton;

procedure CheckBox1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm2.Button1Click(Sender: TObject);

begin

if(form2.Edit1.Text<>'') and(Form2.Edit2.Text<>'') and(Form2.Edit1.Text<>' ') and(Form2.Edit2.Text<>' ') then begin

if(Form1.ADOConnection1.Connected=false) then begin

try

Form1.ADOConnection1.Connected:=false;

Form1.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;';

Form1.ADOConnection1.Connected:=True;

ler:=true;

except

ler:=false;

ShowMessage('Имя сервера или название бд неверные');

Form2.Edit1.Clear;

Form2.Edit2.Clear;

end;

if(ler=true) then begin

file_b:=Form1.ADOConnection1.ConnectionString;

AssignFile(file_i, 'conf.txt'); // Связь переменной с файлом.

Rewrite(file_i); // Создания нового файла

write(file_i,file_b); // Запись строки в файл.

CloseFile(file_i);

ShowMessage('База Подключена');

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

Form2.Close;

end;

end else begin

if (Form1.ADOConnection1.Connected=false) then begin

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

Form1.Label1.Font.Color:=clRed;

Form1.Label1.Color:=clRed;

Form1.Cursor:=crAppStart;

end

else

begin

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

Form1.Label1.Color:=clGreen;

Form2.Edit1.Clear;

Form2.Edit2.Clear;

ShowMessage('База Подключена');

Form2.Close;

end;

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

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

if(Form2.CheckBox1.Checked=true) then begin

Form2.Edit2.Enabled:=false;

Form2.Edit2.Text:='sveta';

end

else begin

Form2.Edit2.Enabled:=true;

Form2.Edit2.Clear;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Form2.Edit2.Text:='sveta';

Form2.Edit2.Enabled:=false;

end;

end. unit Unit5;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,

Vcl.ComCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls;

type

TForm5 = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

DBLookupComboBox1: TDBLookupComboBox;

DateTimePicker1: TDateTimePicker;

ComboBox1: TComboBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

ADOQuery2: TADOQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

ADOQuery2id_vedom: TAutoIncField;

ADOQuery2id_stud: TIntegerField;

ADOQuery2data: TWideStringField;

ADOQuery2summa: TIntegerField;

ADOQuery1: TADOQuery;

ADOQuery1id_stud: TAutoIncField;

ADOQuery1id_grup: TIntegerField;

ADOQuery1fio_stud: TStringField;

ADOQuery1id_grup_1: TAutoIncField;

ADOQuery1name_grup: TStringField;

procedure Edit1Change(Sender: TObject);

procedure ADOQuery1AfterScroll(DataSet: TDataSet);

procedure DBLookupComboBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

myDate: TDateTime;

tmDate: TDateTime;

kol:Integer;

i:integer;

myYear, myMonth, myDay: Word;

implementation

{$R *.dfm}

uses Unit1, Unit3;

procedure TForm5.ADOQuery1AfterScroll(DataSet: TDataSet);

begin

Form5.ADOQuery2.Filtered:=False;

Form5.ADOQuery2.Filter:='id_stud ='+IntToStr(ADOQuery1.FieldByName('id_stud').AsInteger);

Form5.ADOQuery2.Filtered:=True;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

myDate:=now;

tmDate:=Form5.DateTimePicker1.Date;

if(myDate<=tmDate) then

begin

ShowMessage('Введена дата больше существующей');

Form5.DateTimePicker1.Date:=now;

exit;

end;

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

if(Form5.DBLookupComboBox1.Text<>'')and(Form5.ComboBox1.Text<>'')and(Form5.ADOQuery1.RecordCount>0) then begin

myDate:=Form5.DateTimePicker1.Date;

DecodeDate(myDate,myYear, myMonth, myDay);

Form5.ADOQuery1.First;

kol:=Form5.ADOQuery1.RecordCount;

for i:=1 to kol do begin

Form5.ADOQuery2.Insert;

Form5.ADOQuery2.FieldByName('id_stud'). AsInteger:=Form5.ADOQuery1.FieldByName('id_stud').AsInteger;

Form5.ADOQuery2.FieldByName('summa').AsInteger: =StrToInt(Form5.ComboBox1.text);

Form5.ADOQuery2.FieldByName('data'). AsDateTime:=EncodeDate(myYear, myMonth,myDay);;

Form5.ADOQuery2.Post;

Form5.ADOQuery1.Next;

end;

end

else

begin

ShowMessage('Не все заполнено!!!');

end;

procedure TForm5.DBLookupComboBox1Click(Sender: TObject);

begin

Form5.ADOQuery1.Active:=false;

Form5.ADOQuery1.SQL.Text:='select * from grup,stud where grup.id_grup=stud.id_grup and grup.id_grup='+IntToStr(Form5.DBLookupComboBox1.KeyValue);

Form5.ADOQuery1.Active:=true;

end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

Form5.ADOQuery1.Close();

Form5.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 +'%''';

Form5.ADOQuery1.Open();

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

Form5.ComboBox1.ItemIndex:=0;

Form5.ADOQuery2.Active:=true;

end;

end.

unit Unit6;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,

Vcl.ComCtrls, Vcl.DBCtrls, frxClass, frxDBSet;

type

TForm6 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Button1: TButton;

ADOQuery1: TADOQuery;

frxDBDataset1: TfrxDBDataset;

DataSource1: TDataSource;

frxReport1: TfrxReport;

procedure DBLookupComboBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure DateTimePicker1Change(Sender: TObject);

procedure DateTimePicker2Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

myDate: TDateTime;

tmDate: TDateTime;

myYear, myMonth, myDay: Word;

tmYear, tmMonth, tmDay: Word;

gupDate:TDateTime;

gupYear, gupMonth, gupDay: Word;

implementation

{$R *.dfm}

uses Unit1, Unit4, Unit3;

procedure TForm6.Button1Click(Sender: TObject);

begin

if(Form6.DBLookupComboBox1.Text<>'') then begin

myDate:=Form6.DateTimePicker1.Date;

tmDate:=Form6.DateTimePicker2.Date;

Form6.ADOQuery1.Active:=False;

DecodeDate(myDate,myYear, myMonth, myDay);

DecodeDate(tmDate,tmYear, tmMonth, tmDay);

Form6.ADOQuery1.Parameters.ParamByName('D1').Value:=EncodeDate(myYear,myMonth,01);

Form6.ADOQuery1.Parameters.ParamByName('D2').Value:=EncodeDate(tmYear, tmMonth,tmDay);

Form6.ADOQuery1.Active:=true;

Form6.frxReport1.ShowReport;

end

else

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

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

Form6.frxReport1.ShowReport;

end;

procedure TForm6.DateTimePicker1Change(Sender: TObject);

begin

myDate:=now;

tmDate:=Form6.DateTimePicker1.Date;

DecodeDate(myDate, myYear, myMonth, myDay);

DecodeDate(gupDate,gupYear, gupMonth, gupDay);

if(myDate<tmDate) then

begin

ShowMessage('Введена дата больше существующей');

Form6.DateTimePicker1.Date:=now;

exit;

end;

procedure TForm6.DateTimePicker2Change(Sender: TObject);

begin

myDate:=now;

tmDate:=Form6.DateTimePicker2.Date;

DecodeDate(myDate, myYear, myMonth, myDay);

DecodeDate(gupDate,gupYear, gupMonth, gupDay);

if(myDate<tmDate) then

begin

ShowMessage('Введена дата больше существующей');

Form6.DateTimePicker2.Date:=now;

exit;

end;

procedure TForm6.DBLookupComboBox1Click(Sender: TObject);

begin

Form6.ADOQuery1.Parameters.ParamByName('d').Value:=Form6.DBLookupComboBox1.KeyValue;

end;

procedure TForm6.FormCreate(Sender: TObject);

begin

Form6.ADOQuery1.Active:=true;

end;

Размещено на Allbest.ru