Создание программы для учета сотрудников предприятия

Очень часто  требуется какие-то поля скрыть, а  у каких-то изменить отображение. Для  этого воспользуемся Data Module.

Для начала перенесём  компоненты доступа к базе данных в отдельное специальное окно. Нужно выделить компоненты ADOConnection1, ADOTable1 и DataSource1 и вырезать их.

Теперь запустить  окно из меню File – New - Data Module, которое  удобно подходит для хранения компонентов  доступа к базам данных.

Вставить в  это окно ранее вырезанные ADOConnection1, ADOTable1 и DataSource1.

Сохранить новый  модуль под именем datamodul1.

После этого  в главной форме в сетке DBGrid1 нет данных, потому что она потеряла связь с компонентами доступа  к данным. Чтобы форма узнала о  существовании компонентов, ей нужно указать в разделе uses модуль datamodul1. Это можно сделать вручную или выбрать из меню File пункт Use Unit (в этот момент должно быть выделено окно кода главной формы, потому что подключается новый модуль именно к ней). В появившемся окне  нужно выбрать имя нового модуля datamodul1 (пока оно одно в списке) и нажать ОК. После чего в редакторе кода после ключевого слова implementation появилось «uses datamodul1;».

Вот теперь можно  выделять сетку DBGrid1 и в свойстве DataSource указывать компонент, данные которого должны быть отображены в сетке (DataModule1.DataSource1).

Теперь переходим  в модуль DataModule и попытаемся настроить  отображение данных. Дважды щёлкнем  по компоненту ADOTable1 и появится окно редактирования полей базы данных.

Для добавления в него всех полей, нужно щёлкнуть в нём правой кнопкой мыши и  в появившемся меню выбрать пункт Add all field (Добавить все поля). Окно автоматически заполнится именами полей.

Поля можно  переставлять местами, двигая мышкой. При этом физическое расположение в базе данных не меняется, зато при отображении данных в сетке, они будут отображаться в том порядке, в котором они выстроены здесь. Теперь можно выделять отдельные поля и в объектном инспекторе редактировать их свойства. Свойства у полей могут быть разные, в зависимости от типа поля.

Visible – отвечает  за видимость объекта, если false, то поле не видно.

За ширину колонки  отвечает свойство DisplayWidth.

DefaultExpression –  здесь можно указать значение  по умолчанию. В дальнейшем, когда будут создаваться новые строки, то в поля будут сразу заноситься указанные здесь значения.

MaxValue – максимально  допустимое значение. Если это  числовое поле и оно должно  изменяться в определённых рамках (например, от 0 до 100), то желательно  указать эти ограничения здесь, чтобы сократить вероятность опечатки пользователем.

MinValue – минимально  допустимое значение.

ReadOnly –поле  только для чтения.

Required – если  здесь true, то поле является  обязательным и обязательно должно  иметь какое-то значение. Если пользователь ничего не укажет, то программа сообщит об этом.

Tag – просто  числовое значение, которое можно  использовать по своему усмотрению.

DisplayLabel - отвечает  за текст, отображаемый в заголовке  колонки.

DisplayFormat – регулирует  формат данных.

DisplayValues – отображаемое  значение.

 

 

 

 

 

 

 

 

 

 

 

3. РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ СУБД

 

Разрабатываемая программа  предназначена для работы в среде операционной системы Windows на персональных компьютерах, совместимых с IBM PC.

Для начала работы в БД необходимо запустить файл “Project1.exe”. После запуска программы на экране появится главная форма программы (рис.1)

Рис.1

На этой форме размещена  таблица «Сотрудники», кнопка «Файл» и кнопка «Сортировка» и «Навигатор таблицы».

Для ввода персональных данных нового сотрудника нужно нажать кнопку «+», находящуюся на навигаторе который расположен над таблицей «Сотрудники»,после чего появляеться строка для ввода данных (рис.2).

Рис.2

 Для удаления сотрудника из БД следует нажать на строку с фамилией и нажать на кнопку «-».(Рис.3)

Рис.3

Для поиска нужного сотрудника нужно ввести его фамилию в строку поиска.(Рис.4)

рис.4

 

 

 

 

 

 

4. ЗАКЛЮЧЕНИЕ

В данной курсовой работе в визуальной разработки Delphi создана система управления базой данных. Мною был выбран более легкий путь по созданию базы данных, т. к из временной невозможности освоить материал полностью. В данной БД были реализованы такие функции как добавление данных, редактирование, удаление, поиск, и сохранение БД в файл Microsoft Office Excel В связи с недостаточностью времени не были реализованы некоторые функции СУБД, такие как контроль корректности ввода, запросы и сортировка по разным критериям и д.р.

 

 

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. www.allbest.ru
2. www.wikipedia.ru
3. Фаронов В. В. Delphi 2005. Разработка приложений для баз данных и Интернета. – СПб. : Питер, 2006. – 603 с. : ил.
4. Бакнелл Дж. Фундаментальные алгоритмы и структуры данных в Delphi. Библиотека программиста. – М. : «ДиаСофтЮП» ; СПб. : Питер, 2006. – 557 с. : ил.
5. Культин Н. Б. Основы программирования в Delphi. – 2-е изд., перераб. и доп. – СПб. : БХВ-Петербург, 2009. – 640 с. : ил. + CD-ROM.
6. Архангельский А. Я. Программирование в Delphi для Windows. Версии 2006, 2007, Turbo Delphi. – М. : ООО «Бином-Пресс», 2010. – 1248 с. : ил.
7. Фаронов В. В. Delphi. Программирование на языке высокого уровня : Учебник для вузов – СПб. : Питер, 2005. – 640 с. : ил.
8. Фаронов В. В. Delphi 2005. Язык, среда, разработка приложений. – СПб. : Питер, 2007. – 560 с. : ил.

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение A

Код программы

unit Unit1;

interface

uses

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

  Dialogs, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, Menus, ToolWin, Grids,ComObj,

  DBGrids;

type

  TForm1 = class(TForm)

    DBGrid1: TDBGrid;

    MainMenu1: TMainMenu;

    ToolBar1: TToolBar;

    N1: TMenuItem;

    N2: TMenuItem;

    FilterFamEdit: TEdit;

    Label1: TLabel;

    DBNavigator1: TDBNavigator;

    ToolButton1: TToolButton;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    ExelItem: TMenuItem;

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure FilterFamEditChange(Sender: TObject);

    procedure ExelItemClick(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);

begin

DataModule2.ADOTable1.Sort:='Фамилия';

end;

procedure TForm1.N5Click(Sender: TObject);

begin

DataModule2.ADOTable1.Sort:='№';

end;

procedure TForm1.FilterFamEditChange(Sender: TObject);

begin

   If Length(FilterFamEdit.Text)>0 then

   DataModule2.ADOTable1.Filtered:=True

else DataModule2.ADOTable1.Filtered:=False;

DataModule2.ADOTable1.Filter:='Фамилия>'''+FilterFamEdit.Text+''''

end;

procedure TForm1.ExelItemClick(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Сотрудники';

Colum:=XLApp.Workbooks[1].WorkSheets['Сотрудники'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Сотрудники'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlack;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Сотрудники'];

Sheet.Cells[1,2]:='№';

Sheet.Cells[2,1]:='Фамилия';

Sheet.Cells[2,2]:='Имя';

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

 Sheet.Cells[2,4]:='Трудовая книжка №';

Sheet.Cells[2,5]:='Дата поступления  на работу';

Sheet.Cells[2,6]:='Поощирения';

Sheet.Cells[2,7]:='Наказания';

Sheet.Cells[2,8]:='Дата увольнения';

Sheet.Cells[2,9]:='Причина увольнения';

 index:=3;

DataModule2.ADOTable1.First;

for i:=0 to DataModule2.ADOTable1.RecordCount-1 do

begin

   Sheet.Cells[index,1]:=DataModule2.ADOTable1.Fields.Fields[1].AsString;

   Sheet.Cells[index,2]:=DataModule2.ADOTable1.Fields.Fields[2].AsString;

   Sheet.Cells[index,3]:=DataModule2.ADOTable1.Fields.Fields[3].AsString;

   Sheet.Cells[index,4]:=DataModule2.ADOTable1.Fields.Fields[5].AsString;

   Sheet.Cells[index,5]:=DataModule2.ADOTable1.Fields.Fields[4].AsString;

   Sheet.Cells[index,6]:=DataModule2.ADOTable1.Fields.Fields[6].AsString;

   Sheet.Cells[index,7]:=DataModule2.ADOTable1.Fields.Fields[7].AsString;

   Sheet.Cells[index,8]:=DataModule2.ADOTable1.Fields.Fields[8].AsString;

   Sheet.Cells[index,9]:=DataModule2.ADOTable1.Fields.Fields[9].AsString;

   Inc(index);

   DataModule2.ADOTable1.Next;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.