Области применения баз данных

В настоящем Законе используются следующие понятия:

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

- трудовые отношения  - отношения, возникающие между  работодателем и работником по  поводу осуществления сторонами  определенной трудовой деятельности, как правило на основе индивидуальных трудовых и коллективных договоров;

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

- вредные (особо вредные)  условия труда – условия труда,  при которых воздействие определенных  производственных факторов приводит  к снижению работоспособности  или заболеванию работника либо отрицательному влиянию на здоровье его потомстве:

- опасные (особо опасные)  условия труда- условия труда,  при которых воздействие определенных  производственных факторов приводит  в случае несоблюдения правил  охраны труда- внезапному резкому ухудшению здоровья или травмы работника либо его смерти;

- тяжелые физические  работа –виды деятельности работника,  связанные с подъемом или перемещением  тяжестей  вручную, либо другие  работы с расходом энергии  более 300 ккал/час;

- время отдыха -   время, в течение которого работник свободен от выполнения трудовых  обязанностей и которые он может использовать по своему усмотрению;

- рабочее время -   время, в течение которого работник  в соответствии с актами работодателя  и условиями индивидуального  трудового договора  выполняет трудовые обязанности;

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

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

 

Заключение

В ходе данной дипломной  работы была создана база данных с применением современного средства разработки приложений Borland Delphi 7.0 Целью работы являлась разработка программного обеспечения для автоматизации учета продукции на складе - база данных, которая реализовала бы автоматизацию учета товаров, хранение данных в файлах, организацию доступа к ним и редактирование.

В ходе работы над программой были изучены методы проектирования баз данных и работа с ними, исследована методология проектирования по предметной области «Склад», изучен один из наиболее используемых языков для создания запросов SQL, изучен язык программирования Object Pascal, реализованный в среде программирования Delphi 7.

 

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

1. Шумаков А.И. «Базы данных в среде Delphi 5», Электронная версия
2. Вейскас Д. «Эффективная работа с Access 2000». СПб., 2001г.
3. Дуванов А. А. «Конструирование баз данных». СПб, 2003г.
4. Антипов Д. В., Соколов А. В. «Базы данных». Москва, 2002.
5. Кирстен В. «СУБД Cache. Объектно-ориентированная разработка приложений», - СПб.: «Питер», 2001.
6. Понамарёв В.  «Базы данных в DELPHI 7», СПб «Питер», 2003.
7. Симонович С.В.  «Язык структурированных запросов SQL»,  СПб «Питер», 2000.

 

Дополнительная литература:

1. Лекции по дисциплине «Базы данных» Ваксер В.В.
2. Лекции по дисциплине «Распределенные системы обработки информации» Ваксер В.В.
3. Использованы материалы с сайта http://www.cit-forum.ru/
4. Материалы с сайта http://www.ibex.ch/

 

 

 

 

 

 

 

 

 

 

 

 

Приложение 1.

Блок-схема  программы.

 
Приложение 2.

Полный листинг  программы «Магазин автозапчастей».

 

 

program MyEdit;

uses

  Forms,

  MainUnit in 'MainUnit.pas' {MainForm},

  ChildUnit in 'ChildUnit.pas' {ChildForm},

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {Form2},

  Unit3 in 'Unit3.pas' {Form3},

  Unit4 in 'Unit4.pas' {Form4},

  Unit5 in 'Unit5.pas' {Form5};

{$R *.RES}

begin

  Application.Initialize;

  Application.CreateForm(TMainForm, MainForm);

  Application.Run;

end.

unit MainUnit;

interface

uses

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

  Menus, StdActns, ActnList, DB, Grids, DBGrids, ExtCtrls, DBCtrls,

  DBTables, ComCtrls, ToolWin, StdCtrls, Buttons, Mask;

type

  TMainForm = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N3: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    WindowMenu: TMenuItem;

    OpenDialog1: TOpenDialog;

    ActionList1: TActionList;

    Arrange1: TWindowArrange;

    Cascade1: TWindowCascade;

    Close1: TWindowClose;

    MinimizeAll1: TWindowMinimizeAll;

    TileHorizontally1: TWindowTileHorizontal;

    TileVertically1: TWindowTileVertical;

    N13: TMenuItem;

    N16: TMenuItem;

    Copy1: TEditCopy;

    Cut1: TEditCut;

    Paste1: TEditPaste;

    StatusBar1: TStatusBar;

    DataSource1: TDataSource;

    ToolBar1: TToolBar;

    ComboBox1: TComboBox;

    Timer1: TTimer;

    warehouse: TTable;

    DBGrid1: TDBGrid;

    N2: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N9: TMenuItem;

    N11: TMenuItem;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;

    SpeedButton7: TSpeedButton;

    SpeedButton8: TSpeedButton;

    Panel1: TPanel;

    Panel2: TPanel;

    Panel3: TPanel;

    Panel4: TPanel;

    Memo1: TMemo;

    N10: TMenuItem;

    N12: TMenuItem;

    N17: TMenuItem;

    N18: TMenuItem;

    N19: TMenuItem;

    N20: TMenuItem;

    N21: TMenuItem;

    N22: TMenuItem;

    Label1: TLabel;

    Splitter1: TSplitter;

    N23: TMenuItem;

    N24: TMenuItem;

    Query1: TQuery;

    N25: TMenuItem;

    procedure ComboBox1Change(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

   

    procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

     procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure ToolBar1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure N18Click(Sender: TObject);

    procedure N19Click(Sender: TObject);

    procedure N20Click(Sender: TObject);

    procedure N21Click(Sender: TObject);

    procedure N22Click(Sender: TObject);

    procedure SpeedButton6Click(Sender: TObject);

    procedure N24Click(Sender: TObject);

    procedure SpeedButton7Click(Sender: TObject);

    procedure N25Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  MainForm: TMainForm;

   editmark: boolean;

stDay : array[1..7] of string[11] = ('воскресенье','понедельник','вторник',

                                       'среда','четверг','пятница','суббота');

implementation

  uses Unit1, Unit2, Unit3, Unit4, Unit5;

{$R *.DFM}

procedure TMainForm.ComboBox1Change(Sender: TObject);

begin

warehouse.Active := false;

if combobox1.ItemIndex =  0 then   begin

warehouse.TableName:='Audi.db';

end;

if combobox1.ItemIndex = 1 then begin

warehouse.TableName:= 'Volkswagen.db';

end;

if combobox1.ItemIndex = 2 then     begin

warehouse.TableName := 'Skoda.db';

end;

warehouse.ReadOnly:=false;

dbgrid1.ReadOnly:=true;

warehouse.Active := true;

end;

procedure TMainForm.N8Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TMainForm.FormCreate(Sender: TObject);

var Present: TDateTime;

        year, month, day : word;

begin

present:=now;

decodedate(present,year,month,day);

statusbar1.Panels[2].Text:=inttostr(day)+'.'+inttostr(month)+'.'+inttostr(year)+', '+stDay[DayOfWeek(Present)];

end;

procedure TMainForm.N3Click(Sender: TObject);

begin

warehouse.Active := false;

if opendialog1.Execute then begin

warehouse.TableName:=opendialog1.FileName;

warehouse.Active:=true;

end;

end;

procedure TMainForm.Timer1Timer(Sender: TObject);

var date: Tdatetime;

begin

statusbar1.Panels[1].Text:=timetostr(time);

end;

procedure TMainForm.N6Click(Sender: TObject);

begin

combobox1.ItemIndex := -1;

warehouse.Active :=false;

warehouse.TableName := '';

end;

procedure TMainForm.SpeedButton1MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='Добавить';

end;

procedure TMainForm.SpeedButton2MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='Редактировать';

end;

procedure TMainForm.SpeedButton4MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='Быстрый  поиск';

end;

procedure TMainForm.SpeedButton5MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='Покупка';

End;

procedure TMainForm.SpeedButton7MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='О программе';

end;

procedure TMainForm.SpeedButton8MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='Выход  из приложения';

end;

procedure TMainForm.SpeedButton3MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='Удалить';

end;

procedure TMainForm.SpeedButton6MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='Выгрузить/Добавить  на склад';

end;

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Statusbar1.Panels[0].Text:='';

end;

procedure TMainForm.ToolBar1MouseMove(Sender: TObject; Shift: TShiftState;

  X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='';

end;

procedure TMainForm.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState;

  X, Y: Integer);

begin

Statusbar1.Panels[0].Text:='';

end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);

begin

if editmark=false then begin

label1.Caption:='Редактирование';

dbgrid1.Color:=clteal;

dbgrid1.ReadOnly:=false; warehouse.insert; editmark:=true end

        else begin

        dbgrid1.ReadOnly:=true; editmark:=false;

        label1.Caption:='';

        dbgrid1.Color:=clwindow; end;

end;

procedure TMainForm.SpeedButton3Click(Sender: TObject);

var k:integer;

begin

k:=messagebox(0,'Удалить запись?','Удаление',33);

if k=1 then begin

                memo1.Lines.Add(Timetostr(time)+' Запись была удалена  из таблицы [ '+inttostr(warehouse.fieldbyname('Код').Value)+' '+warehouse.fieldbyname('Наименование').Value+' ]');

                warehouse.Delete;

                end;

end;

procedure TMainForm.SpeedButton5Click(Sender: TObject);

begin

  Application.CreateForm(TForm1, Form1);

Form1.Show;

end;

procedure TMainForm.SpeedButton8Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TMainForm.SpeedButton2Click(Sender: TObject);

begin

if editmark=false then begin

label1.Caption:='Редактирование';

dbgrid1.Color:=clteal;

dbgrid1.ReadOnly:=false; warehouse.Edit; editmark:=true end

        else begin

        dbgrid1.ReadOnly:=true; editmark:=false;

        label1.Caption:='';

        memo1.Lines.Add(Timetostr(time)+' Таблица была  отредактирована');

        dbgrid1.Color:=clwindow; end;

end;

procedure TMainForm.N13Click(Sender: TObject);

begin

speedbutton5.Click;

end;

procedure TMainForm.N4Click(Sender: TObject);

begin

speedbutton1.Click;

end;

procedure TMainForm.N5Click(Sender: TObject);

begin

speedbutton2.Click;

end;

 

procedure TMainForm.N9Click(Sender: TObject);

begin

speedbutton3.Click;

end;