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

begin 
 

i:=0;

Memo1.Clear;

predel:=DM1.ADOTable6.RecordCount-1; 

    for   i:=0 to  predel   do

       begin

            DM1.ADOTable6.RecNo:=i+1;

            Memo1.Lines.Add(DM1.ADOTable6.Fields[0].AsString);

       end; 

DBGrid8.Columns[1].PickList:=Memo1.Lines;

DM1.ADOTable6.RecNo:=1; 

/////////////////////////////////// 

i:=0;

Memo1.Clear;

predel:=DM1.ADOTable8.RecordCount-1; 

    for  i:=0 to  predel   do

       begin

            DM1.ADOTable8.RecNo:=i+1;

            Memo1.Lines.Add(DM1.ADOTable8.Fields[0].AsString);

       end; 

Label12.Caption:=IntToStr(predel);

DBGrid8.Columns[6].PickList:=Memo1.Lines;

DM1.ADOTable8.RecNo:=1; 
 

end;

procedure TForm4.PageControl1Change(Sender: TObject);

begin

end;

end. 

UNIT5

unit Unit5; 

interface 

uses

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

  Dialogs, ComCtrls, Grids, DBGrids, Menus, StdCtrls; 

type

  TForm5 = class(TForm)

    PageControl1: TPageControl;

    TabSheet2: TTabSheet;

    MainMenu1: TMainMenu;

    DBGrid1: TDBGrid;

    N1: TMenuItem;

    Button1: TButton;

    Label1: TLabel;

    Button2: TButton;

    DBGrid2: TDBGrid;

    Label2: TLabel;

    Button3: TButton;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject); 
 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5;

  vsego,partneram,v:Integer;

implementation 

uses Unit1, Unit2, Unit3, Unit4, Unit6; 

{$R *.dfm} 

procedure TForm5.Button1Click(Sender: TObject); 

var

i:Integer;

et:Integer; 
 

begin

et:=DM1.ADOTable1.RecordCount;

vsego:=0; 
 

    for  i:=1 to  et do

    begin 

       DM1.ADOTable1.RecNo:=i;

       vsego:=vsego +  DM1.ADOTable1.Fields[4].AsInteger; 

    end; 
 
 
 

  Label1.Caption:= 'За весь период путины  выловлено '  +  IntTostr(vsego) + '  килограмм' ; 

  i:=0; 

end; 
 

 

procedure TForm5.N1Click(Sender: TObject);

begin

DM1.DataSource1.Enabled:=true;

DM1.ADOTable1.Active:=true; 

DM1.DataSource2.Enabled:=true;

DM1.ADOTable2.Active:=true; 

DM1.DataSource3.Enabled:=true;

DM1.ADOTable3.Active:=true; 

DM1.DataSource4.Enabled:=true;

DM1.ADOTable4.Active:=true; 

DM1.DataSource5.Enabled:=true;

DM1.ADOTable5.Active:=true; 

DM1.DataSource6.Enabled:=true;

DM1.ADOTable6.Active:=true; 

DM1.DataSource7.Enabled:=true;

DM1.ADOTable7.Active:=true; 

DM1.DataSource8.Enabled:=true;

DM1.ADOTable8.Active:=true; 

DM1.DataSource9.Enabled:=true;

DM1.ADOTable10.Active:=true;

end; 
 
 
 
 
 
 
 
 
 

procedure TForm5.Button2Click(Sender: TObject);

var

i,eot,f:Integer; 

begin

f:=DM1.ADOTable2.RecordCount; 
 

i:=0;

eot:=0;

v:=0; 

    for  i:=1 to f do

    begin 

        DM1.ADOTable2.RecNo:=i;

        v := v +  DM1.ADOTable2.Fields[5].AsInteger; 

    end; 
 

Label2.Caption:='Партнерам  отгружено '+IntToStr(v)+' кг'; 
 

end; 

procedure TForm5.Button3Click(Sender: TObject);

var

suma:Integer;

begin 

suma:=vsego-v;

Label3.Caption:='На  базу доставлено  ' + IntToStr(suma)  + ' кг';

end;

end. 

UNIT6

unit Unit6; 

interface 

uses

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

  Dialogs, Menus, Grids, DBGrids; 

type

  TForm6 = class(TForm)

    MainMenu1: TMainMenu;

    DBGrid1: TDBGrid;

    N1: TMenuItem;

    DBGrid2: TDBGrid;

    DBGrid3: TDBGrid;

    procedure N1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form6: TForm6; 

implementation 

uses Unit1, Unit2, Unit3, Unit4, Unit5; 

{$R *.dfm} 

procedure TForm6.N1Click(Sender: TObject);

begin 

DM1.DataSource1.Enabled:=true;

DM1.ADOTable1.Active:=true; 

DM1.DataSource2.Enabled:=true;

DM1.ADOTable2.Active:=true; 

DM1.DataSource3.Enabled:=true;

DM1.ADOTable3.Active:=true; 

DM1.DataSource4.Enabled:=true;

DM1.ADOTable4.Active:=true; 

DM1.DataSource5.Enabled:=true;

DM1.ADOTable5.Active:=true; 

DM1.DataSource6.Enabled:=true;

DM1.ADOTable6.Active:=true; 

DM1.DataSource7.Enabled:=true;

DM1.ADOTable7.Active:=true; 

DM1.DataSource8.Enabled:=true;

DM1.ADOTable8.Active:=true; 

DM1.DataSource9.Enabled:=true;

DM1.ADOTable10.Active:=true;

end;

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

  5. Руководство пользователя 

Системные требования:

       ОС Windows XP/Vista/Seven, CPU 1GHz, RAM 512Mb, HDD 5Mb, монитор с разрешением 800х600, клавиатура, мышь. 

В состав программного продукта входят:

1. FISH.EXE  сама программа
2. Fish.mdb  файл базы данных

 

Инструкции  по работе:

       Основное  назначение программы – ведение учета основных необходимых данных в рыболовецком колхозе. Вывод  информации по отраслям. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Заключение 

       Задачей данного курсового проекта было создание базы данных в формате MS Access 2007 , а также приложения способного управлять данной базой: создание, открытие, добавление, редактирование и удаление записей. В ходе работы над курсовым проектом все из  заявленных задач были успешно реализованы.

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

       В процессе выполнения работ были получены знания в программировании приложений взаимодействующих с базами данных. 

       Таким образом, все цели и задачи, поставленные перед автором работы, были полностью реализованы. 

 

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

1. Архангельский, А.Я. Программирование в Delphi. [текст] / А.Я. Архангельский – М.: Бином, 2002. – 1152 с.
2. Вендров, А.М. CASE-технологии. Современные методы и средства проектирования информационных систем. / А.М. Вендров. – М.: Финансы и статистика, 1998. - 176 с.: ил.
3. Дейт, К. Введение в системы баз данных. / К. Дейт М., – СПб., Киев: Издательский дом «Вильямс». 2000. – 950 с.: ил.
4. Мамаев, Е. Microsoft SQL Server 2000. / Е. Мамаев – СПб.:БХВ-Петербург, 2002. – 1200 с.
5. Мюллер, Р. Базы данных и UML проектирование.  / Р. Мюллер – М.: Лори, 2002. – 420 с.
6. Нейбург, Э. Проектирование баз данных с помощью UML. / Э. Нейбург, Роберт Максимчук – М.: Вильямс, 2002. – 288 с.
7. Тиори, Т. Проектирование структур баз данных, т. 1.  / Т. Тиори, Дж. Фрай  – М.: Мир, 1985.
8. Тихомиров, Ю. Microsoft SQL Server 2000. Разработка приложений.  / Ю. Тихомиров – СПб.: БХВ - Петербург, 2000.
9. Харрингтон, Д.Л. Проектирование реляционных баз данных.  / Д.Л. Харрингтон – М.: Лори. 2000.
10. Хомоненко, А.Д. Базы данных: учебник для высших учебных заведений.  / А.Д. Хомоненко, М.Г.Мальцев, В.М. Цыганков – СПб: КОРОНА принт., 2000.

 
 

 

Приложение 

     В результате проделанной работы была создана база данных и программа  для управления ею. На прилагаемом к работе диске находятся следующие данные: