Висновки

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

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

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

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

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

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;