48618 (Разработка приложения, представляющего собой базу данных о сотрудниках), страница 5

2016-07-30СтудИзба

Описание файла

Документ из архива "Разработка приложения, представляющего собой базу данных о сотрудниках", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48618"

Текст 5 страницы из документа "48618"

begin

if (Dbedit1. text='') or (Dbedit2. text='') or (Dbedit3. text='') or (DblookupCombobox1. text='') or (DblookupCombobox2. text='') or (Dbedit5. text='') or (MaskEdit1. Text='') or (Dbedit9. text='') or (Dbedit10. text='') then Begin

if dbedit1. text='' then spisok: =spisok+'Фамилия, ';

if dbedit2. text='' then spisok: =spisok+'Имя, ';

if dbedit3. text='' then spisok: =spisok+'Отчество, ';

if DblookupCombobox1. text='' then spisok: =spisok+'Семейное положение, ';

if DblookupCombobox2. text='' then spisok: =spisok+'Пол, ';

if dbedit5. text='' then spisok: =spisok+'Номер страхового свидетельства, ';

if MaskEdit1. Text='' then spisok: =spisok+'Номер медполиса, ';

if dbedit9. text='' then spisok: =spisok+'Компания выдававшая медполис, ';

if dbedit10. text='' then spisok: =spisok+'Адрес компании выдававшей медполис, ';

Showmessage('Вы не заполнили поля: '+Spisok);

End; else begin

table1. FieldByName('Номер медполиса'). Asstring: =(MaskEdit1. Text);

table1. FieldByName('Дата выдачи страхового свидетельства'). AsDateTime: =DateTimePicker1. DateTime;

table1. post;

end; button1. Enabled: =true; button2. Enabled: =true; button3. Enabled: =true;

button4. Enabled: =true;

end;

При нажатие кнопки программа проверяет заполнения полей, в случае не заполнения их, выводится сообщение. Если все поля заполнены правильно таблица активизируется и данные заносятся в неё. Так же разблокируются кнопки button1, button2, button3, button4.

Обработчик Form8. Button1Click

begin

if (edit1. text='') and (edit2. text='') and (edit3. text='') and (edit4. text='') and (edit5. text='') and (edit6. text='') and (edit7. text='') and (edit8. text='') and (edit9. text='') and (edit10. text='') and (edit11. text='') and (edit12. text='') then Showmessage('Вы не внесли критерии поиска')

else

Begin

adoquery1. Parameters. ParamByName('p1'). Value: ='%'+edit1. text+'%';

adoquery1. Parameters. ParamByName('p2'). Value: ='%'+edit2. text+'%';

adoquery1. Parameters. ParamByName('p3'). Value: ='%'+edit3. text+'%';

adoquery1. Parameters. ParamByName('p4'). Value: ='%'+edit4. text+'%';

adoquery1. Parameters. ParamByName('p5'). Value: ='%'+edit5. text+'%';

adoquery1. Parameters. ParamByName('p6'). Value: ='%'+edit6. text+'%';

adoquery1. Parameters. ParamByName('p7'). Value: ='%'+edit7. text+'%';

adoquery1. Parameters. ParamByName('p8'). Value: ='%'+edit8. text+'%';

adoquery1. Parameters. ParamByName('p9'). Value: ='%'+edit9. text+'%';

adoquery1. Parameters. ParamByName('p10'). Value: ='%'+edit10. text+'%';

adoquery1. Parameters. ParamByName('p11'). Value: ='%'+edit11. text+'%';

adoquery1. Parameters. ParamByName('p12'). Value: ='%'+edit12. text+'%';

ADOQuery1. Active: = True;

end;

end;

При нажатие кнопки проверяет заполнения полей, в случае не заполнения их, выводится сообщение: "Вы не внесли критерии поиска". Если задан критерий, то по нему введётся поиск

Специфика программы

Исполняемый файл программы "Автоматизированная система начальника отдела кадров учреждения" имеет название BazaDann,exe.

Таблица 11

Наименование

Обозначение

Примечание

HELP

Файл помощник

Содержит пояснительную информацию

Project1. dof

Файл параметров проекта

Содержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивы

Project1. dpr

Файл проекта

Связывает все файлы из, которых состоит проект

Project1. res

Файл ресурсов

Содержит пиктограммы, графические рисунки

Unit1. pas

Файл программного модуля для формы №1

Определяет функциональность для формы №1

Unit2. pas

Файл программного модуля для формы №2

Определяет функциональность для формы №2

Unit3. pas

Файл программного модуля для формы №3

Определяет функциональность для формы №3

Unit4. pas

Файл программного модуля для формы №4

Определяет функциональность для формы №4

Unit5. pas

Файл программного модуля для формы №5

Определяет функциональность для формы №5

Unit6. pas

Файл программного модуля для формы №6

Определяет функциональность для формы №6

Unit7. pas

Файл программного модуля для формы №7

Определяет функциональность для формы №7

Unit8. pas

Файл программного модуля для формы №8

Определяет функциональность для формы №8

Unit9. pas

Файл программного модуля для формы №9

Определяет функциональность для формы №9

Unit10. pas

Файл программного модуля для формы №10

Определяет функциональность для формы №10

Unit1. dfm

Файл формы №1

Содержит список свойств всех компонентов, включенных в форму №1

Unit2. dfm

Файл формы №2

Содержит список свойств всех компонентов, включенных в форму №1

Unit3. dfm

Файл формы №3

Содержит список свойств всех компонентов, включенных в форму №1

Unit4. dfm

Файл формы №4

Содержит список свойств всех компонентов, включенных в форму №1

Unit5. dfm

Файл формы №5

Содержит список свойств всех компонентов, включенных в форму №1

Unit6. dfm

Файл формы №6

Содержит список свойств всех компонентов, включенных в форму №1

Unit7. dfm

Файл формы №7

Содержит список свойств всех компонентов, включенных в форму №1

Unit8. dfm

Файл формы №8

Содержит список свойств всех компонентов, включенных в форму №1

Unit9. dfm

Файл формы №9

Содержит список свойств всех компонентов, включенных в форму №1

Unit10. dfm

Файл формы №10

Содержит список свойств всех компонентов, включенных в форму №1

Unit1. dcu

Объектный файл для Unit1. pas

Откомпилированная версия Unit1. pas

Unit2. dcu

Объектный файл для Unit2. pas

Откомпилированная версия Unit2. pas

Unit3. dcu

Объектный файл для Unit3. pas

Откомпилированная версия Unit3. pas

Unit4. dcu

Объектный файл для Unit4. pas

Откомпилированная версия Unit4. pas

Unit5. dcu

Объектный файл для Unit5. pas

Откомпилированная версия Unit5. pas

Unit6. dcu

Объектный файл для Unit6. pas

Откомпилированная версия Unit6. pas

Unit7. dcu

Объектный файл для Unit7. pas

Откомпилированная версия Unit7. pas

Unit8. dcu

Объектный файл для Unit8. pas

Откомпилированная версия Unit8. pas

Unit9. dcu

Объектный файл для Unit9. pas

Откомпилированная версия Unit9. pas

Unit10. dcu

Объектный файл для Unit10. pas

Откомпилированная версия Unit10. pas

Саша

Файл базы данных Access

Содержит информацию о сотрудниках



Текст программы

unit Unit1;

interface

uses

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

Dialogs, Menus, ActnList, StdActns, ShellAPI, ComCtrls;

type

TForm1 = class(TForm) MainMenu1: TMainMenu; PopupMenu1: TPopupMenu;

ActionList1: TActionList; Open: TAction; N3: TMenuItem; N4: TMenuItem;

N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N12: TMenuItem;

Pasport: TAction; Obrazov: TAction; Rabota: TAction; VSY: TAction;

Poisc: TAction; N1: TMenuItem; N2: TMenuItem; N8: TMenuItem; StatusBar1: TStatusBar; procedure N4Click(Sender: TObject); procedure OpenExecute(Sender: TObject); procedure PoiscExecute(Sender: TObject); procedure N2Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N1Click(Sender: TObject); private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

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

{$R *. dfm}

procedure TForm1. N4Click(Sender: TObject);

begin

Close; // закрывает программу

end;

procedure TForm1. OpenExecute(Sender: TObject);

begin

form2: =tform2. Create(self); // открывает форму "Сведения о сотрудниках"

form2. showmodal;

end;

procedure TForm1. PoiscExecute(Sender: TObject);

begin

form7: =tform7. Create(self); // открывает форму "Поиск"

form7. showmodal;

end;

procedure TForm1. N2Click(Sender: TObject);

begin

form8: =tform8. Create(self); // открывает форму "Редактировать"

form8. showmodal;

end;

procedure TForm1. N8Click(Sender: TObject);

begin

ShellAbout(Form1. Handle, 'Картотека работников',

'Разработал студент 2 курса Рыженков А.В. ' + #13#10 +

'специальность"Информатика и ВТ"', Application. Icon. Handle);

end;

procedure TForm1. FormCreate(Sender: TObject);

begin

statusbar1. Panels. Items [1]. Text: =datetostr(date);

end;

procedure TForm1. N1Click(Sender: TObject);

begin

aPPLICATION. HelpFile: ='HELP. HLP';

APPLICATION. HelpCommand(HELP_FINDER,0);

end;

end.

unit Unit2;

interface

uses

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

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

ComCtrls;

type

TForm2 = class(TForm)

Свежие статьи
Популярно сейчас
Почему делать на заказ в разы дороже, чем купить готовую учебную работу на СтудИзбе? Наши учебные работы продаются каждый год, тогда как большинство заказов выполняются с нуля. Найдите подходящий учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4098
Авторов
на СтудИзбе
673
Средний доход
с одного платного файла
Обучение Подробнее