Дипломная работа _32. Содержание Введение глава теоретическая часть введение в базы данных Классификация и функции субд описание процесса учета договоров на предприятии глава постановка задачи
 Скачать 189.19 Kb.
|
5.5 Рекомендации по освоениюДля освоения описываемого приложения пользователю достаточно опыта работы в самых обычных Windows – приложениях, поскольку интерфейс программы прост, и все его элементы снабжены всплывающими подсказками. Для закрепления навыков пользователю предоставляется возможность произвести базовые операции работы с базой данных. А также администратор может предоставить пользователю фиктивную БД, с которой можно отработать основные операции, реализуемые программой, после чего приступать к работе с реальной БД. ЗаключениеВ рамках данного дипломного проекта была разработана система автоматизированного учета для заполнения финансовой первичной документации. Приложение "Law" достаточно эффективно решает поставленную задачу, простой и понятный интерфейс программы доступен любому пользователю, имеется весь необходимый набор операций для выполнения поставленных задач. К достоинствам программы следует причислить отсутствие требования знаний СУБД к пользователю, возможность экспорта данных в средства Ms Office, а так же различные виды печати и богатый набор функций и инструментов для работы с данными. Программа "Law" предназначена для автоматизации заполнения первичной документации занимающихся ведением отчетности (учетом договоров, для небольших предприятий. Приложение предназначено для работы юристов, или каких-либо других работников данной сферы. Для крупных предприятий данное приложение не подходит, так как не удовлетворяет всем требованиям. Программа, удовлетворяет всем требованиям и при ее использовании заметно снижается трудоемкость и время заполнения необходимой документации. Список использованных источников 1. Томас К., Каролин Б., Анна С. Базы данных. Проектирование, реализация и сопровождение. Теория и практика, Второе издание исправленное и дополненное, Вильяис, М. – 2000г. 2. Джен Харрингтон Проектирование объектно-реляционных баз данных, ДМК издательство, М. – 2000г.3. Глушаков С.В., Ломотько Д.В. Базы Данных.Учебный курс, издательство АСТ, М. – 2002г. 4. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: учебник, финансы и статистика, М. – 2003г. 5. Малыхина M. П. Базы данных: основы, проектирование, использование, СПб., БВХ-Петербург, 2004г. 6. Кириллов В.В. Структуризованный язык запросов (SQL). СПб.: ИТМО, 1994г. Приложение А (обязательное) Описание модулей программы Основной модуль программы -MainUnit //--------------------------------------------------------------------------- #include #pragma hdrstop #include "DataModule.h" #include "MainUnit.h" #include "Saw21.h" #include "Unit2.h" #include "Unit3.h" #include "Unit13.h" #include "Unit14.h" #include "Unit15.h" #include "Unit16.h" #include "Unit17.h" #include "Unit18.h" #include "Unit19.h" #include "Unit20.h" #include "Unit21.h" #include "Unit22.h" #include "Unit25.h" #include "Unit26.h" #include "ContractorDiagram.h" #include "DateAgreemDiagram.h" #include "ObjectAgreemDiagramm.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "CSPIN" #pragma link "FR_Class" #pragma link "FR_Chart" #pragma link "FR_ChBox" #pragma link "FR_DCtrl" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { RadioButton3->Checked=false; /*Установка видимости компонентов при создании формы */ Edit1->Text="by Evgen Corp. version1.0(Demo)"; ToolButton9->Enabled=false; EditObjAgreem->Visible=false; // DataModule2->Table1->Active=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::N15Click(TObject *Sender) { DataModule2->Table1->IndexFieldNames="Register_number";/*Сортировка по регистрационному номеру */ } //--------------------------------------------------------------------------- void __fastcall TForm1::N16Click(TObject *Sender) { DataModule2->Table1->IndexFieldNames="Juridical_number";/* Сортировка по юридическому номеру*/ } //--------------------------------------------------------------------------- void __fastcall TForm1::N17Click(TObject *Sender) { DataModule2->Table1->IndexFieldNames="Contractor";/* Сортировка по контрагенту */ } //--------------------------------------------------------------------------- void __fastcall TForm1::N18Click(TObject *Sender) { FormBySort->ShowModal(); /Вызов формы сортировки } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { if(RadioButton3->Checked==true)/*При выборе включаем фльтр*/ DataModule2->Table1->Filtered=false; else { if (RadioButton1->Checked==true) DataModule2->Table1->Filter="Contractor='"+CBContract->Text+"'";/*Фильтр по контрагенту*/ else if(RadioButton2->Checked==true) { DataModule2->Table1->Filter="Object_agreement='"+EditObjAgreem->Text+"'";/*Фильтр по предмету договора*/ } else DataModule2->Table1->Filter= "(Contractor='"+CBContract->Text+"') and (Object_agreement="+(DataModule2->Table1->FieldByName("Object_agreement")->AsString+EditObjAgreem->Text)+")";/*Фильтр по контрагенту и предмету договора*/ } DataModule2->Table1->Filtered=false;/*Выключаем фильтр*/ DataModule2->Table1->Refresh(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N9Click(TObject *Sender) { Form2->ShowModal();//Вызов формы "Добавить договор" } //--------------------------------------------------------------------------- void __fastcall TForm1::N10Click(TObject *Sender) { Form3->ShowModal();//Вызов формы "Редактировать договор" Form3->Position=poOwnerFormCenter;/*Установка свойств формы(позиция и стиль)*/ Form3->BorderStyle=bsToolWindow; } //--------------------------------------------------------------------------- void __fastcall TForm1::N11Click(TObject *Sender) { if(Application->MessageBox("Вы действительно хотите удалить запись?","Подтвердите удаление записи!",MB_YESNO+MB_ICONEXCLAMATION)==IDYES) DataModule2->Table1->Delete(); DataModule2->Table1->Refresh(); } //--------------------------------------------------------------------------- void __fastcall TForm1::ToolButton13Click(TObject *Sender) { Form1->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::ToolButton5Click(TObject *Sender) { if(DataModule2->Table1->Modified==true)//Сохраняем изменения в базе DataModule2->Table1->Post(); ShowMessage("Вы сохранили изменнения в таблице!!"); } //--------------------------------------------------------------------------- void __fastcall TForm1::DBGrid1DblClick(TObject *Sender) { Form3->ShowModal();//Вызов формы "Редактировать договор" Form3->Position=poOwnerFormCenter; Form3->BorderStyle=bsToolWindow; } //--------------------------------------------------------------------------- void __fastcall TForm1::ToolButton11Click(TObject *Sender) { DataModule2->Table1->Next();//Переходим на след. запись } //--------------------------------------------------------------------------- void __fastcall TForm1::N6Click(TObject *Sender) { if(DataModule2->Table1->Modified==true)//Сохраняем изменения в таблице DataModule2->Table1->Post(); ShowMessage("Вы сохранили изменнения в таблице!!"); } //--------------------------------------------------------------------------- void __fastcall TForm1::ToolButton3Click(TObject *Sender) { Form2->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::ToolButton7Click(TObject *Sender) { ReportAgreem->QuickRep1->Print();//Печать } //--------------------------------------------------------------------------- void __fastcall TForm1::N27Click(TObject *Sender) { ReportAgreem->QuickRep1->Preview();//Предварительный просмотр перед //печатью } //--------------------------------------------------------------------------- void __fastcall TForm1::QuickReport1Click(TObject *Sender) { ReportAgreem->QuickRep1->Print(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Form14->QuickRep1->Preview(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { Form14->QuickRep1->Print(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { Form15->ShowModal(); Form15->Position=poOwnerFormCenter; Form15->BorderStyle=bsToolWindow; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button6Click(TObject *Sender) { if(Application->MessageBox("Вы действительно хотите удалить запись?","Подтвердите удаление записи!",MB_YESNO+MB_ICONEXCLAMATION)==IDYES) DataModule2->Table2->Delete(); DataModule2->Table2->Refresh(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { Form16->ShowModal(); Form16->Position=poOwnerFormCenter; Form16->BorderStyle=bsToolWindow; } //--------------------------------------------------------------------------- void __fastcall TForm1::DBGrid2DblClick(TObject *Sender) { Form16->ShowModal(); Form15->Position=poOwnerFormCenter; Form15->BorderStyle=bsToolWindow; } void __fastcall TForm1::N29Click(TObject *Sender) { Form17->ShowModal(); Form15->Position=poOwnerFormCenter; Form15->BorderStyle=bsToolWindow; } //--------------------------------------------------------------------------- void __fastcall TForm1::N8Click(TObject *Sender) { Form1->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N110Click(TObject *Sender) { Form18->ShowModal(); Form15->Position=poOwnerFormCenter; Form15->BorderStyle=bsToolWindow; } //--------------------------------------------------------------------------- void __fastcall TForm1::N30Click(TObject *Sender) { Form19->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N35Click(TObject *Sender) { Form22->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::MsWord1Click(TObject *Sender) { Form20->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N7Click(TObject *Sender) { DBGrid1->Visible=true; DBGrid2->Visible=true; EditObjAgreem->Visible=true; Edit1->Visible=false; Memo1->Visible=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::N13Click(TObject *Sender) { DataModule2->Table1->Filtered=false; DataModule2->Table1->Active=false; DataModule2->Table1->Active=true; RadioButton1->Checked=false; RadioButton2->Checked=false; RadioButton3->Checked=false; RadioButton4->Checked=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::MsWord21Click(TObject *Sender) { Form23->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N37Click(TObject *Sender) { DataModule2->Table3->Active=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::N38Click(TObject *Sender) { DataModule2->Table3->Active=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::N39Click(TObject *Sender) { Form25->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N40Click(TObject *Sender) { Form26->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N41Click(TObject *Sender) { Form2->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N42Click(TObject *Sender) { Form3->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N43Click(TObject *Sender) { if(Application->MessageBox("Вы действительно хотите удалить запись?","Подтвердите удаление записи!",MB_YESNO+MB_ICONEXCLAMATION)==IDYES) DataModule2->Table1->Delete(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N44Click(TObject *Sender) { DataModule2->Table1->Filtered=false; DataModule2->Table1->Active=false; DataModule2->Table1->Active=true; RadioButton1->Checked=false; RadioButton2->Checked=false; RadioButton3->Checked=false; RadioButton4->Checked=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::N45Click(TObject *Sender) { Form25->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N46Click(TObject *Sender) { Form26->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N47Click(TObject *Sender) { ReportAgreem->QuickRep1->Preview(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N48Click(TObject *Sender) { Form20->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N49Click(TObject *Sender) { Form15->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N50Click(TObject *Sender) { Form16->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N51Click(TObject *Sender) { DataModule2->Table2->Delete(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N52Click(TObject *Sender) { Form14->QuickRep1->Preview(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N12Click(TObject *Sender) |