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

Автор работы: Пользователь скрыл имя, 05 Декабря 2011 в 00:35, курсовая работа

Описание

Целью курсовой работы является создание информационно-программной системы для решения следующих задач:
К разрабатываемой системе предъявлены следующие требования:
наличие централизованного хранилища данных для всех объектов автоматизированного учета;
ведение операций информационного учета с компьютеров локальной сети;
создание унифицированного доступа к данным с использованием специализированного интерфейса пользователя, который отражает специфику предметной области.

Скачать (196.03 Кб) Сколько стоит заказать работу?
Работа состоит из  1 файл

Записка.doc

— 393.50 Кб (Скачать документ)

DM1.ADOTable3.Active:=false;

end;

procedure TForm3.Enabled1Click(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. 
 
 
 

UNIT4

unit Unit4; 

interface 

uses

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

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

type

  TForm4 = class(TForm)

    MainMenu1: TMainMenu;

    Connected1: TMenuItem;

    Enabld1: TMenuItem;

    N3: TMenuItem;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBGrid2: TDBGrid;

    DBNavigator2: TDBNavigator;

    DBGrid3: TDBGrid;

    DBNavigator3: TDBNavigator;

    Label1: TLabel;

    DBGrid4: TDBGrid;

    DBNavigator4: TDBNavigator;

    Label2: TLabel;

    DBGrid5: TDBGrid;

    DBNavigator5: TDBNavigator;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    DBGrid6: TDBGrid;

    DBNavigator6: TDBNavigator;

    Label6: TLabel;

    TabSheet3: TTabSheet;

    DBGrid8: TDBGrid;

    DBGrid9: TDBGrid;

    DBNavigator7: TDBNavigator;

    DBNavigator8: TDBNavigator;

    Label8: TLabel;

    Label9: TLabel;

    DBGrid11: TDBGrid;

    DBNavigator9: TDBNavigator;

    Label11: TLabel;

    Button1: TButton;

    Memo1: TMemo;

    Label12: TLabel;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Label7: TLabel;

    Button5: TButton;

    Button6: TButton;

    procedure Enabld1Click(Sender: TObject);

    procedure Exit1Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure Enabled1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure PageControl1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form4: TForm4;

  predel,i:Integer;

implementation 

uses Unit1, Unit2, Unit3, Unit5, Unit6; 

{$R *.dfm} 

procedure TForm4.Enabld1Click(Sender: TObject);

begin

  Button1.Enabled:=true;

  Button2.Enabled:=true;

  Button3.Enabled:=true;

  Button4.Enabled:=true;

  Button5.Enabled:=true;

  Button6.Enabled:=true; 
 
 
 
 

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 TForm4.Exit1Click(Sender: TObject);

begin

DM1.ADOTable1.Active:=false;

DM1.DataSource1.Enabled:=false;

DM1.ADOTable2.Active:=false;

DM1.DataSource2.Enabled:=false;

form4.Close;

end; 

procedure TForm4.N3Click(Sender: TObject);

begin

DM1.DataSource1.Enabled:=false;

DM1.ADOTable1.Active:=false; 

DM1.DataSource2.Enabled:=false;

DM1.ADOTable2.Active:=false; 

DM1.DataSource3.Enabled:=false;

DM1.ADOTable3.Active:=false; 

DM1.DataSource4.Enabled:=false;

DM1.ADOTable4.Active:=false; 

DM1.DataSource5.Enabled:=false;

DM1.ADOTable5.Active:=false; 

DM1.DataSource6.Enabled:=false;

DM1.ADOTable6.Active:=false; 

DM1.DataSource7.Enabled:=false;

DM1.ADOTable7.Active:=false; 

DM1.DataSource8.Enabled:=false;

DM1.ADOTable8.Active:=false; 

DM1.DataSource9.Enabled:=false;

DM1.ADOTable10.Active:=false; 
 
 
 

end; 

procedure TForm4.Enabled1Click(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 TForm4.Button1Click(Sender: TObject);

begin

memo1.Clear;

i:=0;

predel:=DM1.ADOTable1.RecordCount; 

    for   i:=0 to  predel   do

       begin

            DM1.ADOTable1.RecNo:=i+1;

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

        end; 

DBGrid5.Columns[5].PickList:=Memo1.Lines;

DM1.ADOTable1.RecNo:=1; 

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

end;

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

procedure TForm4.Button2Click(Sender: TObject); 
 

begin

i:=0;

predel:=0;

memo1.Clear; 

predel:=DM1.ADOTable1.RecordCount; 

    for   i:=0 to  predel   do

     begin 

         DM1.ADOTable1.RecNo:=i+1;

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

      end; 

Label12.Caption:=IntToStr(predel);

DBGrid2.Columns[4].PickList:=Memo1.Lines;

DM1.ADOTable1.RecNo:=1;

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

end; 
 
 

procedure TForm4.Button3Click(Sender: TObject);

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; 

Label12.Caption:=IntToStr(predel);

DBGrid5.Columns[2].PickList:=Memo1.Lines;

DM1.ADOTable6.RecNo:=1;

end; 

procedure TForm4.Button4Click(Sender: TObject);

begin 

i:=0;

Memo1.Clear;

predel:=DM1.ADOTable4.RecordCount-1; 

    for   i:=0 to  predel   do

       begin

            DM1.ADOTable4.RecNo:=i+1;

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

       end; 
 

DBGrid5.Columns[3].PickList:=Memo1.Lines;

DM1.ADOTable4.RecNo:=1; 

end; 

procedure TForm4.Button5Click(Sender: TObject);

begin 

i:=0;

Memo1.Clear;

predel:=DM1.ADOTable5.RecordCount-1; 

    for   i:=0 to  predel   do

       begin

             DM1.ADOTable5.RecNo:=i+1;

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

       end; 

Label12.Caption:=IntToStr(predel);

DBGrid11.Columns[2].PickList:=Memo1.Lines;

DM1.ADOTable5.RecNo:=1;

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

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; 

Label12.Caption:=IntToStr(predel);

DBGrid11.Columns[3].PickList:=Memo1.Lines;

DM1.ADOTable6.RecNo:=1;

end; 
 
 
 
 
 

procedure TForm4.Button6Click(Sender: TObject);

Информация о работе Разработка базы данных «Рыболовецкого колхоза»