Заполнение базы данных «Депонированная зарплата с использованием справочников», страница 3

            При выборе данного пункта просто открывается окно для выбора текущего каталога (не рекомендуется менять текущий каталог)

Ø  Контроль ссылочной целостности

            Этот пункт используется для удаления из таблиц записей, которые ссылаются на несуществующие в других таблицах записи.

Ø  Удаление помеченных объектов

            Этот пункт используется для удаления всех помеченных объектов из всех баз данных программы.

Текст программы

Kurs.prg

clear all

release all

close all

public regim

regim=1

do "c:\temp\kurs\regim.spr"

**SET ESCAPE OFF                                                                                                    && Запрет прерывания программы по ESC

**SET DELETED ON                                                                                                          && не учитывать и не показывать записи помеченные как удалённые

zoom window screen max

public dir, name, str, question, fio, usou_nmo, num_fio, num_nmo, god, mesyac

public par3, par4

god="06"

dimension usou_nmo(50)

dir="C:\temp\kurs"

name=""

ON KEY LABEL Ctrl+F4 do QuitProc in c:\temp\kurs\kurs.prg"

do begin in dir+"\main.prg"

define window win at 0,0 size 61,204 nozoom double Font "Arial",8;

fill file dir+"\CHALK.bmp"

activate window win

set sysmenu to

***************************организация горизонтального меню**********************

define pad fil     of _MSYSmenu prompt "Файл"

define pad bd      of _MSYSmenu prompt "Просмотр БД"

define pad bdedit  of _MSYSmenu prompt "Редактирование БД"

define pad counts  of _MSYSmenu prompt "Расчеты"

define pad reports of _MSYSmenu prompt "Отчеты"

define pad adm     of _MSYSmenu prompt "Администрирование"

***************************для пункта меню файл****************************

define popup  fillist margin relative shadow color scheme 2

define bar 1 of fillist prompt "Выход"

***********************для пункта "просмотр БД"****************************

define popup  bdlist margin relative shadow color scheme 1

define bar 1 of bdlist prompt "Справочник кадров"

define bar 2 of bdlist prompt "Виды оплат и удержаний"

define bar 3 of bdlist prompt "Паспортные данные сотрудников"

define bar 4 of bdlist prompt "Справочник депонента"

define bar 5 of bdlist prompt "Справочник расчета з/п"

SET SKIP OF bar 4  OF bdlist 1=1

SET SKIP OF bar 5  OF bdlist 1=1

***********************для подменю расчета з/п*****************************

define popup subbdlist margin relative shadow color scheme 1

define bar 1  of subbdlist prompt "за январь"

define bar 2  of subbdlist prompt "за февраль"

define bar 3  of subbdlist prompt "за март"

define bar 4  of subbdlist prompt "за апрель"

define bar 5  of subbdlist prompt "за май"

define bar 6  of subbdlist prompt "за июнь"

define bar 7  of subbdlist prompt "за июль"

define bar 8  of subbdlist prompt "за август"

define bar 9  of subbdlist prompt "за сентябрь"

define bar 10 of subbdlist prompt "за октябрь"

define bar 11 of subbdlist prompt "за ноябрь"

define bar 12 of subbdlist prompt "за декабрь"

***********************для "Редактирование БД"************************

define popup  bdeditlist margin relative shadow color scheme 1

define bar 1 of bdeditlist prompt "Справочник кадров"

define bar 2 of bdeditlist prompt "Виды оплат и удержаний"

define bar 3 of bdeditlist prompt "Паспортные данные сотрудников"

define bar 4 of bdeditlist prompt "Справочник депонента"