1.4.2 Додавання даних і створення інших об'єктів бази даних

Після проектування таблиць, полів і зв'язків необхідно ще раз переглянути структуру бази даних і виявити можливі недоліки. Бажано це зробити на даному етапі, поки таблиці не заповнені даними. Для перевірки необхідно створити кілька таблиць, визначити зв'язки між ними та ввести кілька записів у кожну таблицю, потім подивитися, чи відповідає база даних поставленим вимогам. Рекомендується також створити чернеткові вихідні форми та звіти й перевірити, чи видають вони необхідну інформацію. Крім того, необхідно виключити з таблиць усі можливі повторення даних.

Якщо структури таблиць відповідають поставленим вимогам, то можна вводити всі дані. Потім можна створювати будь-які запити, форми, звіти, макроси та модулі.

Висновки

На підставі проведеного аналізу приймальної комісії видно, що численну ручну роботу, що виконується працівниками приймальної комісії, після автоматизації виконує КТС. Основні завдання, які спочатку стояли, були виконані, а саме:

- автоматизація організацій умов зберігання;

- автоматизація оформлення документів.

Оскільки автоматизації підлягала область, яка зачіпає великі витрати на підготовку вихідних даних, те впровадження цієї програми дозволяє значно понизити час, необхідне, для отримання інформації. Завдяки цьому результатом автоматизації буде реальна економія коштів на виплату заробітної плати робітникам. Впровадження цієї програми дає можливість за короткий час знайти потрібну інформацію. Також за допомогою цієї програми значно збільшується ефективність роботи приймальної комісії.

Перелік посилань

1. Кірілов В.В. Структуризована мова запитів (SQL). – СПб.: ИТМО, 1994г.

2. Джексон Г. Проектироване реляційних баз даних для використання с микро-ЭОМ. –М.: Мир, 1991г.

3. Дж. Ульман, Д. Уідом "Введення до системи бази даних". –М.: "Лори", 2000г.

4. К. Дейт " Введення до системи бази даних ". -М.: "Вильямс" 2000г.

5. Мейер М. Теорія реляційних баз даних. –М.: Мир, 1987г.

6. Ульман Дж. Бази даних на Паскаль. – М.: Машинобудування, 1990г.

Додаток а

Програмний код

unit Unit1;

interface

uses

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

Dialogs, Menus, Grids, DBGrids, DB, MemDS, DBAccess, MyAccess;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N7: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

DBGrid1: TDBGrid;

MyQuery1: TMyQuery;

MyDataSource1: TMyDataSource;

procedure N7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit2;

{$R *.dfm}

procedure TForm1.N7Click(Sender: TObject);

begin

form3.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

form4.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form5.ShowModal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form6.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form7.ShowModal;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

MyQuery1.Active:=true;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DBCtrls;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

edit: boolean;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

edit1.Text:='';

edit1.SetFocus;

edit:=false;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

if edit then

begin

dm.updkabinet.ParamByName('sid').Value:=dm.kabidkabinet.Value;

dm.updkabinet.ParamByName('snazva').Value:=edit1.Text;

dm.updkabinet.ParamByName('sid').Value:=dm.molidmol.Value;

dm.updkabinet.ExecProc;

dm.kab.Close;

dm.kab.Open;

end else

begin

with dm do

begin

addkab.ParamByName('snazva').Value:=edit1.Text;

addkab.ParamByName('sid').Value:=dm.molidmol.Value;

addkab.ExecProc;

kab.Close;

kab.Open;

end;

end;

edit1.Text:='';

button1.SetFocus;

end;