Разработка приложения, представляющего собой базу данных о сотрудниках (стр. 2 из 8)
Свойства:
Схема 1
Items
Файл (N1) Поиск(N5) Начало работы (N6) О программе(N12)
Выход (N4) Сведения о сотруднике(N7) Помощь(N1)
Редактирование(N2) Создатель(N8)
 |
Окно Form2 заносятся общие сведенья о сотруднике. (Рис.5).
| № | Компонент | Свойства | Событие |
| Form2 | Caption - Сведения о сотрудниках; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 468; ClientWidth - 844; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; | OnCreative - FormCreate; | |
| 1 | Tlabel1 | Caption - Фамилия | Нет |
| 2 | Tlabel2 | Caption - Имя | Нет |
| 3 | Table1 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Семейное положение; | Нет |
| 4 | Tlabel4 | Caption - Отчество | Нет |
| 5 | Table6 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Семейное положение; | Нет |
| 6 | Tlabel5 | Caption - Семейное положение | Нет |
| 7 | DataSource2 | Data Set - Table6; | Data Set - Table6; |
| 8 | Tlabel5 | Caption - Гражданство | Нет |
| 9 | Table7 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; | Нет |
| 10 | Tlabel6 | Table Name - Пол; | Нет |
| 11 | Tlabel7 | Caption - Пол. | Нет |
| 12 | Tlabel8 | Caption - Номер страхового свидетельства. | Нет |
| 13 | Tlabel10 | Caption - Номер медполиса. | Нет |
| 14 | Tlabel11 | Caption - Компания выдавшая медполис. | Нет |
| 15 | Tlabel12 | Caption - Адрес компании выдавшей медполис. | Нет |
| 16 | DataSource3 | Data Set - Table7; | Data Set - Table7; |
| 17 | DBLookupComboBox2 | Data Field - Пол; Data Sourse - DataSource1; Key Field - Пол; List Field - Пол; List Source - DataSource3; | Data Sourse - DataSource1; List Source - DataSource3; |
| 18 | DBEdit5 | Data Field - Номер страхового свидетельства; Data Sourse - DataSource1; | Data Sourse - DataSource1; |
| 19 | DateTimePicker1 | Date - 04.06. 2005; Tab Order - 15; Time - 11: 10: 53; | Нет |
| 20 | Mask Edit1 | EditMask - ! 999999; 0;; | Нет |
| 21 | DBEdit9 | Data Field - Компания выдавшая медполис; Data Sourse - DataSource1; | Data Sourse - DataSource1; |
| 22 | DBEdit10 | Data Field - Адрес компании выдавшей медполис; Data Sourse - DataSource1; | Data Sourse - DataSource1; |
| 23 | Button6 | Caption - Выход | OnClick - Button6Click. |
| 24 | Button5 | Caption - Внести Enabled - False; | OnClick - Button5Click. |
| 25 | Button4 | Caption - ВУС; Enabled - False; | OnClick - Button4Click. |
| 26 | Button3 | Caption - Работа Enabled - False; | OnClick - Button3Click |
| 27 | Button2 | Caption - Образование Enabled - False; | OnClick - Button2Click. |
| 28 | Button1 | Caption - Паспорт Enabled - False; | OnClick - Button1Click. |
| 29 | DBEdit1 | Data Field - Фамилия Data Sourse - DataSource1; | Data Sourse - DataSource1; OnKeyPress - dbedit1KeyPress. |
| 30 | DBEdit2 | Data Field - Имя Data Sourse - DataSource1; | Data Sourse - DataSource1; OnKeyPress - dbedit2KeyPress. |
| 31 | DBEdit3 | Data Field - Гражданство; Data Sourse - DataSource1; | Data Sourse - DataSource1; OnKeyPress - dbedit3KeyPress. |
| 32 | DBLookupComboBox1 | Data Field - Семейное положение; Data Sourse - DataSource1; Key Field - Семейное положение; List Field - Семейное положение; List Source - DataSource2; | Data Sourse - DataSource1; List Source - DataSource2; |
| 33 | DBEdit4 | Data Field - Отчество; Data Sourse - DataSource1; | Data Sourse - DataSource1; OnKeyPress - dbedit4KeyPress. |
Окно Form3 заносятся паспортные данные. (Рис.6).
Рис.6. Окно программы - "Паспорт"
Таблица 5
| № | Компонент | Свойства | Событие |
| Form3 | Caption - Паспорт; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 298; ClientWidth - 783; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; | OnCreative - FormCreate; | |
| 1 | Tlabel2 | Caption - Серия. | Нет |
| 2 | Tlabel3 | Caption - Номер. | Нет |
| 3 | Tlabel4 | Caption - Выдан. | Нет |
| 4 | Tlabel5 | Caption - Зарегесрирован. | Нет |
| 5 | Tlabel6 | Caption - По адресу. | Нет |
| 6 | DataSource1 | Data Set - Table2 | Data Set - Table2 |
| 7 | DataSource2 | Data Set - Table8 | Data Set - Table8 |
| 8 | Table2 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Паспорт; | Нет |
| 9 | Table8 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Зарегестрирован;. | Нет |
| 10 | Button1 | Caption - Внести; | OnClick - Button1Click |
| 11 | DBEdit5 | Data Field - По адресу; Data Sourse - DataSource1; | Data Sourse - DataSource1; |
| 12 | DBLookupComboBox1 | Data Field - Зарегистрирован; Data Sourse - DataSource1; Key Field - Зарегистрирован; List Field - Зарегистрирован; List Source - DataSource2; | Data Sourse - DataSource1; List Source - DataSource2; |
| 13 | DBEdit4 | Data Field - Выдан; Data Sourse - DataSource1; | Data Sourse - DataSource1; |
| 14 | Mask Edit2 | EditMask - ! 999999; 0;; | Нет |
| 15 | Mask Edit1 | EditMask - ! 999999; 0;; | Нет |
| 16 | Tlabel6 | Caption - Выход на пенсию. | Нет |
| 17 | Tlabel6 | Caption - Телефон. | Нет |
| 18 | Tlabel6 | Caption - Адрес проживания. | Нет |
| 19 | Button2 | Caption - Выход | OnClick - Button2Click. |
| 20 | DBEdit8 | Data Field - Адрес проживания Data Sourse - DataSource1; | Data Sourse - DataSource1; |
| 21 | DBEdit9 | Data Field - Телефон Data Sourse - DataSource1; | Data Sourse - DataSource1; |
| 22 | DBEdit1 | Data Field - Выход на пенсию; | Data Sourse - DataSource1; |
| 23 | Mask Edit3 | EditMask - ! 999999; 0;; | Нет |
| 24 | DateTimePicker1 | Date - 04.06. 2005; Tab Order - 15; Time - 11: 10: 53; | Нет |
| 25 | Tlabel7 | Caption - Дата рождения (формат дн. мц. гггг.). | Нет |
| 26 | Tlabel8 | Caption - Индекс. | Нет |
Окно Form4 заносятся данные по образованию. (Рис.7).
Рис.7. Окно программы - "Образование"
Таблица 6
| № | Компонент | Свойства | Событие |
| Form4 | Caption - Образования; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 436; ClientWidth - 804; 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 | DataSource1 | Data Set - Table3 | Data Set - Table3 |
| 8 | Table3 | Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Образование; | Нет |
| 9 | DBGrid1 | DataSource - DataSource1. | DataSource - DataSource1. |
| 10 | Edit6 | Text - очистить. | Нет |
| 11 | Edit5 | Text - очистить. | Нет |
| 12 | Edit4 | Text - очистить. | Нет |
| 13 | Edit3 | Text - очистить. | Нет |
| 14 | Edit2 | Text - очистить | OnKeyPress - Edit2KeyPress |
| 15 | Edit1 | Text - очистить | OnKeyPress - Edit1KeyPress |
| 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 | Edit10 | Text - очистить | Нет |
| 25 | Edit9 | Text - очистить | Нет |
| 26 | Edit8 | Text - очистить | Нет |
| 27 | Edit7 | Text - очистить | Нет |
Окно Form5 заносятся данные по работе. (Рис.8).