Проектирование автоматизированной информационной системы «Адресная книга

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

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables, ImgList, ADODB, Menus, DBCtrls, RpRave;Paradox  - библиотеки программ на языке Delphi, которые можно объединить с любой прикладной программой на языке Delphi. В большинстве современных систем общий доступ к данным можно осуществить лишь при выполнении дополнительных операций - обычно файлы одной операционной среды переводятся в форматы другой,

и наоборот. Если при анализе задачи выясняется, что исходные данные хранятся в разных системах, то проблемы обобщения становятся важной областью решения задачи.

Технология ADO

Эта технология представляет собой высокоуровневый программный интерфейс для доступа к OLE DB – интерфейсам. Он позволяет манипулировать данными с помощью любых OLE DB – провайдеров в составе Data Access Components.

Создание справочной системы.

Процесс преобразования HTML-документа в справочную систему называют компиляцией. Исходной информацией для компилятора справочной системы являются HTML-файлы, файлы иллюстраций и файл проекта.

Чтобы создать справочную систему, нужно:

• подготовить файлы справочной информации;

• создать файл проекта;

• создать файл контекста (содержания);

• выполнить компиляцию.

Подготовка справочной информации

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

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

 

 

 

Требования к технике и эксплуатации АИС

 

Для эксплуатации и надежного функционирования программы, ПЭВМ должна отвечать следующим минимальным требованиям:

• Microsoft Windows XP_SP1

• 128 МБ ОЗУ 

• 75 МБ памяти на жестком диске

• Процессор AMD 0,75 GHz  и выше

• CD/DVD-ROM/RW – привод

• Принтер

 

Руководство программиста:

Эксплуатация программы проводится, как и учебных, так и домашних условиях. Каких либо других дополнительных компонентов для продукта не требуется.

 

Описание языка:

Данный продукт полностью на русском языке.

 

Описание программного обеспечения АИС

 

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

Удобный интерфейс и оформление программы  предполагает  на стабильную работу пользователя с продуктом.

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

Рис. 6 Основное окно программы «Адресная книга»

 

Компонент DBLookupListBox – организует список типов оборудования, так же в данном компоненте осуществлялся вывод информационного списка.

 

Компоненты DBEdit, DBMemo - осуществляют структурированный и распределенный вывод данных по отсортированной базе.

Компонент Button - обеспечивает управления данными по запланированным схемам взаимодействия.

Компонент Edit - Поле для ввода занчений.

Компоненты ADOQuery, AdoTable и DataSource – необходимы для привязки к окнам вывода информации таблиц из базы данных, так же эти компоненты были использованы для организации подстановки полей(текстовых значений вместо цифровых ключей).

 

Окно добавления:

Рис. 7 Добавление физического лица

 

Компоненты ADOQuery и DataSource – необходимы для привязки к окнам вывода информации таблиц из базы данных.

Компонент Button - обеспечивает управления данными по запланированным схемам взаимодействия.

Компонент MaskEdit - средство подстановки даты, по маске ввода.

Документация по эксплуатации АИС

 

Для начала работы с программой нужно выгрузить на локальный диск папку  «Адресная книга» в которой содержатся файл запуска и база данных. Далее запустить  файл “Project1.exе”, который содержится в папке «Адресная книга». После запуска программы можно приступить к работе:

Добавление данных

Для добавления одного из контактов выбираем в меню "Данные добавить" тип добавляемого контакта:

• Физический
• Юридический

 

Вид окна Юридического контакта:

Рис. 7 Добавление юридического лица

 

Вид окна добавления Физического контакта:

Рис. 8 Добавление физического лица

 

Заполняем данные по контакту и нажимаем кнопку «добавить».

 

Поиск Физического контакта по фамилии

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

Выбрав один контакт из списка, в этом же окне можно просмотреть его данные.

 

 

Вид окна поиска Физического контакта:

Рис. 9 Окно просмотра физических лиц

 

Поиск Юридического контакта по фамилии

Принцип поиска юридических лиц аналогичен поиску по физическим лицам.

 

 

Вид окна поиска Юридического контакта:

Рис. 10 Окно просмотра юридических лиц

 

Заключение

 

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

Результатом курсовой работы является прикладная программа «Адресная книга». Программа предназначена для хранения информации об адресах физических и юридических лиц на языке программирования Borland Delphi и полностью на  русском языке.

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

 

 

 

Список используемой литературы

 

1. Разработка и эксплуатация АИС – Л.Г. Гагарина, Д.В.Киселев, Е.Л.Федотова.

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

3. Фаронов В.В., Delphi. Программирование на языке высокого уровня: Учебник для вузов – СПб.: Питер, 2005.Вендров A.M. Проектирование программного обеспечения экономических информационных систем.- М.: Финансы и статистика, 2002.

4. «Основы программирования в DELPHI» Никита Культин., 2005г

5. В.А.Благодатских, В.А.Волнин, К.Ф.Поскакалов; Под ред. О.С.Разумова. – М.: Финансы и статистика, 2003. – 288 с.:ил.  Стандартизация разработки программных средств.

6. Томас А.Пауэлл. М.: Санкт – Петербург «БХВ - Петербург», 2003. – 1072 с.:ил. WEB – Дизайн 2е изд.

 

 

Приложение А

 

Данная форма это основное информационное окно программы. Где можно получить информацию (ФИО, номер телефона, электронный адрес, сайт, место жительства) как о физических лицах так и о юридических. Так же через данное окно программы  есть возможность вызвать остальные формы.

 

unit Unit1;

interface

uses

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

  Dialogs, Menus, StdCtrls, ComCtrls, DBCtrls, DB, ADODB, Mask, RpBase,

  RpSystem, RpDefine, RpCon, RpConDS, ShellApi;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    Label1: TLabel;

    Edit1: TEdit;

    GroupBox1: TGroupBox;

    DBLookupListBox1: TDBLookupListBox;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    Button1: TButton;

    DBEdit1: TDBEdit;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    ADOQuery1n_p: TIntegerField;

    ADOQuery1imia: TWideStringField;

    ADOQuery1otch: TWideStringField;

    ADOQuery1fam: TWideStringField;

    ADOQuery1Dolgnost: TWideStringField;

    ADOQuery1mesto_rab: TIntegerField;

    ADOQuery1god_r: TDateTimeField;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    ADOTable1: TADOTable;

    DataSource2: TDataSource;

    ADOQuery1pr: TStringField;

    Label6: TLabel;

    Button2: TButton;

    Button3: TButton;

    Label7: TLabel;

    Edit2: TEdit;

    GroupBox2: TGroupBox;

    DBLookupListBox2: TDBLookupListBox;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    ADOQuery2: TADOQuery;

    DataSource3: TDataSource;

    ADOQuery2Kod_p: TIntegerField;

    ADOQuery2pol_naz: TWideStringField;

    ADOQuery2ob_naz: TWideStringField;

    ADOQuery2kol_s: TIntegerField;

    ADOQuery2Data_s: TDateTimeField;

    ADOQuery2n_kon: TIntegerField;

    Label8: TLabel;

    DBMemo1: TDBMemo;

    DBEdit6: TDBEdit;

    Label9: TLabel;

    Label10: TLabel;

    DBEdit7: TDBEdit;

    GroupBox3: TGroupBox;

    GroupBox4: TGroupBox;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    ADOQuery3: TADOQuery;

    ADOQuery3n_p: TIntegerField;

    ADOQuery3e_mail: TWideStringField;

    ADOQuery3tel: TWideStringField;

    ADOQuery3adres: TWideStringField;

    DataSource4: TDataSource;

    DBEdit8: TDBEdit;

    DBEdit9: TDBEdit;

    DBMemo2: TDBMemo;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    DBEdit10: TDBEdit;

    DBEdit11: TDBEdit;

    DBEdit12: TDBEdit;

    DBMemo3: TDBMemo;

    RvDataSetConnection1: TRvDataSetConnection;

    RvSystem1: TRvSystem;

    ADOQuery4: TADOQuery;

    DataSource5: TDataSource;

    ADOQuery4n_kon: TIntegerField;

    ADOQuery4e_mail: TWideStringField;

    ADOQuery4Tel: TIntegerField;

    ADOQuery4site: TWideStringField;

    ADOQuery4adres: TWideStringField;

    RvDataSetConnection2: TRvDataSetConnection;

    RvSystem2: TRvSystem;

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Button2Click(Sender: TObject);

    procedure DBLookupListBox1Click(Sender: TObject);

    procedure RvSystem1Print(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure DBLookupListBox2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure RvSystem2Print(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure TabSheet1ContextPopup(Sender: TObject; MousePos: TPoint;

      var Handled: Boolean);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

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

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

zap:string;

begin

  if DBLookupListBox1.KeyValue=null then MessageDlg('Выберите контакт!',mtInformation,[mbok],0)

  else

  begin

    zap:=DBLookupListBox1.KeyValue;

    Form4.ADOQuery1.SQL.Clear;

    Form4.ADOQuery1.SQL.Add('SELECT *');

    Form4.ADOQuery1.SQL.Add('FROM f_kon');

    Form4.ADOQuery1.SQL.Add('WHERE f_kon.n_p='+zap+';');

    Form4.ADOQuery1.Active:=True;

    Form4.ShowModal;

    end;

    end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var

zapr:string;

begin

zapr:=Edit1.Text;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT fiz.*');

ADOQuery1.SQL.Add('FROM fiz');

ADOQuery1.SQL.Add('WHERE fiz.fam Like "%'+zapr+'%"');

ADOQuery1.Active:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

zap:string;

begin

if DBLookupListBox1.KeyValue=null then MessageDlg('Выберите контакт!',mtInformation,[mbok],0)

  else

  begin

    zap:=DBLookupListBox1.KeyValue;

    Form5.ADOQuery1.SQL.Clear;

    Form5.ADOQuery1.SQL.Add('SELECT *');

    Form5.ADOQuery1.SQL.Add('FROM fiz');

    Form5.ADOQuery1.SQL.Add('WHERE fiz.n_p='+zap+';');

    Form5.ADOQuery1.Active:=True;

    Form5.ShowModal;

end;

end;

procedure TForm1.DBLookupListBox1Click(Sender: TObject);

var

zap:string;

begin

zap:=DBLookupListBox1.KeyValue;

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.Add('SELECT f_kon.*');

ADOQuery3.SQL.Add('FROM f_kon');

ADOQuery3.SQL.Add('WHERE f_kon.n_p='+zap+';');

ADOQuery3.Active:=True;

end;

procedure TForm1.RvSystem1Print(Sender: TObject);

begin

      begin

     with Sender as TBaseReport do

      begin

        NewLine;

          SetFont('Arial',18);

          FontColor := clBlue;

          Print(' Визитка');

          NewLine;

          Print(' Контакт: '+ADOQuery1fam.Text+' '+ADOQuery1imia.Text+' '+ADOQuery1otch.Text+'');

          NewLine;

          Print(' Дата рождения: : '+ADOQuery1god_r.Text+'');

          NewLine;

          Print(' Должность: '+ADOQuery1Dolgnost.Text+' Место работы: '+ADOQuery1pr.Text+'');

          NewLine;

          Print(' e - mail: '+ADOQuery3e_mail.Text+'');

          NewLine;

          Print(' Телефон: '+ADOQuery3tel.Text+'');

          NewLine;

          Print(' Адрес: '+ADOQuery3adres.Text+'');

          NewLine;

        end;

end;