Разработка приложения, представляющего собой базу данных о сотрудниках (стр. 3 из 8)
 |
Рис.8 Окно программы - "Работа"
Таблица 7
| № | Компонент | Свойства | Событие |
| Form5 | Caption - Работа; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 283; ClientWidth - 750; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; | OnCreative - FormCreate; | |
| 1 | Tlabel1 | Caption - Общий стаж работы. | Нет |
| 2 | Tlabel2 | Caption - Непрерывный стаж работы. | Нет |
| 3 | Tlabel3 | Caption - Последнее место работы. | Нет |
| 4 | Table4 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Работа; | Нет |
| 5 | DataSource1 | Data Set - Table4; | Data Set - Table4; |
| 6 | Button1 | Caption - Внести; | OnClick - Button1Click. |
| 7 | DBEdit3 | Data Field - Последнее место работы; Data Sourse - DataSource1. | Data Sourse - DataSource1. |
| 8 | DBEdit2 | Data Field - Непрерывный стаж работы; Data Sourse - DataSource1. | Data Sourse - DataSource1. OnKeyPress - Edit2KeyPress; |
| 9 | DBEdit1 | Data Field - Общий стаж работы; Data Sourse - DataSource1. | Data Sourse - DataSource1. OnKeyPress - Edit1KeyPress; |
| 10 | Tlabel4 | Caption - Причина увольнения. | Нет |
| 11 | Tlabel5 | Caption - Дата увольнения (формат дн. мц. гггг.). | Нет |
| 12 | Tlabel6 | Caption - Профессия(Должность). | Нет |
| 13 | Button2 | Caption - Выход; | OnClick - Button2Click. |
| 14 | DBEdit6 | Data Field - Причины увольнения; Data Sourse - DataSource1. | Data Sourse - DataSource1. |
| 15 | DBEdit5 | Data Field - Дата увольнения; Data Sourse - DataSource1. | Data Sourse - DataSource1. |
| 16 | DBEdit4 | Data Field - Профессия (Должность); Data Sourse - DataSource1. | Data Sourse - DataSource1. OnKeyPress - Edit4KeyPress; |
Окно Form6 заносятся сведенья о военной службе. (Рис.9).
Рис.9. Окно программы - "ВУС"
Таблица 8
| № | Компонент | Свойства | Событие |
| Form5 | Caption - ВУС; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 724; ClientWidth - 1024; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; | OnCreative - FormCreate; | |
| 1 | Tlabel1 | Caption - Годность к военной службе. | Нет |
| 2 | Tlabel2 | Caption - Обязанность. | Нет |
| 3 | Tlabel3 | Caption - Группа войск. | Нет |
| 4 | Tlabel4 | Caption - Категория запаса | Нет |
| 5 | Tlabel5 | Caption - Состав. | Нет |
| 6 | Tlabel6 | Caption - Воинское звание. | Нет |
| 7 | Table9 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Годность к военной службе; | Нет |
| 8 | Table11 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Воиннское звание; | Нет |
| 9 | Table10 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Обязаность; | Нет |
| 10 | Table5 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - ВУС; | Нет |
| 11 | DataSource2 | Data Set - Table9 | Data Set - Table9 |
| 12 | DataSource4 | Data Set - Table11 | Data Set - Table11 |
| 13 | DataSource3 | Data Set - Table10 | Data Set - Table10 |
| 14 | DataSource1 | Data Set - Table5; | Data Set - Table5; |
| 15 | DBLookup ComboBox3 | Data Field - Воинское звание; Data Sourse - DataSource1; Key Field - Воинское звание; List Field - Воинское звание; List Source - DataSource4; | Data Sourse - DataSource1; List Source - DataSource4; |
| 16 | Button1 | Caption - Внести; | OnClick - Button1Click. |
| 17 | Tlabel11 | Caption - Выдан. | Нет |
| 18 | Tlabel10 | Caption - Номер военного билета. | Нет |
| 19 | Tlabel9 | Caption - Наименование военкомата по месту жительства. | Нет |
| 20 | Tlabel8 | Caption - Состоит на спецучете. | Нет |
| 21 | Tlabel7 | Caption - Военно-учётная специальная номер. | Нет |
| 22 | Button2. | Caption - Выход; | OnClick - Button2Click. |
| 23 | DateTimePicker1. | Date - 04.06. 2005; Tab Order - 15; Time - 11: 10: 53; | Нет |
| 24 | DBEdit7. | Data Field - Номер военного билета; Data Sourse - DataSource1 | Data Sourse - DataSource1 |
| 25 | DBEdit6 | Data Field - Наименование военкомата по месту жительства; Data Sourse - DataSource1 | Data Sourse - DataSource1 |
| 26 | DBEdit5 | Data Field - Состоит на спецучете номер; Data Sourse - DataSource1 | Data Sourse - DataSource1 |
| 27 | DBEdit4 | Data Field - Военно-учетная специальность номер; Data Sourse - DataSource1 | Data Sourse - DataSource1 |
| 28 | DBEdit3 | Data Field - Состав; Data Sourse - DataSource1 | Data Sourse - DataSource1 |
| 29 | DBEdit2 | Data Field - Категория запаса; Data Sourse - DataSource1 | Data Sourse - DataSource1 |
| 30 | DBEdit3 | Data Field - Группа войск; Data Sourse - DataSource1 | Data Sourse - DataSource1 |
| 31 | DBLookupComboBox2 | Data Field - Обязанность; Data Sourse - DataSource1; Key Field - Обязанность; List Field - Обязанность; List Source - DataSource3 | Data Sourse - DataSource1 List Source - DataSource3 |
| 32 | DBLookupComboBox1 | Data Field - Годность к военной служб; Data Sourse - DataSource1; Key Field - Годность к военной служб; List Field - Годность к военной служб; List Source - DataSource2; | Data Sourse - DataSource1; List Source - DataSource2; |
Окно Form7 поиск информации по базе данных. (Рис.10).
Рис.10 Окно программы - "Поиск"
Таблица 9
| № | Компонент | Свойства | Событие |
| Form7 | Caption - Поиск; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 338; ClientWidth - 808; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; | Нет | |
| 1 | DBGrid1 | DataSource - DataSource1. DataSource - DataSource1; | DataSource - DataSource1. |
| 2 | DBNavigator1 | DataSource - DataSource1; VisibleButtons - nbPrior,nbNext | DataSource - DataSource1. |
| 3 | Tlabel1 | Caption - Фамилия. | Нет |
| 4 | Tlabel2 | Caption - Имя. | Нет |
| 5 | Tlabel3 | Caption - Отчество | Нет |
| 6 | Tlabel4 | Caption - Серия. | Нет |
| 7 | Tlabel5 | Caption - Номер. | Нет |
| 8 | Tlabel6 | Caption - По адресу | Нет |
| 9 | ADOQuery1 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; CursorType - ctStatic; Parameters - (TParameters); | Нет |
| 10 | DataSource1 | Data Set - ADOQuery1 | Data Set - ADOQuery1 |
| 11 | Edit6 | Text - очистить. OnKeyPress - Edit2KeyPress; OnKeyPress - Edit2KeyPress; | Нет |
| 12 | Edit5 | Text - очистить. | OnKeyPress - Edit5KeyPress; |
| 13 | Edit4 | Text - очистить. | OnKeyPress - Edit4KeyPress; |
| 14 | Edit3 | Text - очистить. | OnKeyPress - Edit3KeyPress; |
| 15 | Edit2 | Text - очистить. | OnKeyPress - Edit2KeyPress |
| 16 | Edit1 | Text - очистить. | OnKeyPress - Edit1KeyPress |
| 17 | Tlabel12 | Caption - Номер военного билета. | Нет |
| 18 | Tlabel11 | Caption - Профессия(Должность). | Нет |
| 19 | Tlabel10 | Caption - Вид образования. | Нет |
| 20 | Tlabel9 | Caption - Дата рождения (формат дн. мц. гггг.). | Нет |
| 21 | Tlabel8 | Caption - Номер медполиса. | Нет |
| 22 | Tlabel7 | Caption - Номер страхового свидетельства. | Нет |
| 23 | Edit12 | Text - очистить. | Нет |
| 24 | Edit11 | Text - очистить. | OnKeyPress - Edit11KeyPress |
| 25 | Edit10 | Text - очистить. | OnKeyPress - Edit12KeyPress |
| 26 | Edit9 | Text - очистить. | Нет |
| 27 | Edit8 | Text - очистить. | OnKeyPress - Edit8KeyPress |
| 28 | Panel1 | Text - очистить. | Нет |
| 29 | Button5 | Caption - Выход; | OnClick - Button5Click |
| 30 | Button4 | Caption - Очистить | OnClick - Button4Click. |
| 31 | Button3 | Caption - Краткий отчёт; | OnClick - Button3Click. |
| 32 | Button2 | Caption - Полный отчёт; | OnClick - Button2Click. |
| 33 | Button1 | Caption - Поиск; | OnClick - Button1Click. |
| 34 | Edit7 | Text - очистить. | OnKeyPress - Edit7KeyPress; |
Окно Form8 поиск информации по базе данных. (Рис.11).
Рис.11. Окно программы - "Редактирование"
Таблица 10
| № | Компонент | Свойства | Событие |
| Form7 | Caption - Поиск; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 724; ClientWidth - 1024; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; | Нет | |
| 1 | DBGrid1 | DataSource - DataSource1. DataSource - DataSource1; | DataSource - DataSource1. |
| 2 | DBNavigator1 | DataSource - DataSource1; VisibleButtons - nbFirst, nbPrior, bNext, nbLast, nbEdit, nbPost, nbCancel, nbRefresh. | DataSource - DataSource1. |
| 3 | Tlabel1 | Caption - Фамилия. | Нет |
| 4 | Tlabel2 | Caption - Имя. | Нет |
| 5 | Tlabel3 | Caption - Отчество | Нет |
| 6 | Tlabel4 | Caption - Серия. | Нет |
| 7 | Tlabel5 | Caption - Номер. | Нет |
| 8 | Tlabel6 | Caption - По адресу | Нет |
| 9 | ADOQuery1 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; CursorType - ctStatic; Parameters - (TParameters); | Нет |
| 10 | DataSource1 | Data Set - ADOQuery1 | Data Set - ADOQuery1 |
| 11 | Edit6 | Text - очистить. OnKeyPress - Edit2KeyPress; OnKeyPress - Edit2KeyPress; | Нет |
| 12 | Edit5 | Text - очистить. | OnKeyPress - Edit5KeyPress; |
| 13 | Edit4 | Text - очистить. | OnKeyPress - Edit4KeyPress; |
| 14 | Edit3 | Text - очистить. | OnKeyPress - Edit3KeyPress; |
| 15 | Edit2 | Text - очистить. | OnKeyPress - Edit2KeyPress |
| 16 | Edit1 | Text - очистить. | OnKeyPress - Edit1KeyPress |
| 17 | Tlabel12 | Caption - Номер военного билета. | Нет |
| 18 | Tlabel11 | Caption - Профессия(Должность). | Нет |
| 19 | Tlabel10 | Caption - Вид образования. | Нет |
| 20 | Tlabel9 | Caption - Дата рождения (формат дн. мц. гггг.). | Нет |
| 21 | Tlabel8 | Caption - Номер медполиса. | Нет |
| 22 | Tlabel7 | Caption - Номер страхового свидетельства. | Нет |
| 23 | Edit12 | Text - очистить. | Нет |
| 24 | Edit11 | Text - очистить. | OnKeyPress - Edit11KeyPress |
| 25 | Edit10 | Text - очистить. | OnKeyPress - Edit12KeyPress |
| 26 | Edit9 | Text - очистить. | Нет |
| 27 | Edit8 | Text - очистить. | OnKeyPress - Edit8KeyPress |
| 28 | Panel1 | Text - очистить. | Нет |
| 29 | Button3 | Caption - Выход; | OnClick - Button3Click |
| 30 | Button2 | Caption - Сохранить | OnClick - Button2Click |
| 31 | Button4 | Caption - Очистить | OnClick - Button4Click |
| 32 | Button1 | Caption - Поиск | OnClick - Button1Click |
| 33 | Edit7 | Text - очистить. | OnKeyPress - Edit7KeyPress; |
Обработчик Form2. Button5Click.