Распределенные баз данных и распределенных СУБД

Автор работы: Пользователь скрыл имя, 03 Апреля 2011 в 20:35, курсовая работа

Описание работы

Целью данной курсовой работы является исследование распределенных баз данных и распределенных СУБД. Для достижения поставленной цели в работе были реализованы следующие задачи:

•Рассмотрено понятие распределенных баз данных;
•Рассмотрены свойства распределенных БД;
•Рассмотрено понятие целостности данных;
•Рассмотрен принцип построения распределенных баз данных на примере SYSTEM R*
•Разработано приложение в среде Delphi.

Скачать архив (106.75 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

РаспредСУБД.doc

— 427.00 Кб (Скачать файл)

    DBEdit7: TDBEdit;    DBEdit8: TDBEdit;

    TabSheet2: TTabSheet;     SpeedButton1: TSpeedButton;

    SpeedButton3: TSpeedButton;     Label12: TLabel;

    Label13: TLabel;     Label14: TLabel;

    Label15: TLabel;     Label16: TLabel;

    DBEdit12: TDBEdit;     DBEdit13: TDBEdit;

    DBEdit14: TDBEdit;     DBEdit15: TDBEdit;

    DBEdit16: TDBEdit;    LabeledEdit2: TLabeledEdit;

    TabSheet3: TTabSheet;     SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;     Label9: TLabel;

    DBEdit9: TDBEdit;    Label10: TLabel;

    DBEdit10: TDBEdit;     Label11: TLabel;

    DBEdit11: TDBEdit;    LabeledEdit3: TLabeledEdit;

    Label17: TLabel;     DBEdit17: TDBEdit;

    Label18: TLabel;     DBEdit18: TDBEdit;

    Label19: TLabel;    DBEdit19: TDBEdit;

    Label20: TLabel;    DBEdit20: TDBEdit;

    Label21: TLabel;    DBEdit21: TDBEdit;

    Label22: TLabel;    DBEdit22: TDBEdit;

    Label23: TLabel;    DBEdit23: TDBEdit;

    Label24: TLabel;    DBEdit24: TDBEdit;

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton6Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

Продолжение приложения 1   

 

procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

  private     { Private declarations }

  public    { Public declarations }

  end;

var   FSPoisk: TFSPoisk;

implementation

uses UDM;

{$R *.dfm}

procedure TFSPoisk.SpeedButton2Click(Sender: TObject);

begin DM.Tklad.Locate('fio',LabeledEdit1.Text,[lopartialkey]); end;

procedure TFSPoisk.SpeedButton6Click(Sender: TObject);

begin DM.Tklad.Locate('stag',strtoint(LabeledEdit3.Text),[lopartialkey]); end;

procedure TFSPoisk.SpeedButton3Click(Sender: TObject);

begin DM.Tklad.Locate('dolj',LabeledEdit2.Text,[lopartialkey]); end;

procedure TFSPoisk.SpeedButton5Click(Sender: TObject);

begin close; end;

procedure TFSPoisk.SpeedButton1Click(Sender: TObject);

begin close; end;

procedure TFSPoisk.SpeedButton4Click(Sender: TObject);

begin close; end;

end.

unit UTovar;

interface

uses

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

  Dialogs, Grids, DBGrids, ImgList, ComCtrls, ToolWin;

Продолжение приложения 1   

Type   TFTovar = class(TForm)

    ToolBar1: TToolBar;     TBFirst: TToolButton;

    ToolButton2: TToolButton;     ToolButton3: TToolButton;

    ToolButton4: TToolButton;     ToolButton5: TToolButton;

    ToolButton6: TToolButton;    ToolButton7: TToolButton;

    ImageList1: TImageList;    DBGrid1: TDBGrid;

    ToolButton1: TToolButton;

    procedure TBFirstClick(Sender: TObject);

    procedure ToolButton2Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure ToolButton4Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

    procedure ToolButton6Click(Sender: TObject);

    procedure ToolButton7Click(Sender: TObject);

    procedure ToolButton1Click(Sender: TObject);

  private     { Private declarations }

  public     { Public declarations }

  end;

var

  FTovar: TFTovar;

implementation

uses UDM, UDobTovar, Umain;

{$R *.dfm}

procedure TFTovar.TBFirstClick(Sender: TObject);

begin DM.Ttov.First; end;

procedure TFTovar.ToolButton2Click(Sender: TObject);

begin DM.Ttov.Prior; end;

procedure TFTovar.ToolButton3Click(Sender: TObject);

begin DM.Ttov.Next; end;

Продолжение приложения 1   

procedure TFTovar.ToolButton4Click(Sender: TObject);

begin DM.Ttov.Last; end;

procedure TFTovar.ToolButton5Click(Sender: TObject);

begin DM.Ttov.Post; end;

procedure TFTovar.ToolButton6Click(Sender: TObject);

begin DM.Ttov.Delete; end;

procedure TFTovar.ToolButton7Click(Sender: TObject);

var n:integer; begin DM.Ttov.Last; n:=DM.Ttov.FieldByName('idn').Value;

DM.Ttov.Append; DM.Ttov.FieldByName('idn').Value:=n+1;

FDobTov.Show;    close; end;

procedure TFTovar.ToolButton1Click(Sender: TObject);

begin Fmain.Show;    close; end;

end.

unit UTPoisk;

interface

uses

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

  Dialogs, Buttons, StdCtrls, Mask, db,DBCtrls, ExtCtrls, ComCtrls;

Type   TFTPoisk = class(TForm)

    PageControl1: TPageControl;     TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;     TabSheet3: TTabSheet;

    TabSheet4: TTabSheet;    TabSheet5: TTabSheet;

    LabeledEdit1: TLabeledEdit;     DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;    Label1: TLabel;     Label2: TLabel;    Label3: TLabel;

    Label4: TLabel;    Label5: TLabel;     Label6: TLabel;    Label7: TLabel;

    Label8: TLabel;    SpeedButton2: TSpeedButton;

Продолжение приложения 1   

  SpeedButton4: TSpeedButton;     SpeedButton1: TSpeedButton;

    SpeedButton3: TSpeedButton;    DBEdit9: TDBEdit;

    Label9: TLabel;    DBEdit10: TDBEdit;     Label10: TLabel;

    DBEdit11: TDBEdit;    Label11: TLabel;     DBEdit12: TDBEdit;

    Label12: TLabel;    Label13: TLabel;     DBEdit13: TDBEdit;

    Label14: TLabel;    DBEdit14: TDBEdit;    Label15: TLabel;

    DBEdit15: TDBEdit;    DBEdit16: TDBEdit;    Label16: TLabel;

    LabeledEdit2: TLabeledEdit;    SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;    DBEdit17: TDBEdit;

    Label17: TLabel;    DBEdit18: TDBEdit;    Label18: TLabel;

    DBEdit19: TDBEdit;    Label19: TLabel;    DBEdit20: TDBEdit;

    Label20: TLabel;    Label21: TLabel;    DBEdit21: TDBEdit;

    Label22: TLabel;    DBEdit22: TDBEdit;    Label23: TLabel;

    DBEdit23: TDBEdit;    DBEdit24: TDBEdit;    Label24: TLabel;

    LabeledEdit3: TLabeledEdit;    SpeedButton7: TSpeedButton;

    SpeedButton8: TSpeedButton;    DBEdit25: TDBEdit;

    Label25: TLabel;    DBEdit26: TDBEdit;    Label26: TLabel;

    DBEdit27: TDBEdit;    Label27: TLabel;    DBEdit28: TDBEdit;

    Label28: TLabel;    Label29: TLabel;    DBEdit29: TDBEdit;

    Label30: TLabel;    DBEdit30: TDBEdit;    Label31: TLabel;

    DBEdit31: TDBEdit;    DBEdit32: TDBEdit;    Label32: TLabel;

    LabeledEdit4: TLabeledEdit;    SpeedButton9: TSpeedButton;

    SpeedButton10: TSpeedButton;    DBEdit33: TDBEdit;

    Label33: TLabel;    DBEdit34: TDBEdit;    Label34: TLabel;

    DBEdit35: TDBEdit;    Label35: TLabel;    DBEdit36: TDBEdit;

    Label36: TLabel;    Label37: TLabel;    DBEdit37: TDBEdit;

    Label38: TLabel;    DBEdit38: TDBEdit;    Label39: TLabel;

    DBEdit39: TDBEdit;    DBEdit40: TDBEdit;    Label40: TLabel;

    LabeledEdit5: TLabeledEdit;

Продолжение приложения 1   

procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton6Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure SpeedButton10Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton7Click(Sender: TObject);

    procedure SpeedButton9Click(Sender: TObject);

  private    { Private declarations }

  public    { Public declarations }

  end;

var   FTPoisk: TFTPoisk;

implementation

uses UDM;

{$R *.dfm}

procedure TFTPoisk.SpeedButton2Click(Sender: TObject);

begin DM.Ttov.Locate('naz_tov',LabeledEdit1.Text,[lopartialkey]); end;

procedure TFTPoisk.SpeedButton3Click(Sender: TObject);

begin DM.Ttov.Locate('bez_nds',strtoint(LabeledEdit2.Text),[]); end;

procedure TFTPoisk.SpeedButton6Click(Sender: TObject);

begin DM.Ttov.Locate('tmb',LabeledEdit3.Text,[lopartialkey]); end;

procedure TFTPoisk.SpeedButton8Click(Sender: TObject);

begin DM.Ttov.Locate('gost',LabeledEdit4.Text,[lopartialkey]); end;

procedure TFTPoisk.SpeedButton10Click(Sender: TObject);

begin DM.Ttov.Locate('marka',LabeledEdit5.Text,[lopartialkey]); end;

procedure TFTPoisk.SpeedButton4Click(Sender: TObject);

begin close; end;

Продолжение приложения 1   

procedure TFTPoisk.SpeedButton1Click(Sender: TObject);

begin close; end;

procedure TFTPoisk.SpeedButton5Click(Sender: TObject);

begin close; end;

procedure TFTPoisk.SpeedButton7Click(Sender: TObject);

begin close; end;

procedure TFTPoisk.SpeedButton9Click(Sender: TObject);

begin close; end;

end.

unit UZakaz; interface uses

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

  Dialogs, ImgList, ComCtrls, ToolWin, Grids, DBGrids, ExtCtrls, StdCtrls,

  DBCtrls;

Type   TFZakaz = class(TForm)

    DBGrid1: TDBGrid;    ToolBar1: TToolBar;    TBFirst: TToolButton;

    ToolButton2: TToolButton;    ToolButton3: TToolButton;

    ToolButton4: TToolButton;    ToolButton5: TToolButton;

    ToolButton6: TToolButton;    ToolButton7: TToolButton;

    ToolButton1: TToolButton;    ImageList1: TImageList;

    Panel1: TPanel;    ToolButton8: TToolButton;

    DBText1: TDBText;    Label1: TLabel;

    DBText2: TDBText;    DBText3: TDBText;

    DBText4: TDBText;    DBText5: TDBText;

    DBText6: TDBText;    DBText7: TDBText;

    DBText8: TDBText;    DBText9: TDBText;

    DBText10: TDBText;     Label2: TLabel;     Label3: TLabel;

    Label4: TLabel;    Label5: TLabel;    Label6: TLabel;

    Label7: TLabel;    Label8: TLabel;    Label9: TLabel;

    Shape1: TShape;    Label10: TLabel;    Shape2: TShape;

Информация о работе Распределенные баз данных и распределенных СУБД