Автоматизированная информационная система страхового агента

Благодаря такой возможности приложения, изготовленные  при помощи Delphi, работают надежно  и устойчиво. Delphi поддерживает использование  уже существующих объектов, включая DLL, написанные на С и С++, OLE сервера, VBX, объекты, созданные при помощи Delphi. Из готовых компонент работающие приложения собираются очень быстро. Кроме того, поскольку Delphi имеет полностью объектную ориентацию, разработчики могут создавать свои повторно используемые объекты для того, чтобы уменьшить затраты на разработку.

Delphi предлагает  разработчикам - как в составе  команды, так и индивидуальным - открытую архитектуру, позволяющую  добавлять компоненты, где бы  они ни были изготовлены, и  оперировать этими вновь введенными компонентами в визуальном построителе. Разработчики могут добавлять CASE-инструменты, кодовые генераторы, а также авторские help’ы, доступные через меню Delphi.

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

Этот костяк называется Visual Component Library (VCL). В VCL есть такие стандартные элементы управления, как строки редактирования, статические элементы управления, строки редактирования со списками, списки объектов. Еще имеются такие компоненты, которые ранее были доступны только в библиотеках третьих фирм: табличные элементы управления, закладки, многостраничные записные книжки. Все объекты разбиты на страницы по своей функциональности и представлены в палитре компонент.

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

Здесь следует  отметить, что обычных ограничений, присущих средам визуальной разработки, в Delphi нет. Сам Delphi написан при помощи Delphi, что говорит об отсутствии таких ограничений.

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

Формы, модули и метод разработки "Two-Way Tools".

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

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

Такая синхронизация  и делает Delphi two-way-инструментом, обеспечивая  полное соответствие между кодом  и визуальным представлением. Как  только добавляется новый объект или код, Delphi устанавливает “кодовую синхронизацию” между визуальными элементами и соответствующими им кодовыми представлениями.

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

После запуска Delphi в верхнем окне горизонтально  располагаются иконки палитры компонент. Если курсор задерживается на одной из иконок, под ней в желтом прямоугольнике появляется подсказка

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

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

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

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

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

Заключение

 

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

Список  литературы

 

   1. Рудикова  Л.В. Базы данных. Разработка приложений. – СПб.: БХВ-Петербург, 2006. – 496 с.

   2. Сенов  А. Access 2003. Практическая разработка  баз данных (+CD). Учебный курс. –  СПб.: Питер, 2005. – 256 с.

   3. Теория  и практика построения баз  данных. 8-е изд./Д. Крёнке. – СПб.: Питер, 2003.-

      800с.

   4. Рычка И.А. БАЗЫ ДАННЫХ. Методические указания к выполнению курсового проектирования для студентов специальности 080801 «Прикладная информатика (в экономике)». Петропавловск-Камчатский, 2008.

   5. Интернет-сайты:

      http://www.allbest.ru/ 
 
 
 
 
 
 

Приложение

 

    Файл head.pas. Модуль главного окна  приложения

      unit Head;

      interface

      uses

        Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

        Dialogs, Menus, ComCtrls, DB, ADODB, StdCtrls, Grids, DBGrids,

        KlassEdit,KlassDelete,YchenikEdit,YchenikDelete,BuildSchoolTest,KlassTest,geScale,

        SchoolTest,Normativ,Teacher,Teacheredit;

      type

        TForm1 = class(TForm)

      PageControl1: TPageControl;

          MainMenu1: TMainMenu;

          TabSheet1: TTabSheet;

          TabSheet2: TTabSheet;

          TabSheet3: TTabSheet;

          N1: TMenuItem;

          N12: TMenuItem;

          DBGrid1: TDBGrid;

          ComboBox1: TComboBox;

          ADOConnection1: TADOConnection;

          KlassQuery: TADOQuery;

          KlassSource: TDataSource;

          N2: TMenuItem;

          N21: TMenuItem;

          N22: TMenuItem;

          N23: TMenuItem;

          MaleDBGrid: TDBGrid;

          FemaleDBGrid: TDBGrid;

          Male: TADOQuery;

          female: TADOQuery;

          MaleSource: TDataSource;

          FemaleSource: TDataSource;

          N24: TMenuItem;

          N241: TMenuItem;

          N242: TMenuItem;

          N243: TMenuItem;

          Label2: TLabel;

          Label3: TLabel;

          Test: TADOQuery;

          TestSource: TDataSource;

          Label1: TLabel;

          TestDBGrid: TDBGrid;

          Label4: TLabel;

          N3: TMenuItem;

          N33: TMenuItem;

          N34: TMenuItem;

          ListYchenik: TPopupMenu;

          NY1: TMenuItem;

          NY2: TMenuItem;

          NY3: TMenuItem;

          Label5: TLabel;

          Label6: TLabel;

          forall: TADOQuery;

          N4: TMenuItem;

          N42: TMenuItem;

          N9: TMenuItem;

          N10: TMenuItem;

          N13: TMenuItem;

    procedure N12Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure N21Click(Sender: TObject);

    procedure N22Click(Sender: TObject);

    procedure N23Click(Sender: TObject);

    procedure PageControl1Changing(Sender: TObject; var AllowChange: Boolean);

    procedure TabSheet2Show(Sender: TObject);

    procedure N241Click(Sender: TObject);

    procedure N242Click(Sender: TObject);

    procedure FemaleDBGridMouseEnter(Sender: TObject);

    procedure MaleDBGridMouseEnter(Sender: TObject);

    procedure TabSheet1Show(Sender: TObject);

    procedure N243Click(Sender: TObject);

    procedure TabSheet3Show(Sender: TObject);

    procedure N33Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure TestDBGridDblClick(Sender: TObject);

    procedure DBGrid1DblClick(Sender: TObject);

    procedure ListYchenikPopup(Sender: TObject);

    procedure MaleDBGridCellClick(Column: TColumn);

   procedure N34Click(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure N42Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

procedure ConnectDb;

procedure ShowData;

procedure showYchenik;

      var

        Form1: TForm1;

        mx,my:integer;

      implementation

      {$R *.dfm}

      procedure ConnectDb;{подключение к бд}

      var s:string;

      begin

      s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'data\school.mdb;Persist Security Info=False';

      try

        form1.ADOConnection1.ConnectionString:=s;

        form1.ADOConnection1.Connected:=true;

       form1.KlassQuery.Connection:=form1.ADOConnection1;

      except

        showmessage('ошибка подключения');

      end;

      end;

      procedure ShowData; {отображение списка классов  с заданным фильтром}

      Var s:array [1..2] of string;

          tm,e:integer;

      begin

        Val(copy(DateToStr(Date),4,2),tm,e);

      if tm