var
spisok: string;
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)
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;
Label6: TLabel; Label7: TLabel; Label8: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit;
Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton;
Button5: TButton; Button6: TButton; DataSource1: TDataSource;
Table1: TADOTable; DataSource2: TDataSource; Table6: TADOTable; DBLookupComboBox1: TDBLookupComboBox; Table7: TADOTable; DataSource3: TDataSource; DBLookupComboBox2: TDBLookupComboBox; DateTimePicker1: TDateTimePicker; MaskEdit1: TMaskEdit; procedure Button6Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject);