Запрос 4
select cenaed as Цена;
from svpos;
where cenaed IN(2200,4000,8000)
select plankol as Плановое количество;
from svpos;
where plankol between val(ThisForm.Text1.value) and val(ThisForm.Text2.value)
Запрос 5
Запрос 6
if ThisForm.ChkPovtor.value = 0
select C.cenaed as Цена_единицы,P.Namecex as Получатель;
from svpos C,pol P;
where C.idpol=P.idpol
else
select distinct C.cenaed as Цена_единицы,P.Namecex as Получатель;
from svpos C,pol P;
where C.idpol=P.idpol
endif
Запрос 7
Запрос 8
Запрос 9
ИНДИВИДУАЛЬНОЕ ЗАДАНИЕ
Вариант 5. АИС "МАТЕРИАЛЬНО-ТЕХНИЧЕСКОЕ СНАБЖЕНИЕ"
ВЕДОМОСТЬ О НАЛИЧИИ СЫРЬЯ ______________
(единица измерения ...<до 18 символов>..., цена <цц.ццц> т.руб)
-
Наименование цеха
Поступление сырья
дата
количество
Стоимость(т.руб)
до 12 символов
ццц.ц
ццццц.ццц
Итого
Отклонение от плана:
в количественном выражении ...... (<единиц измерения>)
в стоимостном выражении...... (т.руб)
SELECT P.namecex as Наименование_цеха, PS.datapost as Дата_поставки,;
SP.polkol as Количество,SP.cenaed*SP.polkol as Общая_стоимость;
from Sur S,pol P,possur PS,svpos SP;
where S.namesur==thisform.combo1.value;
and;
SP.idsur=S.idsur;
and;
P.idpol=PS.idpol;
and;
P.idpol=SP.idpol; into dbf tabli2
SELECT sum(SP.polkol) as Итого_количество,sum(SP.cenaed*SP.polkol) as Итого_общая_стоимость;
from Sur S,pol P,possur PS,svpos SP;
where S.namesur==thisform.combo1.value;
and;
SP.idsur=S.idsur;
and;
P.idpol=PS.idpol;
and;
P.idpol=SP.idpol; into dbf itog2
Текст процедуры OpenDbc
*Procedure OpenDBC
Set default to "D:\Áàçà\mgupp\bd\Kurskix\new"
Set step On
set date to dmy
If not file("mts.dbc")
Create Database mts
Else
Open Database mts
Endif
If not file("pol.dbf")
CREATE TABLE Pol;
(;
idPol Integer Not Null Prim Key Default NewCod() ;
,NameCex Character(20) Check not Empty (NameCex) Error "Vvedite nazvanie cexa" ;
)
*!* Else
*!* Use Pol In 0
Endif
If not file("Priem.dbf")
CREATE TABLE Priem;
(;
,idPriem Integer Not Null Prim Key Defa NewCod() ;
,idPol Integer References Pol tag idPol ;
,TabNom Char UNIQUE check TabNom>0 Error ">0" ;
,name Character(20) Check not Empty(name) Error "imya" ;
,otch Character(20) Check not Empty(otch) Error " otchestvo" ;
,fam Character(20) Check not Empty(fam) Error " familiya" ;
,UNIQUE name + otch + fam tag FIO;
)
else
Use Priem In 0
Endif
If not file("Post.dbf")
CREATE TABLE Post;
(;
idPost Integer Not Null Prim Key Defa NewCod() ;
,NamePost Character(50) UNIQUE Check not Empty(NamePost) Error "VVedite imua postavwika" ;
,Tel Char(10) check not empty(Tel) Error "Vvedite tol’ko cifri" ;
,DopSved memo;
)
else
Use Post In 0
Endif
If not file("Sur.dbf")
CREATE TABLE Sur;
(;
idSur Integer NOT NULL Prima Key Default NewCode() ;
,NameSur Character(22) UNIQUE Default not Empty(NameSur) Error "VVedite nazvanie suriua" ;
,SrokXran Date Check SrokXran<Date() Error "VVedite srok xraneniua";
,TempXran Numeric(3) check between(TempXran,-50,50) Error "ot -50 do 50" ;
)
else
Use Sur In 0
Endif
If not file("PosSur.dbf")
CREATE TABLE PosSur;
(;
idPosSur Integer NOT NULL Prima Key Default NewCode() ;
,idPol Integer References Pol tag idPol ;
,idPost Integer References Post tag idPost ;
,idPriem Integer References Priem tag idPriem ;
,DataPost Date Check Date() >= DataPost Error "VVedite daty " + dtoc(Date());
,komy Character(20) Check not Empty(komy) Error "Vveditekomy" ;
,PlanKol Float(4,1) Check PlanKol>0 Error ">0" ;
,PolKol Float(4,1) check PolKol>0 Error ">0" ;
,Mesto Memo NOT NULL;
,StPosSur Float(5,3) check StPosSur>0 Error ">0" ;
)
Else
Use PosSur In 0
Endif
If not file("SVPos.dbf")
CREATE TABLE SVPos;
(;
idPol Integer References Pol tag idPol ;
,idPost Integer References Post tag idPost ;
,idPriem Integer References Priem tag idPriem ;
,idPosSur Integer References PosSur tag idPosSur ;
,idSur Integer References Sur tag idSur ;
,idSvPos Integer NOT NULL Prima Key Default NewCode() ;
,EdPost Character(18) UNIQUE Check not Empty(EdPost) Error "VVedite edinicy postavki" ;
,StEdPost Float(5,3) check StEdPost>0 Error "Edinica postavki >0" ;
,SertKach Logical NOT NULL;
,KolEdPos Numeric(4,1) check KolEdPos>0 Error "Koli4estvo edinicpostavki >0" ;
,StPost Numeric(5,3) check StPost>0 Error "stoimost postavki >0" ;
)
else
Use SVPos In 0
Endif
фрагменты процедуры menu.mpr
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD vedtabl OF _MSYSMENU PROMPT "\<Ведение таблиц" COLOR SCHEME 3 ;
KEY CTRL+F1, "CTRL+F1" ;
MESSAGE " Ведение таблиц "
DEFINE PAD zapr OF _MSYSMENU PROMPT "\<Запросы и отчеты" COLOR SCHEME 3 ;
KEY CTRL+F2, "CTRL+F2" ;
MESSAGE " Запросы и отчеты "
DEFINE PAD info OF _MSYSMENU PROMPT "\<Информация" COLOR SCHEME 3 ;
KEY CTRL+F3, "CTRL+F3" ;
MESSAGE " Информация об авторах и программе"
DEFINE PAD exit OF _MSYSMENU PROMPT "В\ыход" COLOR SCHEME 3 ;
KEY CTRL+F10, "CTRL+F10" ;
MESSAGE "Выход в Windows и FoxPro"
ON PAD info OF _MSYSMENU ACTIVATE POPUP _2r50o2q16
ON PAD exit OF _MSYSMENU ACTIVATE POPUP _2r50o2xve
DEFINE BAR _mfi_sp400 OF _mfile PROMPT "\-"
DEFINE BAR _mfi_quit OF _mfile PROMPT "E\<xit" ;
MESSAGE "Quits Visual FoxPro"
DEFINE POPUP newitem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR Priem OF newitem PROMPT "\<Приемщик" ;
KEY CTRL+P, "CTRL+P" ;
SKIP FOR not file "Priem.dbf" or not file "frmPriem.scx" ;
MESSAGE "Сведения о приемщике"
DEFINE BAR PosSur OF newitem PROMPT "П\<оставка сырья" ;
KEY CTRL+O, "CTRL+O" ;
SKIP FOR not file "PosSur" ;
MESSAGE "Общие сведения о поставке"
DEFINE BAR SVPos OF newitem PROMPT "С\<ырье в поставке" ;
KEY CTRL+S, "CTRL+S" ;
SKIP FOR not file "SVPos.dbf" ;
MESSAGE "Поставляемое сырье"
DEFINE BAR Slovar OF newitem PROMPT "\<Словари" ;
KEY CTRL+L, "CTRL+L" ;
MESSAGE "__________"
ON BAR Slovar OF newitem ACTIVATE POPUP _2r50o21fm
DEFINE POPUP _2r50o21fm MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR Pol OF _2r50o21fm PROMPT "\<Получатель" ;
KEY CTRL+P, "CTRL+P" ;
SKIP FOR not file "Pol.dbf" ;
MESSAGE "Наименование цеха получателя"
DEFINE BAR Post OF _2r50o21fm PROMPT "П\<оставщик" ;
KEY CTRL+O, "CTRL+O" ;
SKIP FOR not file "Post.dbf" ;
MESSAGE "Сведения о поставщике"
DEFINE BAR Sur OF _2r50o21fm PROMPT "\<Сырье" ;
KEY CTRL+S, "CTRL+S" ;
SKIP FOR not file "Sur.dbf" ;
MESSAGE "Сведения о поставляемом\получаемом сырье"
DEFINE POPUP _2r50o2q16 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR avtor OF _2r50o2q16 PROMPT "\<Об авторе" ;
KEY CTRL+A, "CTRL+A" ;
SKIP FOR not file "avtor.dbf" ;
MESSAGE "Информация об авторе"
DEFINE BAR InfoProg OF _2r50o2q16 PROMPT "О \<программе" ;
KEY CTRL+P, "CTRL+P" ;
MESSAGE "Информация о программе"
ON SELECTION BAR avtor OF _2r50o2q16 do form frmAbout
ON BAR InfoProg OF _2r50o2q16 ACTIVATE POPUP _2r50o3ne2
DEFINE POPUP _2r50o3ne2 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR Instr OF _2r50o3ne2 PROMPT "\<Инструкция" ;
KEY CTRL+I, "CTRL+I" ;
SKIP FOR not file "instr.dbf" ;
MESSAGE "Инструкция по применению"
DEFINE BAR StrTab OF _2r50o3ne2 PROMPT "\<Структура таблиц" ;
KEY CTRL+T, "CTRL+T" ;
SKIP FOR not file "strtab.dbf" ;
MESSAGE "Информация о структуре таблиц"
DEFINE BAR SxemD OF _2r50o3ne2 PROMPT "Схема \<данных" ;
KEY CTRL+T, "CTRL+T" ;
SKIP FOR not file "SxemD.dbf" ;
MESSAGE "Схема данных"
ON SELECTION BAR SxemD OF _2r50o3ne2 do form frmModelBD
DEFINE POPUP _2r50o2xve MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR ExitW OF _2r50o2xve PROMPT "\<В Windows" ;
KEY CTRL+F10, "CTRL+F10" ;
SKIP FOR not file "windows.dbf" ;
MESSAGE "Выход в Windows"
DEFINE BAR ExitFP OF _2r50o2xve PROMPT "В \<FoxPro" ;
KEY CTRL+F12, "CTRL+F12" ;
SKIP FOR not file "FP.dbf" ;
MESSAGE "Выход в Фокс"
DIFINE POUP запросыиот MARGIN RELATIVE SMADOW COLOR SCHEME 4
DEFINE BAR 1 OF Запросыиот PROMPT «Простейшие запросы»
DEFINE BAR 2 OF запросыиот PROMT «Объединение таблиц»
DEFINE BAR 3 OF запросыиот PROMT «Индивидуальный запрос»
ON BARE 1 запросыиот ACTIVATE POUP простйшие
ON BARE 2 запросыиот ACTIVATE POUP объединение
ON SELECTION BAR 3 OF запросыиот Doform fzmvedom.sex
DIFINE POUP простейшие MARGIN RELATIVE SMADOW COLOR SCHEME 4
DEFINE BAR 1 OF простейшие PROMPT «1.1. Полуатель»
DEFINE BAR 2 OF простейшие PROMT «1.2. Цена единицы»
DEFINE BAR 3 OF простейшие PROMT «1.3. Вычислить стоимость»
DEFINE BAR 4 OF простейшие PROMPT «1.4.Сырьё в поставке»
DEFINE BAR 5 OF простейшие PROMPT «1.5. Общая стоимость»
ON SELECTION BAR 1 OF простейшие Doform poluch.sex
ON SELECTION BAR 2 OF простейшие Doform cened.sex
ON SELECTION BAR 3 OF простейшие Doform stoim.sex
ON SELECTION BAR 4 OF простейшие Doform sirue.sex
ON SELECTION BAR 5 OF простейшие Doform obstoim.sex
DIFINE POUP объединение MARGIN RELATIVE SMADOW COLOR SCHEME 4
DEFINE BAR 1 OF объединение PROMPT «2.1. Цена при поставке»
DEFINE BAR 2 OF объединение PROMT «2.2. Вычислить сырьё»
DEFINE BAR 3 OF объединение PROMT «2.3. Плановое кол-во сырья»
DEFINE BAR 4 OF объединение PROMPT «2.4.Общая стоимость»
ON SELECTION BAR 1 OF объединение Doform frmcened.sex
ON SELECTION BAR 2 OF объединение Doform frmstoim.sex
ON SELECTION BAR 3 OF объединение Doform frmsirue.sex
ON SELECTION BAR 4 OF объединение Doform frmobst.sex
