Разработка базы данных «Рыболовецкого колхоза»

 

Таблица 3.7 Схема отношения «смена»

 

Таблица 3.8 Схема отношения «расходы_производства» 

 

Таблица 3.9 Схема отношения «выпуск_продукции»

 
 
 

Таблица 3.9 Схема отношения «на складе»

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

3. Реализация базы данных в формате MS Access 2007 

       На  этом этапе следует реализовать  созданную ранее структуру всреде сервере БД MS Access 2007 в базе данных. Далее перечислена реализация составленных схем отношений с помощью таблиц базы данных. Типы данных полей спроектированных таблиц указаны в нотации MS Access 2007 . Имена таблиц и полей составлены в соответствии с правилами MS Access 2007.

      Рисунок 2.5 – Зависимость таблиц в БД 
 

 
4. Проектирование программного обеспечения 

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

       Использованные  языки и технологии разработки:

• среда разработки Delphi 2007
• технология доступа к данным Microsoft ActiveX Data Objects;

 

       Функции программы:

1. авторизация пользователя;
2. возможность редактирование данных всех таблиц администратором.
3. Возможность просмотра необходимых данных пользователям

Рисунок 2.6 – Главное окно программы 

 
 
 
 

Ниже приведен исходный код программы  для работы с БД. 

UNIT 1

unit Unit1;

interface

uses

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

  Dialogs, Menus, XPMan, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

XPManifest1: TXPManifest;

Image1: TImage;

N4: TMenuItem;

N5: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form3.Show;

end;

end. 
 
 

UNIT 2

unit Unit2;

interface 

uses

  SysUtils, Classes, XPMan, DB, ADODB;

type

  TDM1 = class(TDataModule)

    XPManifest1: TXPManifest;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    ADOTable2: TADOTable;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    ADOTable3: TADOTable;

    DataSource4: TDataSource;

    ADOTable4: TADOTable;

    DataSource5: TDataSource;

    ADOTable5: TADOTable;

    DataSource6: TDataSource;

    ADOTable6: TADOTable;

    DataSource7: TDataSource;

    ADOTable7: TADOTable;

    DataSource8: TDataSource;

    ADOTable8: TADOTable;

    ADOTable6_: TAutoIncField;

    ADOTable6DSDesigner: TWideStringField;

    ADOTable6DSDesigner2: TBCDField;

    ADOTable6DSDesigner3: TWideStringField;

    ADOTable6DSDesigner4: TWideStringField;

    ADOTable7_: TAutoIncField;

    ADOTable7_2: TIntegerField;

    ADOTable7DSDesigner: TIntegerField;

    ADOTable7DSDesigner2: TBCDField;

    ADOTable7DSDesigner3: TBCDField;

    ADOTable7DSDesigner4: TDateTimeField;

    ADOTable7_3: TIntegerField;

    ADOTable8_: TAutoIncField;

    ADOTable8DSDesigner: TWideStringField;

    ADOTable8DSDesigner2: TWideStringField;

    ADOTable8DSDesigner3: TWideStringField;

    ADOTable4_: TAutoIncField;

    ADOTable4DSDesigner: TBCDField;

    ADOTable4DSDesigner2: TBCDField;

    ADOTable4DSDesigner3: TBCDField;

    ADOTable4DSDesigner4: TBCDField;

    ADOTable3_: TIntegerField;

    ADOTable3DSDesigner: TWideStringField;

    ADOTable3_2: TWideStringField;

    ADOTable3_3: TWideStringField;

    ADOTable2DSDesigner: TWideStringField;

    ADOTable2DSDesigner2: TWideStringField;

    ADOTable2DSDesigner3: TWideStringField;

    ADOTable2DSDesigner4: TDateTimeField;

    ADOTable2_: TIntegerField;

    ADOTable1_: TIntegerField;

    ADOTable1DSDesigner: TDateTimeField;

    ADOTable1DSDesigner2: TWideStringField;

    ADOTable1DSDesigner3: TWideStringField;

    ADOTable1DSDesigner4: TIntegerField;

    ADOTable1DSDesigner5: TWideStringField;

    DataSource9: TDataSource;

   ADOTable10: TADOTable;

    ADOQuery1: TADOQuery;

    ADOTable2DSDesigner5: TIntegerField;

    ADOTable5_: TAutoIncField;

    ADOTable5_2: TIntegerField;

    ADOTable5_3: TIntegerField;

    ADOTable5_4: TIntegerField;

    ADOTable5_5: TIntegerField;

    ADOTable5DSDesigner: TIntegerField;

    ADOTable5_6: TIntegerField;

    ADOTable10_: TAutoIncField;

    ADOTable10DSDesigner: TDateTimeField;

    ADOTable10_2: TIntegerField;

    ADOTable10_3: TIntegerField;

    ADOTable10DSDesigner2: TIntegerField;

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  DM1: TDM1;

implementation

uses Unit1, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

end. 
 
 
 

UNIT3

unit Unit3;

interface

uses

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

  Dialogs, Menus, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls; 

type

  TForm3 = class(TForm)

    MainMenu1: TMainMenu;

    Connect1: TMenuItem;

    Enabled1: TMenuItem;

    Disabled1: TMenuItem;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    procedure Disabled1Click(Sender: TObject);

    procedure Enabled1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3;

implementation

uses Unit1, Unit2, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm3.Disabled1Click(Sender: TObject);

begin 

DM1.DataSource3.Enabled:=false;