Назначение

Тип

Длина

F.I.O

Фамилия Имя Отчество

String

30 байт

Data_rozhdeniya

Дата Рождения

Real

16 байт

Za god

Зарплата за год

Real

8 байт

Dolzhnost

Должность

String

15 байт

Za mesyac

Зарплата за месяц

Real

10 байт

Таблица компонент

Описания компонент проекта представлены в таблице 2.6

Таблица 2.6 - Описания компонент проекта

Компонент	Тип	Свойство	Значение	Событие
Button1	TButton	Caption	Выход	OnClick
Edit1	TEdit	text	-	-
SpeedButton1	TSpeedButton	Glyph	Кнопка	-
PageControl	TPageControl	-	-	-
DataSource1	TDataSource	DataSet	-	-
DBGrid	TDBGrid	DataSource	-	-
DBNavigator	TDBNavigator	DataSource	Навигатор	-
DBImage1	TDBImage	DataSource	Изображение	-
Table1	TTable	DataBaseName	Таблица	-
OpenPictureDialog1	TOpenPictureDialog	-	-	-

2.2 Описание проблемной программы

Постановка проблемной программы №1

Организовать поиск по имени сотрудника.

Для поиска пользователю выдается окно табличного типа в окне необходимо ввести марку машины и нажать Enter.

Постановка проблемной программы №2

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

3. Организация производства

3.1 Комплекс технических средств

Рекомендуемая конфигурация компьютера:

- BM PC - совместимый компьютер с процессором Athlon 1600+ или выше;

- 512 Мбайт или выше оперативной памяти;

- 12 Мбайт или выше на жестком диске;

- ОС MS DOS 6.22;

- Клавиатура.

3.2 Инструкция пользователю

Для запуска программного комплекса пользователю необходимо запустить файл dbtat. Окно ввода пароля представлено на рисунке 3.1

Рисунок 3.2

Если пароль введен не верно, выводится сообщение.

Рисунок 3.3

Если пароль введен верно, то вы перейдете в окно главного меню рисунок 3.3

Рисунок 3.4

В нем можно выбрать 4 БД в верхнем углу окна программы

Рисунок 3.5

При выборе 1 из пунктов меню вы будете перемещены в 1 из БД или в меню ввода пароля

Рисунок 3.6

Поиск ищет сотрудника по 3 полям: Имя фамилия Отчество (Ф.И.О.), Адресс, должность.

Если такой записи нет будет выведено сообщение на рисунке 3.7

Рисунок 3.7

Заключение

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

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

1. Архангельский А.Я. Программирование в Delphi 6.-M.:ЗАО «Издательство БИНОМ» 2003 г.

2. Гутман Г.Н. Статья в газете «Информатика» №21, 2003 г.

3. Иллюстрированный самоучитель по Delphi 6, 2002 г.

4. Иллюстрированный самоучитель по Delphi 7 для профессионалов.

5. Куандыков А.А. Создание системы базы данных в среде Delphi: учебное пособие. Алматы: 2006 г.

6. Малышев О.В. Справочная система по DELPHI. Версия 1.0. 1999 г.

7. Попов В.Б. Turbo Pascal для школьников, M.: <<Финансы и статистика>>, 2003 г.

8. Пинкус М. Электронный учебник 32 урока по Delphi: электронная библиотека InfoCity.

9. Фаронов В.В. Delphi 2005 разработка приложений для баз данных и интернета.

СПб.: Питер, 2006 г.

10. Фаронов В.В. Turbo Pascal 7/0, 2001 г.

11. Фленов М.Е. Базы данных в среде Delphi 3, 2003 г.

Приложение

Листинг программы

program Project1;

uses

Forms,

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},

Unit6 in 'Unit6.pas' {Form6};

{$R *.res}

begin

Application. Initialize;

Application. CreateForm (TForm1, Form1);

Application. CreateForm (TForm2, Form2);

Application. CreateForm (TForm3, Form3);

Application. CreateForm (TForm4, Form4);

Application. CreateForm (TForm5, Form5);

Application. CreateForm (TForm6, Form6);

Application. Run;

end.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Image1: TImage;

procedure Button1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1. Button1Click (Sender: TObject);

Var f:textfile;

a, pass:string;

i:integer;

chk:boolean;

begin

assignfile (f, 'C:\Users\Bismarck\Desktop\курсовой\курс (остались задачи)\Пароль.txt');

reset(f);

pass:=Edit1. Text; chk:= false;

While (not EOF(f)) and (chk=false) DO

begin

Read (f, a);

if a=pass then chk:=true;

end;

if (chk=true) then form2.show

else

MessageDLG ('Неверный пароль', mtinformation, [mbOK], 0);

closefile(f);

form1. Hide

end;

procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);

begin

form1.close;

end;

end.

procedure TForm2.N3Click (Sender: TObject);

begin

form1. Show;

form2.hide;

end;

procedure TForm2.N4Click (Sender: TObject);

begin

form3.show;

form2. Hide;

end;

procedure TForm2.N5Click (Sender: TObject);

begin

form4.show;

form2. Hide;

end;

procedure TForm2.N1Click (Sender: TObject);

begin

form5.show;

form2. Hide;

end;

procedure TForm2.N2Click (Sender: TObject);

begin

form6.show;

form2. Hide;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, Mask, DB, ExtCtrls, Grids, DBGrids, DBTables,

ExtDlgs, Buttons;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

Label9: TLabel;

DBEdit9: TDBEdit;

Label10: TLabel;

Label11: TLabel;

DBImage1: TDBImage;

Button1: TButton;

OpenPictureDialog1: TOpenPictureDialog;

RadioGroup1: TRadioGroup;

Edit1: TEdit;

Label12: TLabel;

SpeedButton1: TSpeedButton;

Button3: TButton;

DataSource1: TDataSource;

Query1: TQuery;

Table1: TTable;

Button4: TButton;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Table1FIO: TStringField;

Table1Obraz: TStringField;

Table1Adress: TStringField;

Table1Telefon: TFloatField;

Table1Dataroj: TDateField;

Table1Mesyzcroj: TDateField;

Table1Godroj: TDateField;

Table1Doljnost: TStringField;

Table1Staj: TStringField;

Table1Foto: TStringField;

Table1Rab: TFloatField;

Table1Sotr: TFloatField;

Label17: TLabel;

Label18: TLabel;

Button2: TButton;

Button5: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form3: TForm3;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3. Button1Click (Sender: TObject);

begin

if openpicturedialog1. Execute then

begin

dbimage1.picture.loadfromfile

(openpicturedialog1. FileName);

end;

end;

procedure TForm3. Button2Click (Sender: TObject);

var k:integer;

begin

form3. Table1. First;

k:=0;

while not (form3. Table1. Eof) do

begin

k:=k+StrToInt (form3. Table1.fieldByName('FIO').AsString);

form3. Table1. Next;

end;

label12.caption:='кол-во рабов='+inttostr(k);

end;

procedure TForm3. SpeedButton1Click (Sender: TObject);

var pole: Shortstring;

begin

Case RadioGroup1. ItemIndex OF

0: Pole:='FIO';

1: Pole:='Adress';

2: Pole:='Doljnost';

end;

if not Table1. Locate (Pole, edit1. Text, [locaseinsensitive, loPartialKey]) then

MessageDLG ('Нет такой записи!', mtinformation, [mbOK], 0);

end;

procedure TForm3. Button4Click (Sender: TObject);

var max:integer;

begin

Table1. First;

max:=0;

While not (Table1. Eof) do

begin

if (Table1. FieldByName('Staj').Value)>(max) then

max:=table1.fieldbyname('Staj').Value;

Table1. Next;

end;

Label14.caption:='Самый большой стаж= '+inttostr(max);

end;

procedure TForm3. Button3Click (Sender: TObject);

var k, k1, k2:integer;

begin

Table1. First;

k:=0;

k1:=0;

While not (Table1. Eof) do

begin

k:=k+Table1. FieldbyName('Rab').AsInteger;

k1:=k1+Table1. FieldbyName('Sotr').Asinteger;

k2:=k+k1;

Table1. Next;

end;

Label12.caption:='Количество рабов='+InttoStr(k);

Label17.caption:='Количество сотрудников='+InttoStr(k1);

Label18.caption:='Количество всего='+InttoStr(k2);

end;

procedure TForm3. Button5Click (Sender: TObject);

begin

form3. Hide;

form2. Show;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids;

type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

Table1Sotrdniki: TStringField;

Table1Doljnost: TStringField;

Table1Zarplata: TCurrencyField;

Table1Zaprlatazagod: TCurrencyField;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Label5: TLabel;

Label6: TLabel;

Button11: TButton;

Button12: TButton;

procedure Button1Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button9Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button10Click (Sender: TObject);

procedure Button12Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm4. Button1Click (Sender: TObject);

begin

table1. First;

end;

procedure TForm4. Button8Click (Sender: TObject);

begin

table1. Prior;

end;

procedure TForm4. Button2Click (Sender: TObject);

begin

table1.last;

end;

procedure TForm4. Button7Click (Sender: TObject);

begin

table1. Next;

end;

procedure TForm4. Button6Click (Sender: TObject);

begin

table1. Delete;

end;

procedure TForm4. Button9Click (Sender: TObject);

begin

table1. Cancel;

end;

procedure TForm4. Button4Click (Sender: TObject);

begin

table1.post;

end;

procedure TForm4. Button5Click (Sender: TObject);

begin

table1.insert;

end;

procedure TForm4. Button3Click (Sender: TObject);

begin

table1. Edit;

end;

procedure TForm4. Button10Click (Sender: TObject);

var max:integer;

begin

Table1. First;

max:=0;

While not (Table1. Eof) do

begin

if (Table1. FieldByName('Zarplata').Value)>(max) then

max:=table1.fieldbyname('Zarplata').Value;

Table1. Next;

end;

Label5.caption:='максимальная зарплата= '+inttostr(max);

end;

procedure TForm4. Button12Click (Sender: TObject);

begin

form4. Hide;

form2. Show;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Table1: TTable;

DBMemo1: TDBMemo;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label4: TLabel;

Label8: TLabel;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm5. Button1Click (Sender: TObject);

begin

form5.hide;

form2. Show;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Table1: TTable;

Table1Model: TStringField;

Table1PoslednieTO: TStringField;

Table1Datapostupleniya: TStringField;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm6. Button1Click (Sender: TObject);

begin

form6. Hide;

form2. Show;

end;

end.

Размещено на Allbest.ru