48618 (608687), страница 5

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 5)

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)

Характеристики

Список файлов курсовой работы