48618 (608687), страница 2
Текст из файла (страница 2)
Таблица 3
| № | Компонент | Свойства | Событие |
| Form1 | Caption - Картотека работников; Align - al Custom; Anchors - akLeft, akTop, akRight, akBottom; AutoScroll - False; BorderIcons - biSystemMenu,biMinimize; ClientHeight - 694; ClientWidth - 1024; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; FormStyle - fsMDIForm; Menu - MainMenu1; OldCreateOrder - False; Position - poScreenCenter; Scaled - False; Visible - True; | OnCreative - FormCreate; | |
| 1 | TMainMenu | Смотрите схему 1 | N4Click - закрывает программу; N5Click - открывает форму "Поиск"; N7Click - открывает форму "Сведенья о сотруднике"; N2Click - открывает форму "Редактирование"; N1Click - вызывает подсказку о программе; N8Click - вызывает сведения о создателе. |
| 2 | PopupMenu | Items | Нет |
| 3 | ActionList | Нет |
1 - компонент TMainMenu.
Свойства:
Схема 1
Items
Файл (N1) Поиск(N5) Начало работы (N6) О программе(N12)
Выход (N4) Сведения о сотруднике(N7) Помощь(N1)
Редактирование(N2) Создатель(N8)
О
кно Form2 заносятся общие сведенья о сотруднике. (Рис.5).
Р
23
24
25
26
27
28
ис.5. Окно программы - "Сведения о сотрудниках"Таблица 4
| № | Компонент | Свойства | Событие |
| 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).












