Автор работы: Пользователь скрыл имя, 03 Января 2012 в 18:54, курсовая работа
В данном курсовом проекте была разработана база данных «Медицинское страхование» в СУБД Visual FoxPro 9.0. Программа, работающая с БД, позволяет вести учет клиентов ателье и дает возможность сформировать отчеты по различным категориям.
Выбор FoxPro обусловлен прежде всего разносторонностью этой СУБД, удобством как для разработчика приложений, так и для обычного пользователя. Наличие в ней языка программирования позволяет создавать сложные системы обработки данных, ориентированные на конкретные задачи и даже под конкретного пользователя. С другой стороны, в ней отражены и в разной мере используются многие современные технологии программирования: ActiveX, COM, SQL, OLE, API и многое другое.
Пользователями БД выступают служащие ателье, регистрирующие клиентов.
Форма «Добавить», кнопка «Сохранить»
x1 = thisform.Text1.Value
x2 = thisform.Text2.Value
x3 = thisform.Text3.Value
x4 = thisform.Text4.Value
INSERT INTO polis ( date_polis, polis_n, people_fio, adres, ;
district_id, depart_id, dolg_id, ;
type_serv_id) ;
VALUES ( x1,x2,x3,x4, ;
VAL(thisform.Combo1.Value), VAL(thisform.Combo2.Value), ;
VAL(thisform.Combo3.Value),
*thisform.Release
Форма «Добавить», кнопка «Отмена»
thisform.Release
Форма «Отделы», кнопка «Добавить»
INSERT INTO depart (depart_name)
VALUES (ALLTRIM(thisform.Text1.Value)
thisform.Grid1.Refresh
Форма «Отделы», кнопка «Удалить»
LOCAL ident
STORE depart.depart_id TO ident
IF MESSAGEBOX ("Удалить эту запись?", 4 + 32 + 256) = 6
DELETE FROM depart WHERE depart_id = ident
SET DELETED ON
*REQUERY(thisform.Grid1.
thisform.Grid1.Refresh
ENDIF
Форма «Районы», кнопка «Добавить»
INSERT INTO district (district_name)
VALUES (ALLTRIM(thisform.Text1.Value)
thisform.Grid1.Refresh
Форма «Отделы», кнопка «Удалить»
LOCAL ident
STORE distict.distict_id TO ident
IF MESSAGEBOX ("Удалить эту запись?", 4 + 32 + 256) = 6
DELETE FROM distict WHERE distict_id = ident
SET DELETED ON
*REQUERY(thisform.Grid1.
thisform.Grid1.Refresh
ENDIF
Форма «Сотрудники», кнопка «Добавить»
INSERT INTO dolg (dolg_name)
VALUES (ALLTRIM(thisform.Text1.Value)
thisform.Grid1.Refresh
Форма «Сотрудники», кнопка «Удалить»
LOCAL ident
STORE dolg.dolg_id TO ident
IF MESSAGEBOX ("Удалить эту запись?", 4 + 32 + 256) = 6
DELETE FROM dolg WHERE dolg_id = ident
SET DELETED ON
*REQUERY(thisform.Grid1.
thisform.Grid1.Refresh
ENDIF
Форма «Редактировать», кнопка «Сохранить»
x1 = thisform.Text1.Value
x2 = thisform.Text2.Value
x3 = thisform.Text7.Value
x4 = thisform.Text8.Value
x5 = thisform.Text_ID.Value
select polis
replace for polis_id=x5 date_polis with x1
replace for polis_id=x5 polis_n with x2
replace for polis_id=x5 people_fio with x3
replace for polis_id=x5 adres with x4
thisform.Release()
Форма «Редактировать», кнопка «Отмена»
thisform.Release
Форма
«Полис», кнопка «Добавить»
DO FORM add
REQUERY(thisform.Grid1.
Форма «Полис», кнопка «Редактировать»
LOCAL ident
STORE polis_view.polis_id TO
ident
DO FORM edit WITH ident
REQUERY(thisform.Grid1.
thisform.Grid1.Refresh
Форма «Полис», кнопка «Удалить»
LOCAL ident
STORE polis_view.polis_id TO ident
IF MESSAGEBOX ("Удалить эту запись?", 4 + 32 + 256) = 6
DELETE FROM polis_view WHERE polis_id = ident
SET DELETED ON
REQUERY(thisform.Grid1.
thisform.Grid1.Refresh
ENDIF
Форма «Полис», кнопка «Обновить»
REQUERY(thisform.Grid1.
Форма «Полис», кнопка «Поиск»
SELECT polis_view
SET FILTER TO polis_view.comp_name = ALLTRIM(thisform.Text1.Value)
thisform.Grid1.SetFocus
Форма
«Полис», кнопка «Поиск»
SELECT sell_view
SET FILTER TO sell_view.people_fio = ALLTRIM(thisform.Text2.Value)
thisform.Grid1.SetFocus
Форма
«Полис», кнопка «Поиск»
SELECT sell_view
SET FILTER TO sell_view.org_name = ALLTRIM(thisform.Text3.Value)
thisform.Grid1.SetFocus
Форма
«Отчеты», кнопка «Список
выданных полисов за
период»
SELECT * FROM polis_view ;
WHERE date_polis between thisform.Text1.Value AND thisform.Text2.Value ;
INTO CURSOR MyCursor
REPORT FORM report_name preview
Форма
«Отчеты», кнопка «Список
выданных полисов по
районам»
SELECT * FROM polis_view ;
WHERE district_name = thisform.Combo2.Value ;
INTO CURSOR MyCursor
REPORT FORM report_name preview
Форма
«Отчеты», кнопка «Список
выданных полисов по
страховщикам»
SELECT * FROM polis_view ;
WHERE dolg_name = thisform.Combo3.Value ;
INTO CURSOR MyCursor
REPORT FORM report_name preview
Форма «Отчеты», кнопка «Количество выданных полисов по страховщикам»
SELECT dolg_name as name_, count(*) as count_ FROM polis_view ;
WHERE date_polis between thisform.Text3.Value AND thisform.Text4.Value;
GROUP BY name_ ;
INTO CURSOR MyCursor
REPORT FORM report_count preview
Форма
«Отчеты», кнопка «Количество
выданных полисов по
видам»
SELECT type_serv_name as name_, COUNT(*) as count_ FROM polis_view ;
WHERE date_polis between thisform.Text5.Value AND thisform.Text6.Value;
GROUP BY name_ ;
INTO CURSOR MyCursor
REPORT FORM report_count preview
Форма «Уровень сервиса», кнопка «Удалить»
LOCAL ident
STORE type_serv.type_serv_id TO ident
IF MESSAGEBOX ("Удалить эту запись?", 4 + 32 + 256) = 6
DELETE FROM type_serv WHERE type_serv_id = ident
SET DELETED ON
*REQUERY(thisform.Grid1.
thisform.Grid1.Refresh
ENDIF
Форма «Уровень сервиса», кнопка «Добавить»
INSERT INTO type_serv (type_serv_name)
VALUES (ALLTRIM(thisform.Text1.Value)
thisform.Grid1.Refresh