Проектирование и разработка автоматизированного рабочего места для участкового уполномоченного полиции

Система обеспечивает накопление, хранение и обработку  информации о лицах и объектах, зарегистрированных на территории административного участка.

 

 

 

 

 

 

 

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

 

1. Маклаков С.В., Моделирование бизнес-процессов с AllFusion Process Modeler(BPwin 4.1), 2009
2. Крэг Ларман, Применение UML 2.0 и шаблонов проектирования – 3-е изд. – М.:”Вильямс”, 2007.- с.736
3. Гради Буч, Джеймс Рамбо, Ивар Якобсон, Введение в UML от создателей языка (The Unified Modeling Language: User Guide), ДМК Пресс, 2011 г. – с.496
4. http://ru.wikipedia.org

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение 1

 

Код программы

 

unit Unit2;

 

interface

 

uses

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

  Dialogs, Menus, ToolWin, ComCtrls, ImgList, unit1, unit3, unit4 ,unit6, unit7, unit8, unit9,unit10,unit11,unit12,

  unit13,unit14,unit15,StdCtrls, DB, ADODB;

 

type

  TForm2 = class(TForm)

    Button1: TButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    N17: TMenuItem;

    ADOConnection1: TADOConnection;

    procedure N2Click(Sender: TObject);

    procedure N17Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

{$R *.dfm}

 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

end;

 

procedure TForm2.N10Click(Sender: TObject);

begin

Form2.Visible := false;

Form9.Show;

end;

 

procedure TForm2.N11Click(Sender: TObject);

begin

Form2.Visible := false;

Form12.Show;

end;

 

procedure TForm2.N13Click(Sender: TObject);

begin

   Form2.Visible := false;

Form13.Show;

end;

 

procedure TForm2.N14Click(Sender: TObject);

begin

Form2.Visible := false;

Form14.Show;

end;

 

_________________________________

 

unit Unit3;

 

interface

 

uses

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

  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

 

type

  TForm3 = class(TForm)

    Button1: TButton;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

     uses unit2;

{$R *.dfm}

 

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.Visible := false;

Form2.Show;

end;

 

end.

 

 

 

 

Примеры запросов

 

 

1)select  Назначения.Фамилия,

           Назначения.Имя,

           Назначения.Отчество,

           Назначения.Звание,

           Назначения.Дата_назначения,

           Назначения.Дата_снятия_с_участка,

           Участок.№_участка

from Назначения

 inner join Участок on (Участок.id_ychastok = Назначения.id_ychastok)

 

 

2)select  *

from Юридические_лица

 

 

3)select    Лица.Фамилия,

             Лица.Имя,

             Лица.Отчество ,

             Место_работы.Код_организации,

             Место_работы.Должность,

             Место_работы.Телефон            

from Лица

inner join Место_работы on Лица.id_mr1 = Место_работы.id_mr1;

 

 

4)select  Юридические_лица.Название_организации,

            Юридические_лица.Род_деятельности,

             Место_работы.Код_организации              

from Место_работы

inner join Юридические_лица on (Юридические_лица.id_yr_lico = Место_работы.id_mr)