Управление распределенными базами данных

15

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ ФГОУ СПО ТАМБОВСКИЙ БИЗНЕС-КОЛЛЕДЖ

Отчет

о производственной практике

студента группы 313

Специальность 230105 «Программное

обеспечение вычислительной

техники и автоматизированных систем»

Кудинова Станислава Юрьевича

Место практики: ОАО «Токаревский КХП»

Период практики: с «20» апреля 2009г.

по «17»мая 2009г.

Руководитель практики ________________

Ракитина Юлия Владимировна

Введение

Основная задача систем управления распределенными базами данных состоит в обеспечении средства интеграции локальных баз данных, располагающихся в некоторых узлах вычислительной сети, с тем, чтобы пользователь, работающий в любом узле сети, имел доступ ко всем этим базам данных как к единой базе данных.

При этом должны обеспечиваться:

· простота использования системы;

· возможности автономного функционирования при нарушениях связности сети или при административных потребностях;

· высокая степень эффективности.

Описание деятельности предприятия

Общество с ограниченной ответственностью ОАО «Токаревский КХП» организован в 1953г. является коммерческой организацией, утверждено в соответствии с Указом Президента Российской Федерации №721 от 01.07.1992г. на основании Распоряжения Госкомимущества от 11.12.1992г. №1403, является правопреемником государственного предприятия ОАО «Токаревский элеватор»

Первый директор Забузов Николай Федорович. Сейчас возглавляет генеральный директор Лобаков Валерий Александрович.

Общество действует в соответствии с Федеральным законом «Об акционерных обществах» иным действующим законодательством РФ и настоящим Уставом. Уставной капитал общества составляет 100940 рублей.

Место нахождения: Тамбовская область, р.п. Токаревска, ул. Советская 27. Общество имеет гражданские права и исполняет обязанности, необходимые для осуществления любых видов деятельности не запрещенных действующим законодательством РФ.

Основными видами деятельности общества является:

· закупка, сушка, хранение зерновых культур;

· Переработка сельскохозяйственного сырья;

Общество может также осуществлять и другие виды деятельности, в том числе торговую, торгово-посредническую, закупочную и сбытовую деятельность. Общество является юридическим лицом с момента его регистрации. Общество в установленном законодательвом РФ порядке осуществляет свою производственно - хозяйственную деятельность, а также социальное развитие коллектива работников, устанавливает цены на производимую продукцию и оказываемые услуги, определяет формы и размеры заработной платы работников.

Предприятие состоит из основных цехов:

1. СОБ

2. Механический цех

3. Цех готовой продукции

Вспомогательные цеха:

1. Компрессорный цех

2. Котельная

3. Кладовой цех

4. Погрузочный цех

5. Весовой цех

Заготовка сырья ведется в основном в Токаревский районе. Снабжение теплом производится от собственной котельной. Сбыт продукции осуществляется по железной дороге и автотранспортом.

Описание индивидуальной работы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons, Grids, Menus,inifiles;

type

TForm1 = class(TForm)

Panel1: TPanel;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

LabeledEdit3: TLabeledEdit;

BitBtn1: TBitBtn;

StringGrid1: TStringGrid;

SaveDialog1: TSaveDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

OpenDialog1: TOpenDialog;

N8: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

LabeledEdit4: TLabeledEdit;

LabeledEdit5: TLabeledEdit;

procedure FormActivate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

ar

Form1: TForm1;

List: TStringList;

d: integer;

CMD: string;

ini: TIniFile;

mplementation

onst inifilename = '../Простая база данных';

rocedure Cols_count(var q:integer);

ar

s: string;

i: integer;

egin

q := 0;

List.LoadFromFile(CMD);

s := List[0];

for i := 0 to length(s) do

begin

if s[i] = '*' then q := q + 1;

end;

nd;

rocedure dobavit;

ar

i,j: integer;

s: string;

egin

List.Clear;

for j := 0 to Form1.StringGrid1.RowCount - 1 do

begin

for i := 0 to form1.StringGrid1.ColCount -1 do

begin

s := s + form1.StringGrid1.Cells[i,j] + '*';

end;

List.Add(s);

s := '';

end;

nd;

$R *.dfm}

rocedure TForm1.FormActivate(Sender: TObject);

egin

ini := TIniFile.Create(inifilename);

StringGrid1.FixedCols := ini.ReadInteger('FixedCols','Items',0);

StringGrid1.ColWidths[0] := 150;

StringGrid1.ColWidths[1] := 150;

StringGrid1.ColWidths[2] := 150;

StringGrid1.ColWidths[3] := 150;

StringGrid1.Cells[0,0] := 'Фамилия';

StringGrid1.Cells[1,0] := 'Имя';

StringGrid1.Cells[2,0] := 'Отчество';

StringGrid1.Cells[3,0] := 'Адрес';

StringGrid1.Cells[4,0] :='Телефон';

List.Add('');

nd;

rocedure TForm1.BitBtn1Click(Sender: TObject);

ar

i,z: integer;

s: string;

egin

if LabeledEdit1.Text = '' then begin

MessageBox(0,'Проверте вводимые данные!','Error',48);

exit;

end;

if LabeledEdit2.Text = '' then begin

MessageBox(0,'Проверте вводимые данные!','Error',48);

exit;

end;

if LabeledEdit3.Text = '' then begin

MessageBox(0,'Проверте вводимые данные!','Error',48);

exit;

end;

if LabeledEdit4.Text = '' then begin

MessageBox(0,'Проверти Вводимые данные!','Error',48);

exit;

end;

if LabeledEdit5.Text = '' then begin

MessageBox(0,'Проверти Вводимые данные!','Error',48);

xit;

end;

StringGrid1.Cells[0,List.Count] := LabeledEdit1.Text;

StringGrid1.Cells[1,List.Count] := LabeledEdit2.Text;

StringGrid1.Cells[2,List.Count] := LabeledEdit3.Text;

StringGrid1.Cells[3,List.Count] := LabeledEdit4.Text;

StringGrid1.Cells[4,List.Count] := LabeledEdit5.Text;

z := StringGrid1.RowCount-1;

s := '';

for i := 0 to StringGrid1.ColCount -1 do

begin

s := s + StringGrid1.Cells[i,z] + '*';

end;

List.Add(s);

LabeledEdit1.Text := '';

LabeledEdit2.Text := '';

LabeledEdit3.Text := '';

LabeledEdit4.Text := '';

LabeledEdit5.Text := '';

N3.Enabled := true;

N4.Enabled := true;

StringGrid1.RowCount := List.Count;

LabeledEdit1.SetFocus;

nd;

rocedure TForm1.N4Click(Sender: TObject);

egin

obavit;

SaveDialog1.Execute;

CMD := SaveDialog1.FileName;

try

if pos('.UDB',cmd)>0 then List.SaveToFile(SaveDialog1.FileName)

else List.SaveToFile(SaveDialog1.FileName + '.UDB')

except

exit;

end;

nd;

rocedure TForm1.N2Click(Sender: TObject);

ar

i,j:integer;

begin

for i := 1 to StringGrid1.RowCount - 1 do

begin

for j := 0 to StringGrid1.ColCount -1 do

begin

StringGrid1.Cells[j,i] := '';

end;

end;

List.Clear;

StringGrid1.RowCount := 2;

StringGrid1.ColCount := 5;

FormActivate(StringGrid1);

N3.Enabled := false;

N4.Enabled := false;

N19.Click;

nd;

rocedure TForm1.N7Click(Sender: TObject);

begin

close;

end;

rocedure TForm1.N3Click(Sender: TObject);

begin

dobavit;

DeleteFile(CMD);

if CMD = '' then N4.Click else

begin

if pos('.UDB',CMD)>0 then List.SaveToFile(CMD)

else List.SaveToFile(CMD + '.UDB');

end;

nd;

rocedure TForm1.N5Click(Sender: TObject);

ar

i,j,m:integer;

q: integer;

s,z: string;

egin

OpenDialog1.Execute;

if FileExists(OpenDialog1.FileName) then

begin

if pos('.UDB',OpenDialog1.FileName)>0 then CMD := OpenDialog1.FileName

else CMD := OpenDialog1.FileName + '.UDB';

Cols_count(q);

StringGrid1.ColCount := q;

StringGrid1.RowCount := List.Count;

for i := 0 to List.Count - 1 do

begin

s := List[i];

m := 0;

z := '';

for j := 1 to length(s) do

begin

if s[j] = '*' then

begin

StringGrid1.Cells[m,i] := z;

m := m + 1;

z := '';

end else z := z + s[j];

nd;

end;

end;

nd;

rocedure TForm1.N13Click(Sender: TObject);

ar

i,j,m:integer;

s,z:string;

egin

dobavit;

List.Delete(0);

List.Sorted := true;

for i := 0 to List.Count - 1 do

begin

s := List[i];

m := 0;

z := '';

for j := 1 to length(s) do

begin

if s[j] = '*' then

begin

StringGrid1.Cells[m,i+1] := z;

m := m + 1;

z := '';

end else z := z + s[j];

end;

end;

List.Sorted := false;

dobavit;

nd;

rocedure TForm1.N15Click(Sender: TObject);

egin

if N15.Checked then StringGrid1.FixedCols := 1;

N16.Checked := false;

N17.Checked := false;

N18.Checked := false;

N19.Checked := false;

nd;

rocedure TForm1.N16Click(Sender: TObject);

egin

if N16.Checked then StringGrid1.FixedCols := 2;

N17.Checked := false;

N18.Checked := false;

N19.Checked := false;

nd;

rocedure TForm1.N17Click(Sender: TObject);

egin

if N17.Checked then StringGrid1.FixedCols := 3;

N16.Checked := false;

N18.Checked := false;

N19.Checked := false;

N15.Checked := false;

nd;

rocedure TForm1.N18Click(Sender: TObject);

begin

if StringGrid1.ColCount > 4 then

begin

if N18.Checked then StringGrid1.FixedCols := 4;

N16.Checked := false;

N17.Checked := false;

N19.Checked := false;

end else begin

N18.Checked := false;

MessageBox(0,'Данная операция не может быть выполнена!','Error',48);

exit;

end;

nd;

procedure TForm1.N19Click(Sender: TObject);

gin

if N19.Checked then StringGrid1.FixedCols := 0;

N16.Checked := false;

N18.Checked := false;

N17.Checked := false;

end;

rocedure TForm1.N12Click(Sender: TObject);

ar

i,m,j: integer;

s,z: string;

egin

dobavit;

List.Delete(0);

for i := 0 to List.Count-1 do

begin

List[i] :=StringGrid1.Cells[4,i+1]+ '*'+ List[i] ;

end;

List.Sorted := true;

for i := 0 to List.Count - 1 do

begin

s := List[i];

m := -1;

z := '';

for j := 0 to length(s) do

begin

if s[j] = '*' then

begin

m := m + 1;

if m > 0 then begin

StringGrid1.Cells[m-1,i+1] := z;

z := '';

end else z := '';

end else z := z + s[j];

end;

end;

List.Sorted := false;

nd;

nitialization

List := TStringList.Create;

inalization

ini.Destroy;

List.Free;

end.