Проектирование информационной системы "Страховая компания"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
овой работы.
Полученная база данных позволяет без специальных знаний обращаться к информации, отраженной в таблицах, добавлять, изменять, удалять и просматривать все имеющиеся и вводимые данные.
Удобный и понятный интерфейс, располагающий такими элементами, как таблицы, списки, кнопки и др. позволяет быстро проанализировать информацию по введенному запросу, и предлагает наглядное представление результатов.
Разработанная база данных может быть применена для систематизации информации, хранимой в страховых компаниях, и автоматизации процесса пользования этой информацией.
В свете широкого использования IT-технологий, представленная курсовая работа является актуальной и отвечает предъявленным к ней требованиям. Проект разработан и написан на языке программирования высокого уровня Borland Delphi 7.0 с использованием языка SQL.
Список использованной литературы
1. Архангельский А. Я. Программирование в Delphi 5. - М. : ЗАО Издательство БИНОМ, 2000. - 1070 c.
. Гофман В. Э., Хомоненко А. Д. Delphi. Быстрый старт. - СПб. : БХВ - Санкт-Петербург, 2002. - 208 с.
. Культин Н. Б. Delphi 6. Программирование на Object Pascal. Самоучитель. - СПб. : БХВ-Петербург, 2001. - 528 с.
. Фаронов В. В. Delphi 6. Учебный курс. - М. : Издатель Молгачева С. В., 2002. - 672 с.
. Фаронов В. В., Шумаков П. В. Delphi 5. Руководство разработчика баз данных. - М. : Нолидж, 2000. - 640 с.
. Хендерсон К. Руководство разработчика баз данных в Delphi 2 / Пер. с англ. - К. : Диалектика, 1996. - 544 с.
Приложение
Листинг программы
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DB, DBCtrls, Grids, DBGrids, DBTables, ComCtrls,, Spin;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TTable;: TDataSource;: TTable;: TTable;: TDataSource;: TDataSource;ID_polisa: TIntegerField;Kod_agenta: TIntegerField;Kod_klienta: TIntegerField;Kod_sobitiya_strahovaniya: TIntegerField;Srok_dejstviya_do: TDateField;Periodi4nost_vznosov: TIntegerField;Summa_vznosov: TCurrencyField;Summa_viplat: TCurrencyField;Gonorar: TCurrencyField;Data_sostavleniya: TDateField;ID_otdela: TIntegerField;Nazvanie_otdela: TStringField;Rukovoditel_otdela: TStringField;ID_sobitiya_strahovaniya: TIntegerField;Sobitie_strahovaniya: TStringField;: TTable;: TTable;: TDataSource;: TDataSource;ID_agenta: TIntegerField;FIO_agenta: TStringField;Kod_otdela: TIntegerField;Oklad: TCurrencyField;ID_klienta: TIntegerField;FIO_klienta: TStringField;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TEdit;: TEdit;: TLabel;: TLabel;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TButton;: TButton;: TTabSheet;: TButton;: TDBGrid;: TQuery;: TDataSource;: TEdit;: TEdit;: TLabel;: TLabel;: TPanel;: TPanel;: TButton;: TButton;: TEdit;: TLabel;: TQuery;: TDataSource;: TDBGrid;: TQuery;: TDataSource;: TDBGrid;: TPanel;: TPanel;: TTabSheet;: TLabel;: TLabel;: TDBGrid;: TDBNavigator;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TRadioGroup;: TEdit;: TButton;: TComboBox;: TLabel;: TComboBox;: TPanel;: TPanel;: TPanel;: TPanel;: TPanel;Button1Click(Sender: TObject);RadioGroup1Click(Sender: TObject);FormCreate(Sender: TObject);Button2Click(Sender: TObject);Button4Click(Sender: TObject);Button3Click(Sender: TObject);Button5Click(Sender: TObject);Button7Click(Sender: TObject);Button9Click(Sender: TObject);Button8Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;, Month, Day: Word;
{$R *.dfm}TForm1.Button1Click(Sender: TObject);.Insert;ID_polisa.Value:=StrToInt(Edit1.Text);Kod_agenta.Value:=StrToInt(Edit2.Text);Kod_klienta.Value:=StrToInt(Edit3.Text);Kod_sobitiya_strahovaniya.Value:=StrToInt(Edit4.Text);Srok_dejstviya_do.Value:=StrToDate(Edit5.Text);Periodi4nost_vznosov.Value:=StrToInt(Edit6.Text);Summa_vznosov.Value:=StrToInt(Edit7.Text);Summa_viplat.Value:=StrToInt(Edit8.Text);Gonorar.Value:=StrToInt(Edit9.Text);Data_sostavleniya.Value:=StrToDate(Edit10.Text);.Post;;TForm1.RadioGroup1Click(Sender: TObject);.Filtered:=true;RadioGroup1.ItemIndex=0 then Table1.Filtered:=false elseRadioGroup1.ItemIndex=1 then.Filter:='Kod_sobitiya_strahovaniya='''+ComboBox1.Text+'''' elseRadioGroup1.ItemIndex=2 then.Filter:='Srok_dejstviya_do<='''+Edit22.Text+'''' elseRadioGroup1.ItemIndex=3 then.Filter:='Kod_agenta='''+ComboBox2.Text+'''';;TForm1.FormCreate(Sender: TObject);(date,year,month,day);;TForm1.Button2Click(Sender: TObject);.Insert;ID_otdela.Value:=StrToInt(Edit11.Text);Nazvanie_otdela.Value:=Edit12.Text;Rukovoditel_otdela.Value:=Edit13.Text;.Post;;TForm1.Button4Click(Sender: TObject);.Insert;ID_agenta.Value:=StrToInt(Edit14.Text);FIO_agenta.Value:=Edit15.Text;Kod_otdela.Value:=StrToInt(Edit16.Text);Oklad.Value:=StrToInt(Edit17.Text);.Post;;TForm1.Button3Click(Sender: TObject);.Insert;ID_sobitiya_strahovaniya.Value:=StrToInt(Edit18.Text);Sobitie_strahovaniya.Value:=Edit19.Text;.Post;;TForm1.Button5Click(Sender: TObject);.Insert;ID_klienta.Value:=StrToInt(Edit20.Text);FIO_klienta.Value:=Edit21.Text;.Post;;TForm1.Button7Click(Sender: TObject);.Active:=false;.ParamByName('data1').AsDate:=strtodate(Edit24.Text);.ParamByName('data2').AsDate:=strtodate(Edit25.Text);.Active:=true;;TForm1.Button9Click(Sender: TObject);.Active:=false;.Active:=true;;TForm1.Button8Click(Sender: TObject);.Active:=false;.ParamByName('data3').AsDate:=strtodate(Edit26.Text);.Active:=true;;.